Erro na unit: ACBrEFDBloco_1_Class

[alfadesign]

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.

[Isaque Pinheiro]

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