Erro no registro 1900. Para Isaque.

[maricelo]

Olá Isaque,

gostaria de sugerir duas alterações nos fontes do sped pis cofins.

estava gerando o arquivo e encontrei alguns erros, que foram solucionados após

duas modificações no fonte do componente.

segue as alterações:

************************************************

Primeira Sugestão

unit ACBrEPCBloco_1_Class;

procedure TBloco_1.WriteRegistro1900(Reg1001: TRegistro1001);

fiz duas alterações:

passei o parametro zero no LFill do CFOP e QUANT_DOC

pois estava gerando o arquivo errado, pois o programa

estava buscando o LFill usado para TDateTime

trecho corrigido

Add( LFill( '1900' ) +

LFill( CNPJ ) +

LFill( COD_MOD ) +

LFill( SER ) +

LFill( SUB_SER ) +

LFill( strCOD_SIT) +

LFill( VL_TOT_REC,0,2 ) +

LFill( QUANT_DOC,0 ) +

LFill( strCST_PIS) +

LFill( strCST_COFINS) +

LFill( CFOP,0 ) +

LFill( INF_COMPL ) +

LFill( COD_CTA ) ) ;

******************************************************

Segunda Sugestão

unit ACBrEPCBloco_1;

o campo FQUANT_DOC estava sendo tipado como Currency, mudei para integer.

TRegistro1900 = class

private

FCNPJ : string;

FCOD_MOD : string;

FSER : string;

FSUB_SER : string;

FCOD_SIT : TACBrSituacaoDF;

FVL_TOT_REC : Currency;

FQUANT_DOC : Integer;

FCST_PIS : TACBrSituacaoTribPIS;

FCST_COFINS : TACBrSituacaoTribCOFINS;

FCFOP : Integer;

FINF_COMPL : string;

FCOD_CTA : string;

[Juliomar Marchetti]

Boa noite

para uma melhor integração e merge dos fontes anexa a unit alterada

e obrigado pela contribuição

[maricelo]

Bom dia Juliomar.

segue as units alteradas para analise.

obrigado,

Maricelo

ACBrEPCBloco_1.pas

ACBrEPCBloco_1_Class.pas

[Isaque Pinheiro]

Bom dia Juliomar.

segue as units alteradas para analise.

obrigado,

Maricelo

Merge efetuado, com ressalva da decimal do CFOP que de 0, mudei para 4, pois no manual pede tamanho 4.