Ver Mensaje Individual
  #1  
Antiguo 27-09-2016
webmasterplc webmasterplc is offline
Miembro
 
Registrado: mar 2008
Posts: 275
Reputación: 17
webmasterplc Va por buen camino
Error al generar Numero de Cotizacion

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
Responder Con Cita