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,26 @@
+
+FUNCTION codigo_128(cod_val,pcantidad)
+
+       DEFINE x INT,
+            cod_val CHAR(25),
+       aux_str,barcode STRING,
+       pcantidad DEC(12,4)
+
+       IF pcantidad>0 THEN
+          LET aux_str=cod_val clipped ,"+",Pcantidad using "<<<<<.##"
+       ELSE
+          LET aux_str=cod_val clipped 
+       END IF 
+       LET barcode=""
+       
+       FOR x=1 TO LENGTH(aux_str)
+           LET barcode=barcode,",",aux_str.getCharAt(x)
+           
+       END FOR
+  {     IF inventario = "ACTIVOS FIJOS" THEN
+          LET barcode=barcode CLIPPED,",+,1"
+       END IF
+   }    
+       RETURN barcode
+       
+END FUNCTION