Hay que ejecutar el comando ADDPFTRG nuevamente, solo que con
TRGEVENT(*DELETE), y se van acumulando los triggers.  Si se quiere para
insert, TRGEVENT(*INSERT). 

 

El ejecutar el comando ADDPFTRG, no reemplaza el trigger anterior, a menos
que sea el mismo evento (*INSERT, *DELETE,*UPDATE, *READ) y el mismo tiempo
(*BEFORE, *AFTER), y ademas se de el parametro RPLTRG(*YES).

 

Saludos.

 

  _____  

From: [email protected]
[mailto:[email protected]] On Behalf Of Pedro Molina
Sent: Miércoles, 09 de Diciembre de 2009 09:40 a.m.
To: [email protected]
Subject: RE: Ejemplo básico de un programa de trigger en rpg.

 

Gracias Bernabe.
 
Me puedes dar un ejemplo? (no de el programa) sino del comando, si no es
mucha molestia.
 
Digamos que primero hago lo siguiente:
 
 ===> ADDPFTRG FILE(SICODAT/TABSUBOP) TRGTIME(*BEFORE) TRGEVENT(*UPDATE)
PGM(SIC
OPGM/TRIGGERMOD) TRG(ACTUALIZAR) ALWREPCHG(*YES)           
 
con esto ya se enlaza el programa trigger a esta tabla y si hago cualquier
cambio en ésta, se dispara el trigger.
 
Ahora, si elimino un registro de la misma tabla el trigger no se dispara.
 
Que o como tengo que hacer para controlar estos 2 eventos? 
 
Saludos!!                      
 

  _____  

From: [email protected]
To: [email protected]
Subject: RE: Ejemplo básico de un programa de trigger en rpg.
Date: Wed, 9 Dec 2009 09:11:13 -0600

La respuesta es SI, un solo programa se puede adicionar varias veces como
trigger, de hecho, hasta se puede poner mas de una ves por evento si no se
le da el parámetro RPLTRG(*YES)  ( lo cual me paso a mi por error y me
duplico los saldos, jeje). 

 

Saludos.

 

 

  _____  

From: [email protected]
[mailto:[email protected]] On Behalf Of Pedro Molina
Sent: Miércoles, 09 de Diciembre de 2009 08:14 a.m.
To: [email protected]
Subject: RE: Ejemplo básico de un programa de trigger en rpg.

 

Gracias Jesús.
 
Plantearé la pregunta de otra forma, ya que en sí como le decía a Víctor,
pude codificar un programa de trigger sencillo de acuerdo a un ejemplo y
funcionó.
 
Ahi va...
 
La pregunta es que si un programa de Trigger te puede controlar los 3 o 4
eventos que se puedan suscitar con una determinada tabla, ya que al crear el
el desencadenante asociado a la tabla con el mandato ADDPFTRG, solo te
permite definir un evento (*INSERT, *DELETE, *UPDATE, *READ).
 
Para ser un poco más claro, es necesario crear un programa Trigger diferente
para cada evento que se quiera controlar?
 
Saludos!!
 

  _____  

Date: Wed, 9 Dec 2009 08:37:40 +0100
From: [email protected]
To: [email protected]
Subject: Re: Ejemplo básico de un programa de trigger en rpg.

¿qué es eso ""básico" que quieres hacer?
¿Modificar la misma tabla que dispara el trigger, o algún otro tipo de
operación?

Te envío un par de programas de ejemplo, uno de cada estilo, que, como ves,
tienen bastante en común. El código de la mayor parte de los mismos ha sido
sacado de la documentación.

El programa t...@extrz hacía un cambio en el mismo registro del archivo del
trigger (se usaba para el cambio al euro, para mantener automáticamente
sincronizado el campo de valor en euros con el de pesetas) . El otro
programa utiliza el trigger para preparar un envío de los datos del registro
a un sistema externo.

Hay que tener en cuenta que si se quiere poder modificar el mismo registro
del archivo que llama al trigger, el mandato para asignar el trigger se hace
con la opción "permitir cambio repetido" en *YES, o el cambio no se permite.

Saludos





Pedro Molina escribió: 

Saludos Foreros!!
 
Esta vez quisiera saber si alguien me pudiera mandar un ejemplo de lo más
básico de un programa de Trigger en RPGIV.
 
Quiero entrarle a esta onda y pues quiero ver como es la cosa.
 
Gracias anticipadas por su ayuda.
 
Saludos!!

  _____  

Discover the new Windows Vista Learn
<http://search.msn.com/results.aspx?q=windows+vista&mkt=en-US&form=QBRE>
more! 

 
 





  _____  



 
 
 
____________________________________________________
© Publicaciones Help400, S.L. - Todos los
derechos reservados http://www.help400.es <http://www.help400.es/> 
----------------------------------------------------
Para darte de baja visita la siguente URL:
http://listas.combios.es/mailman/listinfo/forum.help400

 

-- 

Jesús Busquets

GRESPANIA, S.A.

Este mensaje se dirige exclusivamente a su destinatario y puede contener
información privilegiada o confidencial. Si no es Vd. el destinatario
indicado, queda notificado de que la utilización, divulgación y/o copia sin
autorización está prohibida en virtud de la legislación vigente. Si ha
recibido este mensaje por error, le rogamos que nos lo comunique
inmediatamente por esta misma vía y proceda a su destrucción.

 

 

  _____  

Explore the seven wonders of the world Learn
<http://search.msn.com/results.aspx?q=7+wonders+world&mkt=en-US&form=QBRE>
more!

 

  _____  

Discover the new Windows Vista Learn more!
<http://search.msn.com/results.aspx?q=windows+vista&mkt=en-US&form=QBRE> 

____________________________________________________
© Publicaciones Help400, S.L. - Todos los
derechos reservados http://www.help400.es
----------------------------------------------------
Para darte de baja visita la siguente URL:
http://listas.combios.es/mailman/listinfo/forum.help400

Responder a