Commit inicial: fuentes MBS ERP (Genero 6) + .gitignore + docs/SETUP_PC_MBS.md

2026-08-18 20:59:52 -04:00
commit 454973e269
5978 changed files with 2664094 additions and 0 deletions
@@ -0,0 +1,28 @@
+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