FoxPro/Visual FoxPro - Code 2 of 5 IATA (codigo de barras)

   
Vista:

Code 2 of 5 IATA (codigo de barras)

Publicado por Juan Miguel solis.juanmiguel@gmail.com (79 intervenciones) el 22/11/2012 09:27:37
Hola A Todos

Por favor, alguien sabe como generar códigos de barra "Code 2 of 5 IATA", con VFP ??

Es que por mas que busco y busco no encuentro nada, se como hacer códigos de barra COD39 y "Interleaved 2 of 5", pero para la normativa IATA no encuentro nada me imagino que sea el "Interleaved 2 of 5" pero con algún cambio.....

En fin a ver si alguien ha tenido este problema y pudo resolverlo..

Gracias anticipadas.

Un saludo
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Code 2 of 5 IATA (codigo de barras)

Publicado por es_binario (757 intervenciones) el 23/11/2012 02:30:17
No hay una aplicacion en foxpro que te permita simplemente llamar la funcion, pero creo que puedes modificar uno de los codigos imprimibles para que te de el que buscas,

Aqui en el foro ya se habia hablado del tema no hace mucho, bueno de codigos de barras 100% foxpro

http://www.lawebdelprogramador.com/foros/FoxPro_Visual_FoxPro/1355050-Generador_de_codigo_de_barras.html

aqui esta el programa funciona increible...

https://sites.google.com/site/publicesvfoxpro/ FoxBarCode.

ahora aqui esta la pagina de la nomenclatura del codigo que buscas.

http://www.polylabel.com/barcodes/types/iata25code.php

tiene un stop un start y del 0... 9

en el programa que imprime los codigos utiliza esas nomenclaturas solo tienes que buscar y sustituirlo....

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
DO CASE
        CASE m.lcChar = "0"
          m.lcRet = m.lcRet + "101010001110"
        CASE m.lcChar = "1"
          m.lcRet = m.lcRet + "101011100010"
        CASE m.lcChar = "2"
          m.lcRet = m.lcRet + "101000101110"
        CASE m.lcChar = "3"
          m.lcRet = m.lcRet + "111000101010"
        CASE m.lcChar = "4"
          m.lcRet = m.lcRet + "101110100010"
        CASE m.lcChar = "5"
          m.lcRet = m.lcRet + "111010100010"
        CASE m.lcChar = "6"
          m.lcRet = m.lcRet + "100010101110"
        CASE m.lcChar = "7"
          m.lcRet = m.lcRet + "100010111010"
        CASE m.lcChar = "8"
          m.lcRet = m.lcRet + "100011101010"
        CASE m.lcChar = "9"
          m.lcRet = m.lcRet + "111010001010"


bueno es un ejemplo claro tu tendras que hacerlo manualmente sustituyendolos... haver si comprendes.

buscalo en las funciones del generador del codigo de barras y ponte a sustituir.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar