Cita:
Empezado por mainau
Código Delphi [-]
procedure TForm6.Button2Click(Sender: TObject);
var sumador:integer;
var fecha1:tdatetime;
var fecha2:tdatetime;
begin
if not checkbox2.Checked then
edit2.text:=form19.ADOTable1pendiente.AsString
else
if form5.ADOTable1.Locate('codigo', form19.ADOTable1codigo.AsInteger,[]) then
begin
edit3.Text:='@';
while not form5.ADOTable1.eof do
begin
edit3.Text:=form5.ADOTable1ADELANTO.AsString;
form5.ADOTable1.Next;
end
end
else messagedlg('No existen registros de ese empleado', mtinformation, [mbok],0);
end;
|
el problema es que el ultimo else no se corresponde con ningun IF, se corresponde con el while begin end, o sea, que no va ahí ni por pelos.
Date cuenta en en todos los if que tienes en el código no tienes ningun begin y end... por tanto solo afecta a la linea siguiente.
lo que falta es el begin y el end que estan justificados a la izquierda
Ves como el código entre [ delphi ] codigo fuente aqui [ / delphi ] (sin los espacios)se vé mas clarito ??
Por otra parte no veo sentido al bucle, o sea, en el edit3 pones el "Adelanto", pero a la siguiente vuelta del bucle while, lo machacas y pone lo uqe haya en el siguiente registro.... TOTAL. En el Edit3 solo habrá lo que tenga "Adelanto" en el ultimo registro de la tabla.
Otro detalle es que no pones un form5.ADOTable1.First para que empiece a buscar desde el principio de la tabla, sino que empieza a buscar desde el registro en curso (desde el locate)... no sé si realmente es lo que quieres.
Ya nos contarás que es lo que quieres hacer.