home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / vb_code2 / timetrak / report.bas < prev    next >
BASIC Source File  |  1991-09-20  |  4KB  |  128 lines
  1.  
  2. Sub Print_Detail ()
  3.     linecnt = linecnt + 1
  4.     GetField ttrakRec, 5, "A"
  5.     dwho$ = Mid$(returnfld, 1, 3)
  6.     If dwho$ = "HDR" Then
  7.         If Mid$(savtotal, 1, 1) <> "0" Then
  8.             If printFlag = 1 Then
  9.                 report1.detail.Print Tab(15); "total hours: "; savtotal
  10.                 report1.detail.Print
  11.             Else
  12.                 printer.Print Tab(15); "total hours: "; savtotal
  13.                 printer.Print
  14.             End If
  15.         End If
  16.         GetField ttrakRec, 4, "N"
  17.         savtotal = RTrim$(returnfld)
  18.         Exit Sub
  19.     End If
  20.     GetField ttrakRec, 1, "A"
  21.     dProj$ = RTrim$(returnfld)
  22.     GetField ttrakRec, 3, "D"
  23.     dDate$ = returnfld
  24.     GetField ttrakRec, 4, "N"
  25.     dHours$ = returnfld
  26.     If printFlag = 1 Then
  27.         report1.detail.Print Tab(2); Mid$(dProj$, 1, Len(dProj$) - 1); Tab(22); RTrim$(dDate$); Tab(34); RTrim$(dHours$); Tab(41); RTrim$(dwho$)
  28.     Else
  29.         printer.Print Tab(2); Mid$(dProj$, 1, Len(dProj$) - 1); Tab(22); RTrim$(dDate$); Tab(34); RTrim$(dHours$); Tab(41); RTrim$(dwho$)
  30.     End If
  31. End Sub
  32.  
  33. Sub Print_Report (direction As Integer)
  34.     If direction = 1 Then
  35.         If rc = PXERR_ENDOFTABLE Then
  36.             Exit Sub
  37.         End If
  38.         pageno = pageno + 1
  39.         key1(pageno, 1) = key1(pageno - 1, 2)
  40.         key2(pageno, 1) = key2(pageno - 1, 2)
  41.     ElseIf direction = 0 Then
  42.         If pageno = 1 Then
  43.             Exit Sub
  44.         End If
  45.         pageno = pageno - 1
  46.         If pageno = 1 Then
  47.             savtotal = "0"
  48.         End If
  49.     End If
  50.     report1.detail.Cls
  51.     report1.detail.currentX = 0
  52.     report1.detail.currentY = 0
  53.     report1.pagenbr.caption = "Page" + Str$(pageno)
  54.     rc = PXPutAlpha(ttrakRec, 1, key1(pageno, 1))
  55.     PXError
  56.     rc = PXPutShort(ttrakRec, 2, key2(pageno, 1))
  57.     PXError
  58.     rc = PXSrchKey(ttrakTbl, ttrakRec, 2, SEARCHFIRST)
  59. '    PXError
  60.     If pageno > 1 And direction = 1 And printFlag = 1 Then
  61.         PXNext ttrakTbl, ttrakRec
  62.     End If
  63.     linecnt = 0
  64.     If printFlag = 2 Then
  65.         rc = PXRecFirst(ttrakTbl)
  66.         PXError
  67.     End If
  68.     Do Until rc = PXERR_ENDOFTABLE
  69.         rc = PXRecGet(ttrakTbl, ttrakRec)
  70.         PXError
  71.         GetField ttrakRec, 1, "A"
  72.         key1(pageno, 2) = RTrim$(returnfld)
  73.         GetField ttrakRec, 2, "N"
  74.         key2(pageno, 2) = Val(returnfld)
  75.         If projFlag = 1 Then
  76.             If projectname = Mid$(key1(pageno, 2), 1, Len(projectname)) Then
  77.                     Print_Detail
  78.             End If
  79.         Else
  80.                 Print_Detail
  81.         End If
  82.         PXNext ttrakTbl, ttrakRec
  83.         If printFlag = 1 And linecnt = 15 Then
  84.             Exit Do
  85.         End If
  86.     Loop
  87.     If rc = PXERR_ENDOFTABLE Then
  88.         If printFlag = 1 Then
  89.             report1.detail.Print Tab(15); "total hours: "; savtotal
  90.             report1.Show
  91.         Else
  92.             printer.Print Tab(15); "total hours: "; savtotal
  93.             printer.EndDoc
  94.             screen.mousepointer = 1
  95.         End If
  96.     End If
  97.     If printFlag = 1 Then
  98.         report1.Show
  99.     Else
  100.         Unload prtfrm
  101.         Unload printselect
  102.     End If
  103. End Sub
  104.  
  105. Sub Print_header ()
  106.     If printFlag = 2 Then
  107. '         printer.fontname = "Tms Rmn"
  108.          printer.fontname = "courier"
  109.          printer.fontbold = -1
  110. '         printer.fontsize = 13.5
  111.          printer.fontsize = 12
  112.          printer.Print Tab(10); "Time Tracking Report"
  113.          pageno = printer.page
  114.          printer.Print Tab(16); "Page: "; pageno
  115.          printer.Print
  116.          printer.fontunderline = -1
  117.          printer.fontsize = 8.25
  118.          printer.Print Tab(2); "Project"; Tab(23); "  Date "; Tab(33); "Hours"; Tab(41); "Who"
  119.          printer.fontunderline = 0
  120.          printer.fontbold = 0
  121.          printer.Print
  122.     Else
  123.         report1.header.Print Tab(2); "Project"; Tab(23); "  Date "; Tab(33); "Hours"; Tab(41); "Who"
  124.     End If
  125.  
  126. End Sub
  127.  
  128.