bnobre

Pode me passar a URL da consulta 4.00 usada pelo componente quando marco RJ no componente ou me orientar onde acho?

"Catucando" eu descobri algo ... Colocando o SSLType como Lt_all a consulta funciona como se o Windows estivesse atualizado, sem o erro 12030. Para esclarecimentos, o WebService marcado é do RJ, SSLLib é libWinCrypt com suas opções padrões, cryWinCrypt, httpWinHttp e xsLibXml2. Se eu marco SSLType como LT_TLSv1_2 recebo o erro 12030, relacionado a falta de atualização do Windows. Será que o webservice usado pelo RJ está aceitando outro protocolo além do TLS 1.2???

Então... Eu fiz um teste básico, coloquei o demo do ACBr para tentar consultar o Status, deu aquele erro classico do 12030. Até então eu achava que a necessidade de atualizar o Windows era devido a questões de limitação do mesmo em relação ao TLS 1.2, mas esse sistema está conseguindo emitir normalmente.

Olá a todos, Estou implementando meu sistema em uma empresa, que substituirá um outro sistema usado até então, de nome Uniplus Starter Edition. O que me chamou a atenção é que o S.O. é o Windows 7 Ultimate 32 Bits sem nenhuma atualização, nem sequer o SP1 e esse sistema emite normalmente as notas com o certificado A3. Alguém sabe como isso é possível? Pergunto pois seria muito prático fazer assim com o componente ACBr, desde que não gere problemas. Desde já agradeço a atenção de todos.

Olá meu amigo, tudo bom? Obrigado pelo retorno e perdoe pela demora em responder, mas acabo de ver sua mensagem. Irei verificar seu projeto e posto aqui os resultados. Abraços

Olá a todos, Estou precisando criar um app mobile e comecei a usar o Delphi 10.2 Tokyo + Firemonkey para esse fim. Até então só conhecia o Delphi 7 e o Delphi 2010, mas estou conseguindo dar os "primeiros passos" no Delphi Tokyo. Mas infelizmente esbarrei em um incoveniente, um Access Violation que não sei se está sendo causado por mim ou por um bug no Delphi. Para reproduzir o problema, criem um Multi-Device Application, coloquem um TDateEdit e um TMultiView e no evento OnCloserPicker (ou qualquer outro) coloquem o código "ShowMessage('oi')". Rodem o programa na plataforma Windows, mudem a data do TDateEdit para acionarem o evento programado e exibir a mensagem OI, não terão problema algum. Agora de volta ao projeto, cliquem com o botão direito sobre o MultiView, marquem Edit Custom Style e mudem a cor de fundo do mesmo, apliquem e será criado um objeto StyleBook1 (não sei ainda a função do mesmo), rodem o aplicativo e mudem a data, após exibir a mensagem OI o delphi retornará o AccessViolation. Se excluirem o StyleBook1 o AccessViolation não ocorre mais, mas perdemos a formatação aplicada no MultiView. Fazendo uma pesquisa na internet, achei esse site que mencionava se tratar de um bug do Delphi Tokyo corrigido no Release 1. RSP-18663 FireMonkey TDateEdit AV selecting a date from the drop down calendar FireMonkey Fonte: http://edn.embarcadero.com/article/44763 Com o intuito de resolver esses e outros bugs, instalei logo a versão Tokyo Release 3, o erro persistiu. Então Instalei o Release 1, o erro também persistiu. O fato é, sempre que altero o estilo de um objeto é criado esse StyleBook1, e sempre que tem esse StyleBook1 qualquer código que coloco em qualquer evento de um TDateEdit me retorna Access Violation. Isso é um bug ou eu estou fazendo algo errado? Desde já agradeço a atenção de todos

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?

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.