Hola nuevamente a todos y gracias por sus ayudas de ante mano.
Mi problema es el siguiente:
Estoy usando FindKey para realizar una busqueda y q me diga si existe ya un registro para no repetirlo, pero como utilizo los TDBEdit para mostrar he ingresar los datos me dice que siempre existen y esto es cuando hago el Insert correspondiente.
Código Delphi
[-]
cRut:=Md.tbCompra.FieldByName('Rut').AsString;
cTipDoc:=Md.tbCompra.FieldByName('TipDoc').AsString;
nDoc:=Md.tbCompra.FieldByName('NumDoc').AsInteger;
Md.tbCompra.IndexName:='CompCom';
If MD.tbCompra.FindKey([cRut,cTipDoc,nDoc])=True THEN
ShowMessage('El registro ya existe');
Estoy usando bases Paradox 7
Y si uso este codigo me arroja un error de violacion.
Código Delphi
[-]
cRut:=DBedit4.Text;
cTipDoc:=DBComboBox1.Text;
nDoc:=StrToInt(DBEdit3.Text);
Md.tbCompra.IndexName:='CompCom';
If MD.tbCompra.FindKey([cRut,cTipDoc,nDoc])=True THEN
ShowMessage('El registro ya existe');
Gracias de ante mano.