Jump to content

Delphi chamada_delphi.png acbr.png

C6 chamada_c6.png botao.png

Registro C396 não esta sendo gerado.


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

Recommended Posts

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

Link to comment
Share on other sites

  • Consultores

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

[]'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

  • 2 weeks later...
  • Consultores

Já subi pro SVN. Favor testar.

[]'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á 3789 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.