41 lines
1.1 KiB
Plaintext
41 lines
1.1 KiB
Plaintext
|
|
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
|