Histórico da Página

#include 'protheus.ch'
#include 'parmtype.ch'

//Ponto de entrada para ajustar Tipo de Operação com a Integração com o GFE.
user function OMSCPL7E()
Local cCodViag := PARAMIXB[1] //Viagem
Local cOperaca := PARAMIXB[2] //cTipOper
Local cCodRegi := PARAMIXB[3] //Regional
Local cOperFrg := SuperGetMv("MV_CDTPOP",.F.,"")

dbSelectArea("DK1")
DK1->(dbSetOrder(1))
If DK1->(dbSeek(xFilial("DK1")+ cCodRegi+cCodViag))
    While DK1->(!Eof()) .AND. xFilial("DK1") == DK1->DK1_FILIAL .AND. DK1->DK1_REGID == cCodRegi .AND. DK1->DK1_VIAGID == cCodViag
        IF DK1->DK1_FILPED == "01001"
            cOperaca := cOperFrg
            exit
        EndIF
        DK1->(DbSkip())
    EndDo
EndIF

return cOperaca