Ver Mensaje Individual
  #37  
Antiguo 08-09-2011
negrokau negrokau is offline
Miembro
NULL
 
Registrado: abr 2011
Posts: 210
Reputación: 16
negrokau Va por buen camino
Talking

Cita:
Empezado por oscarac Ver Mensaje
ok vamos a trabajar como descartes

coloca como comentario las lineas donde Actualiza y fijate si el q_Guardar1 recorre todos los registros que tiene
Código Delphi [-]
//////actualiza cantidad////////////////
Q_GUARDAR1.CLOSE; 
Q_GUARDAR1.ParamByName('ParCOD_REMI').AsString:=DM.Q_DET_REMISION.FieldValues['COD_REMI']; 
Q_GUARDAR1.ParamByName('ParCODIGO').AsString:=DM.Q_DET_REMISION.FieldValues['CODIGO']; 
Q_GUARDAR1.Open; 
Q_GUARDAR1.First;  
while not (Q_GUARDAR1.Eof) do 
begin 
//Q_GUARDAR_RESTO.CLOSE; 
//Q_GUARDAR_RESTO.ParamByName('ParCODIGO').AsString:=Q_GUARDAR1.ParamByName('ParCODIGO').AsString; 
//Q_GUARDAR_RESTO.ParamByName('ParCANTIDAD').AsFloat:=Q_GUARDAR1.FieldValues['CANTIDAD']; 
//Q_GUARDAR_RESTO.ExecSQL; 
Q_GUARDAR1.Next; 
end;
prueba y comentas
si tiene 3 registros, debe recorrer 3 veces verdad?, Lo probe con f7 y solo lo recorre una vez...
Responder Con Cita