Jump to content

Delphi chamada_delphi.png acbr.png

C6 chamada_c6.png botao.png

Ajustes ACBR_PAF_Demo na geração registros PAF-ECF


DouglasGV
Go to solution Solved by EMBarbosa,
  • Este tópico foi criado há 290 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

Olá boa tarde!

Tudo certo?

Alterei a procedure:TForm6.btnRegistrosPAFClick(Sender: TObject);

Primeira linha alterei o layout para lpPAFECF.

Na parte da geração do registro H2 o campo TITULO: alterei o primeiro parâmetro da function GerarDados('S', 7) para GerarDados('I',7) levando em conta que o campo é integer.

A unit alterada em anexo.

image.thumb.png.5895b85ba45822d88a250ddfd858c78f.png 

 

image.thumb.png.b25efa979e56966bbaf2ee37857e2756.png

 

uFormPrincipal.pas

  • Like 4
Link to comment
Share on other sites

  • Administradores

Boa tarde.

Adicionado ao backlog.

Att.

  • Like 1
Consultora SAC ACBr

Juliana Tamizou
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.  Discord

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil


Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !!

Link to comment
Share on other sites

  • Consultores
  • Solution
Em 27/07/2021 at 13:40, DouglasGV disse:

Olá boa tarde!

Tudo certo?

Alterei a procedure:TForm6.btnRegistrosPAFClick(Sender: TObject);

Primeira linha alterei o layout para lpPAFECF.

Na parte da geração do registro H2 o campo TITULO: alterei o primeiro parâmetro da function GerarDados('S', 7) para GerarDados('I',7) levando em conta que o campo é integer.

A unit alterada em anexo.

image.thumb.png.5895b85ba45822d88a250ddfd858c78f.png 

 

image.thumb.png.b25efa979e56966bbaf2ee37857e2756.png

 

uFormPrincipal.pas 33 kB · 1 download

Muito obrigado pela contribuição.
Fiz a implementação baseada nela.
Subi as alterações para o SVN na Revisão  22497.
Pelo que vi está tudo certo.
Queira por favor atualizar, testar e reportar qualquer problema.

Mais uma vez obrigado.

  • Like 1

[]'s

Consultor SAC ACBr

Elton
Profissionalize o ACBr na sua empresa, conheça o ACBr Pro.

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Um engenheiro de Controle de Qualidade(QA) entra num bar. Pede uma cerveja. Pede zero cervejas.
Pede 99999999 cervejas. Pede -1 cervejas. Pede um jacaré. Pede asdfdhklçkh.
Link to comment
Share on other sites

  • Este tópico foi criado há 290 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • 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.