FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Problemas al generar una clave unica
Hola Amigos delphianos.
He avanzado ya bastante gracias a esta ayuda. mi consulta es la siguiente tengo una tabla en SQL 2000, en un servidor y la conexión la realizo a través de Ado todo hasta aqui todo bien. pero quiero generar una clave unica con los valores de dos campos, ambos numeric 13. pero el problema esta cuando los grabos lo hace con un valor totalmente diferente al real, el codigo que ejecuto es el siguiente: procedure TFoInscrip.CEditCuentaKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin If Key = Vk_return then begin if dmm.ADOTOrdenPago.Locate('cuentaordenpago',CeditCuenta.Text, []) then begin Bplanillaexiste := True; CeditOrden.Text := dmm.ADOTOrdenPago.fieldBYname ('ORDENPAGO').AsString; DeditIngreso.Text:= dmm.ADOTOrdenPago.fieldBYname('FECHAORDEN').AsString; MkRut.Text := dmm.ADOTOrdenPago.fielDByname('RutProveedores').AsString; if dmm.ADOTProveedores.Locate('rutproveedores',MkRut.Text,[]) then begin MkRut.Text := dmm.ADOTProveedores.fieldbyName('RutProveedores').AsString; EditNombreProv.Text:= dmm.ADOTProveedores.fieldbyName('empresa').AsString; end; end; ShowMessage('No existe cuenta'); CEditOrden.SetFocus; end; end; Gracias por leer y ayuda en ejecucion de este proyecto... salu2 |
|
|
|