Hi,
I need to add the comment line from the PO lines into the default Inventory Received Report.
Could someone help me please?
Cheers
marcosomizu wrote:The question is: what are the steps to make Jiwa sets the parameters automatically to the Stored Procedure, like it does in the Invoice for example?
Cheers!
//{@Pass_SP_StartingSlipNo}
Public Overrides Sub PrintRecord(ByVal ReportDefinition As JiwaApplication.PrintGroup.FormReports.ReportDefinition)
Dim PrintUIObject As JiwaApplication.JiwaPrintReportUI.MainForm
Dim MyLoop As Integer
PrintUIObject = JiwaApplication.Manager.Instance.CreateReport(ReportDefinition, 1, True, False, True, "{RE_Main.PackSlipID}=" & JiwaApplication.Manager.Instance.Database.FormatChar(_InventoryReceival.RecID))
If Not (PrintUIObject Is Nothing) Then
For MyLoop = 1 To PrintUIObject.PrintReportObject.JiwaReportRangeCollection.Count
If UCase(PrintUIObject.PrintReportObject.JiwaPrintFormulaCollection(PrintUIObject.PrintReportObject.JiwaReportRangeCollection(MyLoop).FormulaKey).Name) = UCase("Pass_SP_StartingSlipNo") Or UCase(PrintUIObject.PrintReportObject.JiwaPrintFormulaCollection(PrintUIObject.PrintReportObject.JiwaReportRangeCollection(MyLoop).FormulaKey).Name) = UCase("Pass_SP_EndingSlipNo") Then
PrintUIObject.PrintReportObject.JiwaReportRangeCollection(MyLoop).Value = _InventoryReceival.GRNNo
End If
Next MyLoop
PrintUIObject.UpdateReport()
PrintUIObject.chkDrill.Checked = True
PrintUIObject.PrintReportToScreen()
PrintUIObject.Show()
End If
End Sub
Public Overridable Sub PrintRecord(ByVal ReportDefinition As JiwaApplication.PrintGroup.FormReports.ReportDefinition)
Dim PrintUIObject As JiwaApplication.JiwaPrintReportUI.MainForm
Dim SelectionFormula As String = ""
SelectionFormula = "{" & BusinessLogic.RecIDFieldName & "} = " & JiwaApplication.Manager.Instance.Database.FormatChar(BusinessLogic.RecID)
PrintUIObject = JiwaApplication.Manager.Instance.CreateReport(ReportDefinition, 1, True, ReportDefinition.Report.ReportType = Report.Configuration.Report.ReportTypes.Menu, True, SelectionFormula)
If Not (PrintUIObject Is Nothing) Then
PrintUIObject.UpdateReport()
PrintUIObject.PrintReportToScreen()
PrintUIObject.Show()
End If
End Sub
"{RE_Main.PackSlipID}=" & JiwaApplication.Manager.Instance.Database.FormatChar(_InventoryReceival.RecID)
Users browsing this forum: No registered users and 3 guests