mensaje de error

[[enecumene]]

¿La aplicación trabaja con bases de datos?, si es así puede que no está encontrando la BD, si no es así, necesitamos código

Saludos.

[ale_metall]

si, con base de datos en paradox, la primera vez q presiono el boton va bien, en la segunda se cuelga... el codigo es un choclazo, lo paso?? porq siempre lo use y nunca me daba ese error y comenzo de repente sin haber editado el codigo...

[[enecumene]]

Sólo debes pasar el código donde te da el error, ¿a qué te refieres con choclazo?

Saludos.

[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

[[enecumene]]

Ya me lo imaginaba

[[Caral]]

Hola

Empezado por enecumene

Sólo debes pasar el código donde te da el error, ¿a qué te refieres con choclazo?

Saludos.

Me imagino que es un Choclo grande
Choclo en algunos paises es Elote, Maiz, ojuela.
Saludos

[[enecumene]]

Pues es un Elote/Maiz/Hojuela GIGANTE

[[Caral]]

Hola
Despues de ver este Choclo enorme y sin sentido diria que para hacer este Choclazo mejor usar un Datamodule y ordenar todo este ir y venir del form16 al 1 al 5 y no se cuantos mas.
En el momento que falle algo no se sabra donde esta el Choclo.
Otra cosa seria poner una Gallina por codigo y que empiece a descifrar el choclo.
Saludos

[ale_metall]

Bueno, solo tengo q programar en delphi para aprobar una materia y no soy experto como udes.. simplemente digan q no pueden ayudarme y listo..

saludos...