Tópicos bem interessantes! Para´bens, ... View more

Olá,   Perdão pelo tempo da resposta, espero que já tenhas resolvido! Se não, tenho duas considerações para lhe ajudar:   1. Você está transferindo um código do SQL antes desse código, isso? Pois suas bases no subselect estão apontando seu repositório temporário no SAS (WORK.MAPA_FATURA e WORK.RESUMO_MANUAL). Por isso sugeri em ajustar elas antes (no select de importação) e depois "apenas juntar" elas já tratadas (com o DATA SET que mencione no post anterior)!   2. Quanto ao union, teste dessa forma para ver se resolve:   PROC SQL; CREATE TABLE corp_union AS SELECT num_ano_mes_referencia as Ano_Mes , cod_ciclo_faturamento as ciclo, CASE WHEN browsing = 1 and ('Serviço Detalhado'n = "Dados Pacote" or 'Serviço Detalhado'n = "Dados Extra Pacote") and num_ano_mes_referencia>= 202004 THEN "Browsing" WHEN browsing = 1 and num_ano_mes_referencia <202004 THEN "Browsing" WHEN 'Serviço Detalhado'n IN("Dados Pacote","Dados Extra Pacote","SMS/MMS","Descontos VAS") THEN "Grupo Smart" WHEN conta = "M201065170" THEN "Provider Ebook" ELSE 'Serviço Detalhado'n END as servico_ajustado, 'Serviço Detalhado'n, Vlr_final, Sr_acounting, fat_consumer FROM ( SELECT num_ano_mes_referencia, cod_ciclo_faturamento, conta, 'Serviço Detalhado'n, Browsing, fat_consumer, Sr_acounting, vlr_final FROM WORK.MAPA_FATURA WHERE fat_consumer <> 1 and Vlr_final <> 0 and num_ano_mes_referencia = 202207 /*UNION*/ OUTER UNION CORR SELECT num_ano_mes_referencia, cod_ciclo_faturamento, conta, 'Serviço Detalhado'n, browsing, COALESCE(fat_consumer, fat_consumer,0) as fat_consumer, COALESCE(sr_acounting ,sr_acounting,0) as sr_acounting, vlr_final FROM WORK.RESUMO_MANUAL WHERE Vlr_final <> 0 and num_ano_mes_referencia = 202207 ) i ;QUIT;   Obs.: * Seu Case When final tem alguns tratamentos com dados tipo texto (usando o IN) onde deve-se ter extrema cautela pois qq caractere diferente (maiúsculo, minúsculo, espaço em branco, etc) vai sair do loop e ir parar no Else. Recomendo ajustar esse ponto para variável categórica ou chave primária para sua validação.   Espero que ajude,   ... View more

Olá,   Experimente usar o OUTER UNION CORR ali dentro do subselect, ao invés do union puro.   Uma dica é vc "quebrar" esse subselect em duas procs e depois fazer um proc data simples, assim:   data work.BASE_FIM; set    work.BASE_1          work.BASE_2           ...         work.BASE_n; run;   Espero que ajude,     ... View more

Boa tarde, Seu servidor tem de ter uma porta smtp aberta. No modelo abaixo adicionei um proc print para dispor uma tabela específica. Aí é só ajustar para cada departamento uma macro!   Veja aí, espero que ajude:     ****************************************************** * SAS GUIDE - Program send e-mail            * * BR-Zomer, jun2021                                     * ******************************************************* * Necessário ajustar o nome do servidor smtp * *                            smtp.?????.com.br             * ******************************************************; %macro GeraEmail(); TITLE " "; options emailsys=smtp emailhost='smtp.?????.com' emailport=25; FILENAME OUTPUT EMAIL SUBJECT = "SEU CABECALHO" attach=("/endereco/nome_anexo.xlsx" content_type="application/xlsx") FROM = "remetente@remetente.com.br" TO=('destinatario1@remetente.com.br', 'destinatario2@remetente.com.br') cc=('destinatario2@remetente.com.br', 'destinatario4@remetente.com.br') type='text/html' CT ='text/html'; ods html body=OUTPUT style=htmlblue; ods escapechar='^'; ODS TEXT="^S={font_face='Arial' font_size=3 fontweight=Medium foreground=black}Prezados,"; ODS TEXT=" "; ODS TEXT="^S={font_face='Arial' font_size=3 fontweight=Medium foreground=black}Segue com seu texto....."; ODS TEXT=" "; ODS TEXT=" "; PROC PRINT DATA=WORK.TABELA_VLR NOOBS STYLE(HEADER)={JUST=C FOREGROUND=BLACK font_size=3} STYLE(TABLE)={JUST=C WIDTH=50%} LABEL; LABEL SETOR='Setor'; LABEL PRODUTO='Produto'; LABEL VALOR='Valor Opr'; VAR SETOR / STYLE(DATA)={JUST=C font_size=3} STYLE(HEADER)={BACKGROUND=#f4D7D7}; VAR PRODUTO / STYLE(DATA)={JUST=C font_size=3} STYLE(HEADER)={BACKGROUND=#f4F4D7}; VAR VALOR / STYLE(DATA)={JUST=R font_size=3} STYLE(HEADER)={BACKGROUND=#DCF4D7}; RUN; ODS TEXT=" "; ODS TEXT="^S={font_face='Arial' font_size=3 fontweight=Medium foreground=black}Atenciosamente,"; ODS TEXT=" "; ODS TEXT="^S={font_face='Arial' font_size=3 fontweight=Medium foreground=black}-------------------------------------------------------------------------------------------------------------------------------------------"; ODS TEXT="^S={font_face='Arial' font_size=2 fontweight=Medium foreground=black}Esta é uma mensagem automática do sistema SAS. Não é necessário responder."; ODS TEXT="^S={font_face='Arial' font_size=3 fontweight=Medium foreground=black}-------------------------------------------------------------------------------------------------------------------------------------------"; ods html close; %mend GeraEmail;   %GeraEmail(); ... View more

%LET UF = RJ; %LET IMPOSTO = ICMS; %LET ICMS_SP = 0.020; %LET ICMS_RJ = 0.025; %LET ISS_SP = 0.030; %LET ISS_RJ = 0.028; %PUT A alíquota de &IMPOSTO em &UF é de &&&IMPOSTO._&UF; ... View more