- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Validar campo a ser digitado
×
Linguagem de Programação ADVPL
Perguntas Validar campo a ser digitado
- vcardoso
- Autor do Tópico
- Desconectado
- Membro Especialista
Menos
Mais
- Postagens: 119
- Obrigados Recebidos: 0
- kanaamlrr
- Desconectado
- Membro Platina
Menos
Mais
- Postagens: 1576
- Obrigados Recebidos: 4
- vcardoso
- Autor do Tópico
- Desconectado
- Membro Especialista
Menos
Mais
- Postagens: 119
- Obrigados Recebidos: 0
11 anos 8 meses atrás #11676
por vcardoso
Respondido por vcardoso no tópico Validar campo a ser digitado
Claro. Segue a tela:
DEFINE MSDIALOG oDlg TITLE "Informe os Parametros" FROM 000,000 TO 400,600 PIXEL
@ 010, 010 SAY "Informe o Codigo do Cliente" SIZE 120, 20 OF oDlg PIXEL
@ 025, 010 SAY "Informe o Codigo da Loja" SIZE 120, 20 OF oDlg PIXEL
@ 040, 010 SAY "Informe a Condicao de Pagamento" SIZE 120, 20 OF oDlg PIXEL
@ 010, 120 MSGET cCliente SIZE 55, 11 VALID ExistCpo("SA1",cCliente) F3 "SA1" PICTURE "@R 999999" OF oDlg PIXEL
@ 025, 120 MSGET cLoja SIZE 55, 11 Valid ExistCpo("SA1",cCliente+cLoja) PICTURE "@R 99" OF oDlg PIXEL
@ 040, 120 MSGET cCondPag SIZE 55, 11 Valid ExistCpo("SC5", cCondPag) F3 "SE4" PICTURE "@R 99" OF oDlg PIXEL
DEFINE SBUTTON FROM 120, 160 TYPE 1 ACTION (nOpca := 1, oDlg:End()) ENABLE OF oDlg
DEFINE SBUTTON FROM 120, 220 TYPE 2 ACTION (nOpca := 2, oDlg:End()) ENABLE OF oDlg
ACTIVATE MSDIALOG oDlg CENTERED
DEFINE MSDIALOG oDlg TITLE "Informe os Parametros" FROM 000,000 TO 400,600 PIXEL
@ 010, 010 SAY "Informe o Codigo do Cliente" SIZE 120, 20 OF oDlg PIXEL
@ 025, 010 SAY "Informe o Codigo da Loja" SIZE 120, 20 OF oDlg PIXEL
@ 040, 010 SAY "Informe a Condicao de Pagamento" SIZE 120, 20 OF oDlg PIXEL
@ 010, 120 MSGET cCliente SIZE 55, 11 VALID ExistCpo("SA1",cCliente) F3 "SA1" PICTURE "@R 999999" OF oDlg PIXEL
@ 025, 120 MSGET cLoja SIZE 55, 11 Valid ExistCpo("SA1",cCliente+cLoja) PICTURE "@R 99" OF oDlg PIXEL
@ 040, 120 MSGET cCondPag SIZE 55, 11 Valid ExistCpo("SC5", cCondPag) F3 "SE4" PICTURE "@R 99" OF oDlg PIXEL
DEFINE SBUTTON FROM 120, 160 TYPE 1 ACTION (nOpca := 1, oDlg:End()) ENABLE OF oDlg
DEFINE SBUTTON FROM 120, 220 TYPE 2 ACTION (nOpca := 2, oDlg:End()) ENABLE OF oDlg
ACTIVATE MSDIALOG oDlg CENTERED
Por favor Acessar ou Registrar para participar da conversa.
- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Validar campo a ser digitado
Tempo para a criação da página:0.102 segundos