Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Conexión con bases de datos
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Conexión con bases de datos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 18-10-2010
cloayza cloayza is offline
Miembro
 
Registrado: may 2003
Ubicación: San Pedro de la Paz, Chile
Posts: 947
Poder: 25
cloayza Tiene un aura espectacularcloayza Tiene un aura espectacular
Amigo creo que podrias ahorrarte algunas lines haciendo lo siguiente:


Código Delphi [-]
 //recorro todos los registros del Tstring grig
     For i:=1 to Ffactura.SGFact.RowCount-1 do
      begin
        if Ffactura.SGFact.Cells[0,i]= Trim(wcodigobarras) then
        begin
             {tomo los registros que existen en el flexgrid de acuerdo al registro que introdujeron}
             wcodigomodificar:=Ffactura.SGFact.Cells[0,i]; //codigo barras
             wdescripcionmodificar:=Ffactura.SGFact.Cells[1,i]; //descripcion
             wcantidadmodificar:=StrToInt(Ffactura.SGFact.Cells[2,i]); //cantidad venta
             wpreciomodificar:=wprecioventa;
             wdescuentomodificar:=StrToFloat(Ffactura.SGFact.Cells[4,i]);//descuento
             {valido la variable de cantidad para ver si es mayor a uno}

             Ffactura.SGFact.Cells[0,i]  :=wcodigobarras;//codigobarras
               Ffactura.SGFact.Cells[1,i]:=wdescripcionmodificar;//descripcion

             if wcantidad_venta<>0 then
               wventa_totalmodificada:=wcantidadmodificar+wcantidad_venta
             else
               wventa_totalmodificada:=wcantidadmodificar+1;

             Ffactura.SGFact.Cells[2,i]:=IntToStr(wventa_totalmodificada);//asigno cantidad a celda
             wprecio_total:=(wventa_totalmodificada*wprecioventa);//multiplico la cantidad por precio
             Ffactura.SGFact.Cells[5,i] := Format('%8.2f',[wprecio_total]);
             calcula_totales;
             wcantidad_venta:=0;
             Ffactura.txtcodigo.SetFocus;
             wcodigobarras:='';
             Exit;

          {termino la informacion proporcionada}
        end;
      end;
    end;

Saludos
Responder Con Cita
  #2  
Antiguo 18-10-2010
Avatar de microbiano
microbiano microbiano is offline
Miembro
 
Registrado: sep 2008
Ubicación: Mexico D.F
Posts: 349
Poder: 18
microbiano Va por buen camino
ok gracias lo considerare, pero aunque parezca absurdo, creo que es mania de venir de visual Basic jejeje.
Responder Con Cita
  #3  
Antiguo 18-10-2010
Avatar de BlueSteel
[BlueSteel] BlueSteel is offline
Miembro Premium
 
Registrado: may 2003
Ubicación: Concepción - Chile
Posts: 2.310
Poder: 26
BlueSteel Va por buen camino
Talking

Hola Microbiano...

Hace tiempo yo tube que realizar un proceso similar... y utilice los StringGrid para ingresar temporalmente los detalles de las Facturas / Orden de Compra y otros documentos similares.... Mi problema era que cuando el usuario queria eliminar una o modificar un producto me generaba algun error... aunque no era siempre....

Para solucionar eso lo que hice fue utilizar el componente JvMemoryData de la Jedi... que basicamente es una tabla de memoria temporal y es muy sencilla de utilizar...

Si quieres te dejo algunos ejemplos

Salu2
__________________
BlueSteel
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
error en ciclo!!! MARLON1 PHP 7 08-04-2010 17:18:45
Repite los datos al guardar gsilvei Varios 1 19-01-2008 17:20:02
crear label por codigo en un ciclo for.. las beses de el ciclo sakuragi .NET 3 29-09-2005 05:04:29
DBlookupcombobox...repite nombres? alt126 Conexión con bases de datos 1 04-01-2005 12:25:56
buton en ciclo for rolando_s Varios 1 18-12-2004 12:38:49


La franja horaria es GMT +2. Ahora son las 12:18:53.


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