darshan
New member
- Joined
- Mar 23, 2021
- Messages
- 2
- Programming Experience
- 3-5
VB.NET:
Public Sub Main(sDocumentType() As String)
Try
_dtParameters = DjjData.GetApplicationParameters(ApplicationType)
ErrorPanel.DJJ_ApplicationType = ApplicationType
ErrorPanel.DJJ_BizType = BizType
ErrorPanel.DJJ_Emailonerror = True
ErrorPanel.DJJ_EmailRecipients = DJJFunctions.GetParameterValue(_dtParameters, "EmailonerrorRecipients")
Select Case sDocumentType(0)
Case "PO", "SO"
ContractPrintFunctions.ProcessContractDocuments(BizType, "PO", ApplicationType)
Case "PCO", "SCO"
ContractPrintFunctions.ProcessChangeOrderDocuments(BizType, sDocumentType(0), ApplicationType)
Case Else
Exit Sub
End Select
Catch ex As Exception
ErrorPanel.HandleError(ex, "PrintProcessor")
End Try
End Sub
Last edited by a moderator: