27 lines
691 B
Plaintext
27 lines
691 B
Plaintext
{
|
|
====================================================================
|
|
PROGRAMA : CCFUNCIONES
|
|
OBJETIVO : ALMACENAR LAS FUNCIONES GENERALES DEL SISTEMA CC
|
|
PROGRAMADOR : ING. JUAN SOTO
|
|
FECHA CREACION : 5/11/2010
|
|
====================================================================
|
|
}
|
|
|
|
FUNCTION localidad()
|
|
|
|
DEFINE klocalidad SMALLINT, dlocalidad CHAR(30),
|
|
plocalidad ui.combobox
|
|
|
|
LET plocalidad = ui.combobox.forname("formonly.localidad")
|
|
|
|
DECLARE blocalidad CURSOR FOR
|
|
SELECT a.ventas,a.descripcion FROM vetb00061 a
|
|
CALL pventas.clear()
|
|
|
|
FOREACH bventas INTO kventas,dventas
|
|
CALL pventas.additem(kventas,dventas)
|
|
END FOREACH
|
|
|
|
END FUNCTION
|
|
END FUNCTION
|