Jump to content

Assista tectoy.png

chamada diadoacbr

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


Marcos Gerene
Go to solution Solved by Juliomar Marchetti,
  • Este tópico foi criado há 2395 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 to comment
Share on other sites

  • Consultores
  • Solution

No svn a correção!

Obrigado pela colaboração!

 

  • Like 1
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

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 to comment
Share on other 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 to comment
Share on other sites

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