Registro C396 não esta sendo gerado.

[analista.edilson]

Olhei o código e percebi que o registro C396 não estava sendo gerado pois não estava

sendo invocado fiz a seguinte alteração:

procedure TBloco_C.WriteRegistroC395(RegC010: TRegistroC010);

  var

    intFor: integer;

begin

  if Assigned(RegC010.RegistroC395) then

  begin

    for intFor := 0 to RegC010.RegistroC395.Count - 1 do

    begin

      with RegC010.RegistroC395.Items[intFor] do

      begin

        Add( LFill('C395')             +

             LFill(COD_MOD)            +

             LFill(COD_PART)           +

             LFill(SER)                +

             LFill(SUB_SER)            +

             LFill(NUM_DOC)            +

             LFill(DT_DOC, 'ddmmyyyy') +

             LFill(VL_DOC,0,2) );

        //

        RegistroC990.QTD_LIN_C := RegistroC990.QTD_LIN_C + 1;

      end;

      //Inclusão do registro Filho (Edilson Alves de Oliviera)

      WriteRegistroC396( RegC010.RegistroC395.Items[intFor] );

    end;

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

    FRegistroC395Count := FRegistroC395Count + RegC010.RegistroC395.Count;

  end;

end;

funcionou perfeitamente o moderado por favor inclua essa alteração no SVN

Obs.: O arquivo alterado foi ACBrEPCBloco_C_CLASS.aps

[EMBarbosa]

Olá,

Poderia testar o seguinte?

procedure TBloco_C.WriteRegistroC395(RegC010: TRegistroC010);

  var

    intFor: integer;

begin

  if Assigned(RegC010.RegistroC395) then

  begin

    for intFor := 0 to RegC010.RegistroC395.Count - 1 do

    begin

      with RegC010.RegistroC395.Items[intFor] do

      begin

        Add( LFill('C395')             +

             LFill(COD_MOD)            +

             LFill(COD_PART)           +

             LFill(SER)                +

             LFill(SUB_SER)            +

             LFill(NUM_DOC)            +

             LFill(DT_DOC, 'ddmmyyyy') +

             LFill(VL_DOC,0,2) );

      end;

      // Registros FILHOS

      WriteRegistroC396( RegC010.RegistroC395.Items[intFor] );

      //

      RegistroC990.QTD_LIN_C := RegistroC990.QTD_LIN_C + 1;

    end;

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

    FRegistroC395Count := FRegistroC395Count + RegC010.RegistroC395.Count;

  end;

end;[/code]


Estranho pois, teoricamente, não devia haver muita diferença em nenhuma das execuções...

[EMBarbosa]

Já subi pro SVN. Favor testar.