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,43 @@
+IMPORT com
+IMPORT XML
+IMPORT os
+
+FUNCTION recepcion(req,url)
+  DEFINE req com.HttpServiceRequest,
+         resp com.HttpResponse,
+         url,mensaje,contenido,rnc_e,rnc_c,e_ncf,tipoecf,filexml,filefirmado,cmd,tmpfile,recibido STRING,
+         doc xml.DomDocument
+
+
+      TRY   
+         LET doc = xml.DomDocument.Create()
+         CALL doc.setFeature("whitespace-in-element-content",FALSE)
+         LET cmd = req.readFileRequest()
+
+         CALL doc.load(cmd)
+        
+     #   LET filexml = recibido
+
+          
+         LET tmpfile = "./tmp/",os.Path.baseName(cmd),".",os.Path.extension(cmd)
+         
+         CALL doc.save(tmpfile)
+         CALL getxmldata(tmpfile) RETURNING rnc_e,rnc_c,e_ncf,tipoecf
+         CALL doc.load(tmpfile)
+         
+         LET filexml = "./recibidos/recepcion/originales/",rnc_e CLIPPED,e_ncf CLIPPED,".",os.Path.extension(cmd)
+         
+         CALL doc.save(filexml)  
+         CALL formaracuse(rnc_c,rnc_e,e_ncf) RETURNING filexml
+         CALL firmadocumento(filexml) RETURNING filefirmado
+         CALL doc.load(filefirmado)
+         LET mensaje = doc.saveToString()
+         
+         DISPLAY "MENSAJE: ",mensaje
+         RETURN 200,mensaje
+               
+       CATCH
+          RETURN 401,"Falla en el proceso del file"
+       END TRY
+  
+END FUNCTION