Ponto de Entrada
Descrição: | Este Ponto de Entrada será executado na rotina Liberacao OS (OFIOM140) e permite criar validações por parte do usuário após a gravação da liberação da OS. | ||||||
Localização: | Atualizações \ Mov Oficina \ Liberacao OS (OFIOM140) | ||||||
Eventos: | // Atualiza o Status da OS dbSelectArea("VO1") RecLock("VO1") VO1->VO1_STATUS := FMX_GRVOSSTAT(VO1->VO1_NUMOSV," ") MsUnlock() // If ExistBlock("VA140DPGR") If !ExecBlock("VA140DPGR",.f.,.f.,{VO1->VO1_NUMOSV}) DisarmTransaction() Return .f. EndIf EndIf End Transaction lMsHelpAuto := .f. If lMsErroAuto MostraErro() EndIf | ||||||
Programa Fonte: | OFIOM140.PRW | ||||||
Função: | FS_LIBOSV() | ||||||
Parâmetros: |
| ||||||
Retorno: |
|
Exemplo:
Include totvs.ch
/*
///////////////////////////////////////////////////////////////////////////////
// Ponto de Entrada na rotina de Liberacao os (OFIOM140) utilizado para //
// criar validações por parte do usuário após a gravação da liberação da OS //
///////////////////////////////////////////////////////////////////////////////
*/
User Function VA140DPGR()
Local cNumOsv := ParamIxb[01]
Local lRet := .t.
MsgInfo("Ponto de Entrada VA140DPGR executado com sucesso!")
Return lRet