VERSION 5.00
Begin {82282820-C017-11D0-A87C-00A0C90F29FC} wxlcommpn 
   Caption         =   "ActiveReport1"
   ClientHeight    =   5895
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   11595
   StartUpPosition =   2  '屏幕中心
   _ExtentX        =   20452
   _ExtentY        =   10398
   SectionData     =   "wxlcommpn.dsx":0000
End
Attribute VB_Name = "wxlcommpn"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub ActiveReport_Initialize()
  wxlcommpn.Printer.PaperSize = bgjpapersize
  If wxlprintflag = 1 Then
    wxlcommpn.Printer.PrintDialog
  End If
End Sub

Private Sub ActiveReport_ReportStart()
 ' Printer.PaperWidth = 106 * stunit  '紙張高
 ' Printer.PaperHeight = 51 * stunit   '紙張寬
 ' wxlcommpn.Printer.PaperSize = bgjpapersize
  
  If wxlslflag = 1 Then
      Label24.Visible = True
      Label25.Visible = True
      Label24.Caption = "Short Leads"
      Label25.Caption = "Short Leads"
    Else
    '2006.08.01 add the code
    If wxlslflag = 2 Then
      Label24.Visible = True: Label25.Visible = True
      Label24.Caption = "Long Leads"
      Label25.Caption = "Long Leads"
     Else
      Label24.Visible = False: Label25.Visible = False
    End If
  End If

  
  If wxlabnum >= 4 Then
     Field3.Left = 15
     Field3.Width = 2790
     Field8.Left = 3090
     Field8.Width = 2790
    Else
     '2006.06.15 cancel the code
      ' Field3.Left = 1095: Field3.Width = 1740
      ' Field8.Left = 4165: Field8.Width = 1740
     '2006.06.15 add the code
     If InStr(wxlab, "CURUS") > 0 And InStr(wxlab, "SEMKO") > 0 Then
       Field3.Left = 475: Field8.Left = 3545
       Field3.Width = 2240: Field8.Width = 2240
       Field3.Alignment = ddTXRight: Field8.Alignment = ddTXRight
      Else
       Field3.Left = 1095: Field3.Width = 1740
       Field8.Left = 4165: Field8.Width = 1740
     End If
  End If
End Sub

Private Sub Detail_AfterPrint()
  wxlprint = 0
End Sub

Private Sub setjpnull()
Dim tmpab As String
Dim tmpfirstab, tmpwholeab As String
Dim i, firstnum As Integer
 For i = 1 To 14  '清空數(shù)據(jù)
   Me.Detail.Controls("Field" & i).Text = ""
 Next
 
     Field11.Visible = False
     Field12.Visible = False
     If wxlabnum > 5 Then
       tmpab = "": tmpfirstab = "": tmpwholeab = ""
       Field11.Visible = True
       Field12.Visible = True
       firstnum = InStr(wxlab, " ")
       For i = 1 To firstnum
         tmpab = Mid(wxlab, i, 1)
         tmpfirstab = tmpfirstab & tmpab
       Next
       Field11.Text = tmpfirstab
       Field12.Text = tmpfirstab
       
       For i = (firstnum + 1) To Len(wxlab)
         tmpab = Mid(wxlab, i, 1)
         tmpwholeab = tmpwholeab & tmpab
       Next
       wxlab = tmpwholeab
     End If

 For i = 0 To 1
   Me.Detail.Controls("Field" & 1 + i * 5).Text = wxltype
   Me.Detail.Controls("Field" & 2 + i * 5).Text = wxlratings
   Me.Detail.Controls("Field" & 3 + i * 5).Text = wxlab
   Me.Detail.Controls("Field" & 4 + i * 5).Text = wxllotno
   Me.Detail.Controls("Field" & 5 + i * 5).Text = wxlqty
 Next
   Field13.Text = wxlpn: Field14.Text = wxlpn
   
End Sub

Private Sub Detail_Format()
   Call setjpnull
End Sub