Jump to content

click.png

click.png

click.png

click.png click.png click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

Rodrigo Ismerio Barros1802

Membros
  • Posts

    29
  • Joined

  • Last visited

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

Rodrigo Ismerio Barros1802's Achievements

Explorer

Explorer (4/14)

  • First Post
  • Collaborator Rare
  • Week One Done
  • One Month Later
  • One Year In

Recent Badges

0

Reputation

  1. Boa tarde! Gostaria de comprar o componente. Fiz o cadastro e não recebi retorno. e-mail: [email protected]
  2. 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.
  3. 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?
  4. 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.
  5. 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)
  6. 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.
  7. 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;
  8. Daniel, Testei agora de manhã e funcionou corretamente. Não sei como encerrar o post. Por gentileza poderia encerrar?
  9. 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.
  10. Quando gero a leituraX em txt, não consigo assinar o arquivo com o componente EAD. O componente ACBRECF esta conectado ao ACBREAD.
  11. 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.
  12. 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
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.