16 lines
420 B
Plaintext
16 lines
420 B
Plaintext
FUNCTION tipoorden()
|
|
DEFINE ptipo ui.combobox,
|
|
ktipo CHAR(2),kdescripcion CHAR(30)
|
|
LET ptipo = ui.combobox.forname("formonly.tipo")
|
|
CALL ptipo.clear()
|
|
DECLARE buscaTipo CURSOR FOR
|
|
SELECT a.tipo,a.descripcion INTO ktipo,kdescripcion FROM cotb00010 a
|
|
ORDER BY a.descripcion
|
|
|
|
FOREACH buscatipo
|
|
CALL ptipo.additem(ktipo,kdescripcion)
|
|
END FOREACH
|
|
CALL ptipo.additem(10,'ACTIVO')
|
|
|
|
END FUNCTION
|