FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#3
|
|||
|
|||
Bueno parece que el problema estaba en que tenia que usar "Abort" en vez de "Facturas_cab.Cancel", cambiado eso, anda perfecto...
Código:
procedure TdmPackingList.TFacturas_cabBeforePost(DataSet: TDataSet); var query: String; begin if TFacturas_cab.State in [dsInsert] then begin query:='SELECT COUNT(nro_factura_cab) FROM facturas_cab WHERE nro_factura_cab='+QuotedStr(TFacturas_cabnro_factura_cab.Value); if not (TFacturas_cab.QuickQuery(query)='0') then begin MessageDlg('Esta factura ya existe!', mtError,[mbOk],0); Abort; end; end; end; |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Copiar informacion de un Tdataset a otro Tdataset | joelphi | Varios | 10 | 19-02-2009 22:27:44 |
Verificar registro con trigger | fedelphi | Firebird e Interbase | 3 | 20-12-2006 12:57:43 |
como capturar error de registro duplicado | ajmr81 | Firebird e Interbase | 3 | 17-10-2006 10:36:07 |
Registro Duplicado En Query | jmedina | SQL | 2 | 29-11-2004 22:11:47 |
Registro Duplicado | jmedina | Conexión con bases de datos | 0 | 17-11-2004 19:53:34 |
|