init
This commit is contained in:
commit
397b309a55
2
.gitignore
vendored
Normal file
2
.gitignore
vendored
Normal file
@ -0,0 +1,2 @@
|
|||||||
|
*.swp
|
||||||
|
*.swo
|
||||||
104
db_schema/extract_for_customer_facing.db2.sql
Normal file
104
db_schema/extract_for_customer_facing.db2.sql
Normal file
@ -0,0 +1,104 @@
|
|||||||
|
WITH
|
||||||
|
pc AS (
|
||||||
|
SELECT
|
||||||
|
STLC
|
||||||
|
,COALESCE(COLTIER,'') COLTIER
|
||||||
|
,coalesce(BRANDING,'' ) branding
|
||||||
|
,COALESCE(ACCS ,'') ACCS
|
||||||
|
,COALESCE(SUFF,'') SUFFIX
|
||||||
|
----price 1 -----------------
|
||||||
|
,PCKG PCKG1
|
||||||
|
,1 VOLL1
|
||||||
|
,PCKG VOL1_UOM
|
||||||
|
,PACK VOL1_PRICE
|
||||||
|
----price 2 -----------------
|
||||||
|
,PCKG PCKG2
|
||||||
|
,1 VOLl2
|
||||||
|
,'PLT' VOL2_UOM
|
||||||
|
,MP VOL2_PRICE
|
||||||
|
----price 3 -----------------
|
||||||
|
,'PLT' PCKG3
|
||||||
|
,1 VOLL3
|
||||||
|
,'PLT' VOL33_UOM
|
||||||
|
,BULK VOL3_PRICE
|
||||||
|
FROM
|
||||||
|
rlarp.PCORE P
|
||||||
|
)
|
||||||
|
,colors AS (
|
||||||
|
SELECT
|
||||||
|
pc.STLC
|
||||||
|
,pc.COLTIER
|
||||||
|
,pc.branding
|
||||||
|
,pc.ACCS
|
||||||
|
,pc.SUFFIX
|
||||||
|
,listagg( DISTINCT ltrim(rtrim(i.COLC)),', ') clist
|
||||||
|
----price 1 -----------------
|
||||||
|
,pc.PCKG1
|
||||||
|
,pc.VOLL1
|
||||||
|
,pc.VOL1_UOM
|
||||||
|
,pc.VOL1_PRICE
|
||||||
|
----price 2 -----------------
|
||||||
|
,pc.PCKG2
|
||||||
|
,pc.VOLl2
|
||||||
|
,pc.VOL2_UOM
|
||||||
|
,pc.VOL2_PRICE
|
||||||
|
----price 3 -----------------
|
||||||
|
,pc.PCKG1
|
||||||
|
,pc.VOLL3
|
||||||
|
,pc.VOL33_UOM
|
||||||
|
,pc.VOL3_PRICE
|
||||||
|
FROM
|
||||||
|
pc
|
||||||
|
LEFT OUTER JOIN RLARP.ITEMM i ON
|
||||||
|
i.STLC = pc.stlc
|
||||||
|
AND i.COLTIER = pc.coltier
|
||||||
|
--relax relationship to pick up any colors that we run for the mold and color tier
|
||||||
|
--AND COALESCE(i.BRANDING,'') = pc.branding
|
||||||
|
--AND COALESCE(i.ACCS,'') = pc.ACCS
|
||||||
|
--AND COALESCE(i.SUFFIX,'') = pc.suffix
|
||||||
|
AND APLNT <> 'I'
|
||||||
|
GROUP BY
|
||||||
|
pc.STLC
|
||||||
|
,pc.COLTIER
|
||||||
|
,pc.branding
|
||||||
|
,pc.ACCS
|
||||||
|
,pc.SUFFIX
|
||||||
|
----price 1 -----------------
|
||||||
|
,pc.PCKG1
|
||||||
|
,pc.VOLL1
|
||||||
|
,pc.VOL1_UOM
|
||||||
|
,pc.VOL1_PRICE
|
||||||
|
----price 2 -----------------
|
||||||
|
,pc.PCKG2
|
||||||
|
,pc.VOLl2
|
||||||
|
,pc.VOL2_UOM
|
||||||
|
,pc.VOL2_PRICE
|
||||||
|
----price 3 -----------------
|
||||||
|
,pc.PCKG1
|
||||||
|
,pc.VOLL3
|
||||||
|
,pc.VOL33_UOM
|
||||||
|
,pc.VOL3_PRICE
|
||||||
|
)
|
||||||
|
,items AS (
|
||||||
|
SELECT
|
||||||
|
pc.STLC
|
||||||
|
,pc.coltier
|
||||||
|
,pc.branding
|
||||||
|
,pc.accs
|
||||||
|
,pc.suffix
|
||||||
|
,row_number() OVER (PARTITION BY pc.stlc, pc.coltier, pc.branding, pc.accs, pc.suffix ORDER BY item DESC) seq
|
||||||
|
,item
|
||||||
|
,pckg1
|
||||||
|
,vol1_uom
|
||||||
|
,'PC' to_uom
|
||||||
|
FROM
|
||||||
|
pc
|
||||||
|
LEFT OUTER JOIN RLARP.ITEMM i ON
|
||||||
|
i.STLC = pc.stlc
|
||||||
|
--AND i.COLTIER = pc.coltier
|
||||||
|
AND COALESCE(i.BRANDING,'') = pc.branding
|
||||||
|
AND COALESCE(i.ACCS,'') = pc.ACCS
|
||||||
|
AND COALESCE(i.SUFFIX,'') = pc.suffix
|
||||||
|
AND APLNT <> 'I'
|
||||||
|
)
|
||||||
|
SELECT * FROM items where seq = 1
|
||||||
117
db_schema/extract_for_customer_facing.pg.sql
Normal file
117
db_schema/extract_for_customer_facing.pg.sql
Normal file
@ -0,0 +1,117 @@
|
|||||||
|
WITH
|
||||||
|
pc AS materialized (
|
||||||
|
SELECT
|
||||||
|
STLC
|
||||||
|
,COALESCE(COLTIER,'') COLTIER
|
||||||
|
,coalesce(BRANDING,'' ) branding
|
||||||
|
,COALESCE(ACCS ,'') ACCS
|
||||||
|
,COALESCE(SUFF,'') SUFFIX
|
||||||
|
----price 1 -----------------
|
||||||
|
,PCKG PCKG1
|
||||||
|
,1 VOLL1
|
||||||
|
,PCKG VOL1_UOM
|
||||||
|
,PACK VOL1_PRICE
|
||||||
|
----price 2 -----------------
|
||||||
|
,PCKG PCKG2
|
||||||
|
,1 VOLl2
|
||||||
|
,'PLT' VOL2_UOM
|
||||||
|
,MP VOL2_PRICE
|
||||||
|
----price 3 -----------------
|
||||||
|
,'PLT' PCKG3
|
||||||
|
,1 VOLL3
|
||||||
|
,'PLT' VOL3_UOM
|
||||||
|
,BULK VOL3_PRICE
|
||||||
|
FROM
|
||||||
|
rlarp.PCORE P
|
||||||
|
)
|
||||||
|
,colors AS (
|
||||||
|
SELECT
|
||||||
|
pc.STLC
|
||||||
|
,pc.COLTIER
|
||||||
|
,pc.branding
|
||||||
|
,pc.ACCS
|
||||||
|
,pc.SUFFIX
|
||||||
|
,string_agg( DISTINCT ltrim(rtrim(i.COLC)),', ') clist
|
||||||
|
----price 1 -----------------
|
||||||
|
,pc.PCKG1
|
||||||
|
,pc.VOLL1
|
||||||
|
,pc.VOL1_UOM
|
||||||
|
,pc.VOL1_PRICE
|
||||||
|
----price 2 -----------------
|
||||||
|
,pc.PCKG2
|
||||||
|
,pc.VOLl2
|
||||||
|
,pc.VOL2_UOM
|
||||||
|
,pc.VOL2_PRICE
|
||||||
|
----price 3 -----------------
|
||||||
|
,pc.PCKG1
|
||||||
|
,pc.VOLL3
|
||||||
|
,pc.VOL3_UOM
|
||||||
|
,pc.VOL3_PRICE
|
||||||
|
FROM
|
||||||
|
pc
|
||||||
|
LEFT OUTER JOIN RLARP.ITEMMv i ON
|
||||||
|
i.STLC = pc.stlc
|
||||||
|
AND i.COLTIER = pc.coltier
|
||||||
|
--relax relationship to pick up any colors that we run for the mold and color tier
|
||||||
|
--AND COALESCE(i.BRANDING,'') = pc.branding
|
||||||
|
--AND COALESCE(i.ACCS,'') = pc.ACCS
|
||||||
|
--AND COALESCE(i.SUFFIX,'') = pc.suffix
|
||||||
|
AND APLNT <> 'I'
|
||||||
|
GROUP BY
|
||||||
|
pc.STLC
|
||||||
|
,pc.COLTIER
|
||||||
|
,pc.branding
|
||||||
|
,pc.ACCS
|
||||||
|
,pc.SUFFIX
|
||||||
|
----price 1 -----------------
|
||||||
|
,pc.PCKG1
|
||||||
|
,pc.VOLL1
|
||||||
|
,pc.VOL1_UOM
|
||||||
|
,pc.VOL1_PRICE
|
||||||
|
----price 2 -----------------
|
||||||
|
,pc.PCKG2
|
||||||
|
,pc.VOLl2
|
||||||
|
,pc.VOL2_UOM
|
||||||
|
,pc.VOL2_PRICE
|
||||||
|
----price 3 -----------------
|
||||||
|
,pc.PCKG1
|
||||||
|
,pc.VOLL3
|
||||||
|
,pc.VOL3_UOM
|
||||||
|
,pc.VOL3_PRICE
|
||||||
|
)
|
||||||
|
-----------since joining to the item master will be differnt for the last bulk columm---------------
|
||||||
|
-----------must first pivot the data out then join based on the type of row-------------------------
|
||||||
|
,items_init AS (
|
||||||
|
SELECT
|
||||||
|
pc.STLC
|
||||||
|
,pc.coltier
|
||||||
|
,pc.branding
|
||||||
|
,pc.accs
|
||||||
|
,pc.suffix
|
||||||
|
,row_number() OVER (PARTITION BY pc.stlc, pc.coltier, pc.branding, pc.accs, pc.suffix ORDER BY item DESC) seq
|
||||||
|
,item
|
||||||
|
,vol1_uom
|
||||||
|
,vol2_uom
|
||||||
|
,vol3_uom
|
||||||
|
,'PC' to_uom
|
||||||
|
FROM
|
||||||
|
pc
|
||||||
|
LEFT OUTER JOIN RLARP.ITEMMv i ON
|
||||||
|
i.STLC = pc.stlc
|
||||||
|
--AND i.COLTIER = pc.coltier
|
||||||
|
AND COALESCE(i.BRANDING,'') = pc.branding
|
||||||
|
AND COALESCE(i.ACCS,'') = pc.ACCS
|
||||||
|
AND COALESCE(i.SUFFIX,'') = pc.suffix
|
||||||
|
AND APLNT <> 'I'
|
||||||
|
)
|
||||||
|
,items AS (
|
||||||
|
SELECT * FROM items_init where seq = 1
|
||||||
|
)
|
||||||
|
,uom AS (
|
||||||
|
SELECT item partn, vol1_uom from_uom, 'pc' to_uom FROM items_init
|
||||||
|
UNION ALL
|
||||||
|
SELECT item partn, vol2_uom from_uom, 'pc' to_uom FROM items_init
|
||||||
|
UNION ALL
|
||||||
|
SELECT item partn, vol3_uom from_uom, 'pc' to_uom FROM items_init
|
||||||
|
)
|
||||||
|
SELECT * FROM uom
|
||||||
13
db_schema/setup.db2.sql
Normal file
13
db_schema/setup.db2.sql
Normal file
@ -0,0 +1,13 @@
|
|||||||
|
CREATE TABLE RLARP.PCORE (
|
||||||
|
STLC VARCHAR(8)
|
||||||
|
COLTIER VARCHAR(1)
|
||||||
|
BRANDING VARCHAR(8)
|
||||||
|
ACCS VARCHAR(2)
|
||||||
|
SUFF VARCHAR(4)
|
||||||
|
PCKG VARCHAR(3)
|
||||||
|
PACK DECIMAL(7,2)
|
||||||
|
MP DECIMAL(7,2)
|
||||||
|
BULK DECIMAL(7,2)
|
||||||
|
);
|
||||||
|
|
||||||
|
COMMENT ON TABLE rlarp.pcore IS 'core price list - mold + attributies and 3 static volume breaks';
|
||||||
26
readme.md
Normal file
26
readme.md
Normal file
@ -0,0 +1,26 @@
|
|||||||
|
Start with a generic listing of conceptual prices and build a full-20 part listing with volume breaks denominated in per 1000 units.
|
||||||
|
|
||||||
|
| stlc | coltier | branding | accs | suff | pckg | pack | mp | bulk |
|
||||||
|
| -------- | ------- | -------- | ---- | ---- | ---- | ------- | ---- | ------- |
|
||||||
|
| HTO10752 | B | | S | | CSE | 1337.61 | 1157 | 1099.15 |
|
||||||
|
| HTO10752 | B | | SH | | CSE | 1337.61 | 1157 | 1099.15 |
|
||||||
|
| HTO10752 | B | | | | CSE | 1337.61 | 1157 | 1099.15 |
|
||||||
|
| HTO10752 | T | | S | | CSE | 1337.61 | 1157 | 1099.15 |
|
||||||
|
| HTO10752 | T | | SH | | CSE | 1337.61 | 1157 | 1099.15 |
|
||||||
|
| HTO10752 | T | | | | CSE | 1337.61 | 1157 | 1099.15 |
|
||||||
|
| HTO10752 | L | | S | | CSE | 1337.61 | 1157 | 1099.15 |
|
||||||
|
| HTO10752 | L | | SH | | CSE | 1337.61 | 1157 | 1099.15 |
|
||||||
|
| HTO10752 | L | | | | CSE | 1337.61 | 1157 | 1099.15 |
|
||||||
|
|
||||||
|
The mold plus basic attributes form a conceptual framework, and have to be attributed to full-20 codes in order for this to work:
|
||||||
|
* mold/part group: first 8 digits (`rlarp.itemm.styc`)
|
||||||
|
* color tier: `rlarp.itemm.coltier`
|
||||||
|
* branding: `rlarp.branding`
|
||||||
|
* accessories: `rlarp.accs_ps`
|
||||||
|
* suffix: `rlarp.suffix`
|
||||||
|
* package: `rlarp.uomp`
|
||||||
|
|
||||||
|
Any part numbers that match these columns in rlarp.itemm would qualify for listed pricing.
|
||||||
|
The only exception is that the "bulk column" only applies to `uomp` value `PLT` (bulk pricing only applies to part numbers with `PLT` default pack unit (`v6cntr`))
|
||||||
|
|
||||||
|
the accs_ps and suff columns in `itemm` are calculated and not materialized anywhere, and are a large dependency
|
||||||
196
vba/pricelist.frm
Normal file
196
vba/pricelist.frm
Normal file
@ -0,0 +1,196 @@
|
|||||||
|
VERSION 5.00
|
||||||
|
Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} pricelist
|
||||||
|
Caption = "Price List Name"
|
||||||
|
ClientHeight = 7995
|
||||||
|
ClientLeft = 120
|
||||||
|
ClientTop = 465
|
||||||
|
ClientWidth = 11865
|
||||||
|
OleObjectBlob = "pricelist.frx":0000
|
||||||
|
StartUpPosition = 1 'CenterOwner
|
||||||
|
End
|
||||||
|
Attribute VB_Name = "pricelist"
|
||||||
|
Attribute VB_GlobalNameSpace = False
|
||||||
|
Attribute VB_Creatable = False
|
||||||
|
Attribute VB_PredeclaredId = True
|
||||||
|
Attribute VB_Exposed = False
|
||||||
|
|
||||||
|
Public proceed As Boolean
|
||||||
|
Private pl() As String
|
||||||
|
Private plv() As Variant
|
||||||
|
Private plfv() As Variant
|
||||||
|
|
||||||
|
|
||||||
|
Private Sub bCANCEL_Click()
|
||||||
|
proceed = False
|
||||||
|
Me.Hide
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub bOK_Click()
|
||||||
|
|
||||||
|
If tbPATH = "" Then
|
||||||
|
MsgBox ("no directory specified")
|
||||||
|
Exit Sub
|
||||||
|
End If
|
||||||
|
|
||||||
|
proceed = True
|
||||||
|
Me.Hide
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
Private Sub bPICK_Click()
|
||||||
|
|
||||||
|
'--------Open file-------------
|
||||||
|
Set fd = Application.FileDialog(msoFileDialogFolderPicker)
|
||||||
|
fd.Show
|
||||||
|
|
||||||
|
tbPATH.Text = fd.SelectedItems(1)
|
||||||
|
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
Private Sub cbInactive_Click()
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub cbLIST_Change()
|
||||||
|
|
||||||
|
Dim plc() As String
|
||||||
|
plc = pl
|
||||||
|
Call FL.x.TBLp_FilterSingle(plc, 0, cbLIST.value, True)
|
||||||
|
If UBound(plc, 2) = 0 Then Exit Sub
|
||||||
|
Me.tbD1 = plc(1, 1)
|
||||||
|
Me.tbD2 = plc(2, 1)
|
||||||
|
Me.tbD3 = plc(3, 1)
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub lbLIST_Click()
|
||||||
|
|
||||||
|
Dim i As Long
|
||||||
|
|
||||||
|
For i = 1 To lbLIST.ListCount
|
||||||
|
If lbLIST.Selected(i) Then
|
||||||
|
cbLIST.value = lbLIST.list(i, 0)
|
||||||
|
Exit Sub
|
||||||
|
End If
|
||||||
|
Next i
|
||||||
|
|
||||||
|
Me.cbHDR.value = "3 - Update"
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub UserForm_Initialize()
|
||||||
|
|
||||||
|
|
||||||
|
proceed = False
|
||||||
|
Dim x() As Variant
|
||||||
|
Dim i As Long
|
||||||
|
ReDim x(3)
|
||||||
|
|
||||||
|
x(1) = "1 - New"
|
||||||
|
x(2) = "2 - Replace"
|
||||||
|
x(3) = "3 - Update"
|
||||||
|
|
||||||
|
Dim dtl() As Variant
|
||||||
|
ReDim dtl(3)
|
||||||
|
dtl(1) = "1 - Add"
|
||||||
|
dtl(2) = "2 - Update"
|
||||||
|
dtl(3) = "3 - Delete"
|
||||||
|
|
||||||
|
|
||||||
|
cbHDR.list = x
|
||||||
|
cbDTL.list = dtl
|
||||||
|
|
||||||
|
' If login.tbP = "" Then
|
||||||
|
' login.Show
|
||||||
|
' If Not login.proceed Then Exit Sub
|
||||||
|
' If Not FL.x.ADOp_OpenCon(0, ISeries, "S7830956", False, "PTROWBRIDG", "password") Then
|
||||||
|
' MsgBox (FL.x.ADOo_errstring)
|
||||||
|
' Exit Sub
|
||||||
|
' End If
|
||||||
|
' End If
|
||||||
|
|
||||||
|
If Not FL.x.ADOp_OpenCon(1, ISeries, "S7830956", False, "PTROWBRIDG", "password") Then
|
||||||
|
MsgBox (FL.x.ADOo_errstring)
|
||||||
|
Exit Sub
|
||||||
|
End If
|
||||||
|
|
||||||
|
pl = FL.x.ADOp_SelectS(1, "SELECT plcode, d1,d2,d3 FROM RLARP.PLM p ORDER BY plcode", True, 1000, True)
|
||||||
|
Call FL.x.ADOp_CloseCon(1)
|
||||||
|
ReDim plv(1 To UBound(pl, 2))
|
||||||
|
For i = 1 To UBound(pl, 2)
|
||||||
|
plv(i) = pl(0, i)
|
||||||
|
Next i
|
||||||
|
|
||||||
|
plfv = FL.x.TBLp_StringToVar(FL.x.TBLp_Transpose(pl))
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
cbLIST.list = plv
|
||||||
|
lbLIST.list = plfv
|
||||||
|
|
||||||
|
'lbHEAD.ColumnCount = lbHist.ColumnCount
|
||||||
|
'lbHEAD.ColumnWidths = lbHist.ColumnWidths
|
||||||
|
|
||||||
|
Call FL.x.frmListBoxHeader(lbHEAD, lbLIST, "plcode", "descr1", "descr2", "descr3")
|
||||||
|
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub UserForm_Terminate()
|
||||||
|
proceed = False
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Sub load_lists()
|
||||||
|
|
||||||
|
Dim x() As Variant
|
||||||
|
Dim i As Long
|
||||||
|
ReDim x(3)
|
||||||
|
|
||||||
|
x(1) = "1 - New"
|
||||||
|
x(2) = "2 - Replace"
|
||||||
|
x(3) = "3 - Update"
|
||||||
|
|
||||||
|
Dim dtl() As Variant
|
||||||
|
ReDim dtl(3)
|
||||||
|
dtl(1) = "1 - Add"
|
||||||
|
dtl(2) = "2 - Update"
|
||||||
|
dtl(3) = "3 - Delete"
|
||||||
|
|
||||||
|
|
||||||
|
cbHDR.list = x
|
||||||
|
cbDTL.list = dtl
|
||||||
|
|
||||||
|
' If login.tbP = "" Then
|
||||||
|
' login.Show
|
||||||
|
' If Not login.proceed Then Exit Sub
|
||||||
|
' If Not FL.x.ADOp_OpenCon(0, ISeries, "S7830956", False, "PTROWBRIDG", "") Then
|
||||||
|
' MsgBox (FL.x.ADOo_errstring)
|
||||||
|
' Exit Sub
|
||||||
|
' End If
|
||||||
|
' End If
|
||||||
|
|
||||||
|
If Not FL.x.ADOp_OpenCon(1, ISeries, "S7830956", False, "PTROWBRIDG", "") Then
|
||||||
|
MsgBox (FL.x.ADOo_errstring)
|
||||||
|
Exit Sub
|
||||||
|
End If
|
||||||
|
|
||||||
|
pl = FL.x.ADOp_SelectS(1, "SELECT plcode, d1, d2, d3 FROM RLARP.PLM p ORDER BY plcode", True, 1000, True)
|
||||||
|
Call FL.x.ADOp_CloseCon(1)
|
||||||
|
ReDim plv(1 To UBound(pl, 2))
|
||||||
|
For i = 1 To UBound(pl, 2)
|
||||||
|
plv(i) = pl(0, i)
|
||||||
|
Next i
|
||||||
|
|
||||||
|
plfv = FL.x.TBLp_StringToVar(FL.x.TBLp_Transpose(pl))
|
||||||
|
|
||||||
|
cbLIST.list = plv
|
||||||
|
lbLIST.list = plfv
|
||||||
|
|
||||||
|
'lbHEAD.ColumnCount = lbHist.ColumnCount
|
||||||
|
'lbHEAD.ColumnWidths = lbHist.ColumnWidths
|
||||||
|
|
||||||
|
Call FL.x.frmListBoxHeader(lbHEAD, lbLIST, "plcode", "d1", "d2", "d3")
|
||||||
|
End Sub
|
||||||
|
|
||||||
BIN
vba/pricelist.frx
Normal file
BIN
vba/pricelist.frx
Normal file
Binary file not shown.
Loading…
Reference in New Issue
Block a user