Jump to content

Assista click.png tectoy.png

C6 chamada_c6.png botao.png

Registro D300 não gera o campo VL_ICMS


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

Recommended Posts

Boa tarde,

atualizei pelo svn e o registro D300 não está gerando o campo VL_ICMS.

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

acrescentei o campo conforme o código abaixo:
               LFill( VL_BC_ICMS,0,2 ) +

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

               LFill( VL_RED_BC,0,2 ) +

Parabéns e Obrigado.

Link to comment
Share on other sites

  • Consultores

Obrigado. Corrigido na revisão 3440

[]'s

Consultor SAC ACBr

Elton
Profissionalize o ACBr na sua empresa, conheça o ACBr Pro.

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Um engenheiro de Controle de Qualidade(QA) entra num bar. Pede uma cerveja. Pede zero cervejas.
Pede 99999999 cervejas. Pede -1 cervejas. Pede um jacaré. Pede asdfdhklçkh.
Link to comment
Share on other sites

  • Consultores

Opa falha minha. :oops:

Já corrigi na revisão 3442.

Obrigado mais uma vez.

[]'s

Consultor SAC ACBr

Elton
Profissionalize o ACBr na sua empresa, conheça o ACBr Pro.

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Um engenheiro de Controle de Qualidade(QA) entra num bar. Pede uma cerveja. Pede zero cervejas.
Pede 99999999 cervejas. Pede -1 cervejas. Pede um jacaré. Pede asdfdhklçkh.
Link to comment
Share on other sites

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