ACBrEPCBloco_F_Class

[Adilson]

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 ) ) ;

[Mark Apollo]

Anexa o arquivo que fica mais fácil para a galera fazer o merge.

[Adilson]

Anexa o arquivo que fica mais fácil para a galera fazer o merge.

Para verificar os ajustes realizados localize: "Adilson Rodrigues" em cada arquivo...

ACBrEPCBloco_F.pas

ACBrEPCBloco_F_Class.pas

ACBrSpedPisCofins.pas

[Isaque Pinheiro]

Anexa o arquivo que fica mais fácil para a galera fazer o merge.

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.

[Adilson]

Anexa o arquivo que fica mais fácil para a galera fazer o merge.

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...

[Isaque Pinheiro]

Vou averiguar isso.

[EMBarbosa]

é só preencher o primeiro parâmetro do LFill, pois o Delphi confunde os tipos.

Veja a modificação na revisão 3509 que foi um erro parecido.

[Isaque Pinheiro]

é só preencher o primeiro parâmetro do LFill, pois o Delphi confunde os tipos.

Veja a modificação na revisão 3509 que foi um erro parecido.

Obrigado pela dica Elton, pronto disponível no SVN.