Histórico da Página

#INCLUDE "PROTHEUS.CH"

User Function OMSCPLAV()
	Local oSubStop   := Nil
Local oViagem    := PARAMIXB[1] //Objeto com todos os atributos da viagem
	Local aStops     := PARAMIXB[2] //Array com os objetos de todas as paradas, tag "stop"
	Local aSubStops  := PARAMIXB[3] //Array com os objetos de todas as sub-paradas, tag "subStop"
	Local cConteudo  := PARAMIXB[4] //String com todo o conteúdo do XML
	Local cNameSpace := PARAMIXB[5] //String com a namespace do arquivo XML

	Local cRegional  := Padr(oViagem:regionSourceId,TamSx3("DK0_REGID")[1])
	Local cViagem    := Padr(oViagem:identifier,TamSx3("DK0_VIAGID")[1])

	Local cDateStartcDesVei := Padr(oViagem:vehicleDescription,TamSx3("DK0_DESVEI")[1])

	//primeiro subStop
	oSubStop	Local nKmVei := 0

	Local cError := aSubStops[1]""
	
	cDateStartLocal cWarning := SubStr(oSubStop:startServiceTime,9,2)+'/'+;
				  SubStr(oSubStop:startServiceTime,6,2)+'/'+;
				  SubStr(oSubStop:startServiceTime,1,4)
	
    ""

	If !Empty(oViagem:loads[1]:distance)
		nKmVei := Val(oViagem:loads[1]:distance)
	EndIf

	DK0->(DbSetOrder(1))
    	If DK0->(DbSeek(xFilial('DK0')+cRegional+cViagem))
        		RecLock('DK0',.F.)
		DK0->DK0_DESVEI := cDesVei
		DK0->DK0_KMVEI := nKmVei
		DK0->(MsUnlock())
	EndIf

	TmsLogMsg("INFO","[" + cValToChar(ThreadId()) + DK0->DK0_XCPO"-OMSCPLAV] PE OMSCPLAV Executado.")

Return

#include "protheus.ch"
#include "parmtype.ch"
#INCLUDE "TOTVS.CH"

User Function OMSCPLAV()
	Local oViagem   := cDateStartPARAMIXB[1] //Campo customizado
 Objeto com todos os atributos da viagem
	Local aStops    := PARAMIXB[2]  DK0->(MsUnlock())
    EndIf

    //A função TmsLogMsg exibe mensagens no corpo do arquivo console.log
    If Empty(cConteudo)
       TmsLogMsg("WARN","[" + cValToChar(ThreadId())  + "-OMSCPLAV] Variável 'cConteudo' está vazia.")
    else
       TmsLogMsg("WARN","[" + cValToChar(ThreadId())  + "-OMSCPLAV] Variável 'cConteudo' está preenchida com " + cValToChar(Len(cConteudo)) + " bytes.")   

	   oXml    := XmlParser(cConteudo, "NS1", @cError,  @cWarning )
   	   cViagem := oXml//Array com os objetos de todas as paradas, tag "stop"
	Local aSubStops := PARAMIXB[3] //Array com os objetos de todas as sub-paradas, tag "subStop"
	Local cConteudo := PARAMIXB[4] //String com todo o conteúdo do XML
	Local cNameSpace := PARAMIXB[5] //String com a namespace do arquivo XML
	Local cRegional := AvKey(oViagem:regionSourceId, "DK0_REGID")
    Local cViagem   := AvKey(oViagem:identifier, "DK0_VIAGID")
	Local nVlrFret  := 0
	Local cTrsHub   := ""
	Local cTrsNme   := ""
	Local cTrnPrim  := ""
	Local cTpVcPrm  := ""
	Local oSubStop
	Local cError    := ""
	Local cWarning  := ""
	Local oXml      := NIL

	nVlrFret :=	oViagem:freightValue
	cTrnPrim := oViagem:carrierId
	cTpVcPrm := oViagem:vehicleId

	oXml := XmlParser( cConteudo, "_", @cError, @cWarning )
	If (oXml != NIL )
		IF ValType(XmlChildEx(&("OXML:_SOAP_ENVELOPE:_SOAP_BODY:_" + cNameSpace + "_PUBLISHRELEASEDTRIP:_TRIPRELEASEREQUESTS:_TRIPRELEASEREQUEST[1]:_LOADS:_LOAD:_STOPS:_STOP[1]:_SUBSTOPS:_SUBSTOP:_LOADEDSHIPMENTUNITS:_SHIPMENTUNIT:_DELIVERYUNITLIST:_DELIVERYUNIT","_ATTRIBUTES"))) <> "U" 
			cTrsNme := &("OXML:_SOAP_ENVELOPE:_SOAP_BODY:_NS2" + cNameSpace + "_PUBLISHRELEASEDTRIP:_TRIPRELEASEREQUESTS:_TRIPRELEASEREQUEST:_IDENTIFIER:TEXT
       TmsLogMsg("WARN","[" + cValToChar(ThreadId())  + "-OMSCPLAV] Viagem " + cViagem + " recebida com sucesso.")      
    Endif

Return[1]:_LOADS:_LOAD:_STOPS:_STOP[1]:_SUBSTOPS:_SUBSTOP:_LOADEDSHIPMENTUNITS:_SHIPMENTUNIT:_DELIVERYUNITLIST:_DELIVERYUNIT:_ATTRIBUTES:_ATTRIBUTE:_NAME:TEXT")
			cTrsHub := &("OXML:_SOAP_ENVELOPE:_SOAP_BODY:_" + cNameSpace + "_PUBLISHRELEASEDTRIP:_TRIPRELEASEREQUESTS:_TRIPRELEASEREQUEST[1]:_LOADS:_LOAD:_STOPS:_STOP[1]:_SUBSTOPS:_SUBSTOP:_LOADEDSHIPMENTUNITS:_SHIPMENTUNIT:_DELIVERYUNITLIST:_DELIVERYUNIT:_ATTRIBUTES:_ATTRIBUTE:_VALUE:TEXT")
		EndIF	
	else
		OsLogCpl("PE OMSCPLAV -> Falha ao gerar Objeto XML : "+cError+" / "+cWarning,"INFO")
	EndIF

	DK0->(DbSetOrder(1))
	If DK0->(DbSeek(FwXFilial("DK0") + cRegional + cViagem))
		RecLock("DK0", .F.)
		DK0->DK0_XFRETE	:= nVlrFret
		DK0->DK0_XTRHB	:= cTrsHub
		DK0->(MsUnlock())
	EndIf

Return Nil