primer commit subida

PROYECTO/codir/pais

@@ -0,0 +1,40 @@
+
+FUNCTION busca_pais()
+ OPEN WINDOW busqueda1 AT 10,10 WITH FORM "vefmwd311"
+       ATTRIBUTE (BORDER,FORM LINE FIRST + 1, comment line last)
+
+   CONSTRUCT criterio ON cotb00018.cod_pais,cotb00018.nom_pais
+             FROM cotb00018.cod_pais,cotb00018.nom_pais
+    IF int_flag THEN
+     LET numero_msg = 2
+     CALL msg(numero_msg)
+     LET int_flag = false
+     RETURN
+END IF
+  
+     LET selec = "SELECT cod_pais,nom_pais FROM cotb00018 ",
+                 "WHERE status_t is null AND ",criterio clipped,
+                 "ORDER BY 1 "
+
+ PREPARE localiza1 FROM selec
+ DECLARE country CURSOR FOR localiza1
+
+  LET idx = 1
+ FOREACH country INTO pais_wd[idx].*
+    IF status = NOTFOUND THEN
+       LET existe = "N"
+       EXIT FOREACH
+    END IF
+
+LET idx = idx + 1
+END FOREACH
+
+  CALL set_count(idx-1)
+  DISPLAY ARRAY pais_wd TO consart.*
+    LET curr1 = arr_curr()
+
+    LET fact_gral.zona        = pais_wd[curr1].cod_pais 
+    LET nombre                = pais_wd[curr1].nom_pais
+    LET descrip1              = nombre
+ CLOSE WINDOW busqueda1
+END FUNCTION