primer commit subida

PROYECTO/ccdir - Copy/ccfuncinones.4gl

@@ -0,0 +1,120 @@
+GLOBALS "ccprgb000.4gl"
+
+FUNCTION consulta_empleados()  
+ OPEN WINDOW busqueda2 AT 7,12  WITH FORM "vefmwd001"  
+      ATTRIBUTE (BORDER,FORM LINE FIRST + 2,COMMENT LINE LAST,MESSAGE LINE LAST)
+
+ LET int_flag = false
+ CONSTRUCT criterio ON a.nom1_emp FROM descrip6 
+   
+ LET selec2 = "SELECT num_emp,a.nom1_emp,a.apell1_emp ",
+              "FROM  adtb00003 a",
+              "WHERE a.status_t is null AND ",criterio clipped," ORDER BY 1 "
+
+ IF int_flag THEN
+    LET numero_msg = 2
+    CALL msg(numero_msg)
+    GO TO salir_consulta_e
+ END IF
+
+ PREPARE busca_empleados FROM selec2
+         IF status >= 0 THEN
+            IF status = notfound THEN
+               LET numero_msg = 3
+               CALL msg(numero_msg)
+            END IF
+         ELSE
+         END IF   
+
+ DECLARE buscar_empleados CURSOR FOR busca_empleados 
+         LET idx = 1
+
+ FOREACH buscar_empleados INTO arr_empleados[idx].*
+         IF status = NOTFOUND THEN
+            EXIT FOREACH
+         END IF
+
+         IF int_flag THEN
+            LET numero_msg = 2
+            CALL msg(numero_msg)
+            EXIT FOREACH
+         END IF
+
+   LET empleados[idx].num_emp = arr_empleados[idx].num_emp 
+   LET empleados[idx].descrip6 = 
+   arr_empleados[idx].nom1_emp clipped," ",arr_empleados[idx].apell1_emp clipped
+         LET idx = idx + 1
+ END FOREACH
+
+    CALL set_count(idx-1)
+    MESSAGE "         <Esc> Selecciona Empleado donde esta el cursor" 
+    DISPLAY ARRAY empleados TO s_empleados.*
+    LET curr1 = arr_curr()
+
+    LET transportista.sec_transp = empleados[curr1].num_emp    
+    LET descrip6                 = empleados[curr1].descrip6 
+
+LABEL salir_consulta_e:
+ CLOSE WINDOW busqueda2
+
+END FUNCTION 
+
+FUNCTION consulta_clientes()  
+ OPEN WINDOW busqueda AT 7,12  WITH FORM "vefmwd002"  
+      ATTRIBUTE (BORDER,FORM LINE FIRST + 2,COMMENT LINE LAST,MESSAGE LINE LAST)
+
+ LET int_flag = false
+ CONSTRUCT criterio ON a.nombre FROM nombre 
+ IF int_flag THEN
+    LET numero_msg = 2
+    CALL msg(numero_msg)
+    GO TO salir_consulta_c
+ END IF
+   
+ LET selec2 = "SELECT a.tipo_cliente, a.sec_cliente, a.nombre ",
+              "FROM vetb00004 a ",
+              "WHERE a.status_t is null AND ",criterio clipped," ORDER BY 1,2 "
+
+ PREPARE busca_clientes FROM selec2
+ DECLARE buscar_clientes CURSOR FOR busca_clientes 
+         LET idx = 1
+
+ FOREACH buscar_clientes INTO arr_clientes[idx].*
+
+         IF int_flag THEN
+            LET numero_msg = 2
+            CALL msg(numero_msg)
+            EXIT FOREACH
+         END IF
+
+         LET idx = idx + 1
+ END FOREACH
+
+    CALL set_count(idx-1)
+    MESSAGE "   <Esc> Selecciona Cliente donde esta el cursor" 
+    DISPLAY ARRAY arr_clientes TO s_clientes.*
+    LET curr1 = arr_curr()
+
+    LET cliente_dir.tipo_cliente = arr_clientes[curr1].tipo_cliente 
+    LET cliente_dir.sec_cliente  = arr_clientes[curr1].sec_cliente 
+    LET descrip1                 = arr_clientes[curr1].nombre 
+
+LABEL salir_consulta_c:
+ CLOSE WINDOW busqueda
+
+END FUNCTION 
+ 
+FUNCTION cventas()
+ DEFINE  kventas SMALLINT, dventas CHAR(30)
+ 
+ #LET pventas = ui.combobox.forname("formonly.ventas")
+ 
+ DECLARE bventas CURSOR FOR
+   SELECT a.ventas,a.descripcion FROM vetb00061 a
+ CALL pventas.clear()
+ 
+ FOREACH bventas INTO kventas,dventas
+  CALL pventas.additem(kventas,dventas)
+ END FOREACH
+ CALL pventas.additem(99,"TODAS") 
+END FUNCTION