Histórico da Página

#INCLUDE 'PROTHEUS.CH'

//-----------------------------------------------------------------
/*/{Protheus.doc} TM256VldF
Este ponto de entrada é chamado pela Função TMSA256PrF, no momento da 
validação se o CIOT deve ou não ser fechado.
Este ponto de entrada permite ao usuario incluir validações no processo 
de fechamento de Ciot via schedule.

@author Totvs
@since 30/05/2022
@version 1.0
/*/
//--------------------------------------------------------------------

User Function TM256VldF()

    Local aArea     := GetArea()
    Local aAreaDJL  := DJL->( GetArea() )
    Local cFilDJL   := ParamIXB[1] // xFilial("DJL"), DJL->DJL_CIOT, DJL->DJL_CODVEI, DJL->DJL_DATINI, DJL->DJL_DATFIM
    Local cCiot     := ParamIXB[2] // Numero do CIOT
    Local cCodVei   := ParamIXB[3] // Codigo do Veiculo
    Local dDatIni   := ParamIXB[4] // Data Inicio do CIOT
    Local dDatFim   := ParamIXB[5] // Data Fim do CIOT
    Local lRet      := .F.

    If dDataBase >= CToD(dDatIni) .AND. dDataBase <= CToD(dDatFim)
        lRet := .T.
    EndIf

    RestArea( aArea )
    RestArea( aAreaDJL )

Return lRet