28 lines
726 B
Plaintext
28 lines
726 B
Plaintext
IMPORT com
|
|
IMPORT XML
|
|
|
|
FUNCTION aprobacion(req)
|
|
|
|
|
|
DEFINE req com.HttpServiceRequest
|
|
DEFINE doc xml.DomDocument,
|
|
archivo string
|
|
|
|
WHENEVER ERROR CONTINUE
|
|
LET doc = xml.DomDocument.Create()
|
|
CALL doc.setFeature("whitespace-in-element-content",FALSE)
|
|
LET doc = req.readXmlRequest()
|
|
|
|
IF STATUS = 0 THEN
|
|
CALL doc.save("acuserecibido.xml")
|
|
|
|
RETURN 200, "Satisfactorio"
|
|
ELSE
|
|
RETURN 400,"Insatisfactorio"
|
|
|
|
END IF
|
|
|
|
DISPLAY "filexml ",archivo
|
|
|
|
|
|
END FUNCTION |