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

Notification

Icon
Error

Options
Go to last post Go to first unread
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

Wanna join the discussion?! Login to your Sienn Forum forum account. New Registrations are disabled.

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.