Ver Mensaje Individual
  #1  
Antiguo 08-09-2006
jandres jandres is offline
Miembro
 
Registrado: may 2006
Posts: 47
Reputación: 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