
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
