|
chrisredco
VP-CART Super User
282 Posts |
 Posted - June 16 2006 : 20:43:25
|
I am using v 5.0
I would like to know if it is possible to remove certain USPS shipping choices. I have found that many International orders that choose USPS can then choose certain shipping options like "Global Priority-Flat Rate (Smalle Envelope)" even though what they've ordered can in no way fit in that envelope, causing me to lose money on shipping on many International orders.
Can I remove only some shipping choices from a shipping vendor's drop down list?
Thanks,
Chris
|
|
|
jaimerod
Starting Member
USA
31 Posts |
Posted - June 20 2006 : 18:44:20
|
this is my FormatMethods in uspostalrealtime.asp
its basic but it works for me....
I uses instr statements to prevent it from adding stuff i dont want.
I use 6.0 so I hope this works for you...
Sub FormatMethods
dim i, tempoption, price
dim errors(10),errorcount
shippingcount=0
for i =2 to tempmethodscount-1
Price=Tempprices(i)
tempoption=TempMethods(i)
if Price<>0 then
' If getconfig("xLCID")="" Then
' TempOption= TempOption & " [" & formatcurrency(Price,2) & "]"
TempOption= TempOption & " [" & shopformatcurrency(Price,getconfig("xdecimalpoint")) & "]"
' else
' TempOption= TempOption & " [" & formatnumber(Price,2) & "]"
' end if
'CHANGES HERE!!!!
if instr(TempOption, "Flat") = 0 Then
if instr(TempOption, "Parcel") = 0 then
if instr(TempOption, "Media") = 0 Then
if instr(TempOption, "Library") = 0 Then
ShippingMethods(shippingcount)=TempOption
end if
end if
end if
End If
'END CHANGES
'------------
'17/3/2006
' Fix for dual currency shipping
' Set up shipping values array for select box values
'------------
ShippingValues(shippingcount) = " [" & formatnumber(Price,getconfig("xdecimalpoint")) & "]"
'------------
shippingcount=shippingcount+1
end if
next
If intshippingcount>0 then
for i =0 to intshippingcount-1
Price=intshippingprices(i)
tempoption=intshippingmethods(i)
' If getconfig("xLCID")="" Then
' TempOption= TempOption & " [" & formatcurrency(Price,2) & "]"
TempOption= TempOption & " [" & shopformatcurrency(Price,getconfig("xdecimalpoint")) & "]"
' else
' TempOption= TempOption & " [" & formatnumber(Price,2) & "]"
' end if
intShippingMethods(i)=TempOption
'------------
'17/3/2006
' Fix for dual currency shipping
' Set up shipping values array for select box values
'------------
intShippingValues(i) = " [" & formatnumber(Price,getconfig("xdecimalpoint")) & "]"
'------------
next
end if
end sub
|
 |
|
All Forums
Removing certain shipping choices
New Topic
Printer Friendly
Topic 
TrustGuard - PCI Security Scanner
