codigo de barras ean128
Publicado por hernandov (2 intervenciones) el 20/04/2007 14:37:56
Hola!!!!
Estoy imprimiendo codigos de barras con formato UCC/EAN-128 y tengo que poner dos funciones 1 (FNC1) al final de dos identificadores pero no he podido encontrar la forma de agregarlas. Le he dado varios caracteres ascii pero no ha sido posible que me de la que es, por ejemplo chr(202) , chr(102), chr(134), etc. pero nada. Estoy imprimirndo con QReport y le agrego las variables asi:
QRBarCode1.Text := '4157709998004979' +
'8020' + FormatFloat('000000',StrtoFloat(Table1Codigo.Value)) + Chr(202) +
'3900' + FormatFloat('0000000',456000) + Chr(StrtoInt(Edit1.Text)) + Chr(202) +
'96' + '20070404';
Agradezco mucho la colaboracion.....
Estoy imprimiendo codigos de barras con formato UCC/EAN-128 y tengo que poner dos funciones 1 (FNC1) al final de dos identificadores pero no he podido encontrar la forma de agregarlas. Le he dado varios caracteres ascii pero no ha sido posible que me de la que es, por ejemplo chr(202) , chr(102), chr(134), etc. pero nada. Estoy imprimirndo con QReport y le agrego las variables asi:
QRBarCode1.Text := '4157709998004979' +
'8020' + FormatFloat('000000',StrtoFloat(Table1Codigo.Value)) + Chr(202) +
'3900' + FormatFloat('0000000',456000) + Chr(StrtoInt(Edit1.Text)) + Chr(202) +
'96' + '20070404';
Agradezco mucho la colaboracion.....
Valora esta pregunta
0