Jump to content

click.png

click.png

click.png

click.png

click.png

click.png

click.png click.png click.png

click.png

click.png

click.png

Seja-Profissional-Saiba-mais.png Beneficios_banner.png

 

Registro D300 Não grava VL_ICMS - Solução


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

Recommended Posts

Bom dia,

ao gerar o registro D300 do SpedFiscal o campo 17 VL_ICMS não está sendo gerado.

Fui na

unit ACBrEFDBloco_D_Class
e na
procedure TBloco_D.WriteRegistroD300(RegD001: TRegistroD001)

verifiquei que estava faltando a linha

LFill( VL_ICMS,0,2 ) +

para a inclusão deste campo.

Ficando a procedure assim:

procedure TBloco_D.WriteRegistroD300(RegD001: TRegistroD001) ;

var

intFor: integer;

begin

if Assigned( RegD001.RegistroD300 ) then

begin

for intFor := 0 to RegD001.RegistroD300.Count - 1 do

begin

with RegD001.RegistroD300.Items[intFor] do

begin

Add( LFill('D300') +

LFill( COD_MOD ) +

LFill( SER ) +

LFill( SUB ) +

LFill( NUM_DOC_INI ) +

LFill( NUM_DOC_FIN ) +

LFill( CST_ICMS ) +

LFill( CFOP ) +

LFill( ALIQ_ICMS,0,2 ) +

LFill( DT_DOC ) +

LFill( VL_OPR,0,2 ) +

LFill( VL_DESC,0,2 ) +

LFill( VL_SERV,0,2 ) +

LFill( VL_SEG,0,2 ) +

LFill( VL_OUT_DESP,0,2 ) +

LFill( VL_BC_ICMS,0,2 ) +

LFill( VL_ICMS,0,2 ) + //krepe

LFill( VL_RED_BC,0,2 ) +

LFill( COD_OBS ) +

LFill( COD_CTA ) ) ;

end;

/// Registros FILHOS

WriteRegistroD301( RegD001.RegistroD300.Items[intFor] ) ;

WriteRegistroD310( RegD001.RegistroD300.Items[intFor] ) ;

RegistroD990.QTD_LIN_D := RegistroD990.QTD_LIN_D + 1;

end;

/// Variavél para armazenar a quantidade de registro do tipo.

FRegistroD300Count := FRegistroD300Count + RegD001.RegistroD300.Count;

end;

end;

Abraços a todos.

Alexandre Krepe.

Link to comment
Share on other sites

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