- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Validando campo customizado
×
Linguagem de Programação ADVPL
Perguntas Validando campo customizado
- biasouza26
- Autor do Tópico
- Desconectado
- Membro Iniciado
Menos
Mais
- Postagens: 1
- Obrigados Recebidos: 0
7 anos 6 meses atrás #32169
por biasouza26
Validando campo customizado foi criado por biasouza26
Pessoal, sou super iniciante em ADVPL e estou precisando colocar uma validação de preenchimento de campo em uma tela que eu criei. Alguem pode me ajudar?
DEFINE MSDIALOG oDlgInfo TITLE "Informações Coleta" FROM 000, 000 TO 280, 400 COLORS 0, 16777215 PIXEL
@ 002, 002 SAY oSay1 PROMPT "Motorista" SIZE 025, 007 OF oDlgInfo COLORS 0, 16777215 PIXEL
@ 010, 002 MSGET oMotoris VAR cMotoris SIZE 195, 010 OF oDlgInfo COLORS 0, 16777215 PIXEL
@ 025, 002 SAY oSay2 PROMPT "Documento" SIZE 035, 007 OF oDlgInfo COLORS 0, 16777215 PIXEL
@ 032, 002 MSGET oDoc VAR cDoc SIZE 060, 010 OF oDlgInfo COLORS 0, 16777215 PIXEL
@ 025, 068 SAY oSay3 PROMPT "Placa" SIZE 035, 007 OF oDlgInfo COLORS 0, 16777215 PIXEL
@ 032, 068 MSGET oPlaca VAR cPlaca SIZE 060, 010 OF oDlgInfo COLORS 0, 16777215 PIXEL
@ 047, 002 SAY oSay4 PROMPT "Transportadora" SIZE 050, 007 OF oDlgInfo COLORS 0, 16777215 PIXEL
@ 055, 002 MSGET oTransp VAR cTransp SIZE 195, 010 OF oDlgInfo COLORS 0, 16777215 PIXEL
@ 070, 002 SAY oSay5 PROMPT "Observação" SIZE 050, 007 OF oDlgInfo COLORS 0, 16777215 PIXEL
@ 077, 002 GET oObs VAR cObs OF oDlgInfo MULTILINE SIZE 195, 044 COLORS 0, 16777215 HSCROLL PIXEL
DEFINE SBUTTON oSButton1 FROM 125, 135 TYPE 02 OF oDlgInfo ENABLE ACTION oDlgInfo:End()
DEFINE SBUTTON oSButton2 FROM 125, 170 TYPE 01 OF oDlgInfo ENABLE ACTION (_nOpc := 1,oDlgInfo:End())
ACTIVATE MSDIALOG oDlgInfo CENTERED
oMotoris:= .T.
if oMotoris == ''
MsgStop("Campo não preenchido")
EndIf
DEFINE MSDIALOG oDlgInfo TITLE "Informações Coleta" FROM 000, 000 TO 280, 400 COLORS 0, 16777215 PIXEL
@ 002, 002 SAY oSay1 PROMPT "Motorista" SIZE 025, 007 OF oDlgInfo COLORS 0, 16777215 PIXEL
@ 010, 002 MSGET oMotoris VAR cMotoris SIZE 195, 010 OF oDlgInfo COLORS 0, 16777215 PIXEL
@ 025, 002 SAY oSay2 PROMPT "Documento" SIZE 035, 007 OF oDlgInfo COLORS 0, 16777215 PIXEL
@ 032, 002 MSGET oDoc VAR cDoc SIZE 060, 010 OF oDlgInfo COLORS 0, 16777215 PIXEL
@ 025, 068 SAY oSay3 PROMPT "Placa" SIZE 035, 007 OF oDlgInfo COLORS 0, 16777215 PIXEL
@ 032, 068 MSGET oPlaca VAR cPlaca SIZE 060, 010 OF oDlgInfo COLORS 0, 16777215 PIXEL
@ 047, 002 SAY oSay4 PROMPT "Transportadora" SIZE 050, 007 OF oDlgInfo COLORS 0, 16777215 PIXEL
@ 055, 002 MSGET oTransp VAR cTransp SIZE 195, 010 OF oDlgInfo COLORS 0, 16777215 PIXEL
@ 070, 002 SAY oSay5 PROMPT "Observação" SIZE 050, 007 OF oDlgInfo COLORS 0, 16777215 PIXEL
@ 077, 002 GET oObs VAR cObs OF oDlgInfo MULTILINE SIZE 195, 044 COLORS 0, 16777215 HSCROLL PIXEL
DEFINE SBUTTON oSButton1 FROM 125, 135 TYPE 02 OF oDlgInfo ENABLE ACTION oDlgInfo:End()
DEFINE SBUTTON oSButton2 FROM 125, 170 TYPE 01 OF oDlgInfo ENABLE ACTION (_nOpc := 1,oDlgInfo:End())
ACTIVATE MSDIALOG oDlgInfo CENTERED
oMotoris:= .T.
if oMotoris == ''
MsgStop("Campo não preenchido")
EndIf
Por favor Acessar ou Registrar para participar da conversa.
- kanaamlrr
- Desconectado
- Membro Platina
Menos
Mais
- Postagens: 1576
- Obrigados Recebidos: 4
7 anos 6 meses atrás - 7 anos 6 meses atrás #32170
por kanaamlrr
Respondido por kanaamlrr no tópico Validando campo customizado
Você pode usar a cláusula valid do seu MsGet
DEFINE MSDIALOG oDlgInfo TITLE "Informações Coleta" FROM 000, 000 TO 280, 400 COLORS 0, 16777215 PIXEL
@ 002, 002 SAY oSay1 PROMPT "Motorista" SIZE 025, 007 OF oDlgInfo COLORS 0, 16777215 PIXEL
@ 010, 002 MSGET oMotoris VAR cMotoris VALID !Empty(cMotoris) SIZE 195, 010 OF oDlgInfo COLORS 0, 16777215 PIXEL
@ 025, 002 SAY oSay2 PROMPT "Documento" SIZE 035, 007 OF oDlgInfo COLORS 0, 16777215 PIXEL
@ 032, 002 MSGET oDoc VAR cDoc SIZE 060, 010 OF oDlgInfo COLORS 0, 16777215 PIXEL
@ 025, 068 SAY oSay3 PROMPT "Placa" SIZE 035, 007 OF oDlgInfo COLORS 0, 16777215 PIXEL
@ 032, 068 MSGET oPlaca VAR cPlaca SIZE 060, 010 OF oDlgInfo COLORS 0, 16777215 PIXEL
@ 047, 002 SAY oSay4 PROMPT "Transportadora" SIZE 050, 007 OF oDlgInfo COLORS 0, 16777215 PIXEL
@ 055, 002 MSGET oTransp VAR cTransp SIZE 195, 010 OF oDlgInfo COLORS 0, 16777215 PIXEL
@ 070, 002 SAY oSay5 PROMPT "Observação" SIZE 050, 007 OF oDlgInfo COLORS 0, 16777215 PIXEL
@ 077, 002 GET oObs VAR cObs OF oDlgInfo MULTILINE SIZE 195, 044 COLORS 0, 16777215 HSCROLL PIXEL
DEFINE SBUTTON oSButton1 FROM 125, 135 TYPE 02 OF oDlgInfo ENABLE ACTION oDlgInfo:End()
DEFINE SBUTTON oSButton2 FROM 125, 170 TYPE 01 OF oDlgInfo ENABLE ACTION (_nOpc := 1,oDlgInfo:End())
ACTIVATE MSDIALOG oDlgInfo CENTERED
Abraço!
DEFINE MSDIALOG oDlgInfo TITLE "Informações Coleta" FROM 000, 000 TO 280, 400 COLORS 0, 16777215 PIXEL
@ 002, 002 SAY oSay1 PROMPT "Motorista" SIZE 025, 007 OF oDlgInfo COLORS 0, 16777215 PIXEL
@ 010, 002 MSGET oMotoris VAR cMotoris VALID !Empty(cMotoris) SIZE 195, 010 OF oDlgInfo COLORS 0, 16777215 PIXEL
@ 025, 002 SAY oSay2 PROMPT "Documento" SIZE 035, 007 OF oDlgInfo COLORS 0, 16777215 PIXEL
@ 032, 002 MSGET oDoc VAR cDoc SIZE 060, 010 OF oDlgInfo COLORS 0, 16777215 PIXEL
@ 025, 068 SAY oSay3 PROMPT "Placa" SIZE 035, 007 OF oDlgInfo COLORS 0, 16777215 PIXEL
@ 032, 068 MSGET oPlaca VAR cPlaca SIZE 060, 010 OF oDlgInfo COLORS 0, 16777215 PIXEL
@ 047, 002 SAY oSay4 PROMPT "Transportadora" SIZE 050, 007 OF oDlgInfo COLORS 0, 16777215 PIXEL
@ 055, 002 MSGET oTransp VAR cTransp SIZE 195, 010 OF oDlgInfo COLORS 0, 16777215 PIXEL
@ 070, 002 SAY oSay5 PROMPT "Observação" SIZE 050, 007 OF oDlgInfo COLORS 0, 16777215 PIXEL
@ 077, 002 GET oObs VAR cObs OF oDlgInfo MULTILINE SIZE 195, 044 COLORS 0, 16777215 HSCROLL PIXEL
DEFINE SBUTTON oSButton1 FROM 125, 135 TYPE 02 OF oDlgInfo ENABLE ACTION oDlgInfo:End()
DEFINE SBUTTON oSButton2 FROM 125, 170 TYPE 01 OF oDlgInfo ENABLE ACTION (_nOpc := 1,oDlgInfo:End())
ACTIVATE MSDIALOG oDlgInfo CENTERED
Abraço!
Ultima edição: 7 anos 6 meses atrás por kanaamlrr.
Por favor Acessar ou Registrar para participar da conversa.
- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Validando campo customizado
Tempo para a criação da página:0.103 segundos