Files
MBS/WEBSERVICES/test/aprobacion.4gl
T

23 lines
712 B
Plaintext

IMPORT com
IMPORT XML
PUBLIC FUNCTION aprobacion() ATTRIBUTES( WSGet,
WSPath="/aprobacioncomercial/api/ecf",
WSDescription="Api para la aprobacion comercial de los e-NCF",
WSThrows="400:no pude aceptar la aprobacion" )
RETURNS STRING
DEFINE req com.HttpServiceRequest
DEFINE doc xml.DomDocument
# LET doc = xml.DomDocument.Create()
# CALL doc.setFeature("whitespace-in-element-content",FALSE)
CALL req.sendTextResponse(200,"","Correcto")
# DISPLAY "filexml ",filexml
RETURN "200"
END FUNCTION