Commit inicial: fuentes MBS ERP (Genero 6) + .gitignore + docs/SETUP_PC_MBS.md

PROYECTO/nodir/noprfu000.4gl

@@ -0,0 +1,216 @@
+GLOBALS
+ "noprgb000.4gl"
+ 
+FUNCTION proceso()
+LET formulario = NULL
+#LET formulario = FGL_GETENV("FORMS") CLIPPED,"\\nodir\\" CLIPPED,"nofmrp001"
+
+OPEN WINDOW procesa AT 13,8 WITH FORM "nofmpc001" ATTRIBUTE(BORDER,
+                                                  FORM LINE FIRST + 1,
+                                                  MESSAGE LINE LAST)
+#LET formulario = FGL_GETENV("FORMS") CLIPPED,"\\nodir\\" 
+LET per_nomi.num_nomi = NULL
+LET per_nomi.tipo_emp = NULL 
+
+INPUT BY NAME per_nomi.num_nomi,per_nomi.tipo_emp
+  AFTER FIELD tipo_emp
+    SELECT UNIQUE a.tipo_emp FROM notb00010 a
+    WHERE a.num_nomi = per_nomi.num_nomi AND
+          a.tipo_emp = per_nomi.tipo_emp
+
+    IF STATUS = NOTFOUND THEN
+       LET numero_msg = 3
+       CALL msg(numero_msg)
+       NEXT FIELD tipo_emp
+    END IF
+END INPUT
+IF not int_flag THEN
+   MESSAGE "En Proceso..."
+   UPDATE notb00010 SET status_t = NULL,
+                        us_mod = user,
+                        fech_mod = current
+   WHERE num_nomi = per_nomi.num_nomi AND
+         tipo_emp = per_nomi.tipo_emp
+END IF
+MESSAGE "             "
+CLOSE WINDOW procesa
+END FUNCTION
+
+FUNCTION nolocalidades()
+ DEFINE klocalidad SMALLINT,kdescripcion CHAR(30)
+         
+     
+  #LET pcondicion = ui.combobox.forname("formonly.cond_pago")
+  DECLARE busca_local CURSOR FOR
+    SELECT a.sucid,a.sucnombre FROM sucursales a
+    
+   CALL plocalidad.clear()
+   
+  FOREACH busca_local INTO klocalidad,kdescripcion
+   CALL plocalidad.additem(klocalidad,kdescripcion)
+  END FOREACH
+
+END FUNCTION
+
+FUNCTION paises()
+ DEFINE ppais SMALLINT,pdescripcion CHAR(30)
+         
+     
+  
+  DECLARE busca_pais CURSOR FOR
+    SELECT a.cod_zona,a.descrip FROM vetb00008 a
+    
+   CALL kpais.clear()
+   
+  FOREACH busca_PAIS INTO ppais,pdescripcion
+   CALL kpais.additem(ppais,pdescripcion)
+  END FOREACH
+
+END FUNCTION
+
+FUNCTION ciudades(pcodPais)
+ DEFINE pciudad SMALLINT,pdescripcion CHAR(30),
+        pcodPais SMALLINT
+  
+  DECLARE busca_ciudad CURSOR FOR
+    SELECT a.cod_provincia,a.nombre_provincia FROM vetb00020 a,vetb00009 b
+    WHERE a.cod_provincia = b.cod_provincia AND
+          b.cod_zona = pcodPais
+    
+   CALL kciudad.clear()
+   
+  FOREACH busca_ciudad INTO pciudad,pdescripcion
+   CALL kciudad.additem(pciudad,pdescripcion)
+  END FOREACH
+
+END FUNCTION
+{
+FUNCTION departamentos()
+ DEFINE pdepartamento SMALLINT,pdescripcion CHAR(30),
+        kdepto ui.ComboBox
+
+  LET kdepto = ui.ComboBox.forName("formonly.departamento")  
+  CALL kdepto.clear()
+  
+  DECLARE busca_dpto CURSOR FOR
+    SELECT a.departamento,a.nom_dpto FROM adtb00001 a
+    WHERE a.status_t IS NULL
+    ORDER BY a.nom_dpto
+    
+  FOREACH busca_dpto INTO pdepartamento,pdescripcion
+   CALL kdepto.additem(pdepartamento,pdescripcion)
+  END FOREACH
+
+END FUNCTION
+}
+FUNCTION puestos()
+ DEFINE pPuestos SMALLINT,pdescripcion CHAR(30)
+ 
+  LET kpuesto=ui.ComboBox.forName("formonly.cod_puesto") 
+
+ CALL kpuesto.clear()  
+  
+  
+  DECLARE busca_puestos CURSOR FOR
+    SELECT a.cod_puesto,a.nom_puesto FROM adtb00004 a 
+    WHERE a.status_t IS NULL
+    ORDER BY a.nom_puesto
+   
+   
+  FOREACH busca_puestos INTO pPuestos,pdescripcion
+   CALL kpuesto.additem(pPuestos,pdescripcion)
+  END FOREACH
+
+END FUNCTION
+
+
+FUNCTION nivel_educacion()
+ DEFINE pNivel SMALLINT,pdescripcion CHAR(30)
+    
+  LET knivel = ui.ComboBox.forName("formonly.nivel_emp")
+  CALL knivel.clear()
+  
+  DECLARE busca_nivel CURSOR FOR
+    SELECT a.cod_educa,a.nom_educa FROM adtb00005 a 
+    WHERE a.status_t IS NULL
+    
+   CALL knivel.clear()
+   
+  FOREACH busca_nivel INTO pnivel,pdescripcion
+   CALL knivel.additem(pnivel,pdescripcion)
+  END FOREACH
+
+END FUNCTION
+
+FUNCTION nacionalidad()
+ DEFINE pcod_nac SMALLINT,pdescripcion CHAR(30)
+        
+  CALL knac.clear()
+  
+  DECLARE busca_nac CURSOR FOR
+    SELECT a.cod_nac,a.nom_nac FROM adtb00007 a
+    WHERE a.status_t IS null
+    
+  FOREACH busca_nac INTO pcod_nac,pdescripcion
+   CALL knac.additem(pcod_nac,pdescripcion)
+  END FOREACH
+
+END FUNCTION
+
+FUNCTION parientes()
+ DEFINE pcod_par SMALLINT, pdesc_par char(11)
+        
+  CALL kpar.clear()
+  
+  DECLARE busca_parientes CURSOR FOR
+    SELECT a.cod_par,a.desc_par FROM adtb00025 a
+
+    
+  FOREACH busca_parientes INTO pcod_par,pdesc_par
+   CALL kpar.additem(pcod_par,pdesc_par)
+  END FOREACH
+
+END FUNCTION
+
+FUNCTION busca_depto()
+ DEFINE buscar_depto DYNAMIC ARRAY OF RECORD
+      departamento  SMALLINT,
+      nom_dpto      VARCHAR(50)
+  END RECORD,
+  xdepto SMALLINT,
+  xnombre VARCHAR(50)
+
+ OPEN WINDOW busqueda AT 10,10 WITH FORM "adfmwd001"
+       ATTRIBUTE (BORDER,FORM LINE FIRST + 2, comment line last)
+   CONSTRUCT criterio ON adtb00001.nom_dpto FROM adtb00001.nom_dpto
+   
+     LET selec1 = "SELECT departamento,nom_dpto FROM adtb00001 ",
+                 " WHERE ",
+                 " status_t is null AND ",
+                 criterio clipped,
+                 "ORDER BY 1 "
+
+ PREPARE busco FROM selec1
+ DECLARE local CURSOR FOR busco
+
+  LET idx = 1
+ FOREACH local INTO buscar_depto[idx].*
+    IF status = NOTFOUND THEN
+      LET numero_msg = 3
+      CALL msg(numero_msg)
+       EXIT FOREACH
+    END IF
+
+LET idx = idx + 1
+END FOREACH
+
+  CALL set_count(idx-1)
+  DISPLAY ARRAY buscar_depto TO s_depto.*
+
+  LET idx = arr_curr()
+  LET xdepto =  buscar_depto[idx].departamento
+  LET xnombre = buscar_depto[idx].nom_dpto
+
+ CLOSE WINDOW busqueda
+ RETURN xdepto,xnombre
+END FUNCTION