![]() |
![]() |
| Paypal | FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
|||||||
| Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
|
Herramientas | Buscar en Tema | Desplegado |
|
#3
|
|||
|
|||
|
codigo grabar
if ((modificar.Tag=0)and (controla=true)) then
begin with query do begin //tabla.Last; sql.Clear; SQL.Add('SELECT MAX(RIG) FROM VER_CABECERAS_AVI_SAT'); open; rig:=Fields.Fields[0].AsInteger; //showmessage(inttostr(rig)); sql.Clear; SQL.Add('insert into ver_cabeceras_avi_sat '); SQL.Add('(Rig,Fecha,num_serie,cliente,contacto,recepcionado,garantia,su_referencia,tarifa,serie,id_s ,averia,descripcion,observaciones)'); SQL.Add('values('); sql.Add(inttostr(rig+1)+','); SQL.Add(chr(39)+formatdatetime('dd.mm.yyyy',txtfecha.DateTime)+chr(39)+','); SQL.Add(txtnumeroserie.Text+','); SQL.Add(txtcliente.text+','); SQL.Add(txtcontactos.Text+','); sql.Add(txtrecepcionado.Text+','); sql.Add(chr(39)+txtgarantia.Text+chr(39)+','); sql.Add(chr(39)+txtsureferencia.Text+chr(39)+','); sql.Add('2,'); sql.Add('UPPER('+chr(39)+txtserie.Text+chr(39)+'),'); sql.Add('1,'); sql.Add(chr(39)+averia.Text+chr(39)+','); sql.Add(chr(39)+descripcion.text+chr(39)+','); sql.Add(chr(39)+observaciones.Text+chr(39)+')'); showmessage(sql.Text); open; SQL.Add('commit;'); showmessage('Aviso guardado'); sql.Clear; end; Esto es un poco del codigo que tengo en grabar, la tabla en la que quiero ver los cambios es VER_CABECERAS_AVI_SAT y para esto utilizo: IBDatabase:enlazado con la bd de marathon IBTable:que conecta con la tabla: VER_CABECERAS_AVI_SAT IBtransaction IBQuery:con la que hago las consultas Para el grid tengo un DataSource enlazado a otra query en la que selecciono los campos que quiero que se vean: SELECT avi.rig,avi.fecha,avi.cliente,ter.nombre_comercial,avi.num_serie,avi.recepcionado,avi.garantia,avi.s u_referencia,avi.observaciones,avi.descripcion,avi.notas,avi.averia FROM ver_cabeceras_avi_sat avi, sys_terceros ter WHERE avi.cliente=ter.tercero; Esta query a su vez esta enlazada con el IBTable y con IBTransaction ---------------------------------------------------------------------- Si quieres saber algo mas dimelo es que soy novata en este lenguaje |
|
|
|