Imprimi Página | Fechar janela

VALIDAÇÃO C5_EMISSAO

Impresso de: Helpfacil - Portal do conhecimento
Nome do Forum: ADVPL
Descrição do Forum: Dúvidas sobre a programação em ADVPL
URL:http://www.helpfacil.com.br/display_topic_threads.asp?ForumID=1&TopicID=44020
Data da Impressão: sexta-feira, 19 de agosto de 2022 at 06:15


Topico: VALIDAÇÃO C5_EMISSAO

Postado por: MAURO_CARD
Assunto: VALIDAÇÃO C5_EMISSAO
Data Postagem: segunda-feira, 1 de agosto de 2022 at 16:18

Ola!
Preciso que o campo c5_emissao nao permita colocar data menor que a database do sistema , alguem poderia me auxiliar nesse caso?





Respostas:

Postado Por: RUBEM_MN2
Data Postagem: quinta-feira, 4 de agosto de 2022 at 08:42

User Function ValidaEmissaoPedidoVenda() as logical

Local lRet := .t. as logical
Local dDAteAtual := Date() as Date
Local dEmissaoPEdido := GetMemVar("C5_EMISSAO") As Date

If dEmissaoPEdido < dDAteAtual
lRet := .t.
FWAlertError(‘Mensagem de erro‘,‘Título FWAlertError‘)
Endif

Return lRet

Mauro, salva em .tlpp compilar, e chamar no X3_VALID do C5_EMISSAO

u_ValidaEmissaoPedidoVenda()



Postado Por: EMERSON.EN
Data Postagem: quinta-feira, 4 de agosto de 2022 at 11:51

basta acrescentar
M->C5_EMISSAO >= DDATABASE
na validação do campo (validação do usuário). não requer programação.





Imprimir Página | Fechar Janela