Hola, bueno, estoy haciendo un programa, y tengo una funcion que es "Ingresar stock" la funcion anda perfecto hace todo lo que tiene que hacer y no tira error. Pero cuando voy a cerrar el formulario, me salta el error ese "TRANSACTION IS NOT ACTIVE"
no se que puede ser o como lo puedo solucionar
El codigo de la funcion es el siguiente.
Código Delphi
[-]procedure TFormGStock.Button2Click(Sender: TObject);
var max:integer;
begin
cajaStock.EStock.Open;
cajaStock.MaxStock.Close;
cajaStock.MaxStock.Open;
if cajaStock.MaxStock.IseMpty then max:=1
else max:=cajaStock.MaxStock.Fields[0].ASInteger +1;
cajaStock.EStock.AppendRecord([max,Edit4.Text,Edit5.Text,StrToInt(Edit8.Text),FormatDateTime('mm"/"dd"/"yyyy',dateTimePicker3.Date),StrToFloat(Edit12.Text)]);
cajaStock.EStock.Close;
cajaStock.UpdStock.Close;
cajaStock.UpdStock.ParamByName('stock').AsString:=Edit12.Text;
cajaStock.UpdStock.ParamByName('categoria').AsString:=Edit4.Text;
cajaStock.UpdStock.ParamByName('id_producto').AsString:=Edit8.Text;
cajaStock.UpdStock.ParamByName('marca').AsString:=Edit5.Text;
cajaStock.UpdStock.Open;
caja.IBTransaction1.Commit;
reset;
end;
Espero puedan ayudarme, gracias.