Ver Mensaje Individual
  #1  
Antiguo 09-11-2012
webmasterplc webmasterplc is offline
Miembro
 
Registrado: mar 2008
Posts: 275
Reputación: 17
webmasterplc Va por buen camino
Error Al Eliminar Registro

Buenas, estoy tratando de ejecutar una consulta para eliminar unos registros y me da el siguiente error

https://www.dropbox.com/s/nteegq0k1z...error11949.jpg

el código que uso es este.

Código Delphi [-]
procedure TFormEliminarPago.btn1Click(Sender: TObject);
var
codigo,factura,sqleliminar1,tipo:string;
begin
codigo:='0000';
factura:='100';
tipo:='54';
sqleliminar1:= 'delete * from Scuentasxcobrar where FCC_CODIGO= :fcccodigo and FCC_TIPOTRANSACCION=:fcctipo and FCC_NUMERO2=:fccnumero2';
if messagedlg ('Usted Va a Eliminar Los Registros de Pagos Relacionados Con ' +
  'esta factura. Este Procedimiento no se puede revertir, y tiene que registrar el Pago nuevamente desde cuentas por cobrar.. ¿Esta Usted Seguro?',mtconfirmation,[mbok,mbcancel],0)=mrok then
with datos.SQcxc do
      begin
      DatabaseName:='a2Utilitario';
      SQL.Clear;
      SQL.Text := sqleliminar1;
      ParamByName('fcccodigo').AsString:=codigo;
      ParamByName('fccnumero2').AsString:=factura;
      ParamByName('fcctipo').AsString:=tipo;
      Open;
      end;


end;

Uso Base de Datos DBISAM
Imágenes Adjuntas
Tipo de Archivo: jpg error11949.jpg (30,7 KB, 7 visitas)
Responder Con Cita