TM310IPGB - Valida se a Viagem será Integrada com Operadora de Frotas PagBem

01. DADOS GERAIS

Linha de Produto:	Microsiga Protheus®
Segmento:	Logística
Módulo:	SIGATMS - Gestão de Transportes

02. DESCRIÇÃO

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.to de Entrada localizado no programa TMSXFUND, este Ponto de Entrada permite as validações customizadas do agendamento.

03. EXEMPLO DE UTILIZAÇÃO

Parâmetros:

Vide exemplo no código fonte

Retorno:

Logico.

TM310IPGB

#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

04. DEMAIS INFORMAÇÕES

Não há.

05. ASSUNTOS RELACIONADOS