Linha Microsiga Protheus

Árvore de páginas

Ponto de Entrada

Descrição:

Este ponto de entrada está localizado na rotina Req. Peças (OFIOM020) e é executado com o objetivo de realizar uma validação personalizada no momento da confirmação da requisição de peças.

Localização:

Atualizações \ Mov Oficina \ Req. Peças (OFIOM020)

Eventos:

Function FS_TUDOK020()

Local nCont

Local nPosCODTES

Local lRetorno := .t.

Local cResCliente := ""

Local nVO3TIPTEM := FG_POSVAR("VO3_TIPTEM")

Local nVO3FATPAR := FG_POSVAR("VO3_FATPAR")

Local nVO3LOJA := FG_POSVAR("VO3_LOJA")

Local nVO3NOMCLI := FG_POSVAR("VO3_NOMCLI")

// Requisicao

If cReqDev == "1"

...

EndIf

If lRetorno

If ExistBlock("OM020TOK") // Validação do Usuário no TudoOk da Requisição de Peças

lRetorno := ExecBlock("OM020TOK",.f.,.f.)

Endif

Endif

Return lRetorno

Programa Fonte:

OFIOM020.PRW

Função:

FS_TUDOK020()

Retorno:

lRet - Booleano - .T. ou .F.

Exemplo:

#Include 'Protheus.ch'

//Ponto de Entrada responsável pela validação do usuário no TudoOk da Requisição de Peças

User Function OM020TOK()

Local lRet := .t.

MsgInfo("Ponto de Entrada OM020TOK executado com sucesso!","Atenção")

Return(lRet)