FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
estructura erronea pero no se donde
Buenas tardes, os muestro una estructura que me trae loco no se donde esta el fallo , bueno si si quito el ultimo else funciona pero tambien me da el mensaje y es mentira agradeceré cualquier mensaje aunque sea de apoyo estoy muerto con esto
procedure TForm6.Button2Click(Sender: TObject); var sumador:integer; var fecha1:tdatetime; var fecha2:tdatetime; begin // compruebo si lo quiere entre fechas o todo if not checkbox2.Checked then edit2.text:=form19.ADOTable1pendiente.AsString else // si lo quiere entre fechas comprueba primero que existen registros //form5.ADOTable1.IndexName:='codigo'; if form5.ADOTable1.Locate('codigo', form19.ADOTable1codigo.AsInteger,[]) then edit3.Text:='@'; while not form5.ADOTable1.eof do begin edit3.Text:=form5.ADOTable1ADELANTO.AsString; form5.ADOTable1.Next; end else messagedlg('No existen registros de ese empleado', mtinformation, [mbok],0); end;
__________________
Porque las estirpes condenadas a cien años de soledad nunca tendran una segunda oportunidad sobre la tierra. Gabriel Garcia Marquez (Cien años de Soledad). |
|
|
|