﻿Imports System.Linq
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Data
Imports System.Drawing
Imports System.Text
Imports System.Windows.Forms
Imports System.Runtime.InteropServices
Imports BTClientLib
Imports System.IO
Imports System.Reflection

Public Class frm3015
    Inherits System.Windows.Forms.Form

    'Private dbClient As BtrieveDbClient
    Private tmpStr As List(Of Dictionary(Of String, String))
    Private affected_rows As Integer

#Region " Windows tH[€ fUCiลถฌณ๊ฝR[h "

    Public Sub New()
        MyBase.New()

        ' ฑฬฤัoตอ Windows tH[€ fUCiล•K—vลทB
        InitializeComponent()

        ' InitializeComponent() ฤัoตฬใษ๚ป๐’วมตทB

    End Sub

    ' Form อAR“|[l“g๊——ษใ—๐ภsท้ฝ฿ษ dispose ๐I[o[ChตทB
    'Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
    '    If disposing Then
    '        If Not (components Is Nothing) Then
    '            components.Dispose()
    '        End If
    '    End If
    '    MyBase.Dispose(disposing)
    'End Sub

    ' Windows tH[€ fUCiล•K—vลทB
    'Private components As System.ComponentModel.IContainer

    '  : ศบฬvV[WอAWindows tH[€ fUCiล•K—vลทB
    'Windows tH[€ fUCi๐gมฤ•ฯXตฤญพณขB  
    ' R[h GfB^๐gมฤ•ฯXตศขลญพณขB
    'Friend WithEvents WarpCtrl1 As WarpControl.WarpCtrl
    'Friend WithEvents WarpHWBcr1 As WarpControl.WarpHWBcr
    'Friend WithEvents WarpBox1 As WarpControl.WarpBox
    'Friend WithEvents wfKey As WarpControl.WarpField
    'Friend WithEvents WarpFrame1 As WarpControl.WarpFrame
    'Friend WithEvents WarpField3 As WarpControl.WarpField
    'Friend WithEvents WarpField5 As WarpControl.WarpField
    'Friend WithEvents WarpField7 As WarpControl.WarpField
    'Friend WithEvents WarpField8 As WarpControl.WarpField
    'Friend WithEvents wfName As WarpControl.WarpField
    'Friend WithEvents wfLocation As WarpControl.WarpField
    'Friend WithEvents wfPart As WarpControl.WarpField
    'Friend WithEvents wfCL As WarpControl.WarpField
    'Friend WithEvents wfZnc As WarpControl.WarpField
    'Friend WithEvents WarpField4 As WarpControl.WarpField
    'Friend WithEvents WarpField6 As WarpControl.WarpField
    'Friend WithEvents WarpField11 As WarpControl.WarpField
    'Friend WithEvents WarpField12 As WarpControl.WarpField
    'Friend WithEvents wfPut1 As WarpControl.WarpField
    'Friend WithEvents wfPut2 As WarpControl.WarpField
    'Friend WithEvents wfID As WarpControl.WarpField
    'Friend WithEvents wfSerial As WarpControl.WarpField
    'Friend WithEvents wfID2 As WarpControl.WarpField
    'Friend WithEvents wfID3 As WarpControl.WarpField
    'Friend WithEvents wfID4 As WarpControl.WarpField
    'Friend WithEvents wfID5 As WarpControl.WarpField
    'Friend WithEvents wfPart2 As WarpControl.WarpField
    'Friend WithEvents wfPart3 As WarpControl.WarpField
    'Friend WithEvents wfPart4 As WarpControl.WarpField
    'Friend WithEvents wfPart5 As WarpControl.WarpField
    'Friend WithEvents wfCL2 As WarpControl.WarpField
    'Friend WithEvents wfCL3 As WarpControl.WarpField
    'Friend WithEvents wfCL4 As WarpControl.WarpField
    'Friend WithEvents wfCL5 As WarpControl.WarpField
    'Friend WithEvents wfZnc2 As WarpControl.WarpField
    'Friend WithEvents wfZnc3 As WarpControl.WarpField
    'Friend WithEvents wfZnc4 As WarpControl.WarpField
    'Friend WithEvents wfZnc5 As WarpControl.WarpField
    'Friend WithEvents wfSerial2 As WarpControl.WarpField
    'Friend WithEvents wfSerial3 As WarpControl.WarpField
    'Friend WithEvents wfSerial4 As WarpControl.WarpField
    'Friend WithEvents wfSerial5 As WarpControl.WarpField

    '<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
    '    Me.WarpFrame1 = New WarpControl.WarpFrame()
    '    Me.wfSerial5 = New WarpControl.WarpField()
    '    Me.wfSerial4 = New WarpControl.WarpField()
    '    Me.wfSerial3 = New WarpControl.WarpField()
    '    Me.wfSerial2 = New WarpControl.WarpField()
    '    Me.wfZnc5 = New WarpControl.WarpField()
    '    Me.wfZnc4 = New WarpControl.WarpField()
    '    Me.wfZnc3 = New WarpControl.WarpField()
    '    Me.wfZnc2 = New WarpControl.WarpField()
    '    Me.wfCL5 = New WarpControl.WarpField()
    '    Me.wfCL4 = New WarpControl.WarpField()
    '    Me.wfCL3 = New WarpControl.WarpField()
    '    Me.wfCL2 = New WarpControl.WarpField()
    '    Me.wfPart5 = New WarpControl.WarpField()
    '    Me.wfPart4 = New WarpControl.WarpField()
    '    Me.wfPart3 = New WarpControl.WarpField()
    '    Me.wfPart2 = New WarpControl.WarpField()
    '    Me.wfID5 = New WarpControl.WarpField()
    '    Me.wfID4 = New WarpControl.WarpField()
    '    Me.wfID3 = New WarpControl.WarpField()
    '    Me.wfID2 = New WarpControl.WarpField()
    '    Me.wfPut2 = New WarpControl.WarpField()
    '    Me.WarpField12 = New WarpControl.WarpField()
    '    Me.WarpField11 = New WarpControl.WarpField()
    '    Me.WarpField6 = New WarpControl.WarpField()
    '    Me.WarpField4 = New WarpControl.WarpField()
    '    Me.wfID = New WarpControl.WarpField()
    '    Me.wfSerial = New WarpControl.WarpField()
    '    Me.wfPut1 = New WarpControl.WarpField()
    '    Me.wfZnc = New WarpControl.WarpField()
    '    Me.wfCL = New WarpControl.WarpField()
    '    Me.WarpField8 = New WarpControl.WarpField()
    '    Me.WarpField7 = New WarpControl.WarpField()
    '    Me.wfPart = New WarpControl.WarpField()
    '    Me.WarpField5 = New WarpControl.WarpField()
    '    Me.wfLocation = New WarpControl.WarpField()
    '    Me.WarpField3 = New WarpControl.WarpField()
    '    Me.wfKey = New WarpControl.WarpField()
    '    Me.WarpBox1 = New WarpControl.WarpBox()
    '    Me.wfName = New WarpControl.WarpField()
    '    Me.WarpHWBcr1 = New WarpControl.WarpHWBcr()
    '    Me.WarpFrame1.SuspendLayout()
    '    Me.SuspendLayout()
    '    '
    '    'WarpFrame1
    '    '
    '    Me.WarpFrame1.Controls.Add(Me.wfSerial5)
    '    Me.WarpFrame1.Controls.Add(Me.wfSerial4)
    '    Me.WarpFrame1.Controls.Add(Me.wfSerial3)
    '    Me.WarpFrame1.Controls.Add(Me.wfSerial2)
    '    Me.WarpFrame1.Controls.Add(Me.wfZnc5)
    '    Me.WarpFrame1.Controls.Add(Me.wfZnc4)
    '    Me.WarpFrame1.Controls.Add(Me.wfZnc3)
    '    Me.WarpFrame1.Controls.Add(Me.wfZnc2)
    '    Me.WarpFrame1.Controls.Add(Me.wfCL5)
    '    Me.WarpFrame1.Controls.Add(Me.wfCL4)
    '    Me.WarpFrame1.Controls.Add(Me.wfCL3)
    '    Me.WarpFrame1.Controls.Add(Me.wfCL2)
    '    Me.WarpFrame1.Controls.Add(Me.wfPart5)
    '    Me.WarpFrame1.Controls.Add(Me.wfPart4)
    '    Me.WarpFrame1.Controls.Add(Me.wfPart3)
    '    Me.WarpFrame1.Controls.Add(Me.wfPart2)
    '    Me.WarpFrame1.Controls.Add(Me.wfID5)
    '    Me.WarpFrame1.Controls.Add(Me.wfID4)
    '    Me.WarpFrame1.Controls.Add(Me.wfID3)
    '    Me.WarpFrame1.Controls.Add(Me.wfID2)
    '    Me.WarpFrame1.Controls.Add(Me.wfPut2)
    '    Me.WarpFrame1.Controls.Add(Me.WarpField12)
    '    Me.WarpFrame1.Controls.Add(Me.WarpField11)
    '    Me.WarpFrame1.Controls.Add(Me.WarpField6)
    '    Me.WarpFrame1.Controls.Add(Me.WarpField4)
    '    Me.WarpFrame1.Controls.Add(Me.wfID)
    '    Me.WarpFrame1.Controls.Add(Me.wfSerial)
    '    Me.WarpFrame1.Controls.Add(Me.wfPut1)
    '    Me.WarpFrame1.Controls.Add(Me.wfZnc)
    '    Me.WarpFrame1.Controls.Add(Me.wfCL)
    '    Me.WarpFrame1.Controls.Add(Me.WarpField8)
    '    Me.WarpFrame1.Controls.Add(Me.WarpField7)
    '    Me.WarpFrame1.Controls.Add(Me.wfPart)
    '    Me.WarpFrame1.Controls.Add(Me.WarpField5)
    '    Me.WarpFrame1.Controls.Add(Me.wfLocation)
    '    Me.WarpFrame1.Controls.Add(Me.WarpField3)
    '    Me.WarpFrame1.Controls.Add(Me.wfKey)
    '    Me.WarpFrame1.Controls.Add(Me.WarpBox1)
    '    Me.WarpFrame1.Controls.Add(Me.wfName)
    '    Me.WarpFrame1.Font = New System.Drawing.Font("MS UI Gothic", 9.0!)
    '    Me.WarpFrame1.Location = New System.Drawing.Point(0, 0)
    '    Me.WarpFrame1.Name = "WarpFrame1"
    '    Me.WarpFrame1.Size = New System.Drawing.Size(240, 296)
    '    Me.WarpFrame1.TabIndex = 1
    '    Me.WarpFrame1.Text = "WarpFrame1"
    '    Me.WarpFrame1.UseMacro = False
    '    Me.WarpFrame1.UseMacroFileName = ""
    '    '
    '    'wfSerial5
    '    '
    '    Me.wfSerial5.BcrFlag = True
    '    Me.wfSerial5.DecimalPointPosition = CType(0, Short)
    '    Me.wfSerial5.Font = New System.Drawing.Font("lr SVbN", 16.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Pixel)
    '    Me.wfSerial5.FontSize = WarpControl.FontSizes.Small4
    '    Me.wfSerial5.Format = ""
    '    Me.wfSerial5.Length = CType(6, Short)
    '    Me.wfSerial5.Location = New System.Drawing.Point(180, 144)
    '    Me.wfSerial5.MacroBcr = ""
    '    Me.wfSerial5.MacroIn = ""
    '    Me.wfSerial5.MacroKey = ""
    '    Me.wfSerial5.MacroOut = ""
    '    Me.wfSerial5.Name = "wfSerial5"
    '    Me.wfSerial5.Size = New System.Drawing.Size(54, 18)
    '    Me.wfSerial5.TabIndex = CType(40, Short)
    '    Me.wfSerial5.Text = "XXXXXX"
    '    '
    '    'wfSerial4
    '    '
    '    Me.wfSerial4.BcrFlag = True
    '    Me.wfSerial4.DecimalPointPosition = CType(0, Short)
    '    Me.wfSerial4.Font = New System.Drawing.Font("lr SVbN", 16.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Pixel)
    '    Me.wfSerial4.FontSize = WarpControl.FontSizes.Small4
    '    Me.wfSerial4.Format = ""
    '    Me.wfSerial4.Length = CType(6, Short)
    '    Me.wfSerial4.Location = New System.Drawing.Point(180, 120)
    '    Me.wfSerial4.MacroBcr = ""
    '    Me.wfSerial4.MacroIn = ""
    '    Me.wfSerial4.MacroKey = ""
    '    Me.wfSerial4.MacroOut = ""
    '    Me.wfSerial4.Name = "wfSerial4"
    '    Me.wfSerial4.Size = New System.Drawing.Size(54, 18)
    '    Me.wfSerial4.TabIndex = CType(39, Short)
    '    Me.wfSerial4.Text = "XXXXXX"
    '    '
    '    'wfSerial3
    '    '
    '    Me.wfSerial3.BcrFlag = True
    '    Me.wfSerial3.DecimalPointPosition = CType(0, Short)
    '    Me.wfSerial3.Font = New System.Drawing.Font("lr SVbN", 16.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Pixel)
    '    Me.wfSerial3.FontSize = WarpControl.FontSizes.Small4
    '    Me.wfSerial3.Format = ""
    '    Me.wfSerial3.Length = CType(6, Short)
    '    Me.wfSerial3.Location = New System.Drawing.Point(180, 96)
    '    Me.wfSerial3.MacroBcr = ""
    '    Me.wfSerial3.MacroIn = ""
    '    Me.wfSerial3.MacroKey = ""
    '    Me.wfSerial3.MacroOut = ""
    '    Me.wfSerial3.Name = "wfSerial3"
    '    Me.wfSerial3.Size = New System.Drawing.Size(54, 18)
    '    Me.wfSerial3.TabIndex = CType(38, Short)
    '    Me.wfSerial3.Text = "XXXXXX"
    '    '
    '    'wfSerial2
    '    '
    '    Me.wfSerial2.BcrFlag = True
    '    Me.wfSerial2.DecimalPointPosition = CType(0, Short)
    '    Me.wfSerial2.Font = New System.Drawing.Font("lr SVbN", 16.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Pixel)
    '    Me.wfSerial2.FontSize = WarpControl.FontSizes.Small4
    '    Me.wfSerial2.Format = ""
    '    Me.wfSerial2.Length = CType(6, Short)
    '    Me.wfSerial2.Location = New System.Drawing.Point(180, 72)
    '    Me.wfSerial2.MacroBcr = ""
    '    Me.wfSerial2.MacroIn = ""
    '    Me.wfSerial2.MacroKey = ""
    '    Me.wfSerial2.MacroOut = ""
    '    Me.wfSerial2.Name = "wfSerial2"
    '    Me.wfSerial2.Size = New System.Drawing.Size(54, 18)
    '    Me.wfSerial2.TabIndex = CType(37, Short)
    '    Me.wfSerial2.Text = "XXXXXX"
    '    '
    '    'wfZnc5
    '    '
    '    Me.wfZnc5.DecimalPointPosition = CType(0, Short)
    '    Me.wfZnc5.Font = New System.Drawing.Font("lr SVbN", 16.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Pixel)
    '    Me.wfZnc5.FontSize = WarpControl.FontSizes.Small4
    '    Me.wfZnc5.Format = ""
    '    Me.wfZnc5.Length = CType(1, Short)
    '    Me.wfZnc5.Location = New System.Drawing.Point(157, 144)
    '    Me.wfZnc5.MacroBcr = ""
    '    Me.wfZnc5.MacroIn = ""
    '    Me.wfZnc5.MacroKey = ""
    '    Me.wfZnc5.MacroOut = ""
    '    Me.wfZnc5.Name = "wfZnc5"
    '    Me.wfZnc5.Size = New System.Drawing.Size(9, 18)
    '    Me.wfZnc5.TabIndex = CType(36, Short)
    '    Me.wfZnc5.Text = "X"
    '    '
    '    'wfZnc4
    '    '
    '    Me.wfZnc4.DecimalPointPosition = CType(0, Short)
    '    Me.wfZnc4.Font = New System.Drawing.Font("lr SVbN", 16.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Pixel)
    '    Me.wfZnc4.FontSize = WarpControl.FontSizes.Small4
    '    Me.wfZnc4.Format = ""
    '    Me.wfZnc4.Length = CType(1, Short)
    '    Me.wfZnc4.Location = New System.Drawing.Point(157, 120)
    '    Me.wfZnc4.MacroBcr = ""
    '    Me.wfZnc4.MacroIn = ""
    '    Me.wfZnc4.MacroKey = ""
    '    Me.wfZnc4.MacroOut = ""
    '    Me.wfZnc4.Name = "wfZnc4"
    '    Me.wfZnc4.Size = New System.Drawing.Size(9, 18)
    '    Me.wfZnc4.TabIndex = CType(35, Short)
    '    Me.wfZnc4.Text = "X"
    '    '
    '    'wfZnc3
    '    '
    '    Me.wfZnc3.DecimalPointPosition = CType(0, Short)
    '    Me.wfZnc3.Font = New System.Drawing.Font("lr SVbN", 16.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Pixel)
    '    Me.wfZnc3.FontSize = WarpControl.FontSizes.Small4
    '    Me.wfZnc3.Format = ""
    '    Me.wfZnc3.Length = CType(1, Short)
    '    Me.wfZnc3.Location = New System.Drawing.Point(157, 96)
    '    Me.wfZnc3.MacroBcr = ""
    '    Me.wfZnc3.MacroIn = ""
    '    Me.wfZnc3.MacroKey = ""
    '    Me.wfZnc3.MacroOut = ""
    '    Me.wfZnc3.Name = "wfZnc3"
    '    Me.wfZnc3.Size = New System.Drawing.Size(9, 18)
    '    Me.wfZnc3.TabIndex = CType(34, Short)
    '    Me.wfZnc3.Text = "X"
    '    '
    '    'wfZnc2
    '    '
    '    Me.wfZnc2.DecimalPointPosition = CType(0, Short)
    '    Me.wfZnc2.Font = New System.Drawing.Font("lr SVbN", 16.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Pixel)
    '    Me.wfZnc2.FontSize = WarpControl.FontSizes.Small4
    '    Me.wfZnc2.Format = ""
    '    Me.wfZnc2.Length = CType(1, Short)
    '    Me.wfZnc2.Location = New System.Drawing.Point(157, 72)
    '    Me.wfZnc2.MacroBcr = ""
    '    Me.wfZnc2.MacroIn = ""
    '    Me.wfZnc2.MacroKey = ""
    '    Me.wfZnc2.MacroOut = ""
    '    Me.wfZnc2.Name = "wfZnc2"
    '    Me.wfZnc2.Size = New System.Drawing.Size(9, 18)
    '    Me.wfZnc2.TabIndex = CType(33, Short)
    '    Me.wfZnc2.Text = "X"
    '    '
    '    'wfCL5
    '    '
    '    Me.wfCL5.DecimalPointPosition = CType(0, Short)
    '    Me.wfCL5.Font = New System.Drawing.Font("lr SVbN", 16.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Pixel)
    '    Me.wfCL5.FontSize = WarpControl.FontSizes.Small4
    '    Me.wfCL5.Format = ""
    '    Me.wfCL5.Length = CType(2, Short)
    '    Me.wfCL5.Location = New System.Drawing.Point(132, 144)
    '    Me.wfCL5.MacroBcr = ""
    '    Me.wfCL5.MacroIn = ""
    '    Me.wfCL5.MacroKey = ""
    '    Me.wfCL5.MacroOut = ""
    '    Me.wfCL5.Name = "wfCL5"
    '    Me.wfCL5.Size = New System.Drawing.Size(18, 18)
    '    Me.wfCL5.TabIndex = CType(32, Short)
    '    Me.wfCL5.Text = "XX"
    '    '
    '    'wfCL4
    '    '
    '    Me.wfCL4.DecimalPointPosition = CType(0, Short)
    '    Me.wfCL4.Font = New System.Drawing.Font("lr SVbN", 16.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Pixel)
    '    Me.wfCL4.FontSize = WarpControl.FontSizes.Small4
    '    Me.wfCL4.Format = ""
    '    Me.wfCL4.Length = CType(2, Short)
    '    Me.wfCL4.Location = New System.Drawing.Point(132, 120)
    '    Me.wfCL4.MacroBcr = ""
    '    Me.wfCL4.MacroIn = ""
    '    Me.wfCL4.MacroKey = ""
    '    Me.wfCL4.MacroOut = ""
    '    Me.wfCL4.Name = "wfCL4"
    '    Me.wfCL4.Size = New System.Drawing.Size(18, 18)
    '    Me.wfCL4.TabIndex = CType(31, Short)
    '    Me.wfCL4.Text = "XX"
    '    '
    '    'wfCL3
    '    '
    '    Me.wfCL3.DecimalPointPosition = CType(0, Short)
    '    Me.wfCL3.Font = New System.Drawing.Font("lr SVbN", 16.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Pixel)
    '    Me.wfCL3.FontSize = WarpControl.FontSizes.Small4
    '    Me.wfCL3.Format = ""
    '    Me.wfCL3.Length = CType(2, Short)
    '    Me.wfCL3.Location = New System.Drawing.Point(132, 96)
    '    Me.wfCL3.MacroBcr = ""
    '    Me.wfCL3.MacroIn = ""
    '    Me.wfCL3.MacroKey = ""
    '    Me.wfCL3.MacroOut = ""
    '    Me.wfCL3.Name = "wfCL3"
    '    Me.wfCL3.Size = New System.Drawing.Size(18, 18)
    '    Me.wfCL3.TabIndex = CType(30, Short)
    '    Me.wfCL3.Text = "XX"
    '    '
    '    'wfCL2
    '    '
    '    Me.wfCL2.DecimalPointPosition = CType(0, Short)
    '    Me.wfCL2.Font = New System.Drawing.Font("lr SVbN", 16.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Pixel)
    '    Me.wfCL2.FontSize = WarpControl.FontSizes.Small4
    '    Me.wfCL2.Format = ""
    '    Me.wfCL2.Length = CType(2, Short)
    '    Me.wfCL2.Location = New System.Drawing.Point(132, 72)
    '    Me.wfCL2.MacroBcr = ""
    '    Me.wfCL2.MacroIn = ""
    '    Me.wfCL2.MacroKey = ""
    '    Me.wfCL2.MacroOut = ""
    '    Me.wfCL2.Name = "wfCL2"
    '    Me.wfCL2.Size = New System.Drawing.Size(18, 18)
    '    Me.wfCL2.TabIndex = CType(29, Short)
    '    Me.wfCL2.Text = "XX"
    '    '
    '    'wfPart5
    '    '
    '    Me.wfPart5.BcrFlag = True
    '    Me.wfPart5.DecimalPointPosition = CType(0, Short)
    '    Me.wfPart5.Font = New System.Drawing.Font("lr SVbN", 16.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Pixel)
    '    Me.wfPart5.FontSize = WarpControl.FontSizes.Small4
    '    Me.wfPart5.Format = ""
    '    Me.wfPart5.Length = CType(12, Short)
    '    Me.wfPart5.Location = New System.Drawing.Point(18, 144)
    '    Me.wfPart5.MacroBcr = ""
    '    Me.wfPart5.MacroIn = ""
    '    Me.wfPart5.MacroKey = ""
    '    Me.wfPart5.MacroOut = ""
    '    Me.wfPart5.Name = "wfPart5"
    '    Me.wfPart5.Size = New System.Drawing.Size(108, 18)
    '    Me.wfPart5.TabIndex = CType(28, Short)
    '    Me.wfPart5.Text = "XXXX-XX-XXXX"
    '    '
    '    'wfPart4
    '    '
    '    Me.wfPart4.BcrFlag = True
    '    Me.wfPart4.DecimalPointPosition = CType(0, Short)
    '    Me.wfPart4.Font = New System.Drawing.Font("lr SVbN", 16.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Pixel)
    '    Me.wfPart4.FontSize = WarpControl.FontSizes.Small4
    '    Me.wfPart4.Format = ""
    '    Me.wfPart4.Length = CType(12, Short)
    '    Me.wfPart4.Location = New System.Drawing.Point(18, 120)
    '    Me.wfPart4.MacroBcr = ""
    '    Me.wfPart4.MacroIn = ""
    '    Me.wfPart4.MacroKey = ""
    '    Me.wfPart4.MacroOut = ""
    '    Me.wfPart4.Name = "wfPart4"
    '    Me.wfPart4.Size = New System.Drawing.Size(108, 18)
    '    Me.wfPart4.TabIndex = CType(27, Short)
    '    Me.wfPart4.Text = "XXXX-XX-XXXX"
    '    '
    '    'wfPart3
    '    '
    '    Me.wfPart3.BcrFlag = True
    '    Me.wfPart3.DecimalPointPosition = CType(0, Short)
    '    Me.wfPart3.Font = New System.Drawing.Font("lr SVbN", 16.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Pixel)
    '    Me.wfPart3.FontSize = WarpControl.FontSizes.Small4
    '    Me.wfPart3.Format = ""
    '    Me.wfPart3.Length = CType(12, Short)
    '    Me.wfPart3.Location = New System.Drawing.Point(18, 96)
    '    Me.wfPart3.MacroBcr = ""
    '    Me.wfPart3.MacroIn = ""
    '    Me.wfPart3.MacroKey = ""
    '    Me.wfPart3.MacroOut = ""
    '    Me.wfPart3.Name = "wfPart3"
    '    Me.wfPart3.Size = New System.Drawing.Size(108, 18)
    '    Me.wfPart3.TabIndex = CType(26, Short)
    '    Me.wfPart3.Text = "XXXX-XX-XXXX"
    '    '
    '    'wfPart2
    '    '
    '    Me.wfPart2.BcrFlag = True
    '    Me.wfPart2.DecimalPointPosition = CType(0, Short)
    '    Me.wfPart2.Font = New System.Drawing.Font("lr SVbN", 16.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Pixel)
    '    Me.wfPart2.FontSize = WarpControl.FontSizes.Small4
    '    Me.wfPart2.Format = ""
    '    Me.wfPart2.Length = CType(12, Short)
    '    Me.wfPart2.Location = New System.Drawing.Point(18, 72)
    '    Me.wfPart2.MacroBcr = ""
    '    Me.wfPart2.MacroIn = ""
    '    Me.wfPart2.MacroKey = ""
    '    Me.wfPart2.MacroOut = ""
    '    Me.wfPart2.Name = "wfPart2"
    '    Me.wfPart2.Size = New System.Drawing.Size(108, 18)
    '    Me.wfPart2.TabIndex = CType(25, Short)
    '    Me.wfPart2.Text = "XXXX-XX-XXXX"
    '    '
    '    'wfID5
    '    '
    '    Me.wfID5.DecimalPointPosition = CType(0, Short)
    '    Me.wfID5.Font = New System.Drawing.Font("lr SVbN", 16.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Pixel)
    '    Me.wfID5.FontSize = WarpControl.FontSizes.Small4
    '    Me.wfID5.Format = ""
    '    Me.wfID5.Length = CType(1, Short)
    '    Me.wfID5.Location = New System.Drawing.Point(3, 144)
    '    Me.wfID5.MacroBcr = ""
    '    Me.wfID5.MacroIn = ""
    '    Me.wfID5.MacroKey = ""
    '    Me.wfID5.MacroOut = ""
    '    Me.wfID5.Name = "wfID5"
    '    Me.wfID5.Size = New System.Drawing.Size(9, 18)
    '    Me.wfID5.TabIndex = CType(24, Short)
    '    Me.wfID5.Text = "X"
    '    '
    '    'wfID4
    '    '
    '    Me.wfID4.DecimalPointPosition = CType(0, Short)
    '    Me.wfID4.Font = New System.Drawing.Font("lr SVbN", 16.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Pixel)
    '    Me.wfID4.FontSize = WarpControl.FontSizes.Small4
    '    Me.wfID4.Format = ""
    '    Me.wfID4.Length = CType(1, Short)
    '    Me.wfID4.Location = New System.Drawing.Point(3, 120)
    '    Me.wfID4.MacroBcr = ""
    '    Me.wfID4.MacroIn = ""
    '    Me.wfID4.MacroKey = ""
    '    Me.wfID4.MacroOut = ""
    '    Me.wfID4.Name = "wfID4"
    '    Me.wfID4.Size = New System.Drawing.Size(9, 18)
    '    Me.wfID4.TabIndex = CType(23, Short)
    '    Me.wfID4.Text = "X"
    '    '
    '    'wfID3
    '    '
    '    Me.wfID3.DecimalPointPosition = CType(0, Short)
    '    Me.wfID3.Font = New System.Drawing.Font("lr SVbN", 16.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Pixel)
    '    Me.wfID3.FontSize = WarpControl.FontSizes.Small4
    '    Me.wfID3.Format = ""
    '    Me.wfID3.Length = CType(1, Short)
    '    Me.wfID3.Location = New System.Drawing.Point(3, 96)
    '    Me.wfID3.MacroBcr = ""
    '    Me.wfID3.MacroIn = ""
    '    Me.wfID3.MacroKey = ""
    '    Me.wfID3.MacroOut = ""
    '    Me.wfID3.Name = "wfID3"
    '    Me.wfID3.Size = New System.Drawing.Size(9, 18)
    '    Me.wfID3.TabIndex = CType(22, Short)
    '    Me.wfID3.Text = "X"
    '    '
    '    'wfID2
    '    '
    '    Me.wfID2.DecimalPointPosition = CType(0, Short)
    '    Me.wfID2.Font = New System.Drawing.Font("lr SVbN", 16.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Pixel)
    '    Me.wfID2.FontSize = WarpControl.FontSizes.Small4
    '    Me.wfID2.Format = ""
    '    Me.wfID2.Length = CType(1, Short)
    '    Me.wfID2.Location = New System.Drawing.Point(3, 72)
    '    Me.wfID2.MacroBcr = ""
    '    Me.wfID2.MacroIn = ""
    '    Me.wfID2.MacroKey = ""
    '    Me.wfID2.MacroOut = ""
    '    Me.wfID2.Name = "wfID2"
    '    Me.wfID2.Size = New System.Drawing.Size(9, 18)
    '    Me.wfID2.TabIndex = CType(21, Short)
    '    Me.wfID2.Text = "X"
    '    '
    '    'wfPut2
    '    '
    '    Me.wfPut2.DecimalPointPosition = CType(0, Short)
    '    Me.wfPut2.DisplayAttribute.Bold = True
    '    Me.wfPut2.Font = New System.Drawing.Font("lr SVbN", 16.5!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Pixel)
    '    Me.wfPut2.FontSize = WarpControl.FontSizes.Small4
    '    Me.wfPut2.Format = ""
    '    Me.wfPut2.Length = CType(4, Short)
    '    Me.wfPut2.Location = New System.Drawing.Point(60, 172)
    '    Me.wfPut2.MacroBcr = ""
    '    Me.wfPut2.MacroIn = ""
    '    Me.wfPut2.MacroKey = ""
    '    Me.wfPut2.MacroOut = ""
    '    Me.wfPut2.Name = "wfPut2"
    '    Me.wfPut2.Size = New System.Drawing.Size(36, 18)
    '    Me.wfPut2.TabIndex = CType(20, Short)
    '    Me.wfPut2.Text = "ZZZZ"
    '    '
    '    'WarpField12
    '    '
    '    Me.WarpField12.DecimalPointPosition = CType(0, Short)
    '    Me.WarpField12.Font = New System.Drawing.Font("lr SVbN", 16.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Pixel)
    '    Me.WarpField12.FontSize = WarpControl.FontSizes.Small4
    '    Me.WarpField12.Format = ""
    '    Me.WarpField12.Length = CType(4, Short)
    '    Me.WarpField12.Location = New System.Drawing.Point(15, 172)
    '    Me.WarpField12.MacroBcr = ""
    '    Me.WarpField12.MacroIn = ""
    '    Me.WarpField12.MacroKey = ""
    '    Me.WarpField12.MacroOut = ""
    '    Me.WarpField12.Name = "WarpField12"
    '    Me.WarpField12.Size = New System.Drawing.Size(36, 18)
    '    Me.WarpField12.TabIndex = CType(19, Short)
    '    Me.WarpField12.Text = "Item"
    '    '
    '    'WarpField11
    '    '
    '    Me.WarpField11.DecimalPointPosition = CType(0, Short)
    '    Me.WarpField11.Font = New System.Drawing.Font("lr SVbN", 16.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Pixel)
    '    Me.WarpField11.FontSize = WarpControl.FontSizes.Small4
    '    Me.WarpField11.Format = ""
    '    Me.WarpField11.Length = CType(5, Short)
    '    Me.WarpField11.Location = New System.Drawing.Point(138, 172)
    '    Me.WarpField11.MacroBcr = ""
    '    Me.WarpField11.MacroIn = ""
    '    Me.WarpField11.MacroKey = ""
    '    Me.WarpField11.MacroOut = ""
    '    Me.WarpField11.Name = "WarpField11"
    '    Me.WarpField11.Size = New System.Drawing.Size(45, 18)
    '    Me.WarpField11.TabIndex = CType(18, Short)
    '    Me.WarpField11.Text = "Total"
    '    '
    '    'WarpField6
    '    '
    '    Me.WarpField6.DecimalPointPosition = CType(0, Short)
    '    Me.WarpField6.DisplayAttribute.Bold = True
    '    Me.WarpField6.Font = New System.Drawing.Font("lr SVbN", 16.5!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Pixel)
    '    Me.WarpField6.FontSize = WarpControl.FontSizes.Small4
    '    Me.WarpField6.Format = ""
    '    Me.WarpField6.Length = CType(6, Short)
    '    Me.WarpField6.Location = New System.Drawing.Point(180, 24)
    '    Me.WarpField6.MacroBcr = ""
    '    Me.WarpField6.MacroIn = ""
    '    Me.WarpField6.MacroKey = ""
    '    Me.WarpField6.MacroOut = ""
    '    Me.WarpField6.Name = "WarpField6"
    '    Me.WarpField6.Size = New System.Drawing.Size(54, 18)
    '    Me.WarpField6.TabIndex = CType(17, Short)
    '    Me.WarpField6.Text = "Serial"
    '    '
    '    'WarpField4
    '    '
    '    Me.WarpField4.DecimalPointPosition = CType(0, Short)
    '    Me.WarpField4.DisplayAttribute.Bold = True
    '    Me.WarpField4.Font = New System.Drawing.Font("lr SVbN", 16.5!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Pixel)
    '    Me.WarpField4.FontSize = WarpControl.FontSizes.Small4
    '    Me.WarpField4.Format = ""
    '    Me.WarpField4.Length = CType(2, Short)
    '    Me.WarpField4.Location = New System.Drawing.Point(1, 24)
    '    Me.WarpField4.MacroBcr = ""
    '    Me.WarpField4.MacroIn = ""
    '    Me.WarpField4.MacroKey = ""
    '    Me.WarpField4.MacroOut = ""
    '    Me.WarpField4.Name = "WarpField4"
    '    Me.WarpField4.Size = New System.Drawing.Size(18, 18)
    '    Me.WarpField4.TabIndex = CType(2, Short)
    '    Me.WarpField4.Text = "ID"
    '    '
    '    'wfID
    '    '
    '    Me.wfID.DecimalPointPosition = CType(0, Short)
    '    Me.wfID.Font = New System.Drawing.Font("lr SVbN", 16.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Pixel)
    '    Me.wfID.FontSize = WarpControl.FontSizes.Small4
    '    Me.wfID.Format = ""
    '    Me.wfID.Length = CType(1, Short)
    '    Me.wfID.Location = New System.Drawing.Point(3, 48)
    '    Me.wfID.MacroBcr = ""
    '    Me.wfID.MacroIn = ""
    '    Me.wfID.MacroKey = ""
    '    Me.wfID.MacroOut = ""
    '    Me.wfID.Name = "wfID"
    '    Me.wfID.Size = New System.Drawing.Size(9, 18)
    '    Me.wfID.TabIndex = CType(16, Short)
    '    Me.wfID.Text = "X"
    '    '
    '    'wfSerial
    '    '
    '    Me.wfSerial.BcrFlag = True
    '    Me.wfSerial.DecimalPointPosition = CType(0, Short)
    '    Me.wfSerial.Font = New System.Drawing.Font("lr SVbN", 16.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Pixel)
    '    Me.wfSerial.FontSize = WarpControl.FontSizes.Small4
    '    Me.wfSerial.Format = ""
    '    Me.wfSerial.Length = CType(6, Short)
    '    Me.wfSerial.Location = New System.Drawing.Point(180, 48)
    '    Me.wfSerial.MacroBcr = ""
    '    Me.wfSerial.MacroIn = ""
    '    Me.wfSerial.MacroKey = ""
    '    Me.wfSerial.MacroOut = ""
    '    Me.wfSerial.Name = "wfSerial"
    '    Me.wfSerial.Size = New System.Drawing.Size(54, 18)
    '    Me.wfSerial.TabIndex = CType(15, Short)
    '    Me.wfSerial.Text = "XXXXXX"
    '    '
    '    'wfPut1
    '    '
    '    Me.wfPut1.DecimalPointPosition = CType(0, Short)
    '    Me.wfPut1.DisplayAttribute.Bold = True
    '    Me.wfPut1.Font = New System.Drawing.Font("lr SVbN", 16.5!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Pixel)
    '    Me.wfPut1.FontSize = WarpControl.FontSizes.Small4
    '    Me.wfPut1.Format = ""
    '    Me.wfPut1.Length = CType(4, Short)
    '    Me.wfPut1.Location = New System.Drawing.Point(192, 172)
    '    Me.wfPut1.MacroBcr = ""
    '    Me.wfPut1.MacroIn = ""
    '    Me.wfPut1.MacroKey = ""
    '    Me.wfPut1.MacroOut = ""
    '    Me.wfPut1.Name = "wfPut1"
    '    Me.wfPut1.Size = New System.Drawing.Size(36, 18)
    '    Me.wfPut1.TabIndex = CType(14, Short)
    '    Me.wfPut1.Text = "ZZZZ"
    '    '
    '    'wfZnc
    '    '
    '    Me.wfZnc.DecimalPointPosition = CType(0, Short)
    '    Me.wfZnc.Font = New System.Drawing.Font("lr SVbN", 16.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Pixel)
    '    Me.wfZnc.FontSize = WarpControl.FontSizes.Small4
    '    Me.wfZnc.Format = ""
    '    Me.wfZnc.Length = CType(1, Short)
    '    Me.wfZnc.Location = New System.Drawing.Point(157, 48)
    '    Me.wfZnc.MacroBcr = ""
    '    Me.wfZnc.MacroIn = ""
    '    Me.wfZnc.MacroKey = ""
    '    Me.wfZnc.MacroOut = ""
    '    Me.wfZnc.Name = "wfZnc"
    '    Me.wfZnc.Size = New System.Drawing.Size(9, 18)
    '    Me.wfZnc.TabIndex = CType(12, Short)
    '    Me.wfZnc.Text = "X"
    '    '
    '    'wfCL
    '    '
    '    Me.wfCL.DecimalPointPosition = CType(0, Short)
    '    Me.wfCL.Font = New System.Drawing.Font("lr SVbN", 16.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Pixel)
    '    Me.wfCL.FontSize = WarpControl.FontSizes.Small4
    '    Me.wfCL.Format = ""
    '    Me.wfCL.Length = CType(2, Short)
    '    Me.wfCL.Location = New System.Drawing.Point(132, 48)
    '    Me.wfCL.MacroBcr = ""
    '    Me.wfCL.MacroIn = ""
    '    Me.wfCL.MacroKey = ""
    '    Me.wfCL.MacroOut = ""
    '    Me.wfCL.Name = "wfCL"
    '    Me.wfCL.Size = New System.Drawing.Size(18, 18)
    '    Me.wfCL.TabIndex = CType(11, Short)
    '    Me.wfCL.Text = "XX"
    '    '
    '    'WarpField8
    '    '
    '    Me.WarpField8.DecimalPointPosition = CType(0, Short)
    '    Me.WarpField8.DisplayAttribute.Bold = True
    '    Me.WarpField8.Font = New System.Drawing.Font("lr SVbN", 16.5!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Pixel)
    '    Me.WarpField8.FontSize = WarpControl.FontSizes.Small4
    '    Me.WarpField8.Format = ""
    '    Me.WarpField8.Length = CType(3, Short)
    '    Me.WarpField8.Location = New System.Drawing.Point(148, 24)
    '    Me.WarpField8.MacroBcr = ""
    '    Me.WarpField8.MacroIn = ""
    '    Me.WarpField8.MacroKey = ""
    '    Me.WarpField8.MacroOut = ""
    '    Me.WarpField8.Name = "WarpField8"
    '    Me.WarpField8.Size = New System.Drawing.Size(27, 18)
    '    Me.WarpField8.TabIndex = CType(10, Short)
    '    Me.WarpField8.Text = "Znc"
    '    '
    '    'WarpField7
    '    '
    '    Me.WarpField7.DecimalPointPosition = CType(0, Short)
    '    Me.WarpField7.DisplayAttribute.Bold = True
    '    Me.WarpField7.Font = New System.Drawing.Font("lr SVbN", 16.5!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Pixel)
    '    Me.WarpField7.FontSize = WarpControl.FontSizes.Small4
    '    Me.WarpField7.Format = ""
    '    Me.WarpField7.Length = CType(2, Short)
    '    Me.WarpField7.Location = New System.Drawing.Point(126, 24)
    '    Me.WarpField7.MacroBcr = ""
    '    Me.WarpField7.MacroIn = ""
    '    Me.WarpField7.MacroKey = ""
    '    Me.WarpField7.MacroOut = ""
    '    Me.WarpField7.Name = "WarpField7"
    '    Me.WarpField7.Size = New System.Drawing.Size(18, 18)
    '    Me.WarpField7.TabIndex = CType(9, Short)
    '    Me.WarpField7.Text = "CL"
    '    '
    '    'wfPart
    '    '
    '    Me.wfPart.BcrFlag = True
    '    Me.wfPart.DecimalPointPosition = CType(0, Short)
    '    Me.wfPart.Font = New System.Drawing.Font("lr SVbN", 16.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Pixel)
    '    Me.wfPart.FontSize = WarpControl.FontSizes.Small4
    '    Me.wfPart.Format = ""
    '    Me.wfPart.Length = CType(12, Short)
    '    Me.wfPart.Location = New System.Drawing.Point(18, 48)
    '    Me.wfPart.MacroBcr = ""
    '    Me.wfPart.MacroIn = ""
    '    Me.wfPart.MacroKey = ""
    '    Me.wfPart.MacroOut = ""
    '    Me.wfPart.Name = "wfPart"
    '    Me.wfPart.Size = New System.Drawing.Size(108, 18)
    '    Me.wfPart.TabIndex = CType(8, Short)
    '    Me.wfPart.Text = "XXXX-XX-XXXX"
    '    '
    '    'WarpField5
    '    '
    '    Me.WarpField5.DecimalPointPosition = CType(0, Short)
    '    Me.WarpField5.DisplayAttribute.Bold = True
    '    Me.WarpField5.Font = New System.Drawing.Font("lr SVbN", 16.5!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Pixel)
    '    Me.WarpField5.FontSize = WarpControl.FontSizes.Small4
    '    Me.WarpField5.Format = ""
    '    Me.WarpField5.Length = CType(7, Short)
    '    Me.WarpField5.Location = New System.Drawing.Point(33, 24)
    '    Me.WarpField5.MacroBcr = ""
    '    Me.WarpField5.MacroIn = ""
    '    Me.WarpField5.MacroKey = ""
    '    Me.WarpField5.MacroOut = ""
    '    Me.WarpField5.Name = "WarpField5"
    '    Me.WarpField5.Size = New System.Drawing.Size(63, 18)
    '    Me.WarpField5.TabIndex = CType(7, Short)
    '    Me.WarpField5.Text = "Part-No"
    '    '
    '    'wfLocation
    '    '
    '    Me.wfLocation.DecimalPointPosition = CType(0, Short)
    '    Me.wfLocation.DisplayAttribute.Bold = True
    '    Me.wfLocation.Font = New System.Drawing.Font("lr SVbN", 22.5!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Pixel)
    '    Me.wfLocation.FontSize = WarpControl.FontSizes.Small2
    '    Me.wfLocation.Format = ""
    '    Me.wfLocation.Length = CType(6, Short)
    '    Me.wfLocation.Location = New System.Drawing.Point(132, 0)
    '    Me.wfLocation.MacroBcr = ""
    '    Me.wfLocation.MacroIn = ""
    '    Me.wfLocation.MacroKey = ""
    '    Me.wfLocation.MacroOut = ""
    '    Me.wfLocation.Name = "wfLocation"
    '    Me.wfLocation.Size = New System.Drawing.Size(72, 24)
    '    Me.wfLocation.TabIndex = CType(6, Short)
    '    Me.wfLocation.Text = "XX-XXX"
    '    '
    '    'WarpField3
    '    '
    '    Me.WarpField3.DecimalPointPosition = CType(0, Short)
    '    Me.WarpField3.Font = New System.Drawing.Font("lr SVbN", 22.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Pixel)
    '    Me.WarpField3.FontSize = WarpControl.FontSizes.Small2
    '    Me.WarpField3.Format = ""
    '    Me.WarpField3.Length = CType(8, Short)
    '    Me.WarpField3.Location = New System.Drawing.Point(24, 0)
    '    Me.WarpField3.MacroBcr = ""
    '    Me.WarpField3.MacroIn = ""
    '    Me.WarpField3.MacroKey = ""
    '    Me.WarpField3.MacroOut = ""
    '    Me.WarpField3.Name = "WarpField3"
    '    Me.WarpField3.Size = New System.Drawing.Size(96, 24)
    '    Me.WarpField3.TabIndex = CType(5, Short)
    '    Me.WarpField3.Text = "Location"
    '    '
    '    'wfKey
    '    '
    '    Me.wfKey.DecimalPointPosition = CType(0, Short)
    '    Me.wfKey.Font = New System.Drawing.Font("lr SVbN", 22.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Pixel)
    '    Me.wfKey.FontSize = WarpControl.FontSizes.Small2
    '    Me.wfKey.Format = ""
    '    Me.wfKey.InputMode.Secret = True
    '    Me.wfKey.Length = CType(1, Short)
    '    Me.wfKey.Location = New System.Drawing.Point(228, 0)
    '    Me.wfKey.MacroBcr = ""
    '    Me.wfKey.MacroIn = ""
    '    Me.wfKey.MacroKey = ""
    '    Me.wfKey.MacroOut = ""
    '    Me.wfKey.Name = "wfKey"
    '    Me.wfKey.Size = New System.Drawing.Size(12, 24)
    '    Me.wfKey.TabIndex = CType(4, Short)
    '    '
    '    'WarpBox1
    '    '
    '    Me.WarpBox1.BoxType = WarpControl.BoxTypes.Box
    '    Me.WarpBox1.DrawMode = WarpControl.DrawModes.Paint
    '    Me.WarpBox1.Font = New System.Drawing.Font("lr SVbN", 33.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Pixel)
    '    Me.WarpBox1.ForeColor = CType(15, Short)
    '    Me.WarpBox1.Image = "C:\H081-0015.jpg"
    '    Me.WarpBox1.Location = New System.Drawing.Point(0, 192)
    '    Me.WarpBox1.Name = "WarpBox1"
    '    Me.WarpBox1.Size = New System.Drawing.Size(240, 24)
    '    Me.WarpBox1.TabIndex = 3
    '    '
    '    'wfName
    '    '
    '    Me.wfName.DecimalPointPosition = CType(0, Short)
    '    Me.wfName.Font = New System.Drawing.Font("lr SVbN", 22.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Pixel)
    '    Me.wfName.FontSize = WarpControl.FontSizes.Small2
    '    Me.wfName.Format = ""
    '    Me.wfName.Length = CType(20, Short)
    '    Me.wfName.Location = New System.Drawing.Point(0, 216)
    '    Me.wfName.MacroBcr = ""
    '    Me.wfName.MacroIn = ""
    '    Me.wfName.MacroKey = ""
    '    Me.wfName.MacroOut = ""
    '    Me.wfName.Name = "wfName"
    '    Me.wfName.Size = New System.Drawing.Size(240, 24)
    '    Me.wfName.TabIndex = CType(2, Short)
    '    '
    '    'WarpHWBcr1
    '    '
    '    Me.WarpHWBcr1.Decode.Code39 = True
    '    Me.WarpHWBcr1.DiscreteFirstLen = CType(0, Short)
    '    Me.WarpHWBcr1.DiscreteSecondLen = CType(0, Short)
    '    Me.WarpHWBcr1.InterleavedFirstLen = CType(0, Short)
    '    Me.WarpHWBcr1.InterleavedSecondLen = CType(0, Short)
    '    '
    '    'frm3015
    '    '
    '    Me.AutoScaleBaseSize = New System.Drawing.Size(5, 12)
    '    Me.ClientSize = New System.Drawing.Size(240, 296)
    '    Me.Controls.Add(Me.WarpFrame1)
    '    Me.Font = New System.Drawing.Font("MS UI Gothic", 9.0!)
    '    Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
    '    Me.Name = "frm3015"
    '    Me.Text = "Form1"
    '    Me.WarpFrame1.ResumeLayout(False)
    '    Me.ResumeLayout(False)

    'End Sub

#End Region
    Public Enum M1015_STATUS As Integer
        INIT = 0
        CANCEL = 1
        NOTCODE = 2
        NOTPLAN = 3
        NOTFILE = 4
        NOTNYUKO = 5
        DONE = 6
    End Enum
    Public mint1015status As Integer



    Private Sub frm3015_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load

        '// Case QVGA -> resolution to 1/2
        If System.Windows.Forms.Screen.PrimaryScreen.Bounds.Width = 240 Then
            Call resolution.VGAtoQVGA(Me)
        End If

        Dim wstrImage As String
        Dim rtn As Integer

        Try

            ' t[€ฬI[v“
            'rtn = WarpFrame1.Open()
            'If (rtn <> 0) Then
            '    Err.Raise(vbObjectError + 1, gAppName, "WarpError")
            'End If

            'sSetImgFName(G_CONST_MID_H3015, WarpBox1)

            sDisp3015()
            sDispItemCode()

            ' tH[€EC“ ภs
            sMain()
            ' t[€ฬN[Y
            'rtn = WarpFrame1.Close()
            'If (rtn <> 0) Then
            '    Err.Raise(vbObjectError + 1, gAppName, "WarpError")
            'End If

            ' tH[€EN[Y
            'Me.Close()

            Exit Sub

        Catch ex As Exception
            gintStatus = LOCA_STATUS.QUIT
            sErrLog(gAppName, "frm3015_Load", ex.ToString)
            Me.Close()
        End Try

    End Sub

    ' t[€EC“
    Public Sub sMain()

        'Dim WKey As Short
        'Dim buf As String
        'Dim rtn As Integer
        'Dim wintCnt, wintCnt2 As Integer

        'Try

        '    ' t[€ฬ—๐ฑฑษLqตทB
        '    Do While (True)

        '        ' R[h“—อ
        '        WKey = WarpFrame1.Input(wfKey)



        '        If WKey = WKY_ENT Then

        '        ElseIf WKey = WKY_F1 Then   'Q1ทฐลLocationษ–฿้
        '            gstrctS3000.intCntPG = 0
        '            gintStatus = LOCA_STATUS.LOCATION
        '            Exit Do

        '        ElseIf WKey = WKY_F2 Then


        '        ElseIf WKey = WKY_PGUP Then


        '            If gstrctS3000.intCntPG > 0 Then
        '                gstrctS3000.intCntPG -= 1
        '                Exit Do
        '            End If

        '        ElseIf WKey = WKY_PGDOWN Then


        '            wintCnt = gstrctS3000.lngCntnumber Mod 5
        '            wintCnt2 = gstrctS3000.lngCntnumber \ 5
        '            If wintCnt > 0 Then
        '                wintCnt2 = wintCnt2 + 1
        '            End If

        '            If gstrctS3000.intCntPG < wintCnt2 - 1 Then

        '                gstrctS3000.intCntPG += 1
        '                Exit Do
        '            End If

        '        ElseIf WKey = WKY_ERROR Then

        '            f0.WarpCtrl1.MessageBox(G_CONST_EMT_WARP, G_CONST_EM_WARP, MWA_DB_WARNING, MWA_DB_OK)

        '        End If

        '    Loop

        '    Exit Sub

        'Catch ex As Exception
        '    sErrLog(gAppName, "sMain", ex.ToString)
        'End Try

    End Sub

    '/*
    '|| ึ”–ผFsDisp4015
    '|| T—v  F1015ๆ–ส•\ฆ
    '*/
    Private Sub sDisp3015()
        Dim rtn, rtn1 As String

        rtn = gstrctS3000.lngCntnumber
        rtn1 = gstrctS3000.lngCntItem

        wfPut1.Text = rtn.PadLeft(4)
        wfPut2.Text = rtn1.PadLeft(4)
        wfName.Text = gstrctKDHT.strUserName
        wfLocation.Text = fstrDivision(2, gstrctS3000.strLocation)

    End Sub

    '/*
    '|| ึ”–ผFsDisp4015
    '|| T—v  F1015ๆ–ส•\ฆ
    '*/
    Private Sub sDispItemCode()

        Dim i As Long
        Dim wlngCnt As Long

        wfID.Text = "" : wfID2.Text = "" : wfID3.Text = "" : wfID4.Text = "" : wfID5.Text = ""
        wfPart.Text = "" : wfPart2.Text = "" : wfPart3.Text = "" : wfPart4.Text = "" : wfPart5.Text = ""
        wfCL.Text = "" : wfCL2.Text = "" : wfCL3.Text = "" : wfCL4.Text = "" : wfCL5.Text = ""
        wfZnc.Text = "" : wfZnc2.Text = "" : wfZnc3.Text = "" : wfZnc4.Text = "" : wfZnc5.Text = ""
        wfSerial.Text = "" : wfSerial2.Text = "" : wfSerial3.Text = "" : wfSerial4.Text = "" : wfSerial5.Text = ""

        wlngCnt = gstrctS3000.lngCntnumber

        i = gstrctS3000.intCntPG * 5
        If i < wlngCnt Then
            wfID.Text = gstrctS3000.strItemId(i)
            '•\ฆ—pบฐฤษ•ฯท
            'wfPart.Text = fstrDivision(7, fstrDivision(4, Mid(gstrctS3000.strItemCode(i), 1, 10))))
            wfPart.Text = fDispItemChg(1, Mid(gstrctS3000.strItemCode(i), 1, 10))
            wfCL.Text = Mid(gstrctS3000.strItemCode(i), 11, 2)
            wfZnc.Text = Mid(gstrctS3000.strItemCode(i), 13, 1)
            wfSerial.Text = gstrctS3000.strSerial(i)
        End If

        If i + 1 < wlngCnt Then
            wfID2.Text = gstrctS3000.strItemId(i + 1)
            '•\ฆ—pบฐฤษ•ฯท
            'wfPart2.Text = fstrDivision(7, fstrDivision(4, Mid(gstrctS3000.strItemCode(i + 1), 1, 10))))
            wfPart2.Text = fDispItemChg(1, Mid(gstrctS3000.strItemCode(i + 1), 1, 10))
            wfCL2.Text = Mid(gstrctS3000.strItemCode(i + 1), 11, 2)
            wfZnc2.Text = Mid(gstrctS3000.strItemCode(i + 1), 13, 1)
            wfSerial2.Text = gstrctS3000.strSerial(i + 1)
        End If

        If i + 2 < wlngCnt Then
            wfID3.Text = gstrctS3000.strItemId(i + 2)
            '•\ฆ—pบฐฤษ•ฯท
            'wfPart3.Text = fstrDivision(7, fstrDivision(4, Mid(gstrctS3000.strItemCode(i + 2), 1, 10))))
            wfPart3.Text = fDispItemChg(1, Mid(gstrctS3000.strItemCode(i + 2), 1, 10))
            wfCL3.Text = Mid(gstrctS3000.strItemCode(i + 2), 11, 2)
            wfZnc3.Text = Mid(gstrctS3000.strItemCode(i + 2), 13, 1)
            wfSerial3.Text = gstrctS3000.strSerial(i + 2)
        End If

        If i + 3 < wlngCnt Then
            wfID4.Text = gstrctS3000.strItemId(i + 3)
            '•\ฆ—pบฐฤษ•ฯท
            'wfPart4.Text = fstrDivision(7, fstrDivision(4, Mid(gstrctS3000.strItemCode(i + 3), 1, 10))))
            wfPart4.Text = fDispItemChg(1, Mid(gstrctS3000.strItemCode(i + 3), 1, 10))
            wfCL4.Text = Mid(gstrctS3000.strItemCode(i + 3), 11, 2)
            wfZnc4.Text = Mid(gstrctS3000.strItemCode(i + 3), 13, 1)
            wfSerial4.Text = gstrctS3000.strSerial(i + 3)
        End If

        If i + 4 < wlngCnt Then
            wfID5.Text = gstrctS3000.strItemId(i + 4)
            '•\ฆ—pบฐฤษ•ฯท
            'wfPart5.Text = fstrDivision(7, fstrDivision(4, Mid(gstrctS3000.strItemCode(i + 4), 1, 10))))
            wfPart5.Text = fDispItemChg(1, Mid(gstrctS3000.strItemCode(i + 4), 1, 10))
            wfCL5.Text = Mid(gstrctS3000.strItemCode(i + 4), 11, 2)
            wfZnc5.Text = Mid(gstrctS3000.strItemCode(i + 4), 13, 1)
            wfSerial5.Text = gstrctS3000.strSerial(i + 4)
        End If

    End Sub


    Private Sub frm3015_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
        Select Case e.KeyCode.ToString()
            Case "Return"
                Exit Sub
            Case "F1"
                gstrctS3000.intCntPG = 0
                gintStatus = LOCA_STATUS.LOCATION
                Me.Close()
                Exit Sub
            Case "F2"
                Exit Sub
        End Select
    End Sub
End Class







