30 lines
681 B
Plaintext
30 lines
681 B
Plaintext
FUNCTION printers()
|
|
|
|
DEFINE i INT
|
|
|
|
DEFINE
|
|
pprinters SMALLINT,
|
|
pdescripcion CHAR(30),
|
|
kprinters ui.ComboBox
|
|
|
|
DEFINE impresoras ARRAY[3] OF STRING =
|
|
["formonly.printerdefecto",
|
|
"formonly.otro_printer",
|
|
"formonly.printer_cheque"]
|
|
|
|
FOR i = 1 TO 3
|
|
|
|
LET kprinters = ui.ComboBox.forName(impresoras[i])
|
|
CALL kprinters.clear()
|
|
|
|
DECLARE busca_printer CURSOR FOR
|
|
SELECT a.codigo, a.nombre FROM prttb00001 a
|
|
|
|
FOREACH busca_printer INTO pprinters, pdescripcion
|
|
CALL kprinters.additem(pprinters, pdescripcion)
|
|
END FOREACH
|
|
|
|
END FOR
|
|
|
|
END FUNCTION
|