Huer
08-06-2004, 21:56:09
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
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