86225ea7e5
Lots of cleanup here too, removing large swaths of code that are no longer needed. Many improvements the Excel workbook, which is kept in Teams, not git. These changes may or may not have had accompanying VBA changes.
40 lines
1.0 KiB
Plaintext
40 lines
1.0 KiB
Plaintext
VERSION 5.00
|
|
Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} build
|
|
Caption = "Change the Mix"
|
|
ClientHeight = 1590
|
|
ClientLeft = 120
|
|
ClientTop = 465
|
|
ClientWidth = 10725
|
|
OleObjectBlob = "build.frx":0000
|
|
StartUpPosition = 1 'CenterOwner
|
|
End
|
|
Attribute VB_Name = "build"
|
|
Attribute VB_GlobalNameSpace = False
|
|
Attribute VB_Creatable = False
|
|
Attribute VB_PredeclaredId = True
|
|
Attribute VB_Exposed = False
|
|
Option Explicit
|
|
|
|
Public useval As Boolean
|
|
|
|
Private Sub cmdCancel_Click()
|
|
useval = False
|
|
Me.Hide
|
|
End Sub
|
|
|
|
Private Sub cmdOK_Click()
|
|
useval = True
|
|
Me.Hide
|
|
End Sub
|
|
|
|
Public Sub Initialize(part As String, billTo As String, shipTo As String)
|
|
cbPart.list = shSupportingData.ListObjects("ITEM").DataBodyRange.Value
|
|
cbPart.Value = part
|
|
cbBill.list = shSupportingData.ListObjects("CUSTOMER").DataBodyRange.Value
|
|
cbBill.Value = billTo
|
|
cbShip.list = shSupportingData.ListObjects("CUSTOMER").DataBodyRange.Value
|
|
cbShip.Value = shipTo
|
|
|
|
useval = False
|
|
End Sub
|