StartTransaction

[david duarte]

Hola otra vez
una disculpa por no haber respondido antes, habia un poco de trabajo.
Bueno,
trabajo con lo componentes que vienen con delphi en la paleta de data access
DataSource y el ClientDataSource, en general con los datasource

aqui les añado una parte del codigo, espero que me puedan ayudar, la verdad no he tenido tiempo de checarla mas a detalle, solamente lo que les comente con anterioridad.

Código Delphi [-]

 if not (DMPrincipal.Database1.InTransaction) then DMPrincipal.Database1.StartTransaction;

//---->>aqui inicio el starttransaction que es donde va a empezar la transaccion.
    try
      //insertamos en segreportes el registro que se va a dar de alta.
      DMPrincipal.cdsnotas.Close;
      DMPrincipal.cdsnotas.CommandText := 'insert into segreportes (sucursalid, usuarioid, problemadivision, deptoid, divisionreporte,         noticket, impseveridad, prioridad, estatus, nivel, fechainirep, descproblema, solucion, usuarioresp)'+
                          '                 values ('+DMPrincipal.cdssucursales.fieldByName('sucursalesid').AsString+', '+inttostr(DBLookupcomboboxEjecutivo.KeyValue)+', '''+DMPrincipal.cdsprobdivafectada.FieldByName('problemadivision').AsString+''', '''+ DMPrincipal.cdsdepto.FieldByName('deptorepid').AsString+''', '+quotedstr(inttostr(rxdblookupcombo2.keyvalue))+', '+quotedstr(label2.Caption)+', '+quotedstr(importanciavar)+', '+inttostr(prioridadvar)+', ''A'', ''1'', '+fechaatencion+', '+quotedstr(memodescproblema.Lines.Text)+', '+quotedstr(memodescproblema.Lines.Text + memosolucion.Lines.Text)+', '+DMPrincipal.CDSUsuariosMau.FieldByName('usuariosid').AsString+')';
      DMPrincipal.cdsnotas.Execute;
       //seleccionamos el ultimo id del reporte que se dio de alta
      DMPrincipal.CDSAux.Close;
      DMPrincipal.CDSAux.CommandText := 'select max(segreporteid) segreporteid from segreportes';
      DMPrincipal.CDSAux.Open;




    {DMPrincipal.cdsnotas.Close;
    DMPrincipal.cdsnotas.CommandText := 'insert into segreportes (sucursalid, usuarioid, problemadivision, deptoid, divisionreporte,         noticket, impseveridad, prioridad, estatus, nivel, fechainirep, descproblema, solucion, usuarioresp)'+
                          '                 values ('+DMPrincipal.cdssucursales.fieldByName('sucursalesid').AsString+', '+inttostr(DBLookupcomboboxEjecutivo.KeyValue)+', '''+DMPrincipal.cdsprobdivafectada.FieldByName('problemadivision').AsString+''', '''+ DMPrincipal.cdsdepto.FieldByName('deptorepid').AsString+''', '+quotedstr(inttostr(rxdblookupcombo2.keyvalue))+', '+quotedstr(label2.Caption)+', '+quotedstr(importanciavar)+', '+inttostr(prioridadvar)+', ''A'', ''1'', '+fechaatencion+', '+quotedstr(memodescproblema.Lines.Text)+', '+quotedstr(memodescproblema.Lines.Text + memosolucion.Lines.Text)+', '+DMPrincipal.CDSUsuariosMau.FieldByName('usuariosid').AsString+')';
    DMPrincipal.cdsnotas.Execute;
     //seleccionamos el ultimo id del reporte que se dio de alta
    DMPrincipal.CDSAux.Close;
    DMPrincipal.CDSAux.CommandText := 'select max(segreporteid) segreporteid from segreportes';
    DMPrincipal.CDSAux.Open;}

    //posteriormente insertamos el registro correspondiente en la tabla segreportesdet
    DMPrincipal.CDSNotas.Close;
    DMPrincipal.CDSNotas.CommandText := 'insert into segreportesdet (segreporteid,estatus, nivel, fechainiatencion, usuarioresp)'+
                          '                    values ('+DMPrincipal.CDSAux.FieldByName('segreporteid').Asstring+', ''A'', ''1'', '+fechaatencion+','+quotedstr(usuarioresp)+')';
    DMPrincipal.CDSNotas.Execute;
    DMPrincipal.CDSNotas.Close;

     //seleccionamos el ultimo ticket que se genero.
    DMPrincipal.cdsnotas.CommandText := 'select max(noticket) tickets from segreportes';
    DMPrincipal.cdsnotas.Open;
    memodescproblema.Refresh;
    memosolucion.Refresh;

    Showmessage ('El número de reporte es:'+    DMPrincipal.cdsnotas.FieldByName('tickets').AsString);
    Close;

//--->>> si todo va bien, se ejecutaria el commit con los datos
    DMPrincipal.Database1.Commit;
    except
//------> de lo contrario deshace los cambios
      DMprincipal.Database1.Rollback;

    end;

estoy en lo correcto?
Saludos!!!
Hice las pruebas, pero no puedo hacer que se ejecute el rollback

En lo que respecta a los applyupdates, tenemos otro sistema que si los maneja.