O
OctavioOlguin
Guest
/**************************************************************************/ /* */ /* .-.------------------------------------------.-. */ /* ((o)) ) */ /* \U/_______ _____ ______ ____/ */ /* | | */ /* | ##### ##### ###### | */ /* | # # # # # # | */ /* | # # # # # | */ /* | ###### ##### # # | */ /* | # # # # # | */ /* | # # # # # # | */ /* | ###### ##### ###### | */ /* | | */ /* | | */ /* | | */ /* |____ _______ __ ____ _ ___ __|KCK/SGA */ /* /A\ \ */ /* ((o)) ) */ /* '-'-------------------------------------------' */ /* */ /* */ /* Copyright 2017, Amduus Information Works, Inc., Scott Auge */ /* All rights reserved. */ /* http://www/amduus.com sauge@amduus.com */ /* */ /* Redistribution and use in source and binary forms, with or without */ /* modification, are permitted provided that the following conditions are */ /* met: */ /* */ /* - Redistributions of source code must retain the above copyright */ /* notice, this list of conditions and the following disclaimer. */ /* - Redistributions in binary form must reproduce the above copyright */ /* notice, this list of conditions and the following disclaimer in */ /* the documentation and/or other materials provided with the */ /* distribution. */ /* - Neither the name of the Amduus Information Works, Inc. nor the */ /* names of its contributors may be used to endorse or promote */ /* products derived from this software without specific prior written */ /* permission. */ /* */ /* THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS */ /* "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT */ /* LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR */ /* A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT */ /* HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, */ /* SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT */ /* LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, */ /* DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY */ /* THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT */ /* (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE */ /* OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. */ /* */ /**************************************************************************/ /* 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 "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 "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...