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,27 @@
+FUNCTION entregas_parciales(xorden,xnum_req ,
+          xcodn,xcodgrupo,xcodtipo,xcodsec)
+   DEFINE xorden,
+          xnum_req,idx INT,
+          xcodn,xcodgrupo,xcodtipo,xcodsec SMALLINT
+ DEFINE zbusca_parcial DYNAMIC ARRAY OF RECORD
+        secuencia     INT,
+        cod_n         SMALLINT,
+        cod_grupo     SMALLINT,
+        cod_tipo      SMALLINT,
+        cod_sec       SMALLINT,
+        cantidad      DEC(12,5),
+        fech_emb      DATE,
+        fech_ent      DATE
+  END RECORD
+
+  DECLARE entregas CURSOR FOR
+    SELECT a.secuencia,a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_sec,a.cantidad,a.fech_emb,a.fech_ent
+    FROM cotb00025 a WHERE a.num_oc = xorden AND a.num_req = xnum_req AND
+                           a.cod_n = xcodn AND a.cod_grupo = xcodgrupo 
+                       AND a.cod_tipo = xcodtipo AND a.cod_sec = xcodsec
+   LET idx =1
+   FOREACH entregas INTO zbusca_parcial[idx].*
+     LET idx = idx + 1
+   END FOREACH   
+  RETURN zbusca_parcial
+END FUNCTION