OM140FSR - Liberação de Tipo de Tempo

Este Ponto de Entrada será executado na rotina Liberação de Tipo de Tempo (OFIOM140). Permite que o usuário possa liberar um tipo de tempo, configurado para controlar apontamento, com serviço sem apontamento.

#include "protheus.ch"

/*/\{Protheus.doc\} OM140FSR
Ponto de entrada para permitir que o usuário possa liberar um tipo de tempo, configurado para controlar apontamento, com serviço sem apontamento.

@author Totvs
@since 16/01/2015
@version 1.0
@return lRet, Libera tipo de tempo com serviço sem apontamento

/*/
User Function OM140FSR()

Local lRet := .t.

Local cParNumOSV := ParamIXB[1]
Local cParTipSer := ParamIXB[2]
Local cParGruSer := ParamIXB[3]
Local cParCodSer := ParamIXB[4]

lRet := MsgYesNo("Deseja liberar Serviço sem apontamento ?")

Return lRet

Português(Brasil)

Todas

Todos

Todas

ParamIXB[1] - Tipo de Tempo
ParamIXB[2] - Tipo de Serviço
ParamIXB[3] - Grupo de Serviço
ParamIXB[4] - Código de Serviço

lRet - tipo lógico - define se o tipo de tempo poderá ou não ser liberado.

// Permite que o cliente possa fazer um controle das OS sem apontamento que podem ser fechadas
If ExistBlock("OM140FSR")
If !ExecBlock("OM140FSR",.F.,.F.,\{VO1->VO1_NUMOSV,aSelSrvc[nCont,SRVC_TIPSER],aSelSrvc[nCont,SRVC_GRUSER],aSelSrvc[nCont,SRVC_CODSER]\})
Help(" ",1,"M140FIMSRV")
Return(.f.)
Endif
Else
Help(" ",1,"M140FIMSRV")
Return(.f.)
EndIf
//

OFIOM140.PRW