Jump to content
Notícias do ACBr

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

consultoria_sticker.png

Conteúdo para desenvolvedores
 ao vivo de terça a quinta!
Saiba mais

dev.png

logo_acbr_paygo.png

TEF ACBr PayGo
Seja um revendedor e ofereça uma solução completa para seu cliente.


botao.png

beneficios.png

Erro geração registro SpedFiscal C181


Recommended Posts

Olá Turma Bom dia

Encontrei um erro na classe "ACBrEFDBloco_C_Class.pas" no método TBloco_C.WriteRegistroC181(RegC170: TRegistroC170) o qual estava como abaixo:

 

procedure TBloco_C.WriteRegistroC181(RegC170: TRegistroC170);
var
  intFor: integer;
begin
  if Assigned( RegC170.RegistroC181 ) then
  begin
     if RegC170.RegistroC181.Count > 0 then
     begin
        if FBloco_0.Registro0000.IND_PERFIL in [pfPerfilA] then
           Check(False, 'O RegistroC181, não deve ser gerado em movimentações de saída, no %s, conforme ATO COTEPE 09/08', ['PerfilA']);

     end;
     for intFor := 0 to RegC170.RegistroC180.Count - 1 do
     begin
        with RegC170.RegistroC181.Items[intFor] do
        begin
          Add( LFill('C181') +
               LFill( COD_MOT_REST_COMPL ) +
               LFill( QUANT_CONV,0,6 ) +
               LFill( UNID) +
               LFill( COD_MOD_SAIDA) +
               LFill( SERIE_SAIDA) +
               LFill( ECF_FAB_SAIDA) +
               LFill( NUM_DOC_SAIDA) +
               LFill( CHV_DFE_SAIDA) +
               LFill( DT_DOC_SAIDA, 'ddmmyyyy' ) +
               LFill( NUM_ITEM_SAIDA) +
               LFill( VL_UNIT_CONV_SAIDA,0,6 ) +
               LFill( VL_UNIT_ICMS_OP_ESTOQUE_CONV_SAIDA,0,6 ) +
               LFill( VL_UNIT_ICMS_ST_ESTOQUE_CONV_SAIDA,0,6 ) +
               LFill( VL_UNIT_FCP_ICMS_ST_ESTOQUE_CONV_SAIDA,0,6 ) +
               LFill( VL_UNIT_ICMS_NA_OPERACAO_CONV_SAIDA,0,6 ) +
               LFill( VL_UNIT_ICMS_OP_CONV_SAIDA,0,6 ) +
               LFill( VL_UNIT_ICMS_ST_CONV_REST,0,6 ) +
               LFill( VL_UNIT_FCP_ST_CONV_REST,0,6 ) +
               LFill( VL_UNIT_ICMS_ST_CONV_COMPL,0,6 ) +
               LFill( VL_UNIT_FCP_ST_CONV_COMPL,0,6 ));
        end;
        RegistroC990.QTD_LIN_C := RegistroC990.QTD_LIN_C + 1;
     end;
     /// Variavél para armazenar a quantidade de registro do tipo.
     FRegistroC181Count := FRegistroC181Count + RegC170.RegistroC181.Count;

  end;
end;

 

Ja efetuei a correção no ponto marcado e estou enviando o arquivo para ser adicionado a versão.

 

 

ACBrEFDBloco_C_Class.pas

  • Like 2
Link to post
Share on other sites

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