Ver Mensaje Individual
  #4  
Antiguo 20-12-2006
lgarcia lgarcia is offline
Miembro
 
Registrado: jul 2004
Posts: 479
Reputación: 20
lgarcia Va por buen camino
Final de archivo Excel

Hola:

Una solucion podria ser de buscar la fila con una columna que sea obligatoria y chequear si esta vacia. Un ejemplo.

Código:
repeat
                 with InsertarProductos do
                  begin
                  Parameters.ParamByName('@codplu').Value:= Excel.Cells[j,1].Value;
                  Parameters.ParamByName('@codtrasval').Value:= Excel.Cells[j,2].Value;
                  Parameters.ParamByName('@codfabricante').Value:= Excel.Cells[j,3].Value;
                  Parameters.ParamByName('@descripcionplu').Value:= Excel.Cells[j,4].Value;
                  Parameters.ParamByName('@preciocosto').Value:= Excel.Cells[j,6].Value;
                  Parameters.ParamByName('@precioventa').Value:= Excel.Cells[j,7].Value;
                  Parameters.ParamByName('@um').Value:= 1;
                  Parameters.ParamByName('@categoria').Value:= Excel.Cells[j,13].Value;
                  Prepared:= True;
                  ExecProc;
                  end;                  
      inc(j);
      until Excel.Cells[j,2].Value = '';
Saludos
Luis Garcia
Responder Con Cita