Adilson

Para verificar os ajustes realizados localize: "Adilson Rodrigues" em cada arquivo... Fiz o merge das informações e subi para o SVN, obrigado pela colaboração. Nota: o CFOP deve ser do tipo interger mesmo não tipo string, essa mudança não foi acatada. como resolver a questão do CFOP que ao passar pelo componente é convertido em data??!! obrigado...

Para verificar os ajustes realizados localize: "Adilson Rodrigues" em cada arquivo... ACBrEPCBloco_F.pas ACBrEPCBloco_F_Class.pas ACBrSpedPisCofins.pas

Pessoal, segue os arquivos com os ajustes realizados, só conseguir gerar e validar os arquivos apos tais ajustes. Adicionei meu nome em cada ajuste realizado, baixe os arquivo e localize: Adilson Rodrigues - ao gravar os dados dos registros F500, F525 e F550 no arquivo txt as casas decimais não estavam de acordo o manual de integração; - os registros F525 e F550 não estavam sendo totalizados no registro 1900; - ao gravar os dados dos registro F500 e F550 no arquivo txt o valor do campo CFOP estava sendo convertido em data, forma que conseguir foi converter de integer para string, caso tenha outra sugestão favor postar aí. Grato, ACBrEPCBloco_F.pas ACBrEPCBloco_F_Class.pas ACBrSpedPisCofins.pas

Ajuste realizado no arquivo ACBrSpedPisCofins na procedure TACBrSPEDPisCofins.WriteRegistroF001; este ajuste se faz necessário para contagem dos registro do bloco f525 para totalizar no bloco 9 (*Adilson Rodrigues*) if Bloco_F.RegistroF525Count > 0 then begin with New do begin REG_BLC := 'F525'; QTD_REG_BLC := Bloco_F.RegistroF525Count; end; end;

Ajuste realizado no arquivo ACBrEPCBloco_F_Class na procedure TBloco_F.WriteRegistroF500(RegF010: TRegistroF010); este ajuste se faz necessário para gerar os registro do bloco f500 com as casas decimais conforme manual de integração da EFD Contribuições (*Adilson Rodrigues*) Add( LFill('F500') + LFill( VL_REC_CAIXA,0,2 ) + LFill( strCST_PIS ) + LFill( VL_DESC_PIS ,0,2 ) + DFill( VL_BC_PIS, 4 ) + DFill( ALIQ_PIS, 4 ) + LFill( VL_PIS,0,2 ) + LFill( strCST_COFINS ) + LFill( VL_DESC_COFINS ,0,2 ) + DFill( VL_BC_COFINS, 4 ) + DFill( ALIQ_COFINS, 4 ) + LFill( VL_COFINS,0,2 ) + LFill( COD_MOD ) + LFill( CFOP ) + LFill( COD_CTA ) + LFill( INFO_COMPL ) ) ;