|
Bem Vindo, Visitante
|
Todos os Fórums
ADVPL
|
Imprimir
Enviar Para um Amigo Precisa estar Logado
|
|
|
Assunto: |
VALIDAÇÃO C5_EMISSAO |
|
Versão: |
12.1.33 |
|
Plataforma: |
Microsoft |
Complemento: |
|
|
DB: |
. |
Complemento: |
|
|
|
|
|
Mensagem do
MAURO_CARD
em 01/08/2022, 16:18 h
Local: SP Registro: 01/08/2022 Postagens: 1 |
Ola!
Preciso que o campo c5_emissao nao permita colocar data menor que a database do sistema , alguem poderia me auxiliar nesse caso?
|
|
|
Mensagem do
RUBEM_MN2
em 04/08/2022, 08:42 h
Local: SC Registro: 16/05/2017 Postagens: 26 |
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() |
|
|
Mensagem do
EMERSON.EN
em 04/08/2022, 11:51 h
Local: SP Registro: 20/08/2010 Postagens: 670 |
basta acrescentar
M->C5_EMISSAO >= DDATABASE
na validação do campo (validação do usuário). não requer programação.
|
|
Para postar no Fórum você precisa efetuar o seu login ou se registrar
|
|