Linha Microsiga Protheus

Árvore de páginas

Descrição

Este Ponto de Entrada está localizado na rotina Cadastro de Inconvenientes, permitindo a interferência no momento da Validação de cada campo da GetDados.

 

Observações

Exemplos

include "Protheus.ch"

User Function OA300VLD()

Local lRetorno := .t.

MsgInfo("Este PE permite a interferência no momento da Validação de cada campo da GetDados no Cadastro de Inconvenientes. Retorne .t. ou .f.")

Return lRetorno

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

Retorno

.t. ou .f.

Eventos de chamada do Ponto de Entrada

/*
ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
±±ÚÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄ¿±±
±±³Funcao ³ OA300FPOK ³ Autor ³ MIL ³ Data ³ 24/01/14 ³±±
±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄ´±±
±±³Descricao ³ FieldOK de Pecas ³±±
±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´±±
±±³Uso ³ Oficina ³±±
±±ÀÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ±±
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß
*/
Function OA300FPOK()

Local lRet := .t.
Local cReadVar := ReadVar()

// Permite interferência no momento da Validação de cada campo da GetDados
If ExistBlock("OA300VLD")
lRet := ExecBlock("OA300VLD",.F.,.F.)
If !lRet
Return(lRet)
Endif
EndIf

If cReadVar == "M->VAJ_CODMOD"
If lVAJGRUMOD .and. !Empty(M->VAJ_GRUMOD)
M->VAJ_GRUMOD := oGetPec:aColsnAt,FG_POSVAR("VAJ_GRUMOD","aHeaderPec") := Space(TamSX3("VAJ_GRUMOD")1)
EndIf
EndIf

If cReadVar == "M->VAJ_GRUMOD"
M->VAJ_CODMOD := oGetPec:aColsnAt,FG_POSVAR("VAJ_CODMOD","aHeaderPec") := Space(TamSX3("VAJ_CODMOD")1)
EndIf

If ReadVar() == "M->VAJ_GRUPEC"
If !Empty(M->VAJ_CODPEC)
SB1->(DBSetOrder(7))
If SB1->(DBSeek(xFilial("SB1")+M->VAJ_GRUPEC+M->VAJ_CODPEC))
oGetPec:aColsnAt,FG_POSVAR("VAJ_DESPEC","aHeaderPec") := SB1->B1_DESC
Else
lRet := .f.
EndIf
Else
oGetPec:aColsnAt,FG_POSVAR("VAJ_DESPEC","aHeaderPec") := ""
EndIf
EndIf

If ReadVar() == "M->VAJ_CODPEC"
SB1->(DBSetOrder(7))
If SB1->(DBSeek(xFilial("SB1")+M->VAJ_GRUPEC+M->VAJ_CODPEC))
oGetPec:aColsnAt,FG_POSVAR("VAJ_DESPEC","aHeaderPec") := SB1->B1_DESC
Else
lRet := .f.
EndIf
EndIf

Return lRet

Variáveis

Programa Fonte

OFIOA300.PRW

  • Sem rótulos