Histórico da Página

Ponto de Entrada

Descrição:

Este Ponto de Entrada tem a finalidade de permitir que o cliente altere informações do Orçamento.

Localização:Informe o Submenu em que estará localizada a rotina

Atualizações / Mov. Orçamento / Liberação de Crédito (OFIXA016)

Eventos:

Informe o Título da rotina

Programa Fonte:

Informe o Fonte da rotina

Função:

Informe o Nome do(s) produto(s) a ser utilizado ou “Todos”

Retorno:

Exemplo:

User Function CN120ALT()

Local aCab:= PARAMIXB[1]

Local cTipo:= PARAMIXB[2]

If cTipo == '1'

aCab[4][2]:= 'NF' //Validações do usuário

EndIf

Return aCab

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.
Programa Fonte:	OFIXA016.PRW
Função:	OXA016L
Retorno:	N/A

Exemplo:

User Function OX016GLB()

MsgInfo("Ponto de Entrada OX016GLB executado com sucesso!")

Return