quinta-feira, 28 de novembro de 2013

Correção da Data do Título ( Datasul EMS505 )


for each tit_ap where
         tit_ap.cod_empresa      = "1"       and
         tit_ap.cod_estab        = "101"     and
         tit_ap.cod_ser_docto    = ""        and
         tit_ap.cod_espec_docto  = "bb"      and
         tit_ap.cdn_fornecedor   = 91        and
         tit_ap.cod_tit_ap       = "8335" and
         tit_ap.cod_parcela      = "01":
    FOR EACH movto_tit_ap OF tit_ap 
       WHERE movto_tit_ap.dat_transacao = 06/06/2005:  
/*        DISP movto_tit_ap WITH 1 COL WIDTH 300.  */
        FOR EACH aprop_ctbl_ap OF movto_tit_ap
           WHERE aprop_ctbl_ap.dat_transacao = 06/06/2005:
/*            DISP aprop_ctbl_ap WITH 1 COL WIDTH 300.   */
            FIND val_aprop_ctbl_ap OF aprop_ctbl_ap.
          ASSIGN aprop_ctbl_ap.dat_transacao = 09/06/2005
                 val_aprop_ctbl_ap.dat_cotac_indic_econ = 09/06/2005.
        END.
        ASSIGN movto_tit_ap.hra_gerac_movto = "084732"
               movto_tit_ap.dat_transacao   = 09/06/2005
               movto_tit_ap.dat_apurac_variac_val_ant = 09/06/2005. 
   END.
   ASSIGN  tit_ap.dat_liquid = 09/06/2005.
END.  

Nenhum comentário:

Postar um comentário