Function LIAB_GetCard(sCard, sPIN) LIAB_GetCard = "" If CheckEmpty(sCard) = False Then sInput = "" & _ " " & VbCrLf & _ " " & sCard & "" & VbCrLf & _ " " & sPIN & "" & VbCrLf & _ " " & VbCrLf LIAB_GetCard = LIAB_XML(oHTTP, sInput, "GetCard") End If End Function Function LIAB_Logout() LIAB_Logout = False sInput = " " & VbCrLf aLogout = LIAB_XML(oLIAB, sInput, "Logout") If IsArray(aLogout) Then LIAB_Logout = True End If End Function Function LIAB_Result(sCode) LIAB_Result = "" If CheckEmpty(sCode) = False Then Select Case CStr(sCode) Case "0" ' Ok Case "3" ' Authorization failure (not logged in) LIAB_Result = "Kan transactie niet starten" Case "18" ' Unable to cancel LIAB_Result = "Kan transactie niet annuleren" Case "101" ' Card does not exist LIAB_Result = "Kaart bestaat niet" Case "102" ' Card is expired" LIAB_Result = "Kaart is verlopen" Case "103" ' Card is blocked (stolen/lost)" LIAB_Result = "Kaart is geblokkeerd" Case "104" ' Insufficient balance to perform transaction LIAB_Result = "Kaart heeft onvoldoende saldo" Case "118" ' Card is transfered LIAB_Result = "Kaart is overgedragen" Case "119" ' Card is not activated LIAB_Result = "Kaart is niet geactiveerd" Case "162" ' Invalid reload amount LIAB_Result = "Ongeldig opwaardeersaldo" Case "211" ' Invalid PIN LIAB_Result = "Ongeldige PIN code" Case Else LIAB_Result = sCode End Select End If End Function Function LIAB_GetCard(sCard, sPIN) LIAB_GetCard = "" If CheckEmpty(sCard) = False And CheckEmpty(sPIN) = False Then sInput = "" & _ " " & VbCrLf & _ " " & sCard & "" & VbCrLf & _ " " & sPIN & "" & VbCrLf & _ " " & VbCrLf LIAB_GetCard = LIAB_XML(oLIAB, sInput, "GetCard") End If End Function Function LIAB_Purchase(sCard, sPIN, iAmount, bTest) LIAB_Purchase = "" If CheckEmpty(sCard) = False And CheckEmpty(sPIN) = False And CheckEmpty(iAmount) = False Then sInput = "" & _ " " & VbCrLf & _ " " & sCard & "" & VbCrLf & _ " " & sPIN & "" & VbCrLf & _ " " & iAmount & "" & VbCrLf & _ " " & VbCrLf LIAB_Purchase = LIAB_XML(oLIAB, sInput, "Purchase" & IIf(bTest = True, "Simulate", "")) End If End Function Function LIAB_Cancel(sTransID) LIAB_Cancel = False If CheckEmpty(sTransID) = False Then sInput = "" & _ " " & VbCrLf & _ " " & sTransID & "" & VbCrLf & _ " " & VbCrLf aCancel = LIAB_XML(oLIAB, sInput, "Cancel") If IsArray(aCancel) Then LIAB_Cancel = True End If End If End Function De eerste mensen - 1501 - Gospel Expert
 
 
Winkelwagentje winkelwagentje
Geen artikelen - € 0,00

De eerste mensen

De eerste mensen
Titel: De eerste mensen
Bestelnr.: 1501
Prijs: € 7,95
Beoordeling: (0 stemmen)
Lees beoordelingen | Schrijf een beoordeling
Plaats in winkelwagentje Vorige
 

Andere artikelen van :

Samen zingen in Praag   Maaike en Marijke en de kinderevangelisa   Anne Frank - Haar Verhaal   Frozen world
Samen zingen in Praag   Maaike en Marijke en de kinderevangelis- a   Anne Frank - Haar Verhaal   Frozen world
€ 17,50
   € 9,90
   € 9,90
   € 20,50

Bekijk alle artikelen van