webmasterplc
09-11-2012, 13:22:53
Buenas, estoy tratando de ejecutar una consulta para eliminar unos registros y me da el siguiente error
https://www.dropbox.com/s/nteegq0k1zh9g1u/error11949.jpg
el código que uso es este.
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
https://www.dropbox.com/s/nteegq0k1zh9g1u/error11949.jpg
el código que uso es este.
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