- 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
11 anos 8 meses atrás #11640
por vcardoso
Validar campo a ser digitado foi criado por vcardoso
Galera, bom dia!
Montei esta tela e estou precisando validar os campos a serem digitados, sao eles:
Codigo do Cliente - SA1 - A1_CLIENTE
Codigo da Loja - SC5 - C5_LOJACLI
Condicao de Pagamento - SC5 - C5_CONDPAG
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 OF oDlg F3 "SA1" PIXEL PICTURE "@R 999999"
@ 025, 120 MSGET cLoja SIZE 55, 11 OF oDlg F3 "C5LOJA" PIXEL PICTURE "@R 99"
@ 040, 120 MSGET cCond SIZE 55, 11 OF oDlg F3 "C5COND" PIXEL PICTURE "@R 99"
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
Alguem sabe como fazer? Já tentei utilizar o ExistCpo(), mas nao to sabendo montar a rotina.
Se alguem souber, fico grato pela ajuda.
Desde já agradeco.
Montei esta tela e estou precisando validar os campos a serem digitados, sao eles:
Codigo do Cliente - SA1 - A1_CLIENTE
Codigo da Loja - SC5 - C5_LOJACLI
Condicao de Pagamento - SC5 - C5_CONDPAG
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 OF oDlg F3 "SA1" PIXEL PICTURE "@R 999999"
@ 025, 120 MSGET cLoja SIZE 55, 11 OF oDlg F3 "C5LOJA" PIXEL PICTURE "@R 99"
@ 040, 120 MSGET cCond SIZE 55, 11 OF oDlg F3 "C5COND" PIXEL PICTURE "@R 99"
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
Alguem sabe como fazer? Já tentei utilizar o ExistCpo(), mas nao to sabendo montar a rotina.
Se alguem souber, fico grato pela ajuda.
Desde já agradeco.
Por favor Acessar ou Registrar para participar da conversa.
- lalberto
- Desconectado
- Administrador
Menos
Mais
- Postagens: 3676
- Obrigados Recebidos: 6
11 anos 8 meses atrás #11647
por lalberto
Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br
Respondido por lalberto no tópico Validar campo a ser digitado
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 OF oDlg ExistCpo("SA1",cCliente) F3 "SA1" PIXEL PICTURE "@R 999999"
@ 025, 120 MSGET cLoja SIZE 55, 11 OF oDlg ExistCpo("SA1",cCliente+cLoja) PIXEL PICTURE "@R 99"
@ 040, 120 MSGET cCond SIZE 55, 11 OF oDlg EXISTCPO("SE4") F3 "SE4" PIXEL PICTURE "@R 99"
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
@ 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 OF oDlg ExistCpo("SA1",cCliente) F3 "SA1" PIXEL PICTURE "@R 999999"
@ 025, 120 MSGET cLoja SIZE 55, 11 OF oDlg ExistCpo("SA1",cCliente+cLoja) PIXEL PICTURE "@R 99"
@ 040, 120 MSGET cCond SIZE 55, 11 OF oDlg EXISTCPO("SE4") F3 "SE4" PIXEL PICTURE "@R 99"
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
Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br
Por favor Acessar ou Registrar para participar da conversa.
- vcardoso
- Autor do Tópico
- Desconectado
- Membro Especialista
Menos
Mais
- Postagens: 119
- Obrigados Recebidos: 0
11 anos 8 meses atrás #11649
por vcardoso
Respondido por vcardoso no tópico Validar campo a ser digitado
Erro de sintaxe na compilacao nesta linha.
@ 010, 120 MSGET cCliente SIZE 55, 11 OF oDlg ExistCpo("SA1",cCliente) F3 "SA1" PIXEL PICTURE "@R 999999"
@ 010, 120 MSGET cCliente SIZE 55, 11 OF oDlg ExistCpo("SA1",cCliente) F3 "SA1" PIXEL PICTURE "@R 999999"
Por favor Acessar ou Registrar para participar da conversa.
- lalberto
- Desconectado
- Administrador
Menos
Mais
- Postagens: 3676
- Obrigados Recebidos: 6
11 anos 8 meses atrás #11650
por lalberto
Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br
Respondido por lalberto no tópico Validar campo a ser digitado
@ 010, 120 MSGET cCliente VALID ExistCpo("SA1",cCliente) F3 "SA1" PICTURE "@R 999999" SIZE 55, 11 OF oDlg PIXEL
@ 025, 120 MSGET cLoja SIZE 55, 11 Valid ExistCpo("SA1",cCliente+cLoja) PICTURE "@R 99" OF oDlg PIXEL
@ 040, 120 MSGET cCond SIZE 55, 11 Valid EXISTCPO("SE4") F3 "SE4" PICTURE "@R 99" OF oDlg PIXEL
@ 025, 120 MSGET cLoja SIZE 55, 11 Valid ExistCpo("SA1",cCliente+cLoja) PICTURE "@R 99" OF oDlg PIXEL
@ 040, 120 MSGET cCond SIZE 55, 11 Valid EXISTCPO("SE4") F3 "SE4" PICTURE "@R 99" OF oDlg PIXEL
Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br
Por favor Acessar ou Registrar para participar da conversa.
- 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
- 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.137 segundos