Ir para conteúdo
  • Cadastre-se

dev botao

Sugestão de Alteração - Bloco 1 - CFOP


Ver Solução Respondido por Juliomar Marchetti,
  • Este tópico foi criado há 3026 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

Bom dia,

Hoje ao gerar o registro 1900 do Sped Contribuições (Pis/Cofins), quando coloco o CFOP com valor 0 o componente preenche o campo com 0000, porém

o validador acusa que o CFOP 0000 não existe, então apago o valor 0000 deixando em branco || "pipe pipe" e o arquivo valida normalmente.

Fiz uma alteração na função "WriteRegistro1900".

          Add( LFill( '1900'     )     +
               LFill( CNPJ      )      +
               LFill( COD_MOD   )      +
               LFill( SER       )      +
               LFill( SUB_SER    )     +
               LFill( CodSitFToStr(COD_SIT) )      +
               LFill( VL_TOT_REC,0,2 )             +
               LFill( QUANT_DOC,0 )                +
               LFill( CstPisToStr(CST_PIS) )       +
               LFill( CstCofinsToStr(CST_COFINS) ) +
               LFill( CFOP, 4, True )  +                    //Antes: LFill( CFOP, 4 )  +
               LFill( INF_COMPL )      +
               LFill( COD_CTA ) )      ;

Fazendo com que quando passe o valor 0 para o CFOP fique em branco ao invés de 0000.

Segue a unit modificada caso a alteração seja aceita: ACBrEPCBloco_1_Class.pas

 

Att, Marcos

Marcos Gerene

[email protected]

Link para o comentário
Compartilhar em outros sites

A questão é que tem lugares que esse campo CNPJ está como String e outros como Integer.

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

1 hora atrás, Isaque Pinheiro disse:

A questão é que tem lugares que esse campo CNPJ está como String e outros como Integer.

Isaque, trata-se do CFOP e não do CNPJ... Na função LFill, ele aceita 3 atributos, o último é se o valor pode ser nulo,

neste caso eu simplesmente disse que podia...

function TACBrTXTClass.LFill(Value: Int64; Size: Integer; Nulo: Boolean;
  Caracter: Char): String;
begin
  /// Se o parametro Nulo = true e Value = 0, será retornado '|'
  if (Nulo) and (Value = 0) then
  begin
     Result := FDelimitador;
     Exit;
  end;
  Result := LFill(IntToStr(Value), Size, False, Caracter);
end;

 

Marcos Gerene

[email protected]

Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 3026 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.