FiveTech Support Forums

Static Function XmlScan(hFile,cNodo,Clave,cValor)
local oXmlDoc  := TXmlDocument():New( hFile )
local oXmlIter := TXMLIterator():New( oXmlDoc:oRoot )
local oNodo,cdata,oTagActual
local mDbf:={}


DbCloseAll()
Aadd( mDbf,{"cPath" ,"C",250,0})
Aadd( mDbf,{"cName" ,"C",250,0})
Aadd( mDbf,{"cdata" ,"C", 50,0})
Aadd( mDbf,{"cKey"  ,"C", 50,0})
Aadd( mDbf,{"cvalue","C", 50,0})
Aadd( mDbf,{"Depth" ,"N", 2,0})

DbCreate( op:temp+"xmltodbf",mDbf )
NetUse( op:temp+"xmltodbf",.F.,"xml" )


While .T.
   oTagActual = oXmlIter:Next()
   If oTagActual != nil
      *MsgInfo( oTagActual:cName, oTagActual:cData )
      xml->(DbAppend())
      try
         xml->Depth := oTagActual:Depth()
         xml->cName := oTagActual:cName
         xml->cdata := oTagActual:cData
         HEval( oTagActual:aAttributes, { | cKey, cValue | (xml->cKey := cKey,xml->cvalue:= cvalue) } )
      catch o

      End
   Else
      Exit
   Endif

End

//FClose( hFile )
xbrowse("xml")

DbCloseAll()

Return cdata

oXmlDoc := TXmlDocument():new( cFileXml )

IF oXmlDoc:nStatus = HBXML_STATUS_OK
   xmlnode := oXmlDoc:oRoot:oChild
   While xmlnode != NIL

      If xmlNode:Path() == cPath
         If pcount()=3
            cReturn := xmlnode:GetAttribute(atribute)
         Else
            cReturn := xmlNode:cData
         Endif
      Endif
      xmlNode := xmlNode:NextInTree()
   EndDo
EndIf

Static Function XmlScan(hFile)
local oXmlDoc  := TXmlDocument():New( hFile )
local oXmlIter := TXMLIterator():New( oXmlDoc:oRoot )
local oTagActual,nId
local mDbf:={}
local cPath := ""
local lRet := .T.


Aadd( mDbf,{"id"    ,"N",  6,0})
Aadd( mDbf,{"cPath" ,"C",150,0})
Aadd( mDbf,{"cName" ,"C",100,0})
Aadd( mDbf,{"cdata" ,"C",150,0})
Aadd( mDbf,{"cKey"  ,"C", 50,0})
Aadd( mDbf,{"cvalue","C", 50,0})
Aadd( mDbf,{"Depth" ,"N", 2,0})

DbCloseAll()
DbCreate( op:temp+"xmltodbf",mDbf )
NetUse( op:temp+"xmltodbf",.F.,"xml" )
Index On xml->cPath TAG cPath
Set Orde To 1

nId := 1
While .T.
   oTagActual = oXmlIter:Next()
   If oTagActual != nil
      xml->(DbAppend())
      xml->id := nId
      try
         cPath := BuildPath(oTagActual)
         xml->cpath := cPath
         xml->Depth := oTagActual:Depth()
         xml->cName := oTagActual:cName
         xml->cdata := oTagActual:cData
         HEval( oTagActual:aAttributes, { | cKey, cValue | (xml->cKey := cKey,xml->cvalue:= cvalue) } )
      catch o

      End
      nId++
   Else
      Exit
   Endif

End

If xml->(Lastrec())=0
   lRet := .F.
Endif

Return lRet


* Función auxiliar para construir el path completo
Static Function BuildPath(oNode)
   local cPath := ""
   local oCurrent := oNode
   local aPath := {}

   * Recorrer los nodos padres hasta la raíz
   while oCurrent != nil
      if !Empty(oCurrent:cName)
         AAdd(aPath, oCurrent:cName)
      endif
      oCurrent := oCurrent:oParent
   end

   * Construir el path en orden inverso, uniendo con "/"
   for n := Len(aPath) to 1 step -1
      cPath += "/" + aPath[n]
   next

   * Eliminar la barra inicial si es necesario
   if Left(cPath, 1) == "/"
      cPath := SubStr(cPath, 2)
   endif

return cPath

Static Function ExtraerXml(xPath)
local cdata := ""

xml->(DbSeek(xPath))
If xml->(Found())
   cdata := Alltrim(xml->cdata)
   If Len(cdata)=0
      cdata := .T.
   Endif
Endif

Return cdata

Static Procedure Items
local mLineas:= {}
local coun,a

xml->(DbSeek("Invoice/cac:InvoiceLine"))

If xml->(Found())
   While !xml->(Eof()) .AND. Alltrim(xml->cpath) == "Invoice/cac:InvoiceLine"
      coun := Len( mLineas )+1
      Asize( mLineas,coun )
      mLineas[coun] := xml->id
      xml->(DbSkip())
   EndDo
Endif

For a:= 1  TO Len( mLineas )
   x1 := mlineas[a]
   If a+1>Len( mLineas)
      x2 := xml->(Lastrec())
   Else
       x2 := mlineas[a+1]
   EndIf
   Select("xml")
   Set Filter To xml->Id>=x1 .AND. xml->id <=x2
   xml->(DbGoTop())
   xbrowse("xml","Rangos"+Alltrim(Str(x1))+" Al "+Alltrim(Str(x2)) )

   tmp2->(DbAppend())
   tmp2->prod_nom := ExtraerXml("Invoice/cac:InvoiceLine/cac:Item/cbc:Description")
   tmp2->prod_can := Val(ExtraerXml("Invoice/cac:InvoiceLine/cbc:InvoicedQuantity"))
   tmp2->prod_pre := Val(ExtraerXml("Invoice/cac:InvoiceLine/cac:Price/cbc:PriceAmount"))
   tmp2->prod_bas := Val(ExtraerXml("Invoice/cac:InvoiceLine/cac:TaxTotal/cac:TaxSubtotal/cbc:TaxableAmount"))
   tmp2->prod_igv := Val(ExtraerXml("Invoice/cac:InvoiceLine/cac:TaxTotal/cac:TaxSubtotal/cbc:TaxAmount"))
   tmp2->prod_tot := tmp2->prod_bas+tmp2->prod_igv
Next

Return