En
www.solges.net , soluciones , tienes el codigo fuente para generar distintos codigos de barras y las true type para todos ellos , es mas facil de lo que parece.
Solo tienes que añadirlo como procedimiento al formulario o bien como programa independiente con el parametro del codigo de barras a crear y te devolvera el resultado para poder imprimir con su correspondiente true type , por ejemplo:
IIF(etimodas.TIPOEAN = 1,EAN13(LEFT(etimodas.cb, 12), .F.), EAN8(LEFT(etimodas.cb, 7), .F.)) , esto en un campo de un informe (report) , ejecuta segun el tipol codigo de barras (etimodas.tipoean) un programa u otro (ean8 o ean13) y lo imprime directamente ...
Este otro en un formulario (form) , crea el codigo de barras de los paquetes de una empresa de transporte y lo guarda en una tabla , que luego se imprime en el informe (report) usando su true type correspondiente:
m.cositas=padl(alltrim(albaran.origen),6,'0')+;
padl(alltrim(albaran.cod_remi),8,'0')+padl(alltrim(albaran.numero),8,'0')+;
padl(x,3,'0')+padl(albaran.bultos,3,'0')+padl(alltrim(albaran.destino),6,'0')
replace cbarras with m.cositas
replace nbarras with m.cositas
resultado=code128(alltrim(m.cositas))
replace codigoba with alltrim(resultado)
code128 es el nombre del programa al que se le envia el codigo de barras compuesto en m.cositas y resultado es el valor que devuelve , que se guarda en en el campo codigoba (que es el que se imprime)
