bnobre

Obrigado pela dica, tentei fazer, mas está dando erro... Creio que estou "pecando" em algo. Basicamente criei uma procedure onde programo a ação que acontecerá no OnSend: procedure Trlr_rel_vendasnfce.EnviarEmail; var para:String; begin para := InputBox('Enviar relatório por e-mail','Preencha o(s) e-mail(s) abaixo:', ''); if para <> '' then begin try RLReport1.SaveToFile(ExtractFilePath(Application.ExeName) + 'relatorio.pdf'); frm_aviso := Tfrm_aviso.Create(Application); frm_aviso.lbl_aviso.Caption := ' Enviando e-mail'; frm_aviso.Show; frm_aviso.BringToFront; Application.ProcessMessages; dtm_banco.ACBrMail1.Clear; dtm_banco.ACBrMail1.IsHTML := False; dtm_banco.ACBrMail1.Subject := 'Relatório Vendas NFCe '; AjustaParametrosDeEnvio(para); dtm_banco.ACBrMail1.AltBody.Text := 'Empresa: ' + dtm_banco.Emitente_Nome + #13 + #13 + 'CNPJ: ' + dtm_banco.Emitente_CNPJCPF + #13 + #13 + 'Telefone: ' + dtm_banco.Emitente_Fone + #13 + #13 + #13 + #13 + #13 + #13 + '* Este e-mail foi enviado automaticamente pelo aplicativo da B&D Sistemas.Favor não responder. '; dtm_banco.ACBrMail1.AddAttachment(ExtractFilePath(Application.ExeName) + 'relatorio.pdf'); dtm_banco.ACBrMail1.Send(False); frm_aviso.Free; ShowMessage('Relatório enviado com sucesso'); except on E : Exception do begin frm_aviso.Free; ShowMessage('ERRO' + #13 + #13 + e.message); end; end; end; end; Aí no evento BeforePrint do RLReport1 eu coloquei o seguinte comando: RLPreviewSetup1.OnSend := EnviarEmail; E no evento AfterPrint do RLReport1 eu coloquei o seguinte comando: RLPreviewSetup1.OnSend :=nil; Mas na linha do BeforePrint (RLPreviewSetup1.OnSend := EnviarEmail;) está retornando o seguinte erro: [DCC Error] u_report_rel_vendasnfce.pas(252): E2009 Incompatible types: 'Parameter lists differ'

Olá Juliomar... Obrigado pela resposta Então... Eu basicamente fui no evento OnSend do componente e adicionei os comandos de geração do PDF e envio do e-mail lá, não sei como adicionar o evento da maneira que sugeriu. Você teria um exemplo de como eu posso adicionar o evento somente quando eu for executar essa parte do sistema?

Olá Juliomar... tudo bom? Então... Consegui colocando um RLPreviewSetup1 e jogando o código no evento RLPreviewSetup1Send. O problema agora é que TODOS os relatórios do meu sistema estão vinculados a esse objeto, e consequentemente executando esse código. Eu preciso que somente UM relatório visualize esse RLPreviewSetup1. É possível?

Prorrogou... http://www.nfe.fazenda.gov.br/portal/informe.aspx?ehCTG=false#518

Olá meu amigo, tudo bom? Em relação a transição da NFe 3.10 para a 4.00, que eu saiba não existe nenhuma mudança em relação ao layout do DANFE nas NTs, consequentemente tal informação simplesmente não aparecerá na impressão.

Cara... Se eu informar tpIntegra = 2 aqui fica idêntico ao código da sua versão anterior... E estou com os componentes atualizados. Manda o código da geração do teu XML aí

Olá a todos... Prorrogado NT 1.51

Olá a todos, Sou do Rio, portanto utilizo a SVRS para envio de NFe/NFCe... Até o presente momento a NT 1.50 ainda não entrou em vigor e já estamos próximos da desativação do ambiente 3.10 (caso não ocorra outra prorrogação). Alguém teve notícias sobre o que ocorreu com essa NT OU tem o e-mail de contato com a SVRS para que eu possa perguntar? Desde já agradeço a atenção de todos

Só corrigindo, ativa em Homologação dia 02/05/2018.

Galera... Minha sugestão é aguardar AO MENOS essa NT 1.50 entrar em vigor no modo Homologação para debatermos qualquer outra coisa sobre a mesma. Estamos debatendo sobre uma NT que nem cumpriu seu propósito de estar ativa em Homologação dia 02/07/2018, até o momento está tudo como antes.

O jeito é esperar, falou tudo meu amigo.

Olá... Você tem algum XML autorizado assim? Pois conforme o BigWings falou, sempre foi obrigatório na 4.00. Observe que só dá essa rejeição na 4.00 e quando você preenche itens do Grupo Duplicata, os boletos no seu caso.

Não é obrigatório... Inclusive, ao meu ver, seria burocrático para o operador do caixa fazer isso em sistemas não integrados.

https://pt.slideshare.net/regys_silveira/mudanas-da-nfe-40-e-implementao-com-acbr Isso SOMADO ao que estamos comentando sobre a NT 1.50 Bem... A questão é a seguinte, eu uso os comandos abaixo para enviar a NFe: GerarNFe(cupom); ACBrNFe1.NotasFiscais.GerarNFe; ACBrNFe1.NotasFiscais.Assinar; ACBrNFe1.NotasFiscais.Validar; ACBrNFe1.Enviar(cupom, False); A rejeição Rejeição: Grupo duplicata informado e forma de pagamento não é Duplicata Mercantil está acontecendo aqui para mim na última linha, portanto é um retorno do WebService e nada tem haver com os Schemas, não é um erro de validação local. De acordo com a NT 1.50, tal rejeição seria descartada, como ainda existe ficamos obrigados a informar Duplicata Mercantil como forma de pagamento. Outro ponto ponto é que apesar da exclusão da forma de pagamento Duplicata Mercantil, não consta na NT 1.50 nenhuma validação/rejeição sobre a mesma, portanto não sei como ficará quando o usuário tentar enviar tal forma de pagamento. O que sei é que até o presente momento está aceitando normalmente.

Cara, olha seu XML, você está gerando na versão 3.10. E como eu disse está funcionando normal a emissão na 4.00 em Homologação.

Você está certo, a grande mudança foi a inclusão da tag indPag e exclusão da Duplicata Mercantil. De qualquer forma sou do RJ, portanto uso o mesmo WebService que você e não estou tendo problemas nenhum em enviar notas em Homologação/Produção com a opção 15 ou 90. Na verdade estou enviando normalmente até com a 14, conforme disse acima, pois a validação da mesma ainda está ativa, obrigando assim seu preenchimento. Mas conforme o carlos lembrou, as alterações dessa NT só valerão a partir de 02/05/18 - Homologação e 16/05/18 - Produção, página 10.

Você diz essa caixa na imagem abaixo? Se sim, observe a function FormaPagamentoToStr em pcnConversao.

Cara... Não entendi a afirmação que "no componente acbr 02 é cartão de débito". Aqui pra mim o valor 02 = Cheque, e todos os outros estão batendo normalmente. Onde está escrito isso? Como você especifica as formas de pagamento?

Outro detalhe... Ainda estou conseguindo emitir normalmente como forma de pagamento Duplicata Mercantil e as validações da mesma estão ativas (ex.: Rejeição: Grupo duplicata informado e forma de pagamento não é Duplicata Mercantil.) Melhor aguardar.

Esse ENCAT dificulta muito, tiraram essa tag meses atrás e agora faltando dois meses para o prazo final colocam ela novamente, isso se não prorrogarem a data dinovo. A implantação no NFCe agora foi para Outubro. 1 - Se observar a NT na página 47 não existe mais "Outros", então ou é a Vista ou a Prazo, corrija essa parte. 2 - Outro detalhe é que não tem nada associando o indPag ao tPag, portanto fica de acordo com o entendimento de cada um. Ao meu ver eu posso pagar em Dinheiro, mas não na hora, portanto à prazo. 3 - Essa tag foi recuperada, mas não vejo na NT o seu uso obrigatório, inclusive acabo de testar aqui e consegui emitir sem ela sem problemas. Eu estou afim de deixar meu emissor do jeito que está, sem usar essa tag, e ver se surge alguma outra NOVIDADE até a migração definitiva (isso se ocorrer).

No final das contas acabaram voltando com a tag indPag.

Farei isso meu amigo... Grato

Estava lendo a NT aqui... As únicas tags obrigatórias no caso de TEF são a CNPJ e cAut. O detalhe é que meu PDV não pergunta a bandeira do cartão, com o intuito de agilizar a venda. Como você faria no meu caso... Informaria só o tpIntegra = 2 ou não informaria nada? Desde já agradeço as dicas

Realmente não estou passando, pois como em meus clientes todos usam POS não tenho o que passar, exceto (se obrigatório) a informação do tpIntegra = 2. Na dúvida, vou informar tpIntegra = 2 e nada mais... O que acha? Os outros grupos de card (CNPJ, tBand e cAut) usam informações disponíveis apenas TEF, correto?

Só para acrescentar... Acabo de implantar a NFCe 4.00 em um dos meus clientes e está passando normalmente os cartões de crédito e débito sem a informação da tag tpIntegra.