francinaldoac

Olá, Encontrei um erro no registro A170, o campo NUM_ITEM estava gravando valor diferente do informado, o problema estava na procedure TBloco_A.WriteRegistroA170 da unit ACBrEPCBloco_A_Class: No código estava LFill(NUM_ITEM) e a função estava considerando o campo como datetime. Alterei para LFill(NUM_ITEM, 0) agora está OK. Segue unit em anexo. []´s Francinaldo ACBrEPCBloco_A_Class.pas

Sim. Segue unit corrigida. Grato. ACBrEFDBloco_G.pas

Oi Pessoal, O registro G125 está gerando decimais na gravação do campo NUM_PARC, este campo é numérico de tamanho 3 sem decimais, percebi que o problema está na declaração do campo que ficou como Currency e poderia ser Integer. Grato.

Olá, Estou com dois problemas no componente do SPED PIS/COFINS: 1 - O registro 0111 está retornando o velho erro de acesso a memória quando usado, verifiquei que o objeto não está sendo criado, fiz a correção temporária, implementando o create do registro pai o 0110. constructor TRegistro0110.Create; begin FRegistro0111 := TRegistro0111.Create; end; destructor TRegistro0110.Destroy; begin FRegistro0111.Free; inherited; end; 2 - o campo SUFRAMA do registro 0140 está gravando "000000000" mesmo quando informado em branco, verifiquei que o problema está na procedure TBloco_0.WriteRegistro0140, substitui o código LFill( SUFRAMA, 9 ) por LFill( SUFRAMA ) para resolver. Mais uma vez parabenizo todos do ACBr por esse novo componente.