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