Linha de Produto: | Microsiga Protheus |
Segmento: | Supply Chain - Logística |
Módulo: | SIGAGFE |
Descrição: | XXXXXXXXXXXX |
Localização: | Antes de gerar a Fatura de Frete por Faixa ou na criação automática de Faturas de Frete |
Programa Fonte: | GFEA065 - Digitação de Documentos de Frete |
Parâmetro: | dDtVenc |
Retorno: | XXXXXXXXXXXXXXXXXXXX |
#INCLUDE "PROTHEUS.CH" #INCLUDE "Topconn.ch" #INCLUDE "PARMTYPE.CH" USER FUNCTION GFE06501() Local dDataVenc := PARAMIXB[1] Local dDtLimite := "20200101" //Exemplo de utilização dDataVenc := DTOS(dDataVenc) If dDataVenc <= dDtLimite dDtLimite := STOD(dDtLimite) Alert("A Data de Vencimento informada deve ser posterior a "+ DtOC(dDtLimite)) ENDIF dDataVenc := STOD(dDataVenc) RETURN dDataVenc |