by Riyaz » Mon Aug 13, 2018 3:36 pm
Using Jiwa 7.2
Function as below
Public Sub ReadData(ByVal BusinessLogicHost As JiwaApplication.IJiwaBusinessLogic, ByVal GridObject As JiwaApplication.Controls.JiwaGrid, ByVal FormObject As JiwaApplication.IJiwaForm, ByVal Row As Integer, ByVal HostObject As JiwaApplication.IJiwaCustomFieldValues, ByVal CustomField As JiwaApplication.CustomFields.CustomField, ByVal CustomFieldValue As JiwaApplication.CustomFields.CustomFieldValue) Implements JiwaApplication.IJiwaCustomFieldPlugin.ReadData
Dim SQLParam As SqlClient.SqlParameter = Nothing
Dim SQLReader As SqlDataReader = Nothing
If CustomField.PluginCustomField.Name.Trim = "40-SalesPartNo" Then
Dim SQL As String = ""
Dim manager = New JiwaFinancials.Jiwa.JiwaApplication.Manager()
With manager.Database
Try
SQL = "SELECT dbo.IN_Main.Partno, dbo.IN_Main.Description FROM dbo.IN_Main WHERE PartNo = @PartNo ORDER BY PartNo "
Using SQLCmd As SqlCommand = New SqlCommand(SQL, .SQLConnection, .SQLTransaction)
SQLParam = New SqlParameter("@PartNo", System.Data.SqlDbType.Char)
SQLParam.Value = CustomFieldValue.Contents
SQLCmd.Parameters.Add(SQLParam)
SQLReader = .ExecuteReader(SQLCmd)
If SQLReader.Read = True Then
CustomFieldValue.DisplayContents = String.Format("{0} / {1}", .Sanitise(SQLReader, "PartNo"), .Sanitise(SQLReader, "Description"))
End If
End Using
SQLReader.Close()
Finally
If Not SQLReader Is Nothing Then
SQLReader.Close()
End If
End Try
End With
End If
End Sub