FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#9
|
|||
|
|||
Hola,
He mirado tu codigo, y el post que te falla lo usas para rellenar la variable cCodigo, no? Mira yo he probado lo siguiente : // EN FIREBIRD en una tabla de articulos tengo un campo CODIGO_BARRAS que se rellena en un After Insert de la tabla ARTICULO con el siguiente codigo, lo cual creo que funciona igual que lo que tu haces con tu generador; /* asignacion automatica del codigo de barras */ execute procedure a_art_asigna_cb(new.empresa) returning_values new.codigo_barras; // EN DELPHI en el AfterPost de ARTICULO procedure TDMArticulos_Alm.QArticuloAfterPost(DataSet: TDataSet); begin if lNuevo then begin Graba(DataSet); end; lNuevo := false; // ME MUESTRA EL CODIGO (AQUI PODRIAS TU, DAR VALOR A cCodigo, no? showmessage(QArticuloCODIGO_BARRAS.AsString); ?? cCodigo := TbEconoCODIGO.Value; // sistema de propagación entre empresas with SPPropagacion do begin ParamByName('empresa').Value := EMPRESA; ParamByName('referencia').Value := QArticuloREFERENCIA.Value; ExecProc; Close; TLocal.CommitRetaining; end; end; procedure TDMArticulos_Alm.Graba(DataSet: TDataSet); begin TpFIBDataSet( DataSet ).Transaction.CommitRetaining ; end; Yo uso Firebird + FIBPlus + Delphi 7 No se es un ejemplo que se me ha ocurrido, para probar. Dime algo, (esto lo arreglamos ya por cabezoneria :-)) Un saludo. Última edición por charly fecha: 10-07-2003 a las 17:03:40. |
|
|
|