bnobre

Olá Felipe, tudo bom? Obrigado pelo retorno, verifiquei atentamente os comentários e a princípio nenhum trouxe uma "luz" para o meu problema.

Olá a todos... Um cliente meu começou a receber o seguinte erro ao tentar enviar as NFCes: No mesmo está rodando o Windows 7 64 bits, NFCe 4.00 usando OpenSSL e LibXML2. O que pode estar causando isso? Desde já agradeço a atenção de todos

Olá ArqBox, tudo bom? Imprimir via POS seria uma opção?!?!? Se sim imprimo via POS em diversas DR800 sem problemas, além de ser bem mais rápido.

Olá amigo, tudo bom? Vamos lá... 1- o vDesc que eu informo é do grupo Fatura <fat> e portanto não é somado ao vDesc do grupo Total <total>. 2 - Na verdade até então "só funciona" se você informar o vDesc da Fatura em ambiente de Homologação, dado uma falha de validação por parte da SEFAZ, para maiores detalhes 3 - Eu informei sim a tag <detpag>, com o valor 15 inclusive. Na verdade, conforme eu mencionei acima, eu só acertei a data da parcela conforme a dica do Ricardo e funcionou.

Foi, valeu... Fica a dica então, com a data de vencimento menor que a data atual o retorno foi "Número de parcela invalido ou não informado". Outro detalhe, ainda está funcionando a forma de pagamento 14 - Duplicata mercantil

Segue. nfe.xml

Olá a todos... Estou tentando enviar uma NFe 4.0, ambiente de homologação e recebo o erro "Número de parcela invalido ou não informado", mesmo informando no formato 001, 002, etc. Estou com os fontes atualizados (15401) e usando seus Schemas.

Há quem interessar, acho que descobri uma função simples e eficaz. function MRound(val,prec:Double):Double; begin Result:=Round(Val/Prec)*Prec; end; procedure TForm1.Button1Click(Sender: TObject); var numero:Double; begin numero := StrToFloat(Edit1.Text); Edit2.Text := FloatToStr(MRound(numero,0.05)); end;

Olá Daniel, obrigado pelo retorno. Infelizmente essa função não faz o que eu preciso. Eu tenho uma tela de Reajuste de Preços e alguns valores ficam "quebrados" para vender. Ex.: R$ 1,63, R$ 7,77, R$10,93, etc... Portanto precisava que a segunda casa decimal fosse apenas 5 ou 0 Se a segunda casa for 1 ou 2. Ele arredonda pra baixo (0) Se a segunda casa for 3 ou 4. Ele arredonda pra cima (5) Se a segunda casa for 6 ou 7. Ele arredonda pra baixo (5) Se a segunda casa for 8 ou 9. Ele arredonda pra cima (0)

Olá a todos... Existe alguma função no ACBr que faça o arredondamento conforme sugerido no site abaixo: http://www.activedelphi.com.br/forum/viewtopic.php?p=17932&amp;sid=0bdd524e12cfd638d11496e12217e913

Então, a princípio isso nada tem a ver com NFes ... A idéia é criar um código universal para enviar qualquer relatório do Fortes Report existente em minha aplicação. Seja um relatório de vendas, de estoque, financeiro... Todos teriam o botão ENVIAR ativado em sua Pré-Visualização e ao clicar no mesmo o relatório em questão seria enviado por e-mail. Inclusive esse código seria finalmente um exemplo válido para todos com tal finalidade, pois procurei exaustivamente na internet e a única menção a algo parecido seria um exemplo (sendmail.zip) só que usando versões muito antigas do Fortes e mencionado em Foruns desativados há tempos.

Olá Daniel... Então, o código acima funciona pois foi escrito no mesmo formulário onde existe o objeto RLReport1, dentre vários existentes no meu projeto. Se eu tentar simplesmente jogar o RLPreviewSetup1 e esse código no seu evento onSend para o DataModule, como no mesmo não existe tal componente RLReport1 a aplicação não irá compilar.

Olá Juliomar, tudo bom? Obrigado pela ajuda no tópico anterior. Como o mesmo já foi respondido achei pertinente abrir um novo. Ao perceber que o RLPreviewSetup1 é visto por todos os relatórios do meu projeto em Delphi, eu tive a ideia de colocar o RLPreviewSetup1 no meu DataModule e fazer um código universal para envio de e-mail no Fortes Report, na tela de Pré-Visualização. Dessa forma o usuário poderá usar o botão ENVIAR da Pré-Visualização de qualquer relatório e conseguir enviar o mesmo por e-mail. Conforme citei no tópico anterior, atualmente uso o seguinte código para envio do e-mail: 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; O grande problema está no código responsável pela geração do PDF: RLReport1.SaveToFile(ExtractFilePath(Application.ExeName) + 'relatorio.pdf'); Como podem ver acima eu estou especificando um relatório... Existe algum comando que salve o PDF do relatório que está com a Pré-Visualização em execução??? Algo tipo "RLReportEmVisualizacaoNoMomento.SaveToFile(ExtractFilePath(Application.ExeName) + 'relatorio.pdf');"????

Falha minha novamente... tinha um "rlr_rel_vendasnfce.RLPreviewSetup1.OnSend :=nil ;" perdido pelo código... Ficou perfeito. Mas agora estou pensando além e creio que posso criar algo bem melhor, prático e que pode servir para todos que usam o Fortes e finalmente teremos um (bom) exemplo de envio de e-mail. A minha idéia é a seguinte: Já que o RLPreviewSetup1 é visto por todos os relatórios do meu aplicativo, posso colocar ele no meu DataModule e criar um código universal, daí o usuário poderá usar o botão ENVIAR da Pré-Visualização de qualquer relatório. O código que postei acima serve perfeitamente, o problema será o comando da geração do PDF: RLReport1.SaveToFile(ExtractFilePath(Application.ExeName) + 'relatorio.pdf'); Como podem ver acima eu estou especificando um relatório... Existe algum comando que salve o PDF do relatório que está com a Pré-Visualização em execução??? Algo tipo "RLReportEmVisualizacaoNoMomento.SaveToFile(ExtractFilePath(Application.ExeName) + 'relatorio.pdf');"????

Então, eu atribuo a procedure EnviarEmail ao evento onSend do componente e dá esse erro... Mas como suspeitei era falha minha, não observei direito o exemplo do amigo Juliomar... Faltou colocar "(Sender: TObject)" na procedure EnviarEmail. procedure EnviarEmail(Sender: TObject); Dessa maneira compilou sem erro, o problema é que o botão ENVIAR do Preview do Fortes fica desativado, como se a linha "rlr_rel_vendasnfce.RLPreviewSetup1.OnSend := rlr_rel_vendasnfce.EnviarEmail;" não fosse carregada. Por garantia comentei a linha "rlr_rel_vendasnfce.RLPreviewSetup1.OnSend :=nil;", mas mesmo assim o botão continua desativado. Se eu programar no onSend direto pelo Object Inspector o botão ativa.

Perfeito, valeu pela dica... Ao tentar pelo Object Inspector ele cria a procedure da seguinte forma: procedure Trlr_rel_vendasnfce.RLPreviewSetup1Send(Sender: TObject); Aí "empaquei". Qual valor TObject devo colocar???? Como devo escrever????

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?

Só um detalhe muito importante... OpenSSL NÃO depende de atualização do Windows para emissão da NFe 4.00, o que torna ele uma excelente opção, mas infelizmente o OpenSSL funciona apenas com A1.

Então a solução foi realmente atualizar? Resolveu o problema?

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

Olá meu amigo... Tudo bom? Qual a versão da NF-e? Pergunto pois na NFe 4.00 + WinCrypt a falta de instalação das atualizações essenciais do Windows geram tal erro, se for o caso sugiro que as faça e tente novamente. Abraços

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í