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,40 @@
+FUNCTION ordenpendiente(pnumoc,codn,codgrupo,codtipo,codsec,xarea)
+  DEFINE pnumoc,codn,codgrupo,codtipo,codsec,xarea INT,
+         cantidadOrden,cantidadDespachada,pendiente DEC(12,5),
+         selec STRING
+
+         # CHEQUEA SI LA ORDEN ESTA EN CRMinDATA
+           LET selec = 'SELECT a.num_oc FROM CRMinData.dbo.ordenes_master a WHERE a.num_oc = ? '
+           PREPARE buscar FROM selec
+           EXECUTE buscar USING pnumoc
+           IF STATUS = NOTFOUND THEN
+              RETURN 0
+           END IF
+         # BUSCA CANTIDAD ORDEN
+           LET cantidadOrden = 0
+           SELECT ISNULL(SUM(a.cantidad),0) INTO cantidadOrden FROM prtb00013 a
+           WHERE (a.num_oc = pnumoc) AND
+                 (a.cod_n = codn AND
+                 a.cod_grupo = codgrupo AND
+                 a.cod_tipo = codtipo AND
+                 a.cod_sec = codsec) AND
+                 a.area = xarea
+
+         #BUSCA CANTIDAD DESPACHADA
+           LET cantidadDespachada =0
+          SELECT ISNULL(SUM(a.cantidad_2*-1),0) INTO cantidadDespachada
+          FROM iptb00006 a,iptb00005 d
+          WHERE (a.num_oc = pnumoc) AND
+                (a.cod_n = codn AND 
+                a.cod_grupo=codgrupo AND
+                a.cod_tipo=codtipo AND 
+                a.cod_sec=codsec) AND
+                a.area = xarea AND
+                (a.cod_mov = d.cod_mov) AND
+                (d.control_despacho = 'SI' OR d.control_devolucion = 'SI') AND
+                a.status_t IS NULL
+
+        LET pendiente = cantidadOrden - cantidadDespachada        
+  
+  RETURN pendiente
+END FUNCTION