pt/VBA
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Compare commits

base: pt:79e3c24a376c0d1679a75b23f473ac78a9a74d0c
Branches Tags
pt:master
..
compare: pt:f825c61b6232380ad691f6deb98957d0a65f456b
Branches Tags
pt:master

No commits in common. "79e3c24a376c0d1679a75b23f473ac78a9a74d0c" and "f825c61b6232380ad691f6deb98957d0a65f456b" have entirely different histories.
79e3c24a37 ... f825c61b62

2 changed files with 3578 additions and 3579 deletions
Show Stats Expand all files Collapse all files

10
FL.bas
View File

@ -948,7 +948,7 @@ Sub build_price_upload()
Dim fd As FileDialog Dim fd As FileDialog
pl = x.SHTp_GetString(Selection) pl = x.SHTp_GetString(Selection)
ReDim ul(11, UBound(pl, 2)) ReDim ul(10, UBound(pl, 2))
PRICELIST_SHOW: PRICELIST_SHOW:
@ -958,7 +958,7 @@ PRICELIST_SHOW:
pl_d1 = pricelist.tbD1.Text pl_d1 = pricelist.tbD1.Text
pl_d2 = pricelist.tbD2.Text pl_d2 = pricelist.tbD2.Text
pl_d3 = pricelist.tbD3.Text pl_d3 = pricelist.tbD3.Text
pl_action = "1" pl_action = "2"
If Len(pricelist.tbCODE) > 5 Then If Len(pricelist.tbCODE) > 5 Then
MsgBox ("price code must be 5 or less characters") MsgBox ("price code must be 5 or less characters")
@ -980,9 +980,9 @@ PRICELIST_SHOW:
ul(1, j) = pl_code ul(1, j) = pl_code
ul(2, j) = pl(7, i) ul(2, j) = pl(7, i)
ul(3, j) = pl(5, i) ul(3, j) = pl(5, i)
ul(4, j) = Format(CDbl(pl(4, i)) * CDbl(pl(8, i)) / CDbl(pl(9, i)), "0.00") ul(4, j) = pl(4, i)
ul(5, j) = Format(pl(6, i), "0.00") ul(5, j) = pl(6, i)
ul(11, j) = "1" ul(10, j) = "2"
j = j + 1 j = j + 1
Next i Next i

3
TheBigOne.cls
View File

@ -1668,8 +1668,7 @@ Function FILEp_CreateCSV(ByRef path As String, ByRef recs() As String) As Boolea
tsf.Type = 2 tsf.Type = 2
'tsf.Charset = "utf-8" tsf.Charset = "utf-8"
tsf.Charset = "Windows-1252"
tsf.Open tsf.Open
'Set ts = f.OpenTextFile(path, ForReading, False, TristateUseDefault) 'Set ts = f.OpenTextFile(path, ForReading, False, TristateUseDefault)