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 Peças ou Códigos de Peças. |
|---|
Observações |
|---|
Exemplos | #include "Protheus.ch"
/*
ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
±±ÉÍÍÍÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍ»±±
±±ºPrograma ³OX100VLP ºAutor ³Microsiga º Data ³ / / º±±
±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍ͹±±
±±ºDesc. ³ P.E para validação das GetDados dos Grupos de Peças ou º±±
±±º ³ Códigos de Peças º±±
±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹±±
±±ºUso ³ Oficina º±±
±±ÈÍÍÍÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ±±
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß
*/
User Function OX100VLP()
Local lRet := .t.
Local _cGetDado := ParamIXB1 // "R" Resumida (por Grupo de Peças) ou "D" Detalhada (por Código de Peças)
Local _cReadVar := ParamIXB2 |
|---|
MsgInfo("Ponto de Entrada OX100VLG 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 Peças(Resumida) ou dos Códigos de Peças(Detalhada)
// D - GetDados de Peças
// R - GetDados de Grupos de Peças
//2o Parâmetro - cReadVar ( utilizar sempre este parâmetro e nunca ReadVar() ) |
|---|
Retorno | .T. ou .F. |
|---|
Eventos de chamada do Ponto de Entrada | Local DVO3CODTES := FG_POSVAR("VO3_CODTES","aHVO3Det")
Local DVO3OPER := FG_POSVAR("VO3_OPER","aHVO3Det") Default cReadVar := ReadVar() //
// PE que Valida digitações das GetDados dos Grupos de Peças ou Códigos de Peças
//1o Parâmetro - Indica se a alteracao foi feita na GetDados dos Grupos de Peças(Resumida) ou dos Códigos de Peças(Detalhada)
// D - GetDados de Peças
// R - GetDados de Grupos
//2o Parâmetro - cReadVar ( utilizar sempre este parâmetro e nunca ReadVar() )
//
If ExistBlock("OX100VLP")
If !ExecBlock("OX100VLP",.f.,.f.,\{"D",cReadVar\})
Return .f.
Endif
EndIf |
|---|
Variáveis |
|---|
Programa Fonte | OFIXX100.PRW |
|---|
