EDF Contribuições

[Dercide Alvarez]

Boa tarde,

Não sei se aqui é o local correto, mas como estamos falando de Trunk2.

Esse problema já ocorria na Trunk.

No registro D600, 03-COD_MUN, ele não assume o valor informado.

QTD_CONS tambem não assume o valor informado.

Nos registros D601 e D605, 02-COD_CLASS ele não assume o valor informado, estou passando '0599', ele coloca 

Dercide.

[Daniel Simoes]

Se deseja sugerir correções para os fontes, favor anexar as Units modificadas

[Dercide Alvarez]

Daniel Simoes,

Estou apenas relacionando o problema. Não tive tempo de analisar os novos fontes da Trunk2.

Mas irei analisar os fontes e tentar corrigir, pois necessito dessas correções.

Assim que tiver alguma solução postarei os fontes alterados.

Dercide.

 

[Dercide Alvarez]

Pelo o que vi nos fontes, o problema esta na função LFill, a qual possue várias (overload).

Mas pelo o que vi, o problema é quando o campo é Integer, mas em vez de chamar a LFill que faz o tratamento para integer/Int64, esta chamando a que trata DataTime, e com isso o retorno esta trazendo valores errados.

Assim que achar uma solução posto um retorno.

 

Dercide.

[Isaque Pinheiro]

Bom dia, faça a correção pelo Trunk e anexe aqui para que eu suba para Trunk2.

[Isaque Pinheiro]

Gentileza baixe esse .PAS e substitua o seu ai e teste se resolve o ocorrido, aguardo o retorno.

ACBrTXTClass.pas

[Dercide Alvarez]

Isaque Pinheiro,

Ja migrei para a trunk2.

Assim que puder tentarei ajustar e posto as correções.

 

Dercide.

 

[Dercide Alvarez]

Boa tarde Isaque,

Somente hoje vi o teu post com o anexo.

Mas hoje 12/01 atualizei os fontes da trunck2 e o erro persiste.

Eu fiz um ajustes na ACBrEPCBloco_D_Class.Pas o qual resolveu o problema.

Estou anexando para você analisar se é viavel ou não.

Como disse, o problema é na chamada da função LFILL, onde na D600 os campos COD_MUN e QTD_CONS chamam a função que trata data.

E nas D601 e D605 nos campos COD_CLASS.

A unica coisa que fiz, foi neste campos incluir o parametro do tamanho do campo. No QTD_CONS, coloquei 10, pois é numerico e não possui tamanho fixo, os outros estão de acordo com o lay-out.

As minhas alterações foram nas seguintes linhas :

1259  ==>  LFill( COD_MUN, 7 ) 

1263 ==>  LFill( QTD_CONS, 10 )   

1302 ==>  LFill( COD_CLASS, 4 )

1330 ==>  LFill( COD_CLASS, 4 )

Aguardo um retorno.

 

Dercide.

 

 

 

ACBrEPCBloco_D_Class.pas

[Dercide Alvarez]

Isaque,

Analisei o fonte que você me passou ACBrTXTClass.PAS, e testei.

Eu já tinha feito essa tentativa de mudar a função de int64 para integer, porém não deu certo.

Dercide.

[Juliomar Marchetti]

42 minutos atrás, Dercide Alvarez disse:

Boa tarde Isaque,

Somente hoje vi o teu post com o anexo.

Mas hoje 12/01 atualizei os fontes da trunck2 e o erro persiste.

Eu fiz um ajustes na ACBrEPCBloco_D_Class.Pas o qual resolveu o problema.

Estou anexando para você analisar se é viavel ou não.

Como disse, o problema é na chamada da função LFILL, onde na D600 os campos COD_MUN e QTD_CONS chamam a função que trata data.

E nas D601 e D605 nos campos COD_CLASS.

A unica coisa que fiz, foi neste campos incluir o parametro do tamanho do campo. No QTD_CONS, coloquei 10, pois é numerico e não possui tamanho fixo, os outros estão de acordo com o lay-out.

As minhas alterações foram nas seguintes linhas :

1259  ==>  LFill( COD_MUN, 7 ) 

1263 ==>  LFill( QTD_CONS, 10 )   

1302 ==>  LFill( COD_CLASS, 4 )

1330 ==>  LFill( COD_CLASS, 4 )

Aguardo um retorno.

 

Dercide.

 

 

 

ACBrEPCBloco_D_Class.pas

Boa tarde

como ficou seus arquivos gerados após essa mudança?

[Dercide Alvarez]

Juliomar,

Os arquivos ficaram corretos, conforme o lay-out.

Nos ultimos meses, eu gerava e alterava manualmente os TXT, e agora foram gerados sem necessidades de ajustes manual.

Não cheguei a verificar outros tipos de registros que utilizam a mesma função, apenas ajustei os que necessito. D600, D601 e D605.

Pode ser que algum outro registro que utilize a função LFILL para campos numéricos ocorra o mesmo problema.

Dercide.

[Juliomar Marchetti]

Ok !

No svn a correção!

Obrigado