okaymy1112
Member
- Joined
- Aug 26, 2014
- Messages
- 6
- Programming Experience
- Beginner
What I am trying to do is end the CaseParty.Get process when the original @ID is not found. This means it is not found because it was changed.
Also inside the objCaseParty, I want to add a display message "Original party no longer exist on the case.
In my xml document the original CaseParty/@ID was 854 but because this CasePartyName was changed the new CasePArty/@ID is 243. This causes an excelption which is what I want to avoid.
How do I do this?
Here is the CaseParty.Get object I want to make the changes
Right now I am getting an Exception "Unknown party for provided case" from running CaseParty.Get process because my xml document original CaseParty (@ID) has been changed.
So this means the original CaseParty.@ID no longer exist.
For that reason, instead of getting an Exception, I want to end CaseParty.Get process. I also want to display text message "The original party (MNCIS Parking) that triggered the NameGet process is no longer on the case."
vb.net sub
xml document
Also inside the objCaseParty, I want to add a display message "Original party no longer exist on the case.
In my xml document the original CaseParty/@ID was 854 but because this CasePartyName was changed the new CasePArty/@ID is 243. This causes an excelption which is what I want to avoid.
How do I do this?
Here is the CaseParty.Get object I want to make the changes
VB.NET:
objCaseParty = Msc.Integration.Mncis.Library.v4.CaseParty.Get(CInt(aobjXmlInputDoc.DocumentElement.SelectSingleNode("Case/CaseParty[Connection/@BaseConnection='DF']/@ID").InnerText), strCaseNumber, True)
Right now I am getting an Exception "Unknown party for provided case" from running CaseParty.Get process because my xml document original CaseParty (@ID) has been changed.
So this means the original CaseParty.@ID no longer exist.
For that reason, instead of getting an Exception, I want to end CaseParty.Get process. I also want to display text message "The original party (MNCIS Parking) that triggered the NameGet process is no longer on the case."
vb.net sub
VB.NET:
Option Strict On
Option Explicit On
Imports System.Xml
Imports System.Collections.Generic
Public Class BcaNameGet
Shared Sub main()
Dim objMessageProcessor As New MessageProcessor
objMessageProcessor.ProcessInputQueue(False, False)
End Sub
Private Class MessageProcessor : Inherits Msc.Integration.MessageBroker.Library.v4.XmlMessageProcessor
Protected Overrides Sub ProcessMessage(ByRef aobjBroker As MessageBroker.Library.v4.Broker, ByRef aobjXmlInputDoc As System.Xml.XmlDocument, ByRef aobjInstantiatedObjectsCollection As Microsoft.VisualBasic.Collection)
MyBase.ProcessMessage(aobjBroker, aobjXmlInputDoc, aobjInstantiatedObjectsCollection)
Dim objSimpleType As Msc.Integration.CourtXml.Library.v4.SimpleType = CType(aobjInstantiatedObjectsCollection.Item("SIMPLETYPE"), Msc.Integration.CourtXml.Library.v4.SimpleType)
Dim strCitationNumber As String = aobjXmlInputDoc.DocumentElement.SelectSingleNode("Citation/CitationNumber").InnerText
Dim strIssuingAgency As String = aobjXmlInputDoc.DocumentElement.SelectSingleNode("Citation/Agency/@Word").InnerText
Dim blnWasEFiled As Boolean = Msc.Integration.Mncis.Library.v4.Citation.WasEFiled(strCitationNumber, strIssuingAgency, True)
Dim strCaseNumber As String = aobjXmlInputDoc.DocumentElement.SelectSingleNode("Case/CaseNumber").InnerText
Dim objXmlPersonNameNode As XmlNode = aobjXmlInputDoc.DocumentElement.SelectSingleNode("Case/CaseParty[Connection/@BaseConnection='DF']/CasePartyName")
Dim objCaseParty As Msc.Integration.Mncis.Library.v4.CaseParty
Dim objBusinessName As Msc.Integration.Mncis.Library.v4.BusinessName
Dim objPersonName As Msc.Integration.Mncis.Library.v4.PersonName
Dim objNickname As Msc.Integration.Mncis.Library.v4.Nickname
Dim strUser As String = aobjXmlInputDoc.DocumentElement.SelectSingleNode("ControlPoint/@UserID").InnerText
Dim blnNoRetry As Boolean = False
'Get the existing party and update with registration name
objCaseParty = Msc.Integration.Mncis.Library.v4.CaseParty.Get(CInt(aobjXmlInputDoc.DocumentElement.SelectSingleNode("Case/CaseParty[Connection/@BaseConnection='DF']/@ID").InnerText), strCaseNumber, True)
If objVehicleRegistration.BusinessName.Length > 0 Then
objBusinessName = New Msc.Integration.Mncis.Library.v4.BusinessName
objBusinessName.BusinessName = objVehicleRegistration.BusinessName
objBusinessName.IsCurrent = True
objCaseParty.AddCasePartyName(CType(objBusinessName, Msc.Integration.Mncis.Library.v4.IName), , True)
Else
If objVehicleRegistration.PersonFirstName.Length > 0 Then
objPersonName = New Msc.Integration.Mncis.Library.v4.PersonName
objPersonName.First = objVehicleRegistration.PersonFirstName
objPersonName.Last = objVehicleRegistration.PersonLastName
objPersonName.Middle = objVehicleRegistration.PersonMiddleName
objPersonName.IsCurrent = True
objCaseParty.AddCasePartyName(CType(objPersonName, Msc.Integration.Mncis.Library.v4.IName), , True)
Else
objNickname = New Msc.Integration.Mncis.Library.v4.Nickname
objNickname.Nickname = objVehicleRegistration.PersonLastName
objNickname.IsCurrent = True
objCaseParty.AddCasePartyName(CType(objNickname, Msc.Integration.Mncis.Library.v4.IName), , True)
End If
objCaseParty.Party.CurrentDateOfBirth = objVehicleRegistration.PersonBirthDate
End If
End Sub
End Class
End Class
VB.NET:
<Integration>
<ControlPoint Timestamp="7/28/2016 11:20:49 AM" UserID="Nope">SAVE-CR-CASE</ControlPoint>
<Case InternalID="685" ID="14870882" Op="A" xmlns:user="[URL]http://tylertechnologies.com[/URL]">
<CaseNumber>426</CaseNumber>
<Court/>
<CaseParty Op="A" ID="854">
<Connection Op="A" Word="JRD" BaseConnection="PL" ID="684">
<Description>Jurisdiction</Description>
<TimestampCreate Op="A">7/28/2016 11:20:49 AM</TimestampCreate>
<DateAdded Op="A">07/28/2016</DateAdded>
<RemovedDate Op="A"/>
<RemovedReason Op="A" Word=""/>
<Comment Op="A"/>
</Connection>
<CasePartyName Op="A" Current="true" ID="54441" InternalNameID="570">
<CasePartyNameType Op="A" Word=""/>
<NameType>Business</NameType>
<NameLast>State of Minnesota</NameLast>
<FormattedName>State of Minnesota</FormattedName>
</CasePartyName>
<TimestampCreate Op="A">7/28/2016 11:20:49 AM</TimestampCreate>
</CaseParty>
<CaseParty Op="A" ID="243">
<SendNotice Op="A">true</SendNotice>
<RestrictView Op="A">false</RestrictView>
<Connection Op="A" Word="DFD" BaseConnection="DF" ID="44919685" InternalCasePartyConnectionID="1651126621">
<Description>Defendant</Description>
<TimestampCreate Op="A">7/28/2016 11:20:49 AM</TimestampCreate>
<DateAdded Op="A">07/28/2016</DateAdded>
<RemovedDate Op="A"/>
<RemovedReason Op="A" Word=""/>
<Comment Op="A"/>
</Connection>
<CasePartyName Op="A" Current="true" ID="12121330" InternalNameID="1618922645">
<CasePartyNameType Op="A" Word=""/>
<NameType>Standard</NameType>
<NameFirst>MNCIS</NameFirst>
<NameLast>Parking</NameLast>
<FormattedName>Parking, MNCIS</FormattedName>
</CasePartyName>
<TimestampCreate Op="A">7/28/2016 11:20:49 AM</TimestampCreate>
</CaseParty>
</Case>
<Citation Op="A" ID="679" xmlns:user="[URL]http://tylertechnologies.com[/URL]">
<CitationNumber Op="A">549</CitationNumber>
<CaseTypeKey Op="A" Word="CRM">Crim/Traf Mandatory</CaseTypeKey>
<Agency Op="A" Word="MN0270300">Brooklyn Park Police Department</Agency>
<OffenseDate Op="A">07/18/2016</OffenseDate>
<Vehicle Op="A">
<VehicleLicensePlateState Op="A">MN</VehicleLicensePlateState>
<VehicleLicensePlateNumber Op="A">348MAR</VehicleLicensePlateNumber>
</Vehicle>
</Citation>
</Integration>