Jump to content

dev botao

Correção para os registro 0205 e C396


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

The popup will be closed in 10 seconds...