AutoUpdate Parents with TImeWorked - Revision history

Admin: 5 revisions imported

2016-04-06T20:03:18Z

5 revisions imported

← Older revision		Revision as of 16:03, 6 April 2016
(No difference)

Idnorton at 09:55, 1 April 2013

2013-04-01T09:55:53Z

← Older revision		Revision as of 05:55, 1 April 2013
Line 21:		Line 21:
	# Set initial values		# Set initial values

	my $trans = $self->TransactionObj;~~<br />~~my $ticket = $self->TicketObj;		my $trans = $self->TransactionObj;
			my $ticket = $self->TicketObj;

	# Get out if not for "TimeWorked"		# Get out if not for "TimeWorked"

	return 0 unless ($trans->Type eq 'Set' &&~~<br />~~$trans->Field eq 'TimeWorked');		return 0 unless ($trans->Type eq 'Set' && $trans->Field eq 'TimeWorked');

	return 1;		return 1;
Line 34:		Line 35:
	# Set initial values		# Set initial values

	my $trans = $self->TransactionObj;~~<br />~~my $ticket = $self->TicketObj;		my $trans = $self->TransactionObj;
			my $ticket = $self->TicketObj;
	my $Time = (($trans->NewValue) - ($trans->OldValue));		my $Time = (($trans->NewValue) - ($trans->OldValue));
	my $MemberOf = $ticket->MemberOf;		my $MemberOf = $ticket->MemberOf;

Idnorton at 09:53, 1 April 2013

2013-04-01T09:53:23Z

← Older revision		Revision as of 05:53, 1 April 2013
Line 1:		Line 1:
	~~[[File:Placeholder\|right\|300px]]~~

	<pre>		<pre>
	#############################################################################~~<br />~~#		#############################################################################
	# Scrip name: WorkFlow MemberOf on Time~~<br />~~# Description: Automatically add "Time Worked" to all vertical and horizontal~~<br />~~# parent tickets~~<br />~~#		#
	# Condition: User Defined~~<br />~~# Action: User Defined~~<br />~~# Template: Global template: Blank~~<br />~~# Stage: TransactionBatch~~<br />~~# Written: 12/10/2010 - Kenn Crocker~~<br />~~#		# Scrip name: WorkFlow MemberOf on Time
	# Modified: MM/DD/YYYY - Name/comments~~<br />~~#		# Description: Automatically add "Time Worked" to all vertical and horizontal
	#############################################################################~~<br />~~#		# parent tickets
	#----------------------------------------------------------------------------~~<br />~~# Custom condition:~~<br />~~#----------------------------------------------------------------------------~~<br />~~# Set initial values		#
			# Condition: User Defined
			# Action: User Defined
			# Template: Global template: Blank
			# Stage: TransactionBatch
			# Written: 12/10/2010 - Kenn Crocker
			#
			# Modified: MM/DD/YYYY - Name/comments
			#
			#############################################################################
			#
			#----------------------------------------------------------------------------
			# Custom condition:
			#----------------------------------------------------------------------------
			# Set initial values

	my $trans = $self->TransactionObj;<br />my $ticket = $self->TicketObj;		my $trans = $self->TransactionObj;<br />my $ticket = $self->TicketObj;

Idnorton at 09:51, 1 April 2013

2013-04-01T09:51:28Z

← Older revision		Revision as of 05:51, 1 April 2013
Line 1:		Line 1:
	[[File:Placeholder\|right\|300px]]		[[File:Placeholder\|right\|300px]]

			<pre>
	#############################################################################<br />#		#############################################################################<br />#
	# Scrip name: WorkFlow MemberOf on Time<br /># Description: Automatically add "Time Worked" to all vertical and horizontal<br /># parent tickets<br />#		# Scrip name: WorkFlow MemberOf on Time<br /># Description: Automatically add "Time Worked" to all vertical and horizontal<br /># parent tickets<br />#
	# Condition: User Defined<br /># Action: User Defined<br /># Template: Global template: Blank<br /># Stage: TransactionBatch<br /># Written: 12/10/2010 - Kenn Crocker<br />#		# Condition: User Defined<br /># Action: User Defined<br /># Template: Global template: Blank<br /># Stage: TransactionBatch<br /># Written: 12/10/2010 - Kenn Crocker<br />#
	# Modified: MM/DD/YYYY - Name/comments<br />#		# Modified: MM/DD/YYYY - Name/comments<br />#
	#############################################################################<br />#		#############################################################################<br />#
	#----------------------------------------------------------------------------<br /># Custom condition:<br />#----------------------------------------------------------------------------<br /># Set initial values		#----------------------------------------------------------------------------<br /># Custom condition:<br />#----------------------------------------------------------------------------<br /># Set initial values
Line 16:		Line 17:
	return 1;		return 1;

	#----------------------------------------------------------------------------~~<br />~~# Custom action preparation code:~~<br />~~#----------------------------------------------------------------------------~~<br />~~# Set initial values		#----------------------------------------------------------------------------
			# Custom action preparation code:
			#----------------------------------------------------------------------------
			# Set initial values

	my $trans = $self->TransactionObj;<br />my $ticket = $self->TicketObj;~~<br />~~my $Time = (($trans->NewValue) - ($trans->OldValue));~~<br />~~my $MemberOf = $ticket->MemberOf;		my $trans = $self->TransactionObj;<br />my $ticket = $self->TicketObj;
			my $Time = (($trans->NewValue) - ($trans->OldValue));
			my $MemberOf = $ticket->MemberOf;

	# get out if current ticket is not a "MemeberOf" (child of some parent)		# get out if current ticket is not a "MemeberOf" (child of some parent)
Line 24:		Line 30:
	return 0 unless $MemberOf;		return 0 unless $MemberOf;

	# Loop thru each parent and add the Child's "TimeWorked" to them~~<br />~~# You can skip a parent ticket if it is not in active state by uncommenting~~<br />~~# the next statement		# Loop thru each parent and add the Child's "TimeWorked" to them
			# You can skip a parent ticket if it is not in active state by uncommenting
			# the next statement

	while( my $l = $MemberOf->Next )~~<br />~~{~~<br />~~# next unless( $l->TargetObj->Status =~ /^(?:new\|open\|stalled)$/ );~~<br />~~my $ParentTime = $l->TargetObj->TimeWorked;~~<br />~~my $NewTime = ($ParentTime + $Time);~~<br />~~$l->TargetObj->SetTimeWorked($NewTime);~~<br />~~}		while( my $l = $MemberOf->Next ) {
			# next unless( $l->TargetObj->Status =~ /^(?:new\|open\|stalled)$/ );
			my $ParentTime = $l->TargetObj->TimeWorked;
			my $NewTime = ($ParentTime + $Time);
			$l->TargetObj->SetTimeWorked($NewTime);
			}

	return 1;		return 1;

	#----------------------------------------------------------------------------~~<br />~~# Custom action cleanup code: None~~<br />~~#----------------------------------------------------------------------------<br />~~return 1;~~		#----------------------------------------------------------------------------
			# Custom action cleanup code: None
			#----------------------------------------------------------------------------
			return 1;
			</pre>

131.243.172.232 at 20:30, 10 December 2010

2010-12-10T20:30:31Z

← Older revision		Revision as of 16:30, 10 December 2010
Line 1:		Line 1:
	[[File:Placeholder\|right\|300px]]		[[File:Placeholder\|right\|300px]]

	#############################################################################<br />#		#############################################################################<br />#
	# Scrip name: ~~AutoUpdate Parents with TImeWorked~~<br /># Description: Automatically add "Time Worked" to all vertical and horizontal<br /># parent tickets<br />#		# Scrip name: WorkFlow MemberOf on Time<br /># Description: Automatically add "Time Worked" to all vertical and horizontal<br /># parent tickets<br />#
	# Condition: User Defined<br /># Action: User Defined<br /># Template: Global template: Blank<br /># Stage: TransactionBatch<br /># Written: 12/10/2010 - Kenn Crocker<br />#		# Condition: User Defined<br /># Action: User Defined<br /># Template: Global template: Blank<br /># Stage: TransactionBatch<br /># Written: 12/10/2010 - Kenn Crocker<br />#
	# Modified: MM/DD/YYYY - Name/comments<br />#		# Modified: MM/DD/YYYY - Name/comments<br />#

131.243.172.232: Created page with "300px #############################################################################
# # Scrip name: AutoUpdate Parents with TImeWorked
# Des…"

2010-12-10T20:28:27Z

Created page with "right|300px ############################################################################# # # Scrip name: AutoUpdate Parents with TImeWorked # Des…"

New page

[[File:Placeholder|right|300px]]
############################################################################# #
# Scrip name: AutoUpdate Parents with TImeWorked # Description: Automatically add "Time Worked" to all vertical and horizontal # parent tickets #
# Condition: User Defined # Action: User Defined # Template: Global template: Blank # Stage: TransactionBatch # Written: 12/10/2010 - Kenn Crocker #
# Modified: MM/DD/YYYY - Name/comments #
############################################################################# #
#---------------------------------------------------------------------------- # Custom condition: #---------------------------------------------------------------------------- # Set initial values

my $trans = $self->TransactionObj; my $ticket = $self->TicketObj;

# Get out if not for "TimeWorked"

return 0 unless ($trans->Type eq 'Set' && $trans->Field eq 'TimeWorked');

return 1;

#---------------------------------------------------------------------------- # Custom action preparation code: #---------------------------------------------------------------------------- # Set initial values

my $trans = $self->TransactionObj; my $ticket = $self->TicketObj; my $Time = (($trans->NewValue) - ($trans->OldValue)); my $MemberOf = $ticket->MemberOf;

# get out if current ticket is not a "MemeberOf" (child of some parent)

return 0 unless $MemberOf;

# Loop thru each parent and add the Child's "TimeWorked" to them # You can skip a parent ticket if it is not in active state by uncommenting # the next statement

while( my $l = $MemberOf->Next ) { # next unless( $l->TargetObj->Status =~ /^(?:new|open|stalled)$/ ); my $ParentTime = $l->TargetObj->TimeWorked; my $NewTime = ($ParentTime + $Time); $l->TargetObj->SetTimeWorked($NewTime); }

return 1;

#---------------------------------------------------------------------------- # Custom action cleanup code: None #---------------------------------------------------------------------------- return 1;