Cobol en español calculo digito ean13
Cobol en español
  Página de Inicio Recomiéndala Contáctame Usuarios en Linea
61
     Crea Una cuenta  
Video 1
Video 2
Video 3

Si te ha servido la web
o te han gustado los videos, colabora haciendo click en el botón.

MANUALES
TEMATICOS
BASES DE DATOS
COBOL / WINDOWS
COBOL / UNIX
HISTORIA /DOCS
 
BUSCADOR
PROGRAMANDO-Dos
TRUCOS
AÑO 2.000
TEORIA POWCOB-3
PROG. POWCOB-3
TEORIA POWCOB-5
PROG. POWCOB-5
OCX-ESCOBOL
RUTINAS/MANUALES
OCX / JUEGOS
HERRAMIENTAS
COMPILADORES
ENCUESTAS
ENLACES
FOROS
TOP 10

CHAT   Usuarios: 0
ForosGeneralLeyendo    


  calculo digito ean13
Diego



Capital Federal - Argentina
299 Mensajes

Off Line  OFF-Line

 Enviado el 08-01-2004 :: 04:04   
Hola a todos tengo el siguiente problema nesesito calcular el digito verificador del codigo de barras ean13.
Se que hay que multiplicar y luego sumar los digitos hasta aca todo claro pero ese resultado lo tengo que restar al multiplo de 10 proximo superior y no se como hacer eso en cobol.
Gracias Saludos Diego.
 Perfil  www  Citar
mjfinos



Santa Fe
163 Mensajes

Off Line  OFF-Line

 Enviado el 08-01-2004 :: 10:55   
Hola:
Para obtener la diferencia entre resultado y el multiplo de 10 superior a el hace 10 menos la unidad del dato resultado.
Mario Finos.
 Perfil  Citar
Frgn



Málaga
4 Mensajes

Off Line  OFF-Line

 Enviado el 08-01-2004 :: 15:33   
Hola diego,
Ya han pasado años desde que diseñe este pequeño programa, ahora ya no me acuerdo con detalle. Este programa yo lo utilizo para validar los codigos ean-13, me devuelve verdadero o falso segun corresponda.
Un saludo,
Francisco

identification division.
********************************************************
* modulo para chequear códigos ean13 el modulo devuelve
* verdadero o falso.
********************************************************
program-id. checkean13.
author. francisco.
date-written. nov-99.
environment division.
configuration section.
source-computer. hp_ux.
object-computer. hp_ux.
special-names. decimal-point is comma.
*
input-output section.
file-control.
*
data division.
file section.
working-storage section.
01 test-ean.
03 i pic 99 value zero.
03 dc pic 9999 value zero.
03 sumatoria pic 9999 value zero.
03 decenasuperior pic 9(4).
03 resto pic 999 value zero.
03 resultado pic 9(6).
03 tfactor.
06 tean1 pic 9 value 1.
06 tean2 pic 9 value 3.
06 tean3 pic 9 value 1.
06 tean4 pic 9 value 3.
06 tean5 pic 9 value 1.
06 tean6 pic 9 value 3.
06 tean7 pic 9 value 1.
06 tean8 pic 9 value 3.
06 tean9 pic 9 value 1.
06 tean10 pic 9 value 3.
06 tean11 pic 9 value 1.
06 tean12 pic 9 value 3.
03 factor redefines tfactor occurs 12 pic 9.
03 cod13.
06 cod occurs 12 pic 9.
06 cod13-dc pic 9.
03 rcod13 redefines cod13 pic 9(13).

linkage section.
01 checkean13-reg.
02 checkean13-clau pic x(13).
02 checkean13 pic 9 value zero.
88 checkean13-true value zero, false 1.
88 checkean13-false value 1.
procedure division using checkean13-reg.
inicio.
move checkean13-clau to cod13.
perform varying i from 1 by 1
until i > 13
if cod13(i:1) not = "0" and
cod13(i:1) not = "1" and
cod13(i:1) not = "2" and
cod13(i:1) not = "3" and
cod13(i:1) not = "4" and
cod13(i:1) not = "5" and
cod13(i:1) not = "6" and
cod13(i:1) not = "7" and
cod13(i:1) not = "8" and
cod13(i:1) not = "9"
set checkean13-true to false
goback
end-if
end-perform.

if (rcod13 not numeric or rcod13 not > 0)
set checkean13-true to false
else
perform sumatoria
move sumatoria to decenasuperior
perform decenasuperior
perform dc
evaluate true
when cod13-dc = dc
set checkean13-true to true
when other
set checkean13-true to false
end-evaluate
end-if.

fi. goback.

sumatoria.
perform varying i from 1 by 1
until i > 12
compute sumatoria = sumatoria + (cod(i) * factor(i))
end-perform.

decenasuperior.
divide
decenasuperior by 10
giving resultado
remainder resto
end-divide.

if resto not = zero
add 1 to decenasuperior
go decenasuperior
end-if.

dc. subtract
sumatoria from decenasuperior
giving dc
end-subtract.
 Perfil  www  Citar
Anonimo


 Enviado el 18-01-2004 :: 02:21   


HOLA soy ildefonso, irm70@hotmail.com, necesito imprimir cod de barras en una impresora de matriz/punto epson lx300+, puedes ayudarme con la rutina de impresion?...ya intente pero ha sido muy dificil para mi...gracias
 Citar

  


Sitio desarrollado con PHP-Nuke. Todos los Derechos Reservados.
PHP-Nuke es un Software Libre realizado con licencia GNU/GPL.
Página creada en Junio de 1.998, con el proposito de difundir el lenguaje Cobol en nuestra lengua.
Andres Montes [98/11]