Pesquisar na Comunidade

Olá a todos, Pretendo criar um Wizard visual para desenhar etiquetas e gerar modelos e codigos tanto em Acbr qnto em comando Pl2 como o ZebraDesing. Gostaria de propor um lugar para compartilhar blocos de codigos comuns para modelos de etiquetas: Modelo Impressora : Tamanho/Modelo Etiqueta: Imagem de exemplo: Bloco de Código para gerar na impressora. Ex: Argox: Modelo = etqPpla Gondola_100mm_x_32mm_3_Colunas Sem imagem de exemplo: Codigo: ImprimirTexto(orNormal, 2, 1, 2, 180, 15, Etiqueta.Descr); ImprimirTexto(orNormal, 2, 1, 1, 140, 15, 'R$ ' + Etiqueta.Valor); ImprimirBarras(orNormal, Etiqueta.TipoBarCode, '2', '2', 20, 10, Etiqueta.Barras, 70); ImprimirTexto(orNormal, 2, 1, 2, 180, 315, Etiqueta.Descr); ImprimirTexto(orNormal, 2, 1, 1, 140, 315, 'R$ ' + Etiqueta.Valor); ImprimirBarras(orNormal, Etiqueta.TipoBarCode, '2', '2', 20, 315, Etiqueta.Barras, 70); ImprimirTexto(orNormal, 2, 1, 2, 180, 620, Etiqueta.Descr); ImprimirTexto(orNormal, 2, 1, 1, 140, 620, 'R$ ' + Etiqueta.Valor); ImprimirBarras(orNormal, Etiqueta.TipoBarCode, '2', '2', 20, 620, Etiqueta.Barras, 70); Zebra: epl2 Gondola_100mm_x_32mm_3_Colunas Sem imagem de exemplo: ImprimirTexto(orNormal, 2, 1, 3, 15, 55, Etiqueta.Descr); ImprimirTexto(orNormal, 2, 1, 1, 80, 55, 'R$ ' + Etiqueta.Valor); ImprimirBarras(orNormal, Etiqueta.TipoBarCode, '2', '2', 120, 55, Etiqueta.Barras, 080, becSIM); ImprimirTexto(orNormal, 2, 1, 3, 15, 365, Etiqueta.Descr); ImprimirTexto(orNormal, 2, 1, 1, 80, 365, 'R$ ' + Etiqueta.Valor); ImprimirBarras(orNormal, Etiqueta.TipoBarCode, '2', '2', 120, 365, Etiqueta.Barras, 080, becSIM); ImprimirTexto(orNormal, 2, 1, 3, 15, 670, Etiqueta.Descr); ImprimirTexto(orNormal, 2, 1, 1, 80, 670, 'R$ ' + Etiqueta.Valor); ImprimirBarras(orNormal, Etiqueta.TipoBarCode, '2', '2', 120, 670, Etiqueta.Barras, 080, becSIM); Argox: etqPpla Gondola_100mm_x_32mm_Simples FACbrEtiqueta.ImprimirTexto(orNormal, 2, 2, 2, 190, 5, Centraliza(Etiqueta.Descr, 8) ); FACbrEtiqueta.ImprimirBarras(orNormal, Etiqueta.TipoBarCode, '2', '2', 32, 0, Etiqueta.Barras, 90, becSIM); FACbrEtiqueta.ImprimirTexto(orNormal, 3, 3, 2, 15, 300, 'R$'); FACbrEtiqueta.ImprimirTexto(orNormal, 3, 4, 4, 15, 450, Etiqueta.Valor); //OU centralizada em 3 linhas sHorizontal := retornaHorizontal(Etiqueta.BarCode, Etiqueta.Barras); //Original Code: Descricao, valor e barras centralizadas horizontalmente FACbrEtiqueta.ImprimirTexto(orNormal, 3, 1, 2, 0220, 0080,Centraliza(Etiqueta.Descr, 3)); FACbrEtiqueta.ImprimirBarras(orNormal, Etiqueta.TipoBarCode, '9', '3', 0010, StrToInt(sHorizontal), Etiqueta.Barras, 100, becSIM); FACbrEtiqueta.ImprimirTexto(orNormal, 5, 1, 1, 0150, 0080, centraliza('R$ ' + Copy(Etiqueta.Valor, 0, 8), 5)); Zebra :epl2 Gondola_100mm_x_32mm_Simples FACbrEtiqueta.ImprimirTexto(orNormal, 2, 2, 2, 15, 55, Centraliza(Etiqueta.Descr, 8)); FACbrEtiqueta.ImprimirBarras(orNormal, Etiqueta.TipoBarCode, '2', '2', 95, 55, Etiqueta.Barras, 90, becSIM); FACbrEtiqueta.ImprimirTexto(orNormal, 3, 3, 2, 110, 355, 'R$'); FACbrEtiqueta.ImprimirTexto(orNormal, 3, 4, 5, 85, 515, Etiqueta.Valor); Caso tenham modelos para trocar me enviem no email: [email protected] Obrigado.

Boa tarde. Alguém tem, ou saberia me indicar onde encontrar, uma relação com todas as Marcas de celulares existentes, e os seus respectivos Modelos ? Obrigado.