PERGUNTAS E RESPOSTAS
 
Bem Vindo, Visitante  Todos os Fórums
  ADVPL
Enviar para a impressoraImprimir  Enviar e-mail para um amigoEnviar Para um Amigo
Precisa estar Logado

Subject Assunto:
VALIDAÇÃO C5_EMISSAO
Versão:
12.1.33
Plataforma:
Microsoft
Complemento:
DB:
.
Complemento:
LinkedIn
Foto
Mensagem do Enviar e-mail Abrir o Perfil do usuário MAURO_CARD 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?



Foto
Mensagem do Enviar e-mail Abrir o Perfil do usuário RUBEM_MN2 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()

Foto
Mensagem do Enviar e-mail Abrir o Perfil do usuário EMERSON.EN EMERSON.EN em 04/08/2022, 11:51 h
Local: SP  Registro: 20/08/2010  Postagens: 628
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

 Mudar para Fórum

 

 

 
 
   
Pagina Principal Shopping PROTHEUS Tire suas duvidas Vagas Microsiga em todo Brasil Aprofunde seus conhecimentos Noticias Online Fale Conosco Pagina Principal