Go Back   Computer Forums > General Computing > Programming
Click Here to Login
Join Computer forums Today


Reply
 
Thread Tools Search this Thread Display Modes
 
Old 09-07-2010, 08:41 AM   #1
Fully Optimized
 
ssc456's Avatar
 
Join Date: Jan 2007
Posts: 4,279
Send a message via MSN to ssc456
Default Unknown Programming Language

Hello Folks,

Been a while since ive been on here!!

im now incredibly busy as a Systems Administrator for a system called Concept 500.
Its a horrible system but based around SQL its a call logging system, if there is a fault it logs a call and stores it in a database is able to recall it at a later date and add notes to it etc.

In a nut shell it has a section called "workflows" which basically run in the background and perform different tasks, example when a task is logged it will email someone to notify them. It also has periodic workflows which is what im trying to work through but i need to understand what programming language it uses so i can learn it.

i'll post the code in next post as its too many charactes to post @ the mo!!

Does anyone recognise this code at all so i can go off and learn it.
__________________

__________________
He who has never failed has never attempted anything worth succeeding at.

Dont Eat Animals, Its Not Good For Them And They Dont Like It!
ssc456 is offline   Reply With Quote
Old 09-07-2010, 08:42 AM   #2
Fully Optimized
 
ssc456's Avatar
 
Join Date: Jan 2007
Posts: 4,279
Send a message via MSN to ssc456
Default Re: Unknown Programming Language

Example code:

Code:
11: Option Strict Off
12: Option Explicit On
13: 
14: Imports System
15: <Assembly: System.Reflection.AssemblyVersion("1.0.5014.75"),  _
16:  Assembly: System.Reflection.AssemblyDelaySign(false)> 
17: 
18: Namespace Odyssey.Workflow.Generated
19:     
20:     <Serializable()>  _
21:     Public Class ActiveTasksmorethan6minutesold_v75
22:         Inherits Odyssey.Workflow.WorkflowWorker
23:         
24:         <NonSerialized()>  _
25:         Private _f_TASKS As Odyssey.Entities.F_TASKS
26:         
27:         Public Overridable ReadOnly Property Entities As Odyssey.Entities.F_TASKSCollection
28:             Get
29:                 Return CType(Me.EventArguments.GetArgument("Entities"),Odyssey.Entities.F_TASKSCollection)
30:             End Get
31:         End Property
32:         
33:         Public Property F_TASKS As Odyssey.Entities.F_TASKS
34:             Get
35:                 Return Me._f_TASKS
36:             End Get
37:             Set
38:                 Me._f_TASKS = value
39:             End Set
40:         End Property
41:         
42:         Private Sub Init()
43:             Me._f_TASKS = CType(Odyssey.Entities.Entity.CreateNewEntity(GetType(Odyssey.Entities.F_TASKS), true, true),Odyssey.Entities.F_TASKS)
44:             Me._f_TASKS.AutoTruncate = true
45:         End Sub
46:         
47:         Public Overrides Sub Run()
48:             Me.AuditWriter.WriteLine(CType(1,Odyssey.Entities.AuditMessageTypeEnum), "Start:  starting DOM Active Tasks more than 6 minutes old", GetType(Odyssey.Workflow.WorkflowInitiatorNode), "Start")
49:             Me.Init
50:             Me.LogWorkflowEventInfo
51:             Me.Condition_Navigate
52:         End Sub
53:         
54:         Private Sub Terminator()
55:             Me.AuditWriter.WriteLine(CType(1,Odyssey.Entities.AuditMessageTypeEnum), "Stop:  completed DOM Active Tasks more than 6 minutes old", GetType(Odyssey.Workflow.WorkflowTerminatorNode), "Stop")
56:         End Sub
57:         
58:         Private Sub EmailAction_Navigate()
59:             Me.EmailAction_Logic
60:             Me.Terminator
61:         End Sub
62:         
63:         Private Sub EmailAction_Logic()
64:             Try 
65:                 Me.AuditWriter.WriteLine(CType(1,Odyssey.Entities.AuditMessageTypeEnum), "Email Action:  Preparing Email", GetType(Odyssey.Workflow.WorkflowEmailActionNode), "Prepare Email")
66:                 Dim [To] As String = ""
67:                 '
68:                 'Binding evaluation for property ToBld
69:                 Dim ToBld As System.Text.StringBuilder = New System.Text.StringBuilder
70:                 ToBld.Append("Rebecca.Williamson@carillionplc.com; Tara.Goldhawk@carillionplc.com")
71:                 [To] = ToBld.ToString
72:                 Dim Cc As String = ""
73:                 '
74:                 'Binding evaluation for property CcBld
75:                 Dim CcBld As System.Text.StringBuilder = New System.Text.StringBuilder
76:                 Cc = CcBld.ToString
77:                 Dim From As String = ""
78:                 '
79:                 'Binding evaluation for property FromBld
80:                 Dim FromBld As System.Text.StringBuilder = New System.Text.StringBuilder
81:                 FromBld.Append("mapeley.maintenance@carillionplc.com")
82:                 From = FromBld.ToString
83:                 Dim Subject As String = ""
84:                 '
85:                 'Binding evaluation for property SubjectBld
86:                 Dim SubjectBld As System.Text.StringBuilder = New System.Text.StringBuilder
87:                 SubjectBld.Append("Active Task")
88:                 Subject = SubjectBld.ToString
89:                 Dim Body As String = ""
90:                 '
91:                 'Binding evaluation for property BodyBld
92:                 Dim BodyBld As System.Text.StringBuilder = New System.Text.StringBuilder
93:                 BodyBld.Append("A task has been left on Active. Please Check Task Control."&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10)&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10))
94:                 Try 
95:                     BodyBld.Append(F_TASKS.TA_TASK_ID)
96:                 Catch ex As System.NullReferenceException
97:                     Me.AuditWriter.WriteLine(CType(1,Odyssey.Entities.AuditMessageTypeEnum), "F_TASKS.TA_TASK_ID value missing so no text written", GetType(Odyssey.Workflow.WorkflowEmailActionNode), "Prepare Email")
98:                 Catch ex As System.Exception
99:                     Me.AuditWriter.WriteLine(CType(4,Odyssey.Entities.AuditMessageTypeEnum), "Exception parsing F_TASKS.TA_TASK_ID value", GetType(Odyssey.Workflow.WorkflowEmailActionNode), "Prepare Email")
100:                     Throw ex
101:                 End Try
102:                 BodyBld.Append(""&Microsoft.VisualBasic.ChrW(13)&Microsoft.VisualBasic.ChrW(10))
103:                 Dim BodyBldBuilder0Index As Integer
104:                 BodyBldBuilder0Index = 0
105:                 Do While (BodyBldBuilder0Index < CType(Entities,System.Collections.ICollection).Count)
106:                     Try 
107:                         BodyBld.Append(Entities(BodyBldBuilder0Index).TA_TASK_ID)
108:                     Catch ex As System.NullReferenceException
109:                         Me.AuditWriter.WriteLine(CType(1,Odyssey.Entities.AuditMessageTypeEnum), "Entities(BodyBldBuilder0Index).TA_TASK_ID value missing so no text written", GetType(Odyssey.Workflow.WorkflowEmailActionNode), "Prepare Email")
110:                     Catch ex As System.Exception
111:                         Me.AuditWriter.WriteLine(CType(4,Odyssey.Entities.AuditMessageTypeEnum), "Exception parsing Entities(BodyBldBuilder0Index).TA_TASK_ID value", GetType(Odyssey.Workflow.WorkflowEmailActionNode), "Prepare Email")
112:                         Throw ex
113:                     End Try
114:                     BodyBldBuilder0Index = (BodyBldBuilder0Index + 1)
115:                 Loop
116:                 Body = BodyBld.ToString
117:                 Dim Bcc As String = ""
118:                 '
119:                 'Binding evaluation for property BccBld
120:                 Dim BccBld As System.Text.StringBuilder = New System.Text.StringBuilder
121:                 Bcc = BccBld.ToString
122:                 Dim Attachment As String = ""
123:                 '
124:                 'Binding evaluation for property AttachmentBld
125:                 Dim AttachmentBld As System.Text.StringBuilder = New System.Text.StringBuilder
126:                 Attachment = AttachmentBld.ToString
127:                 'Call method to send Email
128:                 Try 
129:                     Odyssey.Workflow.WorkflowEmailActionNode.SendEmail([to], cc, from, bcc, subject, body, CType(1,System.Web.Mail.MailFormat), "smtpmail", attachment, false)
130:                     Me.AuditWriter.WriteLine(CType(1,Odyssey.Entities.AuditMessageTypeEnum), "Email Action:  Email sent", GetType(Odyssey.Workflow.WorkflowEmailActionNode), "Send Email")
131:                 Catch ex As System.Exception
132:                     Me.AuditWriter.WriteException(Odyssey.Workflow.WorkflowEmailActionNode.GetEmailFailedText([to], cc, from, bcc, subject, body, CType(1,System.Web.Mail.MailFormat), "smtpmail", attachment, false), ex, GetType(Odyssey.Workflow.WorkflowEmailActionNode), "Send Email")
133:                     'Swallowing exception as AllowErrorAndContinue and ErrorAndContinue are both true
134:                 End Try
135:             Catch ex As System.Exception
136:                 Me.AuditWriter.WriteException("Email Action: Unexpected exception", ex, GetType(Odyssey.Workflow.WorkflowEmailActionNode), "Execute")
137:                 'Swallowing exception as AllowErrorAndContinue and ErrorAndContinue are both true
138:             End Try
139:         End Sub
140:         
141:         Private Sub Condition_Navigate()
142:             If Me.Condition_Logic Then
143:                 Me.AuditWriter.WriteLine(CType(1,Odyssey.Entities.AuditMessageTypeEnum), "Condition:  returned TRUE", GetType(Odyssey.Workflow.WorkflowConditionNode), "Evaluate")
144:                 Me.EmailAction_Navigate
145:             Else
146:                 Me.AuditWriter.WriteLine(CType(1,Odyssey.Entities.AuditMessageTypeEnum), "Condition:  returned FALSE", GetType(Odyssey.Workflow.WorkflowConditionNode), "Evaluate")
147:                 Me.Terminator
148:             End If
149:         End Sub
150:         
151:         Private Function Condition_Logic() As Boolean
152:             Try 
153:                 If (F_TASKS.TA_STATUS.ToUpper = "Active".ToUpper) Then
154:                     Return true
155:                 Else
156:                     Return false
157:                 End If
158:             Catch ex As System.Exception
159:                 Me.AuditWriter.WriteException("Condition: Unexpected exception", ex, GetType(Odyssey.Workflow.WorkflowConditionNode), "Evaluate")
160:                 Throw
161:             End Try
162:         End Function
163:     End Class
164: End Namespace
165:
__________________

__________________
He who has never failed has never attempted anything worth succeeding at.

Dont Eat Animals, Its Not Good For Them And They Dont Like It!
ssc456 is offline   Reply With Quote
Old 09-07-2010, 10:24 AM   #3
Site Team
 
root's Avatar
 
Join Date: Mar 2004
Posts: 7,999
Default Re: Unknown Programming Language

looks like VB, perhaps ASP looks like a .net language
__________________
I didn’t fight my way to the top of the food chain to be a vegetarian…
Im sick of people saying 'dont waste paper'. If trees wanted to live, they'd all carry guns.
"The inherent vice of capitalism is the unequal sharing of blessings; The inherent vice of socialism is the equal sharing of miseries."
root is offline   Reply With Quote
Old 09-07-2010, 11:32 AM   #4
Fully Optimized
 
ssc456's Avatar
 
Join Date: Jan 2007
Posts: 4,279
Send a message via MSN to ssc456
Default Re: Unknown Programming Language

Hmmmmm maybe :?
maybe i should expand on why i want to learn this, in a nut shell we log jobs for things on Concept lets say someones blinds are broke, they phone us we log it on the system we them assign the task to an engineer and he goes out and completes. Well if for whatever reason the person logging the job forgets to assign the task its forgotten about until someone finds it.
which isnt too bad for broken blinds someone will find it in a day or 2 thats not the end of the world, the problem being we have jobs for people trapped in lifts of fire alarms going off that cant be reset and these need to be assigned straight away as if they are not attended to within 4 hours we face a financial penalty. Now i know what kind of muppet cant remember to assign a call lol it happens trust me, usually when the person logging a call gets interupted either by another phone call or by someone else.

What my workflow is designed to do is to check the system periodically i currently have it set @ 5 minutes and it checks for any tasks left on "active" ie not assigned now this is fine and it works great the problem is we are a big contract every minute we log approx 20 - 30 jobs meaning while my workflow is running and lets say the advisors take 30 seconds to assign the task my workflow is picking all of these up.

What im trying to do is to write a little extra code to say very roughly @ the mo (if TA_TASK.TA.DATE > System.DateTime.Now (6)) then blah blah blah and it goes onto emailing somone to notify them a task has been left unassigned.

the problem is i can not work out the syntax or the format in which it wants.

TA.TASK is a table which TA.DATE is stored and TA.DATE contains the time the call was logged.

Im looking for something to only pickup calls that were logged longer than say 6 minutes ago???? anyone help??
__________________
He who has never failed has never attempted anything worth succeeding at.

Dont Eat Animals, Its Not Good For Them And They Dont Like It!
ssc456 is offline   Reply With Quote
Old 09-07-2010, 05:39 PM   #5
j03
~~~~~~~~
 
Join Date: Jan 2005
Location: Wales
Posts: 5,556
Send a message via MSN to j03
Default Re: Unknown Programming Language

Line 92 makes me think that's it's VB.net
j03 is offline   Reply With Quote
Old 09-08-2010, 09:41 AM   #6
Site Team
 
root's Avatar
 
Join Date: Mar 2004
Posts: 7,999
Default Re: Unknown Programming Language

I believe that you need to edit this bit
Code:
 Private Function Condition_Logic() As Boolean
152:             Try 
153:                 If (F_TASKS.TA_STATUS.ToUpper = "Active".ToUpper) Then
<<<INSERT HERE>>>
154:                     Return true
155:                 Else
156:                     Return false
157:                 End If
158:             Catch ex As System.Exception
159:                 Me.AuditWriter.WriteException("Condition: Unexpected exception", ex, GetType(Odyssey.Workflow.WorkflowConditionNode), "Evaluate")
160:                 Throw
161:             End Try
162:         End Function
to include a conditional statement that also says

If (F_TASKS.TA_DATE = TIME-5minutes) Then
return true


or you could compound the if into an if an

If ((F_TASKS.TA_STATUS.ToUpper = "Active".ToUpper) AND (F_TASKS.TA_DATE = current time - 5 minute) Then
__________________

__________________
I didn’t fight my way to the top of the food chain to be a vegetarian…
Im sick of people saying 'dont waste paper'. If trees wanted to live, they'd all carry guns.
"The inherent vice of capitalism is the unequal sharing of blessings; The inherent vice of socialism is the equal sharing of miseries."
root is offline   Reply With Quote
Reply

Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are Off



All times are GMT -5. The time now is 01:12 AM.


Powered by vBulletin® Version 3.8.8 Beta 4
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO 3.6.0