Commit inicial: fuentes MBS ERP (Genero 6) + .gitignore + docs/SETUP_PC_MBS.md
This commit is contained in:
@@ -0,0 +1,17 @@
|
||||
|
||||
FUNCTION tiposModificacion()
|
||||
DEFINE ketiquetas SMALLINT, detiquetas CHAR(30),
|
||||
petiquetas ui.ComboBox
|
||||
|
||||
LET petiquetas = ui.combobox.forname("formonly.idtipo")
|
||||
|
||||
DECLARE betiquetas CURSOR FOR
|
||||
SELECT a.idtipo,a.titulo FROM cctb00037 a
|
||||
ORDER BY a.idtipo
|
||||
CALL petiquetas.clear()
|
||||
|
||||
FOREACH betiquetas INTO ketiquetas,detiquetas
|
||||
CALL petiquetas.additem(ketiquetas,detiquetas)
|
||||
END FOREACH
|
||||
|
||||
END FUNCTION
|
||||
Reference in New Issue
Block a user