OM030VTS - Validação do Tipo de Serviço de acordo com o grupo e código de serviço

Este Ponto de Entrada é executado na rotina Requisição de Serviços (OFIOM030) e permite a validação do Tipo de Serviço, de acordo com o grupo e código de serviço.

#include "protheus.ch"

/*/\{Protheus.doc\} OM030VTS

Ponto de entrada para validação do Tipo de Serviço de Acordo com o Grupo e Serviço

@author Totvs
@since 17/03/2015
@version 1.0
@return lRetorno, Permite ou não a requisição do serviço

/*/
User Function OM030VTS()

Local nChamada := PARAMIXB[1] // 1 = Requisicao / 2 = Alteracao
Local cPTipSer := PARAMIXB[2]
Local cPTipTem := PARAMIXB[3]
Local lMensag := PARAMIXB[4]
Local lTpo := PARAMIXB[5]

If nChamada == 1
MsgInfo("Validação na requisição de serviço")
Else
MsgInfo("Validação na alteração da requisição do serviço")
EndIf

Return lRetorno

Português(Brasil)

Todas

Todos

Todas

1º Parâmetro indica se a chamada é da requisição ou alteração (1=Requisição / 2=Alteração)
2º Parâmetro contém o tipo de serviço informado na requisição
3º Parâmetro contém o tipo de tempo informado na requisição
4º Parâmetro indica a função padrão exibirá uma mensagem de alerta.
5º Parâmetro indica se será calculado o tempo padrão da requisição.

.T. ou .F.

Function FS_SERTEM(cTipSer,cTipTem,lMensagem,lTpo)

Local nTemPad := 0

Default cTipSer := M->VO4_TIPSER
Default cTipTem := M->VO4_TIPTEM
Default lMensagem := .t.
Default lTpo := .t.

//
If ExistBlock("OM030VTS")
If !ExecBlock("OM030VTS",.f.,.f.,\{1,cTipSer,cTipTem,lMensagem,lTpo\})
Return .f.
EndIf
EndIf
//

VOX->( DbSetOrder(1) )
lConsidera := .t.

OFIOM030.PRW