Jump to content

Assista click.png tectoy.png

C6 chamada_c6.png botao.png

Correção para os registro 0205 e C396


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

Recommended Posts

Conforme tópico que eu mesmo criei "http://www.djsystem.com.br/acbr/forum/viewtopic.php?f=23&t=4046", havia um problema com o registro 0205. Além deste, o registro C396 não esta gerando. Gostaria que havaliassem e se estou certo, alterassem os fontes...

Na unit "ACBrEPCBloco_0.pas", nas linhas 355, 356, 360 e 361, descomentar a declaracao dos campos DT_INI e DT_FIM...

  //REGISTRO 0205: ALTERAÇÃO DO ITEM

  TRegistro0205 = class

  private

    FDESCR_ANT_ITEM : string;    //Descrição anterior do item

    FDT_INI         : TDateTime; //Data inicial de utilização da descrição do item

    FDT_FIM         : TDateTime; //Data final de utilização da descrição do item

    FCOD_ANT_ITEM   : string;    //Código anterior do item com relação à última informação apresentada

  public

    property DESCR_ANT_ITEM : string    read FDESCR_ANT_ITEM write FDESCR_ANT_ITEM;

    property DT_INI         : TDateTime read FDT_INI         write FDT_INI;

    property DT_FIM         : TDateTime read FDT_FIM         write FDT_FIM;

    property COD_ANT_ITEM   : string    read FCOD_ANT_ITEM   write FCOD_ANT_ITEM;

  end;

  
Na unit "ACBrEPCBloco_0_Class.pas", na linha 670, trocar para "DT_FIM" pois esta como "DT_FIN" (pegando a instancia do registro 0000).
procedure TBloco_0.WriteRegistro0205(Reg0200: TRegistro0200) ;

var

  intFor: integer;

begin

  if Assigned( Reg0200.Registro0205 ) then

  begin

     for intFor := 0 to Reg0200.Registro0205.Count - 1 do

     begin

        with Reg0200.Registro0205.Items[intFor] do

        begin

          Add( LFill('0205') +

               LFill( DESCR_ANT_ITEM ) +

               LFill( DT_INI ) +

               LFill( DT_FIM ) +

               LFill( COD_ANT_ITEM) ) ;

        end;

        Registro0990.QTD_LIN_0 := Registro0990.QTD_LIN_0 + 1;

     end;

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

     FRegistro0205Count := FRegistro0205Count + Reg0200.Registro0205.Count;

  end;

end;

Na unit "ACBrEPCBloco_C_Class", na linha 1727, esta faltando o comando "WriteRegistroC396( RegC010.RegistroC395.Items[intFor] );" para gravar o registro C396...
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) );

        // Registros FILHOS

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

        //

        RegistroC990.QTD_LIN_C := RegistroC990.QTD_LIN_C + 1;

      end;

    end;

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

    FRegistroC395Count := FRegistroC395Count + RegC010.RegistroC395.Count;

  end;

end;

Desde já agradeço...

Link to comment
Share on other sites

  • Consultores

olá rosemir,

Estou mais por dentro do funcionamento do componente agora e com mais tempo para analisar essa questão ainda hoje. Respondo aqui mesmo quando tiver analisado melhor.

PS.: Não é necessário criar um novo tópico para cuidar do mesmo assunto (registros 0205). Se tem alguma novidade ou quer informações pode postar no tópico antigo mesmo.

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

Já está no 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

  • Consultores

Eu que agradeço os "reports" e a paciência. ;)

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