Histórico da Página

#INCLUDE 'PROTHEUS.CH'

//-----------------------------------------------------------------
/*/{Protheus.doc} TM310GCC
Este ponto de entrada é chamado pela Função TMSA310Mnt antes do 
fechamento da viagem.
Ponto de Entrada habilita ou não pergunta (Sim ou Não) ao usuario se 
deseja gerar o Contrato de Carreteiro antes do Fechamento da Viagem.

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

User Function TM310GCC()

    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"
    EndIf

    RestArea(aArea)
    RestArea(aAreaDTR)

Return lRet