primer commit subida

PROYECTOS COSTOS/ipdir/b

@@ -0,0 +1,45 @@
+
+
+FUNCTION busca_prod1()
+
+ DEFINE arr_prod ARRAY[500] OF RECORD
+   cod_n          INTEGER,
+   cod_grupo      INTEGER,
+   cod_tipo       INTEGER,
+   cod_sec        INTEGER,
+   descrip_esp    CHAR(30),
+   unidad_med     CHAR(5)
+ END RECORD
+
+OPEN WINDOW busca_2 AT 8,4 WITH FORM "ipfmwd001" ATTRIBUTE (BORDER,FORM LINE
+FIRST + 1,PROMPT LINE LAST)
+
+  CONSTRUCT criterio ON a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_sec
+                   FROM cod_n,cod_grupo,cod_tipo,cod_sec
+
+  LET selec_pt =
+  "SELECT a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_sec,a.descrip_esp, ",
+  "       a.unidad_med FROM iptb00002 a ",
+  "WHERE a.status_t IS NULL AND ",criterio CLIPPED," ORDER BY 5 " 
+
+  PREPARE comando_p FROM selec_pt
+  DECLARE busca_2 CURSOR FOR comando_p
+
+  LET idx = 1
+  FOREACH busca_2 INTO arr_prod[idx].*
+   LET idx = idx + 1
+  END FOREACH
+  CALL SET_COUNT(idx - 1)
+ 
+   DISPLAY ARRAY arr_prod TO s_prod.*
+   LET idx = ARR_CURR()
+
+   LET busca_p.cod_n       = arr_prod[idx].cod_n
+   LET busca_p.cod_grupo   = arr_prod[idx].cod_grupo
+   LET busca_p.cod_tipo    = arr_prod[idx].cod_tipo
+   LET busca_p.cod_sec     = arr_prod[idx].cod_sec
+   LET busca_p.descrip_esp = arr_prod[idx].descrip_esp
+   LET busca_p.unidad_med  = arr_prod[idx].unidad_med 
+
+   CLOSE WINDOW busca_2
+ END FUNCTION