Error al generar Numero de Cotizacion

[webmasterplc]

Buenas estoy tratando de totalizar un presupuesto en el cual llamo dos funciones una que es la que toma e numero que viene de una base de datos y coloca el siguiente esto funciona perfecto igual aqui dejo el codigo por si alguna sugerencia de optimizacion o si le sirve a alguien.

Código Delphi [-]
var
ncot,pncot:Integer;
begin
with datos.sqcalculo do
      begin
      SQL.Clear;
      SQL.Add('Select * From csconfig');
      ExecSQL;
      ncot:= FieldByName('config_cotizacion').AsInteger;
      end;
      pncot:= ncot+agregado;

      with datos.sqcalculo do
      begin
      SQL.Clear;
      SQL.Add('Update csconfig');
      SQL.Add('set config_cotizacion=n_cot');
      ParamByName('pn_cot').AsInteger:=pncot;
      ExecSQL;
      end;

y la llamo asi

Código Delphi [-]
  numerocot(1);
              guardarcotizacion(documento,control,txtobservaciones.Text,1,1,100,12,112,0,now);

el problema esta es si ocurre algun error en un parametro de el p´rocedimiento guardarcotizacion el igual me suma un numero a la base de datos de la cotizacion que viene

[Neftali [Germán.Estévez]]

Supongo que independientemente de otras consideraciones, ambas operaciones deberían hacerse dentro de la misma transacción, de forma que si falla la segunda, se anule la primera y no incrementes el contador.

[[gatosoft]]

Tambien puedes revisar la posibilidad de trasladar toda la lógica de la generación de la cotización a la base de datos, asi podrias tener todo dentro de un procedimeinto almacenado (en el motor que utilices) y no tendras que trabajarlo con transacciones en delphi. ambas opciones son váldas.