26 lines
641 B
Plaintext
26 lines
641 B
Plaintext
|
|
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 |