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,73 @@
+IMPORT util
+
+FUNCTION rnc(xrnc)
+  DEFINE prnc  RECORD
+    nombre_cliente  STRING,
+    direccion       STRING,
+    cod_msg         SMALLINT,
+    mensaje_out     STRING
+  END RECORD,
+   selec STRING,
+   xrnc STRING
+
+   DEFINE data RECORD
+     usuario    VARCHAR(50),
+     clave      VARCHAR(50),
+     rnc        VARCHAR(11),
+     tipo_documento SMALLINT
+   END RECORD
+  
+   CALL util.JSON.parse(xrnc,data)
+
+WHENEVER ERROR CONTINUE
+   CONNECT TO "smarmotech" USER data.usuario USING data.clave
+        IF STATUS < 0 THEN
+         LET prnc.cod_msg=STATUS
+         LET prnc.mensaje_out=  'ERROR EN USUARIO CONECTANDOSE A LA BASE DE DATOS'
+         RETURN util.JSON.stringify(prnc)
+      END IF
+      DISPLAY "TIPO DOC ",data.tipo_documento," RNC ",data.rnc
+   #  IF data.tipo_documento IS NULL OR data.tipo_documento = 0 THEN
+   #       LET prnc.cod_msg = -1
+   #       LET prnc.mensaje_out='TIPO DOCUMENTO EN BLANCO'
+   #       DISCONNECT CURRENT
+   #       RETURN util.JSON.stringify(prnc)          
+   #  END IF 
+   #  IF data.tipo_documento = 1 THEN
+   #    IF LENGTH(data.rnc) <> 9 THEN
+   #       LET prnc.cod_msg = 77
+   #       LET prnc.mensaje_out='LONGITUD DEL RNC DEBE SER 9'
+   #       DISCONNECT CURRENT
+   #       RETURN util.JSON.stringify(prnc)          
+   #    END IF
+   #  ELSE
+   #     IF data.tipo_documento = 2 THEN
+   #        IF LENGTH(data.rnc) <> 11 THEN
+   #           LET prnc.cod_msg = 77
+   #           LET prnc.mensaje_out='LONGITUD DEL RNC DEBE SER 9'
+   #           DISCONNECT CURRENT
+   #           RETURN util.JSON.stringify(prnc)          
+   #        END IF
+   #     END IF
+   #   END IF
+             
+   #IF data.tipo_documento = 1 THEN     
+   LET selec=
+      "SELECT RTRIM(a.razon_social),RTRIM(a.calle)+' '+RTRIM(a.no_local)+' '+RTRIM(a.sector) FROM DGII.dbo.empresas a ",
+      "WHERE a.rnc ='",data.rnc CLIPPED,"'"
+
+  
+   PREPARE comando FROM selec
+   EXECUTE comando INTO prnc.nombre_cliente,prnc.direccion USING xrnc
+   IF STATUS = NOTFOUND THEN
+      LET prnc.cod_msg=400
+      LET prnc.mensaje_out = 'REGISTRO NO EXISTE'
+   ELSE
+      LET prnc.cod_msg=200
+      LET prnc.mensaje_out='EXISTE EN DEV'
+   END IF
+  #END IF   
+ DISCONNECT CURRENT
+   
+ RETURN util.JSON.stringify(prnc)
+END FUNCTION