Linha Microsiga Protheus

Árvore de páginas

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:
NomeTipoDescrição

cNumOsv

Caracter

Número da OS

Retorno:
Nome

Tipo

Descrição

lRet

LógicoRetorna .t. / .f. para dar continuidade ao Processo

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