primer commit subida

PROYECTOS/ipdir - Copy/f

@@ -0,0 +1,25 @@
+
+
+FUNCTION busca_cliente()
+LET int_flag = FALSE
+  
+OPEN WINDOW cliente AT 10,9 WITH FORM "ipfmwd009" 
+ATTRIBUTE(BORDER,FORM LINE FIRST + 2)
+CONSTRUCT BY NAME criterio ON a.tipo_cliente,a.sec_cliente,a.nombre
+
+LET selec = "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 comando3 FROM selec 
+DECLARE comp3 CURSOR FOR comando3
+
+LET idx = 1
+FOREACH comp3 INTO clientes[idx].*
+ LET idx = idx + 1
+END FOREACH
+CALL SET_COUNT(idx - 1)
+
+DISPLAY ARRAY clientes TO s_cliente.*
+LET idx = ARR_CURR()
+CLOSE WINDOW cliente
+END FUNCTION