Histórico da Página

#INCLUDE 'PROTHEUS.CH'

//-----------------------------------------------------------------
/*/{Protheus.doc} TM310IPGB
Este ponto de entrada é chamado pela Função A310IntRep durante o 
fechamento da viagem.
O Ponto de Entrada habilita ou não a integração da viagem com a 
operadora de Frota, desta forma ficando de acordo com a regra do 
Usuario se a viagem deve ser paga pela Operadora de Frota ou não.

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

User Function TM310IPGB()

    Local aArea     := GetArea()
    Local aAreaDTR  := DTR->( GetArea() )
    Local cFilOri   := ParamIXB[1]
    Local cViagem   := ParamIXB[2]
    Local lRet      := .F.

    DTR->( DbSetOrder(1) )
    If DTR->( MsSeek( xFilial('DTR') + cFilOri + cViagem ) )
        lRet := DTR->DTR_CODOPE == "03" .AND. DTR->DTR_VALPDG > 0
    EndIf

    RestArea(aArea)
    RestArea(aAreaDTR)

Return lRet