OX100VLS - Validação das digitações da GetDados dos Grupos de Serviços ou Códigos de Serviços

Descrição

Este Ponto de Entrada é executado na rotina Fechamento de OS Modelo 2 (OFIXA100) e permite validar as digitações da GetDados dos Grupos de serviços ou Códigos de Serviços

Observações

Exemplos

#include "Protheus.ch"
/*
ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
±±ÉÍÍÍÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍ»±±
±±ºPrograma ³OX100VLS ºAutor ³Microsiga º Data ³ / / º±±
±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍ͹±±
±±ºDesc. ³ P.E para validação das GetDados dos Grupos de Serviços ou º±±
±±º ³ Códigos de Serviços º±±
±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹±±
±±ºUso ³ Oficina º±±
±±ÈÍÍÍÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ±±
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß
*/
User Function OX100VLS()
Local lRet := .t.
Local _cGetDado := ParamIXB[1] // "R" Resumida (por Grupo de Serviços) ou "D" Detalhada (por Código de Serviços)
Local _cReadVar := ParamIXB[2]

MsgInfo("Ponto de Entrada OX100VLS chamado com Sucesso!","Atenção")

return lRet

Preview

Veja também

Idioma

Português(Brasil)

Versões

Todas

Sistemas Operacionais Suportados

Todos

Compatível com as Bases de Dados

Todas

Updates

Parâmetros

1o Parâmetro - Indica se a alteracao foi feita na GetDados dos Grupos de Serviços(Resumida) ou dos Códigos de Serviços(Detalhada)
D - GetDados de Serviços
R - GetDados de Grupos Serviços
2o Parâmetro - cReadVar ( utilizar sempre este parâmetro e nunca ReadVar() )

Retorno

.T. ou .F.

Eventos de chamada do Ponto de Entrada

Local nTipDes
Local nCntFor
Local aBkpAuxVO4 := \{\} // Backup da Matriz aAuxVO4
Local nPos

Default cReadVar := ReadVar()
//
// PE que Valida digitações das GetDados dos Grupos de Serviços ou Códigos de Serviços
//1o Parâmetro - Indica se a alteracao foi feita na GetDados dos Grupos de Serviços(Resumida) ou dos Códigos de Serviços(Detalhada)
// D - GetDados de Serviços
// R - GetDados de Grupos Serviços
//2o Parâmetro - cReadVar ( utilizar sempre este parâmetro e nunca ReadVar() )
//
If ExistBlock("OX100VLS")
If !ExecBlock("OX100VLS",.f.,.f.,\{"D",cReadVar\})
Return .f.
Endif
EndIf
//

Variáveis

Programa Fonte

OFIXX100.PRW