Fotter location not always corect on report printout.

Post

Posted
Rating:
#1 (In Topic #1571)
AndyGable
Enthusiast
AndyGable is in the usergroup ‘Enthusiast’
hi Everyone,

As I am running a lot of text based reports on my system I have come up with a way to create the reports myself (I am always open to how to do reports quicker if that means using the report.2 with in gambas then sure but someone will have to show me a example of how it works)

below is the full code from my "Current System Stock Price Report - **Active Product Only**" Report

Code (gambas)

  1.                    Public BOPrinterWidth As Integer = 118
  2.        Public ReportNumberOfLinesPerPage As Integer = 74
  3.        Public ReportNumberOfLineAvaliabe As Integer = 0
  4.           Public ReportNumberOflinesUsed As Integer = 0
  5.                  Public ReportPageNumber As Integer = 1
  6.  
  7. ' Gambas module file
  8.  
  9.             ReportName As String = "Current System Stock Price Report - **Active Product Only**"
  10.         DisplayMessage As String = Null
  11.     Const FooterHeight As Integer = 2
  12.  
  13. Public Sub CurrentSystemPriceReport_Process(ReportType As String, UseStockControl As Integer)
  14.     DisplayMessage &= "Processing Current Product Pricing" & gb.crlf
  15.     DisplayMessage &= "for STOCK CONTROLED ENABLED Products" & gb.crlf
  16.     DisplayMessage &= "only" & gb.crlf
  17.     DisplayMessage &= gb.crlf
  18.     DisplayMessage &= "Please wait..."
  19.    
  20.     frmProcesingRequest.labSystemMessage.Text = DisplayMessage
  21.     frmbackground.Workspace1.Add(frmProcesingRequest, 0)            
  22.     Wait 0.01          
  23.  
  24.  
  25. ReportNumberOfLineAvaliabe = ReportNumberOfLinesPerPage - 4
  26.  
  27.     ReportPageNumber = 1
  28.     ProcessReport_CurrentStock(ReportType, UseStockControl)
  30.  
  31. Private Sub ProcessReport_CurrentStock(ReportType As String, UseStockControl As Integer)
  32.     Dim SalelocationNumbers As New String[9999]
  33.  
  34.     BackOfficeReportModule.SetReportHeader(Global.ReportSiteName, "Printed On " & Format(Now, "ddddd d mmmm yyyy"), ReportName, 1)
  35.  
  36.     'get all the Sale locations into memory so they can be looped through
  37.     GetSaleLocations()
  38.  
  39.     Global.BODataResult = Global.$DBBackOfficeCon.Exec(Global.BackOfficeQuery)  
  40.    
  41.     If Global.BODataResult.Count > 0 Then
  42.         Global.RowCount = 0
  43.        
  44.         For Each Global.BODataResult
  45.             SalelocationNumbers[Global.RowCount] = Global.BODataResult!deptnumber & "|" & Global.BODataResult!deptname
  46.             Global.RowCount += 1
  47.         Next
  48.  
  49.         GetDataFromDatabase(SalelocationNumbers, UseStockControl)
  50.     End If
  51.  
  52.     BackOfficeReportModule.PrintReportFunction(ReportType, ReportName)
  54.  
  55. Private Sub GetDataFromDatabase(SalelocationNumbers As String[], UseStockControl As Integer)
  56.     Dim SQLCommandLocal As String = Null
  57.     Dim LocalRow As Integer = 0
  58.  
  59.     For LocalRow = 0 To GetSaleLocationsCount()
  60.         If SalelocationNumbers[LocalRow] <> "" Then
  61.             Dim SaleLocationID As String[] = Split(SalelocationNumbers[LocalRow], "|")
  62.  
  63.             SQLCommandLocal = Null
  64.             SQLCommandLocal &= "Select "
  65.             SQLCommandLocal &= "barcodenumber, "
  66.             SQLCommandLocal &= "UPPER(posdescription) as posdescription, "
  67.             SQLCommandLocal &= "LPAD(salelocation, 4, '0') as salelocation, "
  68.             SQLCommandLocal &= "concat('£', format(retailprice,2)) as retailprice "
  69.             SQLCommandLocal &= "from producttable "
  70.            
  71.             Select Case UseStockControl
  72.                 Case 0 ' No Stock
  73.                     SQLCommandLocal &= "where salelocation='" & Format(Val(SaleLocationID[0]), "0000") & "' "
  74.                
  75.                 Case 1 ' Stock
  76.                     SQLCommandLocal &= "where salelocation='" & Format(Val(SaleLocationID[0]), "0000") & "' AND stockcontrolyn='1' "            
  77.             End Select
  78.  
  79.             SQLCommandLocal &= "AND itemstatus ='1' "
  80.             SQLCommandLocal &= "ORDER BY barcodenumber ASC;"
  81.                
  82.             Global.BODataResult = Global.$DBBackOfficeCon.Exec(SQLCommandLocal)
  83.  
  84.             If Global.BODataResult.Count > 0 Then
  85.                 PrintDepartmentHeader(Format(Val(SaleLocationID[0]), "0000"), SaleLocationID[1])                
  86.                 For Each Global.BODataResult
  87.                     Dim SysID As String = Trim(Global.BODataResult!barcodenumber)
  88.                     Dim PoSDe As String = Mid(Trim(Global.BODataResult!posdescription), 1, 34)
  89.                     Dim StkLe As String = Null
  90.                        
  91.                     If Global.BODataResult!retailprice = "£0.00" Then
  92.                         StkLe = "OPEN"
  93.                     Else
  94.                         StkLe = Global.BODataResult!retailprice    
  95.                     End If                    
  96.                
  97.                     Select Case .ReportNumberOflinesUsed
  98.                         Case To .ReportNumberOfLineAvaliabe
  99.                             PrintDeptProducts(SysID, PoSDe, StkLe)
  100.                             .ReportNumberOflinesUsed += 1
  101.                         Case Else
  102.                             'reset the line count - start a new page
  103.                             PadToEndOfPage ' * UPDATED: Pad lines before footer
  104.                             BackOfficeReportModule.SetReportFooter(frmbackground.labUserName.Caption, "Page " & .ReportPageNumber)
  105.  
  106.                             .ReportNumberOflinesUsed = 0
  107.  
  108.                             BackOfficeReportModule.SetReportHeader(Global.ReportSiteName, "Printed On " & Format(Now, "ddddd d mmmm yyyy"), ReportName, 0)
  109.                             PrintDepartmentHeader(Format(Val(SaleLocationID[0]), "0000"), SaleLocationID[1])
  110.                             .ReportPageNumber += 1
  111.                             PrintDeptProducts(SysID, PoSDe, StkLe)
  112.                             .ReportNumberOflinesUsed += 1
  113.                     End Select
  114.                 Next                    
  115.                 .BackOfficeReportData &= "~"
  116.             End If
  117.         End If
  118.     Next
  119.    
  120.     PadToEndOfPage ' * UPDATED: Pad remaining lines before final footer
  121.     BackOfficeReportModule.SetReportFooter(frmbackground.labUserName.Caption, "Page " & .ReportPageNumber)
  122.  
  123. Private Sub PrintDepartmentHeader(DeptNumber As String, DeptName As String)
  124.     Dim ReportHeader As String = DeptNumber & " " & DeptName
  125.  
  126.     .BackOfficeReportData &= ReportHeader & "~"
  127.     .BackOfficeReportData &= String(.BOPrinterWidth, "-") & "~"
  128.     PrintDeptProducts("PRODUCT", "POS", "SYSTEM")
  129.     PrintDeptProducts("BARCODE", "DESCRIPTION", "PRICE")
  130.     .BackOfficeReportData &= String(.BOPrinterWidth, "-") & "~"
  131.     .ReportNumberOflinesUsed += 5
  133.  
  134. Private Sub PrintDeptProducts(SystemID As String, PoSDescription As String, SystemPrice As String)
  135.     .BackOfficeReportData &= String.PadRight(SystemID, 20, " ")
  136.     .BackOfficeReportData &= string.PadRight(PoSDescription, 80, " ")
  137.  
  138.     Dim ChrSpace As Integer = (.BOPrinterWidth - 20 - 80)
  139.     Dim SpaceNeeded As Integer = (ChrSpace - SystemPrice.Len)    
  140.    
  141.     .BackOfficeReportData &= Space(SpaceNeeded) & SystemPrice & "~"
  142.  
  143.     frmProcesingRequest.labSystemMessage2.Caption = SystemID & " " & PoSDescription
  144.     frmProcesingRequest.Refresh
  145.     Wait 0.001
  147.  
  148. Private Sub GetSaleLocations()
  149.     Global.BackOfficeQuery = Null
  150.     Global.BackOfficeQuery &= "Select "
  151.     Global.BackOfficeQuery &= "deptnumber, "
  152.     Global.BackOfficeQuery &= "UPPER(deptname) as deptname "
  153.     Global.BackOfficeQuery &= "from salelocationtable "
  154.     Global.BackOfficeQuery &= "order by deptnumber ASC;"
  156.  
  157. Private Function GetSaleLocationsCount() As Integer
  158.     Global.BackOfficeQuery = Null
  159.     Global.BackOfficeQuery &= "Select "
  160.     Global.BackOfficeQuery &= "deptnumber, "
  161.     Global.BackOfficeQuery &= "UPPER(deptname) as deptname "
  162.     Global.BackOfficeQuery &= "from salelocationtable "
  163.     Global.BackOfficeQuery &= "order by deptnumber ASC;"
  164.     Global.BODataResult = Global.$DBBackOfficeCon.Exec(Global.BackOfficeQuery)
  165.     Return (Global.BODataResult.Count - 1)
  167.  
  168.  
  169. Private Sub PadToEndOfPage()
  170.    While .ReportNumberOflinesUsed < (.ReportNumberOfLinesPerPage - FooterHeight)
  171.     .BackOfficeReportData &= "~"
  172.     .ReportNumberOflinesUsed += 1
  173.   Wend
  175.  
  176.  

This is the output from the above code https://algpos.co.uk/pdf/ReportV2_noformating.pdf

the Footer is not always being aligned at the bottom of the page

I would like the reports to look like this https://algpos.co.uk/pdf/ReportV2.pdf

I have been looking at this all week and I am hoping a fresh set of eyes can see where I have gone wrong. and Show me what I am missing (as I am sure it is Something VERY simple that I am overlooking)

Kind Regards to all who help me

Andrew
Online now: No Back to the top

Post

Posted
Rating:
#2
gbAmainie
Trainee
 Hi

In your routine, PadToEndOfPage() dont  you have to compare with ReportNumberOfLineAvaliabe .

Regards
Online now: No Back to the top

Post

Posted
Rating:
#3
AndyGable
Enthusiast
AndyGable is in the usergroup ‘Enthusiast’

gbAmainie said

Hi
In your routine, PadToEndOfPage() dont  you have to compare with ReportNumberOfLineAvaliabe .
Regards

I'm not sure to be honest I have gotten myself into a right mix up

Here are my basics I started with

I can get 79 lines in total on the A4 page

my header always uses 5 lines (the one with the store name and report type on it) and the footer always uses 2 line.

so in my mind I have 72 lines i can use for the report (79 - 5 - 2 = 72)

BUT i would love to have it not cut the items off half way for example

where it would start a new sub header (0001 etc)

I am more then happy to scrap this methold of report generating if someone know how to do a simpler one.
Online now: No Back to the top
1 guest and 0 members have just viewed this.