![]() |
![]() |
| Paypal | FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
#10
|
|||
|
|||
|
Busque con Locate
En el evento OnKeyPress del DBEdit (donde cargo el Nºde Factura), escribí:
[code] procedure TForm14.DBEdit2KeyPress(Sender: TObject; var Key: Char); Var n,m,o,p:Variant; begin If Key=#13 Then begin ModuloDatos.TblPagos.Active:=True; ModuloDatos.TblFacturas.Active:=True; ModuloDatos.TblFacturas.Locate('NFactura',DBEDit2.Text,[]); n:=ModuloDatos.TblFacturas.FieldValues['NFactura']; m:=ModuloDatos.TblFacturas.FieldValues['Usuario']; o:=ModuloDatos.TblFacturas.FieldValues['Periodo']; p:=ModuloDatos.TblFacturas.FieldValues['Precio']; ModuloDatos.TblPagos.FieldValues['NFact']:=n; ModuloDatos.TblPagos.FieldValues['Usuario']:=m; ModuloDatos.TblPagos.FieldValues['Periodo']:=o; ModuloDatos.TblPagos.FieldValues['Importe']:=p; Confirmar.SetFocus; end; /[code] Bueno ese es el código, donde tengo problema... Gracias, saludos.- |
| Herramientas | Buscar en Tema |
| Desplegado | |
|
|
|