Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 08-09-2006
jandres jandres is offline
Miembro
NULL
 
Registrado: may 2006
Posts: 47
Poder: 0
jandres Va por buen camino
Problema al leer en un edit sobran caracteres

Hola saludo a todos y una vez mas necesito un poco de ayuda estoy haciendo un programa estoy desarrollando en delphi 7 y la tabla es en access 2003
Donde con una pistola lectora de códigos de barra lea el producto y con el código me traiga la descripción hasta ese momento todo esta bien lo e logrado pero se complica cuando algunos artículos tiene el código ean 13 y la captura toma 12 cuando la pistola lee toma los 12 que necesita y me deja un sobrante en el edit que es donde registro lo que lee la pistola a continuación le dejo ver el código a ver si me ayuda


Lo que me gustaría si es posible que alguien me diga como puedo leer el codigo tomar solo 12 dígitos borrar los dígitos que sobren para que no se mezclen con la próxima lectura gracias por su ayuda de antemano



var
codigogg:string;// variables
codigoref:string;
begin
codigogg:='';
IF LEER.Text <> '' THEN
//IF LENGTH(LEER.TEXT)=12 THEN
//BEGIN
codigogg:=leer.Text;
CODIGOref:=COPY(CODIGOGg,1,12);
TBL_DATOSLECTURA.INSERT;
Qry_MODELO.Close;
qry_modelo.Parameters.ParamByName('codeap').Value:=leer.text;
qry_MODELO.Open;
TBL_DATOSLECTURACODIGOEAN13.VALUE :=codigoref;
TBL_DATOSLECTURANOLECTURA.Value:='SI';
tbl_datoslecturareferencia.value:=QRY_MODELOdescrip.value;
TBL_DATOSLECTURASIZE.VALUE:=QRY_MODELOSIZE.VALUE;
TBL_DATOSLECTURACODIGO.VALUE:=QRY_MODELOCODIGO.VALUE;
TBL_DATOSLECTURA.POST;
LEER.TEXT:='';
END;
Responder Con Cita
  #2  
Antiguo 08-09-2006
[maeyanes] maeyanes is offline
Capo de los Capos
NULL
 
Registrado: may 2003
Ubicación: Campeche, México
Posts: 2.728
Poder: 18
maeyanes Va por buen camino
Puedes usar la función Copy:

Código Delphi [-]
  codigogg := Copy(leer.Text; 1, 12);


Saludos...
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Limitar el nº de caracteres en un Edit Javier_A OOP 4 04-04-2013 20:57:51
como leer n caracteres de un archivo manolop Varios 6 18-12-2007 23:50:06
caracteres numéricos en un edit edusus Varios 1 21-04-2006 01:24:16
Objeto Edit que busca caracteres escritos en el emidav104 Conexión con bases de datos 3 21-05-2005 17:06:15
Cantidad de caracteres en un edit botones67 Varios 4 09-07-2003 12:55:54


La franja horaria es GMT +2. Ahora son las 02:39:02.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi