primer commit subida

PROYECTO/otrodir/codigoModificacion.4gl

@@ -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