4 respuestas en este tema

[giulichajari]

Hola amigos, tengo una transaccion para insertar clientes en DataSnap, y accedo con la aplicacion cliente.
El caso es que inicio la aplicacion e inserto correctamente el primer cliente, pero si quiero volver a insertar me dice: REmote error:Invalid transaction object.

Osea los procedimientos estan bien, se me hace que faltaria destruir el objeto de transaccion, y crearlo cuando se llama al procedure, la verdad no se.

Tengo otras inserciones que dan el mismo problema.

delphi

function TServerMethods1.insertarcliente(idlocalidad,DNI,cuit,cuil,cupodias:integer;
descuento,cupocheques,cupopesos,cupochequestro:Double;domicilio,nombreyape,direccion,email:string):boolean;
 
var
uubicacion,upersona,ucliente:integer;
tr:tdbxTransaction;
exito:boolean;
begin
 
         SUCURSAL.Open;
         tr:=SUCURSAL.BeginTransaction();
 
 
              try
 
                begin
                  with qipersona do
                    begin
                      Close;
                      ParamByName('DNI').AsInteger:=DNI;
                      ParamByName('nombreyape').AsString:=nombreyape;
                      ParamByName('direccion').AsString:=direccion;
                      ParamByName('email').AsString:=email;
                      ExecSQL();
                      Free;
 
                    end
                  end
                    except
                      SUCURSAL.RollbackFreeAndNil(tr);
 
                 end;
         try
          begin
              with qicliente do
                begin
                Close;
                ParamByName('idpersona').AsInteger:=qucli.ExecSQL();
                ParamByName('cuit').AsInteger:=cuit;
                ParamByName('cuil').AsInteger:=cuil;
                ParamByName('deuda').AsFloat:=0.00;
                ParamByName('cupodias').AsInteger:=cupodias;
                ParamByName('cupocheques').AsFloat:=cupocheques;
                ParamByName('cupopesos').AsFloat:=cupopesos;
                ParamByName('cupochequestro').AsFloat:=cupochequestro;
                ParamByName('descuento').AsFloat:=descuento;
                ExecSQL();
                Free;
                SUCURSAL.CommitFreeAndNil(tr);
 
                exito:=True;
            end
            end
              except
 
                SUCURSAL.RollbackFreeAndNil(tr);
                end;
                Result:=exito;
 
end;
 
function TServerMethods1.insertartelefonoscliente(numero,idtipotel:integer;descripciontel:string):boolean;
var
tr:TDBXTransaction;
exito:boolean;
begin
 
          SUCURSAL.Open;
          if (SUCURSAL.InTransaction=False) then
          tr:=SUCURSAL.BeginTransaction()
          else
          begin
            try
              begin
                with qtelefono do
                  begin
 
                    Close;
                    ParamByName('numero').AsInteger:=numero;
                    ParamByName('idtipotel').AsInteger:=idtipotel;
                    ParamByName('descripcion').AsString:=descripciontel;
                    ExecSQL();
 
                    Free;
                  end;
              end;
        // si no se pudo
            except
              begin
                SUCURSAL.RollbackFreeAndNil(tr);
                exito:=false;
              end;
         try
              with telcli do
                begin
                  Close;
                  ParamByName('idc').AsInteger:=qucliente.ExecSQL();
                  ParamByName('idt').AsInteger:=qut.ExecSQL();
                  ExecSQL();
 
                  Free;
                end;
        except
                SUCURSAL.RollbackFreeAndNil(tr);
                exito:=false;
 
         end;
         SUCURSAL.CommitFreeAndNil(tr);
 
              end;
              Result:=exito;
          end;
 
end;
 
function TServerMethods1.insertarubicacionescliente(idlocalidad:Integer;domicilio,descripcion:string):boolean;
 
var
tr:TDBXTransaction;
exito:boolean;
begin
 
        SUCURSAL.Open;
        if (SUCURSAL.InTransaction=False) then
 
          tr:=SUCURSAL.BeginTransaction()
          else
          begin
       try
        with qiubicacion do
          begin
 
            Close;
            ParamByName('idlocalidad').AsInteger:=idlocalidad;
            ParamByName('domicilio').AsString:=domicilio;
            ParamByName('descripcion').AsString:=descripcion;
            ExecSQL();
 
            Free;
 
          end;
        // si no se pudo
      except
 
 
          SUCURSAL.RollbackFreeAndNil(tr);
          exito:=false;
 
        end;
         try
 
              with quper do
                begin
                  Close;
                  ParamByName('idp').AsInteger:=qup.ExecSQL();
                  ParamByName('idu').AsInteger:=quu.ExecSQL();
                  //ParamByName('descripcion').AsString:=descripcion;
                  ExecSQL();
                  Free;
                end;
                    SUCURSAL.CommitFreeAndNil(tr);
 
            except
 
 
                SUCURSAL.RollbackFreeAndNil(tr);
                exito:=false;
 
              end;
              Result:=exito;
          end;
 
end;

[Wilson]

Aunque hay varias cosas que no me quedan claras, por ejemplo en el primer procedimiento, porqué liberas qtelefono y Telci?

Asumiendo que SUCURSAL es la conexión y que estás trabajando de modo desconectado (puesto que en tu código la abres para cada transacción), he intentado mejorar el código de tu primer procedimiento.

delphi

function TServerMethods1.insertartelefonoscliente(numero, idtipotel: integer;
  descripciontel: string): boolean;
var
  tr: TDBXTransaction;
begin
  if SUCURSAL.InTransaction then
     raise Exception.Create('Hay una transacción pendiente');
 
  SUCURSAL.Open;
  try
    try
      tr := SUCURSAL.BeginTransaction();
      with qtelefono do
      begin
        Close;
        ParamByName('numero').AsInteger := numero;
        ParamByName('idtipotel').AsInteger := idtipotel;
        ParamByName('descripcion').AsString := descripciontel;
        ExecSQL();
       // Free; // No entiendo porque lo liberas,  a que horas lo creas?
      end
      with telcli do
      begin
        Close;
        ParamByName('idc').AsInteger := qucliente.ExecSQL();
        ParamByName('idt').AsInteger := qut.ExecSQL();
        ExecSQL();
       // Free; // No entiendo porque lo liberas,  a que horas lo creas?
      end;
      SUCURSAL.CommitFreeAndNil(tr);
      Result := True;
    except
      SUCURSAL.RollbackFreeAndNil(tr);
    end;
  finally
    SUCURSAL.Close;
  end;
end;

[giulichajari]

Me funciono a la perfeccion. No sabia lo de Free;.

Muchas gracias

[Wilson]

Me alegra que hayas solucionado, el código se puede optimizar para que en caso de que algo ande mal (una excepción) puedas saberlo en el lado cliente, el bloque de código entre except y end de momento solo hace un RollBack y libera la transacción pero no hay forma de que el cliente se entere, para propagar la excepción y conocer el motivo de esta hay que agregar lo siguiente:

delphi

    except
      SUCURSAL.RollbackFreeAndNil(tr);
      raise ; //Esto propaga la excepción
    end;

No sabia lo de Free;.

Con todo respeto amigo, estás intentando desarrollar una aplicación de base de datos en tres capas y aún no tienes claros conceptos demasiado básicos del lenguaje como la creación y destrucción de objetos, eso es bastante peligroso, te exhorto  a que saques un tiempo y leas los conceptos básicos del lenguaje, podrías leer "La cara oculta de Delphi 4", creo que está disponible en la zona de descargas del foro o con una búsqueda en google.

Un cordial saludo.

[giulichajari]

Tienes razon, de hecho he leido algunos temas en ese libro, por lo general consulto en foros o la documentacion de embarcadero, si buscas el componente query y el metodo free, por ej aparece aunque en ingles una documentacion. Esta vez el codigo lo encontre en internet, siempre miro ejemplos, pero es evidente que no es muy buena practica.

Saludos