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

[Marcos Gerene]

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

[Juliomar Marchetti]

No svn a correção!

Obrigado pela colaboração!

 

[Isaque Pinheiro]

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

[Marcos Gerene]

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;