Commit inicial: fuentes MBS ERP (Genero 6) + .gitignore + docs/SETUP_PC_MBS.md

2026-08-18 20:59:52 -04:00
commit 454973e269
5978 changed files with 2664094 additions and 0 deletions
@@ -0,0 +1,16 @@
+FUNCTION ircmovimientos()
+ 
+ DEFINE  ketiquetas SMALLINT, detiquetas STRING,
+         cbmovimiento ui.ComboBox
+         
+    LET cbmovimiento = ui.combobox.forname("formonly.cod_mov")
+    DECLARE bmovimiento CURSOR FOR
+      SELECT a.cod_mov,RTRIM(a.descrip_mov)||'('||cast(a.cod_mov AS varchar(6))||')' FROM irtb00005 a
+      ORDER BY a.descrip_mov
+      CALL cbmovimiento.clear()
+ 
+    FOREACH bmovimiento INTO ketiquetas,detiquetas
+      CALL cbmovimiento.additem(ketiquetas,detiquetas)
+    END FOREACH
+    
+ END FUNCTION