Avanzar en registro y correccion de ipprmt044 (Productos Terminados)

- Registrar 8 archivos faltantes en FUNCIONES_IP (ipautorizareq, codigoModificacion,
  piking, conduces, ubicacionH, ipactualizareqtrx, loadDespiece, LlenarUbicaciones)
- Agregar dependencias FUNCIONESREPORT y FUNCIONESEMAIL a ipprmt044 (defecto,
  configureOutput, enviaemail ya existian en el proyecto)
- Resolver colision de nombres: renombrar REPORT/FUNCTION duplicados en
  ipautorizareq.4gl (requiere->requiereAutoriza, buscadoc->buscadocAutoriza,
  impdocumento->impdocumentoAutoriza) que chocaban con imprequisiciones.4gl
  y buscarequisicion.4gl
- Sincronizar registros locales desactualizados: x RECORD en ipautorizareq.4gl
  (faltaba us_crea) y x/z RECORD del REPORT formu4 en ipprgb000.4gl (faltaban
  bodega_destino, factura, area, descripcion_area, existencia, disponible,
  codigo_bloque, id_kit) respecto a los registros globales reales
- Migrar ipprmt020_1.4rp desde PROYECTOS y corregir su RWFglReportName

Pendiente: funcion 'fotos' (12 parametros) no existe en ningun archivo del
proyecto, consultado con Johnny

PROYECTO/ipdir/ipautorizareq.4gl

@@ -77,7 +77,7 @@ FUNCTION ipautorizadas(xusuario)
           END IF
        ON ACTION imprimir ATTRIBUTE(TEXT="Imprimir", IMAGE="printer")
             IF arr_busqueda1[arr_curr()].numeroid > 0 THEN
-                CALL buscadoc(arr_busqueda1[arr_curr()].numeroid,arr_busqueda1[arr_curr()].cod_mov1)
+                CALL buscadocAutoriza(arr_busqueda1[arr_curr()].numeroid,arr_busqueda1[arr_curr()].cod_mov1)
                  LET data.rnumeroDoc            = arr_busqueda1[arr_curr()].numeroid
                  LET data.rcodMov               = arr_busqueda1[arr_curr()].cod_mov1
                  LET data.rtipo_cliente         = arr_busqueda1[arr_curr()].rtipo_cliente
@@ -88,7 +88,7 @@ FUNCTION ipautorizadas(xusuario)
                  LET data.bodega_destino        = arr_busqueda1[arr_curr()].bodega_destino
                  LET nombreUsuario              = arr_busqueda1[arr_curr()].usuario  
                  
-                CALL impdocumento()      
+                CALL impdocumentoAutoriza()
             END IF
        ON ACTION procesar ATTRIBUTE(TEXT="Procesa",IMAGE="")
           IF arr_busqueda1[arr_curr()].numeroid > 0 THEN
@@ -172,7 +172,7 @@ FUNCTION buscadataReq(pusuario)
              
 END FUNCTION
 
-FUNCTION buscadoc(numid,codmov)
+FUNCTION buscadocAutoriza(numid,codmov)
    DEFINE numid,codmov INT
    
    LET vendedor = null
@@ -235,7 +235,7 @@ FUNCTION buscadoc(numid,codmov)
           LET idx = idx + 1                        
       END FOREACH                  
 END FUNCTION
-FUNCTION impdocumento()
+FUNCTION impdocumentoAutoriza()
     DEFINE idx_l INT,
            xcodigo VARCHAR(50)
     LET r_filename = "ipprmt020_1.4rp"
@@ -251,7 +251,7 @@ FUNCTION impdocumento()
   ELSE 
      RETURN
    END IF
-   START REPORT requiere TO XML HANDLER HANDLER
+   START REPORT requiereAutoriza TO XML HANDLER HANDLER
    
    FOR idx = 1 TO arr_iptb58.getLength()
    
@@ -261,15 +261,15 @@ FUNCTION impdocumento()
                          arr_iptb58[idx].cod_tipo USING '&&&&&&','-',
                          arr_iptb58[idx].cod_sec USING '&&&&&&&'
                          
-           OUTPUT TO REPORT requiere(p_iptb57.*,arr_iptb58[idx].*,despiece1[idx].*, xcodigo)
-         
+           OUTPUT TO REPORT requiereAutoriza(p_iptb57.*,arr_iptb58[idx].*,despiece1[idx].*, xcodigo)
+
        END IF
-       
+
    END FOR
-   FINISH REPORT requiere
+   FINISH REPORT requiereAutoriza
 END FUNCTION
 
-REPORT requiere(x,detalle,xdespiece,codigo)
+REPORT requiereAutoriza(x,detalle,xdespiece,codigo)
   DEFINE hora STRING,
     detalle RECORD
              area        INT,
@@ -308,7 +308,8 @@ REPORT requiere(x,detalle,xdespiece,codigo)
        estado              VARCHAR(50),
        ruta_documento      ,
        url_file           ,
-       idestado           VARCHAR(200) 
+       idestado           VARCHAR(200),
+       us_crea             VARCHAR(50)
     END RECORD,
 
     etiqueta VARCHAR(100),

PROYECTO/ipdir/ipprgb000.4gl

@@ -546,6 +546,7 @@ DEFINE x RECORD
     conduce_no    LIKE iptb00006.conduce_no,
     descrip_mov   CHAR(40), #LIKE intb00005.descrip_mov,
     bodega        LIKE iptb00006.bodega,
+    bodega_destino SMALLINT,
     detalle       LIKE iptb00006.detalle,
     cod_sp        LIKE iptb00006.cod_sp,
     cod_sp_sec    LIKE iptb00006.cod_sp_sec,
@@ -554,10 +555,13 @@ DEFINE x RECORD
     cod_mov1      SMALLINT,
     entrada       INT,
     descrip_mov1  CHAR(40),
-    descrip4      CHAR(30)
+    descrip4      CHAR(30),
+    factura       INT
  END RECORD
 
 DEFINE z RECORD
+    area              SMALLINT,
+    descripcion_area  VARCHAR(30),
     cod_n        LIKE intb00003.cod_n,
     cod_grupo    LIKE intb00003.cod_grupo,
     cod_tipo     LIKE intb00003.cod_tipo,
@@ -565,8 +569,12 @@ DEFINE z RECORD
     cantidad_1   LIKE iptb00006.cantidad_1,
     cantidad_2   LIKE iptb00006.cantidad_2,
     cantidad_p   DEC(12,5),
-    unidad_med   LIKE iptb00002.unidad_med,      
-    descrip_esp  CHAR(70)
+    unidad_med   LIKE iptb00002.unidad_med,
+    descrip_esp  CHAR(70),
+    existencia   DEC(12,5),
+    disponible   DEC(12,5),
+    codigo_bloque CHAR(15),
+    id_kit       INT
  END RECORD,
    etiqueta,pcalle,purbanizacion,pcasa_num,ptelefono,pcelular,nombre,apellido CHAR(30),
    plado1,plado2,plado3,pcantidad,pmedida DEC(12,5),