TUWKX0_DT_OX016GLB_Alteracao_de_informacoes_na_Liberacao_de_Credito

Descrição:

Este Ponto de Entrada tem a finalidade de permitir que o cliente altere informações nas tabelas VS1 e VS3 na rotina de Liberação de Crédito.

Eventos:

aRet012 := OFIXI001(VS1->VS1_NUMORC)

cMsgFase := aRet012[1]

lRollback := aRet012[2]

lRollObrig := aRet012[3]

lAbortProc := aRet012[4]

if cMsgFase != ""

MsgInfo(cMsgFase,STR0012)

if VS1->VS1_STATUS == "O" .or. ;

(VS1->VS1_STATUS == "R" .and. lAbortProc)

MsgInfo(STR0013,STR0012)

reclock("VS1",.f.)

cVS1StAnt := VS1->VS1_STATUS

VS1->VS1_STATUS := "3"

msunlock()

If FindFunction("FM_GerLog")

//grava log das alteracoes das fases do orcamento

FM_GerLog("F",VS1->VS1_NUMORC,,VS1->VS1_FILIAL,cVS1StAnt)

EndIF

endif

endif

//Ponto de entrada para que o cliente possa alterar informações da VS1.

if ExistBlock("OX016GLB")

ExecBlock("OX016GLB",.f.,.f.)

Endif

//

OX001LDOFI(VS1->VS1_NUMORC)

//

FilBrowse('VS1',{},'VS1_STATUS == "3"') // Filtra as compras

Return .t.

Função:

OXA016L