[ale_metall]

Código Delphi [-]
procedure TForm16.SpeedButton1Click(Sender: TObject);
var band:boolean; usuarioactivo,consulta:string; ultimo,ultimo1,NroUsuario,categoria:integer; TotalAnterior:real;
begin
 if (edit1.Text='') or (edit2.text='') then
   begin
     MessageBox(Handle,
     PChar('Debe completar los campos solicitados antes de iniciar ' + #13#10 +
     'sesión.'),PChar('Datos Erroneos'),
     MB_OK + MB_ICONSTOP + MB_DEFBUTTON1 + MB_APPLMODAL);
     edit1.SetFocus;
    end
  else
   begin
    band:=false;
    table1.Open;
    table1.First;
    repeat
     if table1.FieldByName('Loggin').asstring=edit1.Text
      then
       begin
           band:=true;
           if table1.Fieldbyname('CantIntentos').AsInteger>=3
              then
                 begin
                   MessageBox(Handle,
                   PChar('La cuenta ha sido bloqueada por ingresar repetidos datos erroneos, contactese con el ' + #13#10 +
                   'administrador del sistema.'),
                   PChar('Reiterados ingresos erroneos'),
                   MB_OK + MB_ICONINFORMATION + MB_DEFBUTTON1 + MB_APPLMODAL);
                   edit1.clear;
                   edit2.Clear;
                   edit1.setfocus;
                   end
        else
          begin
            if table1.FieldByName('Password').asstring=edit2.Text
                 then
                   begin              //tabla Usuarios
                    table1.edit;
                    table1.FieldByName('Activo').asboolean:=True;
                    table1.FieldByName('CantIntentos').asinteger:=0;
                    usuarioactivo:=table1.FieldByName('Loggin').asstring;
                    NroUsuario:=table1.FieldByName('NroUsuario').asinteger;
                    table1.Post;
                    table1.Close;
                    form1.Table1.Open;
                    form1.Table2.Open;
                    form1.Table3.Open;
                    form1.Table4.Open;
                    form1.timer1.Enabled:=true;
                    edit1.clear;
                    edit2.clear;
                    edit1.setfocus;
                    form16.Hide;
                    form22.destroy;
                    form10.Table5.Open;    //Tabla totalCajaTurno
                    form10.table5.last;    //crea un registro para el total de la caja durante la sesion iniciada. (table5)
                    ultimo:=form10.table5.fieldbyname('NroTurno').asinteger;
                    TotalAnterior:=form10.table5.fieldbyname('Total').ascurrency;
                    form10.table5.insert;
                    form10.table5.fieldbyname('NroTurno').asinteger:=ultimo+1;
                    form10.table5.fieldbyname('FechaHoraInicio').asstring:=datetimetostr(now);
                    form10.table5.fieldbyname('CodUsuario').asinteger:=NroUsuario;
                    form10.Table5.Post;
                    form10.Table1.Open;
                    form10.table1.last;
                    ultimo1:=form10.table1.FieldByName('NroMovimiento').asinteger;
                    form10.table1.edit;
                    form10.table1.Insert;
                    form10.table1.FieldByName('NroMovimiento').asinteger:=ultimo1+1;
                    form10.table1.fieldbyname('Fecha').AsDateTime:=(Date);
                    form10.table1.fieldbyname('Detalle').asstring:='Total Turno Anterior.';
                    form10.table1.fieldbyname('Entrada').AsCurrency:=TotalAnterior;
                    form10.table1.fieldbyname('Salida').AsCurrency:=0;
                    form10.table1.fieldbyname('Facturado').AsBoolean:=false;
                    form10.table1.FieldByName('CodES').asinteger:=0;
                    form10.table1.FieldByName('CodResponsable').asinteger:=form10.table5.FieldByName('CodUsuario').asint  eger;
                    form10.table1.FieldByName('CodTurno').asinteger:=ultimo+1;
                    form10.table1.Post;
 
                    form10.table5.last;
                    form10.query1.SQL.Clear;
                    consulta:='select (((SUM(Entrada))-(SUM(Salida)))) as TotalTurno from CajaDiaria ';
                    consulta:=consulta+'where CodTurno=:valor';
                    form10.query1.SQL.Add(consulta);
                    form10.query1.ParamByName('valor').asinteger:=form10.table5.FieldByName('NroTurno').asinteger;
                    form10.query1.Open;
                    form10.query1.Active;
                    form10.Table5.edit;
                    form10.Table5.FieldByName('Total').Value:=form10.Query1.fieldByName('TotalTurno').Value;
                //Table5.FieldByName('Total').Ascurrency:= strtofloat(Query1.fieldByName('TotalTurno').asString);
                    form10.Table5.Post;
                    form10.Table1.close;
                    form10.Table5.close;

                   // form10.Table5.Close;
                    form1.Visible:=true;
                    form1.show;
                    form1.table4.First;
   while form1.table4.Eof=false do                           //Busca el usuario activo, guarda la categoria y
    begin                                              // filtra la tabla categoria por esa categoria.
    if form1.table4.FieldByName('Activo').asboolean= true
      then categoria:=form1.table4.FieldByName('NroCategoria').asinteger;
     form1.table4.Next;
     end;
     if categoria=2 then
        begin
         form1.speedbutton10.Enabled:=false;
         form1.speedbutton13.Enabled:=false;
         form1.speedbutton15.Enabled:=false;
         form1.speedbutton16.Enabled:=false;
         form1.speedbutton17.Enabled:=false;
         form1.speedbutton18.Enabled:=false;
         form1.speedbutton7.Enabled:=false;
         end;
        end
                  else
                   begin
                    MessageBox(Handle,
                    PChar('La Contraseña no corresponde al usuario Ingresado.Vuelva a ingresarla, si la ha olvidado contactese con el administrador del sistema.'),
                    PChar('Contraseña Erronea'),
                    MB_OK + MB_ICONSTOP + MB_DEFBUTTON1 + MB_APPLMODAL);
                    table1.Edit;
                    table1.FieldByName('CantIntentos').asinteger:=table1.FieldByName('CantIntentos').asinteger+1;
                    table1.Post;
                    edit2.Clear;
                    edit2.setfocus;
                   end;
          end;
       end
      else
         table1.Next;
    until (table1.eof=true) or (band=true);
   if band=false then
    begin
      MessageBox(Handle, 
             PChar('Asegúrese de ingresar datos correctos.'),
             PChar('Usuario Inexistente'),
             MB_OK + MB_ICONEXCLAMATION + MB_DEFBUTTON1 + MB_APPLMODAL);
      edit1.Clear;
      edit2.clear;
      edit1.setfocus;
    end;
end;
end;

eso es un choclazoo!!

me tengo q ir a laburar, mas tarde t respondo!! pero insisto, comenzo de repente el error y no habia editado este codigo...

saludos