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;
try
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;
DMPrincipal.CDSAux.Close;
DMPrincipal.CDSAux.CommandText := 'select max(segreporteid) segreporteid from segreportes';
DMPrincipal.CDSAux.Open;
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;
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;
DMPrincipal.Database1.Commit;
except
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.