Jump to content

Delphi chamada_delphi.png acbr.png

C6 chamada_c6.png botao.png

Erro na unit: ACBrEFDBloco_1_Class


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

Recommended Posts

Pessoal, a unit ACBrEFDBloco_1_Class está dois erros

que precisam ser corrigidos:

1o Erro:

----------------------------------

dentro do procedimento:

procedure TBloco_1.WriteRegistro1200(Reg1001: TRegistro1001) ;

antes da linha:

Registro1990.QTD_LIN_1 := Registro1990.QTD_LIN_1 + 1;

incluir:

//registros filhos

WriteRegistro1210(Reg1001.Registro1200.Items[intFor]);

pois do jeito que está hoje, o registro 1210 não está sendo gerado.

----------------------------------

2o Erro:

Dentro do procedimento:

procedure TBloco_1.WriteRegistro1210(Reg1200: TRegistro1200) ;

a linha com o conteúdo:

LFill( VL_CRED_UTIL) ) ;

deverá ser substituída por:

LFill( VL_CRED_UTIL,0 ) ) ;

pois do jeito que está hoje o VL_CRED_UTIL está vindo como data

e esta gravando um valor todo maluco no arquivo.

----------------------------------

Vlw.

Link to comment
Share on other sites

Pessoal, a unit ACBrEFDBloco_1_Class está dois erros

que precisam ser corrigidos:

1o Erro:

----------------------------------

dentro do procedimento:

procedure TBloco_1.WriteRegistro1200(Reg1001: TRegistro1001) ;

antes da linha:

Registro1990.QTD_LIN_1 := Registro1990.QTD_LIN_1 + 1;

incluir:

//registros filhos

WriteRegistro1210(Reg1001.Registro1200.Items[intFor]);

pois do jeito que está hoje, o registro 1210 não está sendo gerado.

----------------------------------

2o Erro:

Dentro do procedimento:

procedure TBloco_1.WriteRegistro1210(Reg1200: TRegistro1200) ;

a linha com o conteúdo:

LFill( VL_CRED_UTIL) ) ;

deverá ser substituída por:

LFill( VL_CRED_UTIL,0 ) ) ;

pois do jeito que está hoje o VL_CRED_UTIL está vindo como data

e esta gravando um valor todo maluco no arquivo.

----------------------------------

Vlw.

Olá, obrigado pelas observações, as correções já estão no SVN.

Abs

--
Isaque Pinheiro
Aracruz/ES - Brasil
___________________________________________________________________________
Site Oficial: www.isaquepinheiro.com.br 
Youtube: youtube.com/isaquepinheirooficialbr
Facebook: facebook.com.br/isaquepinheirooficialbr
Instagram: instagram.com/isaquepinheirooficialbr
Linkdin: https://www.linkedin.com/in/isaquepinheirooficialbr

Conheça o Projeto ORMBr Framework for Delphi - https://www.ormbr.com.br

 

Link to comment
Share on other sites

  • Este tópico foi criado há 4177 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.