Results 1 to 2 of 2

Thread: How do I end CaseParty.Get process and display message?

  1. #1

    Thread Starter
    Member
    Join Date
    Sep 2013
    Posts
    43

    How do I end CaseParty.Get process and display message?

    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
    Code:
    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
    Code:
    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
    xml document
    Code:
    <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="http://tylertechnologies.com">
    		<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="http://tylertechnologies.com">
    		<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>

  2. #2

    Thread Starter
    Member
    Join Date
    Sep 2013
    Posts
    43

    Re: How do I end CaseParty.Get process and display message?

    I have resolved this using try catch

Tags for this Thread

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  



Click Here to Expand Forum to Full Width