Ir para conteúdo
  • Cadastre-se

dev botao

Erro no registro 1900. Para Isaque.


maricelo
  • Este tópico foi criado há 4138 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 para o comentário
Compartilhar em outros 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 para o comentário
Compartilhar em outros sites

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

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.