Jump to content

Assista click.png tectoy.png

C6 chamada_c6.png botao.png

Erro no registro 1900. Para Isaque.


maricelo
  • Este tópico foi criado há 3466 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

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;

Link to comment
Share on other sites

  • Consultores

Boa noite

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

e obrigado pela contribuição

Consultor SAC ACBr Juliomar Marchetti
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

skype: juliomar
telegram: juliomar
e-mail: [email protected]
http://www.juliomarmarchetti.com.br
MVP_NewLogo_100x100_Black-02.png
Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil

 

Link to comment
Share on other sites

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.

--
Isaque Pinheiro
Aracruz/ES - Brasil
___________________________________________________________________________
Site Oficial: www.isaquepinheiro.com.br 
Youtube: youtube.com/isaquepinheirooficialbr
Facebook: facebook.com.br/isaquepinheirooficialbr
Instagram: instagram.com/isaquepinheirooficialbr
Linkdin: https://www.linkedin.com/in/isaquepinheirooficialbr

Conheça o Projeto ORMBr Framework for Delphi - https://www.ormbr.com.br

 

Link to comment
Share on other sites

  • Este tópico foi criado há 3466 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.