![]() |
![]() |
![]() |
![]() |
![]() |
FTP | ![]() |
![]() |
CCD | ![]() |
![]() |
Buscar | ![]() |
![]() |
Trucos | ![]() |
![]() |
Trabajo | ![]() |
![]() |
Foros | ![]() |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
![]() |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
Hola,
Cita:
Cita:
Cita:
Muchas gracias, Virginia
__________________
Sonrie al mundo, y el mundo te sonreirá :) Última edición por Giniromero fecha: 16-04-2004 a las 11:09:37. |
#2
|
||||
|
||||
Hola.
Cita:
Cita:
Te paso un trozo de código en el que calculo un nº de linea de Pedio : select max(LINEA) from PED_LINEAS where NUM_PED = new.NUM_PED into :V_LINEA; if (:V_LINEA is null) then V_LINEA = 1; V_NUMERO = cast(new.NUM_PED as varchar(10)); V_NUMERO = V_NUMERO || '-'; V_NUMERO = V_NUMERO || cast(V_LINEA as varchar(10)); new.LINEA = V_LINEA; new.NUMERO = V_NUMERO; Nota : V_LINEA y V_NUMERO són variables. Este código va a numerar las lineas del Pedido 114, como 114-1, 114-2, etc. ... Dos usuarios pueden estar entrando lineas en ese Pedido simultaneamente, puesto que las posiblidades de repetir un nº són mínimas. Saludos
__________________
Marc Guillot (Hi ha 10 tipus de persones, els que saben binari i els que no). Última edición por guillotmarc fecha: 16-04-2004 a las 12:47:51. |
#3
|
|||
|
|||
Hola,
Gracias por el código que me pasas, y por la explicación, pero es que necesito algo que me parece es distinto a esto. ![]() Me explico, tengo 2 empresas, y dependiendo del producto que se está vendiendo, lo tiene que facturar una u otra. Hasta ahora lo que hacia, es que el vendedor seleccionaba la empresa en el propio proceso de pago, con este dato me iba a la tabla donde vienen todos los datos de las dos empresas, y copiaba lo que había en el campo recibo, de la empresa seleccionada, que no era otra cosas que el numero de recibo espedido en último lugar por esa empresa. Luego mediante código, incrementaba el recibo, y copiaba el nuevo número de recibo en el campo recibo, sustituyendo al anterior valor. Por ello, necesito de alguna manera, poder seleccionar en código, mediante variable externa o algo así, la empresa que me lo tiene que cobrar, ya que cada empresa tiene una numeración de recibo distinta, y según sea, hacer que se active el generador que corresponde a una o a la otra. ![]() He estado probando la posibilidad, de que, una vez seleccionada la empresa, que coja y al insertar un nuevo registro, inserte en el campo recibo su inicial por defecto, antes de dar al post, y que trigger lo que haga es, dependiendo de que letra se encuentre en ese campo, ejecutar un generador u otro, pero no sé si no se puede, y es, tal vez, una soberana estupidez este planteamiento, o simplemente no lo he sabido poner en marcha. el código que para esto tengo es: Cita:
Virginia
__________________
Sonrie al mundo, y el mundo te sonreirá :) |
#4
|
||||
|
||||
![]() de poderse... se puede, pero si el campo recibo es parte de la llave primaria, como supongo que será, tenes el inconveniente que Delphi será incapaz de localizarlo después de realizada la inserción, pues su valor cambia en la base de datos y no hay forma de recuperarlo. Por ello, quizas es conveniente que utilices la misma lógica, pero desde el evento BeforePost de la tabla, cuando esta se encuentre en modo de inserción. Algo como lo siguiente (donde he inventado el nombre de todas las variables y objetos, que espero se deduzcan sus tipos).
Código:
if tRecibo.State = dsInsert Then Begin if tReciboEmpresa.AsString = 'C' then Begin spGen_ReciboC.ExecProc; tReciboRecibo.AsInteger := spGen_ReciboC.ParamByName('id').AsInteger; end else Begin spGen_ReciboA.ExecProc; tReciboRecibo.AsInteger := spGen_ReciboA.ParamByName('id').AsInteger; end; end; ![]()
__________________
Juan Antonio Castillo Hernández (jachguate) Guía de Estilo | Etiqueta CODE | Búsca antes de preguntar | blog de jachguate |
#5
|
|||
|
|||
Hola,
Cita:
Cita:
En cuanto a: Código:
if tRecibo.State = dsInsert Then Begin if tReciboEmpresa.AsString = 'C' then Begin spGen_ReciboC.ExecProc; tReciboRecibo.AsInteger := spGen_ReciboC.ParamByName('id').AsInteger; end else Begin spGen_ReciboA.ExecProc; tReciboRecibo.AsInteger := spGen_ReciboA.ParamByName('id').AsInteger; end; end; Que significa exactamente: spGen_ReciboC.ExecProc; y el 'id' de: spGen_ReciboA.ParamByName('id').AsInteger; ¿es una llamada al generador de IB desde el Delphi? ¿como hago para ponerle la A o la C delante? Muchas gracias por la ayuda, Virginia
__________________
Sonrie al mundo, y el mundo te sonreirá :) |
#6
|
|||
|
|||
Hola Virginia
Con el código del amigo Juan Antonio me imagino que: 1.- spGen_ReciboC : será un TIBStorecProc que lanzará un SP en IB que devolverá el siguiente número que le toque mediante el Generador 2.- spGen_ReciboA.ParamByName('id').AsInteger : es el parámetro de salida del SP Cita:
Cita:
![]() |
#7
|
|||
|
|||
Hola,
Lo primero gracias por contestar. Cita:
El tema es que, una vez más, tengo problemas para la programación de estos. Estoy aprendiendo a usarlos, y aunque he conseguido hacer funcionar a algunos ejecutandoles directamente desde IB, no he sido capaz, todavía, de hacerlos funcionar desde delphi, usando un TIBStorecProc, y un ExecProc. Hasta ahora, los he utilizado mediante los TIBDataSet, llamando a los procedimientos como si de una tabla se tratase, pues no he conseguido que me tome el valor de una variable externa, (cuyo valor le pase desde la aplicación que estoy creando). Cita:
Gracias por la ayuda. Virginia
__________________
Sonrie al mundo, y el mundo te sonreirá :) |
![]() |
Herramientas | Buscar en Tema |
Desplegado | |
|
|
![]() |
|