O
OctavioOlguin
Guest
DONE! It happens that there are very clever people among us Scott Augé being one of them. /**************************************************************************/ /* Copyright 2017, Amduus Information Works, Inc., Scott Auge */ /* All rights reserved. */ /* http://www/amduus.com sauge@amduus.com */ /* */ /* */ /**************************************************************************/ /* Purpose: The xpathparse class. */ /**************************************************************************/ USING auxiliar.yaxmlparser.xpathparse FROM PROPATH. DEFINE VARIABLE a AS xpathparse NO-UNDO. a = NEW xpathparse ("D:\temp\resultado.xml"). a
umpToFile("d:\temp/Data.d"). OUTPUT TO "D:\temp\xmltimbrado.xml". PUT UNFORMATTED STRING(a:FindByXPathAsLongChar ("/tns:quick_stampResponse/tns:quick_stampResult/s0:xml")). MESSAGE a:FindByXPathAsLongChar ("/tns:quick_stampResponse/tns:quick_stampResult/s0:CodEstatus") VIEW-AS ALERT-BOX INFORMATION BUTTONS OK. MESSAGE "FindByXPath (uuid): " a:FindByXPath ("/tns:quick_stampResponse/tns:quick_stampResult/s0:UUID") VIEW-AS ALERT-BOX. MESSAGE "FindByXPath (fecha): " a:FindByXPath ("/tns:quick_stampResponse/tns:quick_stampResult/s0:fecha") VIEW-AS ALERT-BOX. MESSAGE "FindByXPath (SatSeal): " a:FindByXPath ("/tns:quick_stampResponse/tns:quick_stampResult/s0:SatSeal") VIEW-AS ALERT-BOX. MESSAGE "FindByXPath (NoCertificadoSAT): " a:FindByXPath ("/tns:quick_stampResponse/tns:quick_stampResult/s0:NoCertificadoSAT") VIEW-AS ALERT-BOX. DELETE OBJECT a.
Continue reading...
umpToFile("d:\temp/Data.d"). OUTPUT TO "D:\temp\xmltimbrado.xml". PUT UNFORMATTED STRING(a:FindByXPathAsLongChar ("/tns:quick_stampResponse/tns:quick_stampResult/s0:xml")). MESSAGE a:FindByXPathAsLongChar ("/tns:quick_stampResponse/tns:quick_stampResult/s0:CodEstatus") VIEW-AS ALERT-BOX INFORMATION BUTTONS OK. MESSAGE "FindByXPath (uuid): " a:FindByXPath ("/tns:quick_stampResponse/tns:quick_stampResult/s0:UUID") VIEW-AS ALERT-BOX. MESSAGE "FindByXPath (fecha): " a:FindByXPath ("/tns:quick_stampResponse/tns:quick_stampResult/s0:fecha") VIEW-AS ALERT-BOX. MESSAGE "FindByXPath (SatSeal): " a:FindByXPath ("/tns:quick_stampResponse/tns:quick_stampResult/s0:SatSeal") VIEW-AS ALERT-BOX. MESSAGE "FindByXPath (NoCertificadoSAT): " a:FindByXPath ("/tns:quick_stampResponse/tns:quick_stampResult/s0:NoCertificadoSAT") VIEW-AS ALERT-BOX. DELETE OBJECT a.Continue reading...