logo
Welcome Guest! To enable all features please Login. New Registrations are disabled.

Notification

Icon
Error
use delivery costs at other places
Options
Go to last post Go to first unread
Previous Topic Next Topic
bart  
#1 Posted : Wednesday, April 25, 2012 4:48:07 PM(UTC)
bart

Rank: Administration

Reputation:

Groups: Administration
Joined: 10/8/2008(UTC)
Posts: 190
Man

Was thanked: 1 time(s) in 1 post(s)
If you want to use delivery costs in other places without typing the code again, You can use this code,
this prevents troubles when changing the delivery-costs code.

Code:
Try
   Dim Errorstring As String
   If Not pbw.UserEscape_Shop_Calculate_AdditionalCosts("SOURCESHOP05", UserEscapeIndex, cid, False, pbw.Get_RunSource_CreateAssembly, pbw.Get_RunSource_RunFromAssembly(), Server, Request, ShopTotaalprijs, type, Bezorgkosten, Session, constring, "", "", response, Errorstring) Then
     Dim pinc, Errstring As String
     Dim bzkindex = 0
     bzkindex = pbw.UserEscape_Shop_AdditionalCosts_Index("SOURCESHOP06", UserEscapeIndex, cid, False, pbw.Get_RunSource_CreateAssembly, pbw.Get_RunSource_RunFromAssembly(), Server, Request, Session, ShopTotaalprijs, type, constring, "", "", response, Errstring)
     pbw.Get_Config(cid, bzkindex, "SHOPBEZORGKOSTEN", pinc, constring)
     Bezorgkosten = Val(pinc)
     If Bezorgkosten < 0 Then
       Bezorgkosten = 0
     End If
   End If
Catch ex As Exception
    Bezorgkosten = 0
End Try
Back to top

Wanna join the discussion?! Login to your Sienn Forum forum account. New Registrations are disabled.
Back to top  
Users browsing this topic
Forum Jump  
You cannot post new topics in this forum.
You cannot reply to topics in this forum.
You cannot delete your posts in this forum.
You cannot edit your posts in this forum.
You cannot create polls in this forum.
You cannot vote in polls in this forum.

Privacy Policy | Powered by YAF.NET 2.2.4.15 | YAF.NET © 2003-2022, Yet Another Forum.NET
This page was generated in 0.052 seconds.