1. Fórum
  3. Protheus/Microsiga/Totvs
  5. AdvPL (Advanced Protheus Language)
  7. Dúvidas Gerais
  9. Data menor no Faturamento
× Linguagem de Programação ADVPL

Perguntas Data menor no Faturamento

Mais
10 anos 2 meses atrás #24881 por mbrigagao
Respondido por mbrigagao no tópico Data menor no Faturamento
Outra alternativa....

Passe o campo como parâmetro para a função.... U_DATAMENOR(M->C5_DATA1)
User Function DATAMENOR(dDtVcto)

DEFAULT dDtVcto := cTod("//")

Local lOk := .F.

If Empty(dDtVcto) .or. (!Empty(dDtVcto) .And. dDtVcto >= dDataBase)
	lOk := .T.
Else
	lOk := .F.	
	MsgInfo("Data do vencimento não pode ser menor que a data atual.")
EndIf
Return(lOk)

Aí você pode usar a mesma função em todos os campos.... lembrando de passar o campo correto como parâmetro.

Boa sorte

Por favor Acessar ou Registrar para participar da conversa.

  1. Fórum
  3. Protheus/Microsiga/Totvs
  5. AdvPL (Advanced Protheus Language)
  7. Dúvidas Gerais
  9. Data menor no Faturamento
Tempo para a criação da página:0.099 segundos
Joomla templates by a4joomla