Rodrigo Ismerio Barros1802

Boa tarde! Gostaria de comprar o componente. Fiz o cadastro e não recebi retorno. e-mail: [email protected]

Daniel, No projeto do exemplo existe todas as funções e relatórios correspondentes ao ECF. Acredito que seja o projeto correto. Fica pendente somente neste a geração do PAF_N.

Boa Tarde Daniel novamente agradeço seu retorno, No exemplo da pasta: Acbr\Exemplos\ACBrSerial\ACBrECF\Delphi. Não contem esta procedure nem o Form6. procedure TForm6.btnNClick(Sender: TObject); Estou no caminho correto do exemplo?

Obrigado pelo retorno Daniel, Senão informar o valor TOT_REG o arquivo fica sem informação, e se colocar o atributo precisa de um valor.

Boa tarde, Na classe ACBRPAF_N_Class tem a procedure TPAF_N.WriteRegistroN3 que contem o fonte que gera o bloco devido. OK! porem ao informar o valor no a atributo da: ACBrPAF.PAF_N.RegistroN9.TOT_REG:= número de arquivos Dll eEXE ele duplica na geração do arquivo. Problema esta neste bloco: procedure TPAF_N.WriteRegistroN3; var intFor: integer; NomeArquivoCompleto, ApplicationDir : String ; begin ... FRegistroN9.TOT_REG := FRegistroN9.TOT_REG + 1; ... end; ACBrPAF.PAF_N.RegistroN9.TOT_REG:= ele guarda o atributo já com o valor porque rodou na outra procedure ...WriteRegistroN3 e soma com o novo valor informado. Se comentar a linha acima fica tudo correto.( FRegistroN9.TOT_REG := FRegistroN9.TOT_REG + 1)

Daniel fechou!

Juliomar, Realizei o teste solicitado por ti e não funcionou, o mesmo gera a chave, porem quando rodo o programa do estado de SC ele invalida assinatura.

Bom dia, Quando gero o arquivo da leituraX funciona corretamente, mas quando gero o arquivo MFD ele gera a assinatura invalida. Dúvida, preciso informar a chave publica no componente EAD? Tem alguma coisa errado no fonte abaixo? procedure TForm1.ACBrEAD1GetChavePrivada(var Chave: AnsiString); begin Chave := '-----BEGIN RSA PRIVATE KEY-----' + #13#10 + 'MIICXQIBAAKBgQDmxjdQ6TnSW5o8V15H3Hl5whZOmSYfn1BTxWvXR5wmMKiMT/Ny' + #13#10 + (...) 'tekIG7L2mkijivMdpNYpa1M/mGVdrzqlggoJ9jce3PmJ' + #13#10 + '-----END RSA PRIVATE KEY-----'; end; procedure TForm1.Button1Click(Sender: TObject); var PathArquivo : string; begin ACBrECF1.Porta:=Edit1.Text; ACBrECF1.Ativar; dlgDialogoSalvar.DefaultExt := '.mfd'; dlgDialogoSalvar.Filter := 'Arquivos binários MF|*.mfd'; if dlgDialogoSalvar.Execute then begin PathArquivo := dlgDialogoSalvar.FileName; ACBrECF1.PafMF_ArqMFD(PathArquivo); // será gerado o arquivo bináio e o arquivo .txt com a assinatura EAD ShowMessage(Format('Arquivo MFD gerado com sucesso em:'#13#10' "%s"', [PathArquivo])); end; end; procedure TForm1.Button2Click(Sender: TObject); var PathArquivo : string; begin ACBrECF1.Ativar; dlgDialogoSalvar.DefaultExt := '.txt'; dlgDialogoSalvar.Filter := 'Arquivos *.txt'; if dlgDialogoSalvar.Execute then begin PathArquivo := dlgDialogoSalvar.FileName; ACBrECF1.LeituraXSerial(PathArquivo); ACBrECF1.AssinaArquivoComEAD(PathArquivo); // será gerado o arquivo bináio e o arquivo .txt com a assinatura EAD ShowMessage(Format('Arquivo MFD gerado com sucesso em:'#13#10' "%s"', [PathArquivo])); end; end;

Daniel, Testei agora de manhã e funcionou corretamente. Não sei como encerrar o post. Por gentileza poderia encerrar?

Muito Obrigado!

Daniel, no ECFTeste,o mesmo gera o arquivo, mas no programa o EAD não esta associado. Por isso não gera a assinatura. Como posso fazer para gerar o arquivo com comando ACBrECF.LeituraXSerial(PathArquivo); e incluir sua assinatura.

Obrigado pelo retorno! ACBrECF.LeituraXSerial(PathArquivo);

Quando gero a leituraX em txt, não consigo assinar o arquivo com o componente EAD. O componente ACBRECF esta conectado ao ACBREAD.

Bom dia Juliomar, Fiz algumas alterações .pas do fortes e ficou bom. Estou enviando a imagem do cupom e o fonte. cupom.rar anexei o arquivo errado, mas tem o liquido do lado nos itens. agora é o correto! eu alterei o XML por isso os totais não fecham.

Juliomar funciona mas para a impressão em A4 e tem que que ser em formato de bobina. Como posso configurar para imprimir em impressora não fiscal na USB? Juliomar se opção de imprimir desconto tiver ImprmeDescAcrescimo = true ou false vai sempre imprimir o desconto, mas na bobina e a mesma coisa mas o desconto independente do true ou false