Mueve ipdir (Productos Terminados) de PROYECTOS a PROYECTO

Instruccion de Johnny: todos los directorios de fuentes de inventario deben migrarse de la carpeta temporal PROYECTOS a la carpeta real PROYECTO, ya que PROYECTOS sera eliminada. Se elimino tambien un archivo suelto sin relacion llamado "ipdir" que existia en PROYECTO (del commit inicial) y bloqueaba el nombre de la carpeta. Co-Authored-By: Claude Sonnet 5 <noreply@anthropic.com>
2026-09-04 09:29:01 -04:00
parent 4532d51e4b
commit b6085d4140
358 changed files with 0 additions and 3213 deletions
@@ -0,0 +1,85 @@
+GLOBALS "ipprgb000.4gl"
+  DEFINE xcodigo VARCHAR(50)
+
+FUNCTION impdocumento(numeroid,codmov)
+   DEFINE numeroid,codmov INT
+
+    CALL buscadoc(numeroid,codmov) RETURNING p_iptb57.*,arr_iptb58
+    
+    LET r_filename = "ipprmt020.4rp"
+    iF fgl_report_loadCurrentSettings(r_filename) THEN    -- load the .4rp file
+    
+         LET r_output="PDF"
+         LET preview=1
+         CALL fgl_report_selectDevice(r_output)                          -- changing default
+         CALL fgl_report_selectPreview(preview)                          -- changing default
+         LET handler = fgl_report_commitCurrentSettings()    -- commit changes
+  ELSE 
+     RETURN
+   END IF
+   START REPORT requiere TO XML HANDLER HANDLER
+   
+   FOR idx = 1 TO arr_iptb58.getLength()
+       IF arr_iptb58[idx].cod_Sec IS NOT NULL THEN
+           LET xcodigo =arr_iptb58[idx].cod_n USING '&&&&&','-',
+                         arr_iptb58[idx].cod_grupo USING '&&&&&','-',
+                         arr_iptb58[idx].cod_tipo USING '&&&&&&','-',
+                         arr_iptb58[idx].cod_sec USING '&&&&&&&'
+                         
+           OUTPUT TO REPORT requiere(arr_iptb58[idx].*,despiece[idx].*, xcodigo)
+         
+       END IF
+       
+   END FOR
+   FINISH REPORT requiere
+   LET tienedespiece = FALSE
+END FUNCTION
+
+REPORT requiere(detalle,xdespiece,codigo)
+  DEFINE hora STRING,
+    detalle RECORD
+             area        INT,
+             cod_n,cod_grupo,cod_tipo,cod_sec INT,
+             descripcion VARCHAR(100),
+             unidad_med VARCHAR(4),
+             cantidad_1,cantidad,cantidad_o1,cantidad1,factor_conv DEC(12,5)       
+    END RECORD,
+      xdespiece RECORD
+        id_etiqueta   SMALLINT,
+        cod_n         SMALLINT,
+        cod_grupo     SMALLINT,
+        cod_tipo      SMALLINT,
+        cod_sec       SMALLINT,
+        lado_1        DEC(12,5),
+        lado_2        DEC(12,5),
+        lado_3        DEC(12,5),
+        cantidad      DEC(12,5),
+        medida        DEC(12,5),
+        secuencia,id_despiece     INT,
+        bodega       SMALLINT
+        
+    END RECORD,
+    codigo VARCHAR(50),
+    
+    x INT,
+    etiqueta VARCHAR(100)
+    
+    ORDER BY codigo
+  FORMAT
+   FIRST PAGE HEADER
+       SELECT a.nombre INTO p_companias.nombre FROM companias a
+       LET hora = CURRENT 
+       PRINTX hora,p_companias.nombre              
+    BEFORE GROUP OF codigo
+       PRINTX detalle.*,p_iptb57.*,
+              nombreMov,nombreBodega,nombreBodegaDestino,nombreUsuario
+     
+   ON EVERY ROW
+                SELECT a.descripcion INTO etiqueta FROM vetb00026 a
+                WHERE a.codid = xdespiece.id_etiqueta
+
+          
+                LET total_cantidad = total_cantidad + xdespiece.cantidad
+               
+                PRINTX codigo,xdespiece.*,tienedespiece,etiqueta,total_cantidad,total_medida
+END REPORT