× Linguagem de Programação ADVPL

Perguntas Validar campo a ser digitado

Mais
11 anos 8 meses atrás #11640 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.

Por favor Acessar ou Registrar para participar da conversa.

Mais
11 anos 8 meses atrás #11647 por lalberto
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

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.

Mais
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"

Por favor Acessar ou Registrar para participar da conversa.

Mais
11 anos 8 meses atrás #11650 por lalberto
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

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.

Mais
11 anos 8 meses atrás #11658 por vcardoso
Respondido por vcardoso no tópico Validar campo a ser digitado
Consegui. Só que eu nao estou conseguindo incluir nenhum cliente, ele diz que nao tem registro relacionado a este codigo.

Por favor Acessar ou Registrar para participar da conversa.

Mais
11 anos 8 meses atrás #11660 por kanaamlrr
Respondido por kanaamlrr no tópico Validar campo a ser digitado
Como a consulta padrão já retorna código+loja, deixa a validação só no campo loja.

Por favor Acessar ou Registrar para participar da conversa.

Tempo para a criação da página:0.121 segundos
Joomla templates by a4joomla