Sub SendSMSField(CarID)
	Dim TheForm
	Dim tmpVar
	Dim retVal
	Dim bolErr
	Dim strMsg
	
	bolErr = False	
	Set TheForm = Document.sendinger

	If TheForm.SendSMS.Checked = True Then
		Select Case CarID
			Case "1"
				strMsg = "Du har valgt å varsle mottaker per SMS, Dette koster 2,- kroner eks. mva pr. SMS melding! For Bedriftspakke Ekspress - over natten er det ingen avgift. Trykk Ja for å godta denne kostnaden."
			Case "10"
				strMsg = "Denne tjensten er ikke satt i drift ennå!"
			Case Else
				strMsg = "Denne tjensten er ikke satt i drift ennå!"
		End Select
		retVal = MsgBox (strMsg,52,"SendPakke.no")
		If retVal = 7 Then
			TheForm.SendSMS.Checked = False
		End If
	End If
	'SendSMSField = retVal
End Sub

Function confDelete(delTekst)
	Dim tmpVar
	Dim retVal
	Dim bolErr
	Dim strMsg
	
	retVal = MsgBox (delTekst,52,"Posten Norge Logistikk EDI")
	If retVal = 7 Then
		confDelete = False
	Else
		confDelete = True
	End If
End Function

Sub CheckUnCheck(chkStatus)
	Dim TheForm
	Dim tmpVar
	Dim retVal
	Dim bolErr
	Dim strMsg
	Dim x
	
	bolErr = False	
	Set TheForm = Document.sendinger

	For x=0 to TheForm.SendToID.count -1
		TheForm.SendToID(x).checked = false
	Next
End Sub

Function PrintingWait(btnText)
	Dim TheForm
	Set TheForm = Document.sendinger
	
	Set row = btnRow.insertRow()
	rowCount = btnRow.rows.length - 1
	Set cell = row.insertCell()
	cell.align = "center"
	cell.innerHTML = btnText
	'TheForm.submit.Disabled = True
End Function

Function CleanField(btnText)
	Dim TheForm
	Dim tmpVar
	Dim retVal
	Dim bolErr
	Dim tmpVolum
	Dim row
	Dim cell
	
	bolErr = False
	retVal = True
	Set TheForm = Document.sendinger
	
	If TheForm.recNo.Value = "" Then
		TheForm.recNo.Value = "0"
	End If
	
	If TheForm.regType.Value = "1" Then
		If InStr(TheForm.kollValue.Value,",") <> 0 Then
			tmpVar = Mid(TheForm.forsikring.Value,1,InStr(TheForm.kollValue.Value,",")-1)
			TheForm.kollValue.Value = tmpVar
		End If
	End If
		
	If TheForm.delName.Value = "" Then
		retVal = False
		MsgBox "Du mangler en mottaker!",16,"SendPakke.no"
		TheForm.delName.focus()
	ElseIf TheForm.delPostCity.Value = "" Then
		retVal = False
		MsgBox "Du mangler mottaker's poststed!",16,"SendPakke.no"
		TheForm.delPostNo.focus()
	ElseIf TheForm.SendEmail.Checked = True and TheForm.delEmail.Value = "" Then
		retVal = False
		MsgBox "Du har valgt å varsle mottaker per e-post, men mangler mottakers e-post adresse!",16,"SendPakke.no"
		TheForm.delEmail.focus()
	ElseIf TheForm.SendSMS.Checked = True and TheForm.delMobil.value = "" Then
		retVal = false
		MsgBox "Du har sjekket av for å sende SMS melding, men har ikke fylt ut mobilnr.",16,"SendPakke.no"
		TheForm.delMobil.focus()
	ElseIf TheForm.delProduct.Value = "velg" Then
		retVal = False
		MsgBox "Du har ikke valgt noe produkt for denne sendingen!",16,"SendPakke.no"
		TheForm.delProduct.focus()
	ElseIf Trim(TheForm.delCountry.Value) = "NO" Then
		tmpVar = Trim(TheForm.delPostNo.Value)
		If Len(tmpVar) > 4 Then bolErr = True
		If InStr(tmpVar,",") <> 0 Then bolErr = True
		If InStr(tmpVar,".") <> 0 Then bolErr = True
		If Not IsNumeric(tmpVar) Then bolErr = True
		If bolErr Then
			retVal = False
			MsgBox "Dette er et ugyldig postnummer i Norge! : " & tmpVar,16,"SendPakke.no"
		Else
			retVal = True
		End If
	Else
		retVal = True
	End If
	
	'If TheForm.kollTot.Disabled = True Then
	'	TheForm.kollTot.Disabled = False
	'End If
	
	CleanField = retVal
End Function

Function CleanFieldRetur(btnText)
	Dim TheForm
	Dim tmpVar
	Dim retVal
	Dim bolErr
	Dim tmpVolum
	Dim row
	Dim cell
	
	bolErr = False
	retVal = True
	Set TheForm = Document.sendinger
	
	If TheForm.recNo.Value = "" Then
		TheForm.recNo.Value = "0"
	End If
	
	If TheForm.regType.Value = "1" Then
		If InStr(TheForm.kollValue.Value,",") <> 0 Then
			tmpVar = Mid(TheForm.forsikring.Value,1,InStr(TheForm.kollValue.Value,",")-1)
			TheForm.kollValue.Value = tmpVar
		End If
	End If
		
	If TheForm.delName.Value = "" Then
		retVal = False
		MsgBox "Du mangler en avsender!",16,"SendPakke.no"
		TheForm.delName.focus()
	ElseIf TheForm.delPostCity.Value = "" Then
		retVal = False
		MsgBox "Du mangler avsender's poststed!",16,"SendPakke.no"
		TheForm.delPostNo.focus()
	ElseIf TheForm.SendEmail.Checked = True and TheForm.delEmail.Value = "" Then
		retVal = False
		MsgBox "Du har valgt å varsle mottaker per e-post, men mangler mottakers e-post adresse!",16,"SendPakke.no"
		TheForm.delEmail.focus()
	ElseIf TheForm.SendSMS.Checked = True and TheForm.delMobil.value = "" Then
		retVal = false
		MsgBox "Du har sjekket av for å sende SMS melding, men har ikke fylt ut mobilnr.",16,"SendPakke.no"
		TheForm.delMobil.focus()
	ElseIf TheForm.delProduct.Value = "velg" Then
		retVal = False
		MsgBox "Du har ikke valgt noe produkt for denne sendingen!",16,"SendPakke.no"
		TheForm.delProduct.focus()
	ElseIf Trim(TheForm.delCountry.Value) = "NO" Then
		tmpVar = Trim(TheForm.delPostNo.Value)
		If Len(tmpVar) > 4 Then bolErr = True
		If InStr(tmpVar,",") <> 0 Then bolErr = True
		If InStr(tmpVar,".") <> 0 Then bolErr = True
		If Not IsNumeric(tmpVar) Then bolErr = True
		If bolErr Then
			retVal = False
			MsgBox "Dette er et ugyldig postnummer i Norge! : " & tmpVar,16,"SendPakke.no"
		Else
			retVal = True
		End If
	Else
		retVal = True
	End If
	
	'If TheForm.kollTot.Disabled = True Then
	'	TheForm.kollTot.Disabled = False
	'End If
	
	CleanFieldRetur = retVal
End Function

Sub RemoveFnuttKommaSemiColon(ByRef field)
	field.Value = replace(replace(replace(field.Value,",",""),";",""),"'","")
End Sub

Function AddVOT_Check(VOTVal,CurForm)
	Dim TheForm
	Dim TheField
	Dim tmpVar
	Dim tmpVOT
	Dim tmpStart
	Dim retVal
	Dim bolErr

	bolErr = False	
	Set TheForm = CurForm
	Set TheField = VOTVal
	tmpVOT = TheForm.delProductVOT.Value
	
	If TheField.Checked = True Then
		If TheField.Value = "RMD" Then
			TheForm.adrCodeTmp.Disabled = False
			TheForm.adrbtn.Disabled = False
		End If
		If tmpVOT = "" Then
			tmpVOT = TheField.Value
		Else
			tmpVOT = tmpVOT & ";" & TheField.Value 
		End If
	Else
		If TheField.Value = "RMD" Then
			TheForm.adrCodeTmp.Disabled = True
			TheForm.adrbtn.Disabled = True
			TheForm.adrCode.Value = ""
			TheForm.adrCodeTmp.Value = ""
		End If
		If InStr(tmpVOT,TheField.Value) <> 0 Then
			If InStr(tmpVOT,";") <> 0 Then
				If InStr(tmpVOT,";") < InStr(tmpVOT,TheField.Value) Then
					tmpVOT = Replace(tmpVOT,";" & TheField.Value,"")
				Else
					tmpVOT = Replace(tmpVOT,TheField.Value & ";","")
				End If
			Else
				tmpVOT = Replace(tmpVOT,TheField.Value,"")
			End If
		End If
	End If
	TheForm.delProductVOT.Value = tmpVOT
	AddVOT_Check = False
End Function

Function BlankField()
	Dim TheForm
	Dim tmpVar
	Dim retVal
	Dim bolErr

	bolErr = False	
	Set TheForm = Document.sendinger
	TheForm.recNo.Value = ""
	TheForm.delName.Value = ""
	TheForm.delAdr1.Value = ""
	TheForm.delAdr2.Value = ""
	TheForm.delPostNo.Value = ""
	TheForm.delPostCity.Value = ""
	TheForm.delContact.Value = ""
	TheForm.delPhone.Value = ""
	TheForm.delFax.Value = ""
	TheForm.pstRecNo.Value = ""
	TheForm.pstDelName.Value = ""
	TheForm.pstDelAdr1.Value = ""
	TheForm.pstDelAdr2.Value = ""
	TheForm.pstDelPostNo.Value = ""
	TheForm.pstDelPostCity.Value = ""
	TheForm.shipRef.Value = ""
	TheForm.recRef.Value = ""
	TheForm.shipDesc.Value = ""
	TheForm.defText.Value = ""
	TheForm.SendEmail.Checked = False
	TheForm.delEmail.Value = ""
	TheForm.SendSMS.Checked = False
	TheForm.delMobil.Value = ""
	'TheForm.openTime.Value = ""
	'TheForm.kollTot.Value = "0"
	TheForm.kollValue.Value = "0"
	TheForm.codValue.Value = "0"
	TheForm.pallTot.Value = ""
	TheForm.prod1.Checked = False
	TheForm.prod2.Checked = False
	TheForm.delProductVOT.Value = ""
	'TheForm.weight.Value = ""
	'TheForm.volum.Value = ""
	'TheForm.kollCount.Value = ""
	BlankField = False
End Function

Function CheckRecip()
	Dim TheForm
	Dim tmpVar
	Dim retVal
	Dim bolErr

	bolErr = False	
	Set TheForm = Document.adrbook
	
	If InStr(TheForm.delName.Value,",") <> 0 Then
		tmpVar = replace(TheForm.delName.Value,",","")
		TheForm.delName.Value = tmpVar
	ElseIf InStr(TheForm.delName.Value,";") <> 0 Then
		tmpVar = replace(TheForm.delName.Value,";","")
		TheForm.delName.Value = tmpVar
	ElseIf InStr(TheForm.delName.Value,"'") <> 0 Then
		tmpVar = replace(TheForm.delName.Value,"'","")
		TheForm.delName.Value = tmpVar
	End If

	If InStr(TheForm.delAdr1.Value,",") <> 0 Then
		tmpVar = replace(TheForm.delAdr1.Value,",","")
		TheForm.delAdr1.Value = tmpVar
	ElseIf InStr(TheForm.delAdr1.Value,";") <> 0 Then
		tmpVar = replace(TheForm.delAdr1.Value,";","")
		TheForm.delAdr1.Value = tmpVar
	ElseIf InStr(TheForm.delAdr1.Value,"'") <> 0 Then
		tmpVar = replace(TheForm.delAdr1.Value,"'","")
		TheForm.delAdr1.Value = tmpVar
	End If

	If InStr(TheForm.delAdr2.Value,",") <> 0 Then
		tmpVar = replace(TheForm.delAdr2.Value,",","")
		TheForm.delAdr2.Value = tmpVar
	ElseIf InStr(TheForm.delAdr2.Value,";") <> 0 Then
		tmpVar = replace(TheForm.delAdr2.Value,";","")
		TheForm.delAdr2.Value = tmpVar
	ElseIf InStr(TheForm.delAdr2.Value,"'") <> 0 Then
		tmpVar = replace(TheForm.delAdr2.Value,"'","")
		TheForm.delAdr2.Value = tmpVar
	End If

	If InStr(TheForm.delAdr3.Value,",") <> 0 Then
		tmpVar = replace(TheForm.delAdr3.Value,",","")
		TheForm.delAdr3.Value = tmpVar
	ElseIf InStr(TheForm.delAdr3.Value,";") <> 0 Then
		tmpVar = replace(TheForm.delAdr3.Value,";","")
		TheForm.delAdr3.Value = tmpVar
	ElseIf InStr(TheForm.delAdr3.Value,"'") <> 0 Then
		tmpVar = replace(TheForm.delAdr3.Value,"'","")
		TheForm.delAdr3.Value = tmpVar
	End If

	If InStr(TheForm.delContact.Value,",") <> 0 Then
		tmpVar = replace(TheForm.delContact.Value,",","")
		TheForm.delContact.Value = tmpVar
	ElseIf InStr(TheForm.delContact.Value,";") <> 0 Then
		tmpVar = replace(TheForm.delContact.Value,";","")
		TheForm.delContact.Value = tmpVar
	ElseIf InStr(TheForm.delContact.Value,"'") <> 0 Then
		tmpVar = replace(TheForm.delContact.Value,"'","")
		TheForm.delContact.Value = tmpVar
	End If
	
	If TheForm.delName.Value = "" Then
		retVal = False
		MsgBox "Du mangler en mottaker!",16,"SendPakke.no"
	ElseIf TheForm.recNo.Value = "" Then
		retVal = False
		MsgBox "Du mangler mottaker's kundenummer!",16,"SendPakke.no"
	ElseIf TheForm.delPostNo.Value = "" Then
		retVal = False
		MsgBox "Du mangler mottaker's postnummer!",16,"SendPakke.no"
	ElseIf Trim(TheForm.delCountry.Value) = "NO" Then
		tmpVar = Trim(TheForm.delPostNo.Value)
		If Len(tmpVar) > 4 Then bolErr = True
		If InStr(tmpVar,",") <> 0 Then bolErr = True
		If InStr(tmpVar,".") <> 0 Then bolErr = True
		If Not IsNumeric(tmpVar) Then bolErr = True
		If bolErr Then
			retVal = False
			MsgBox "Dette er et ugyldig postnummer i Norge! : " & tmpVar,16,"SendPakke.no"
		Else
			retVal = True
		End If
	Else
		retVal = True
	End If
	CheckRecip = retVal
End Function

Function CountryChk()
	Dim TheForm
	Dim tmpVar
	Dim retVal
	Dim bolErr

	bolErr = False	
	Set TheForm = Document.sendinger
	
	If TheForm.delCountry.Value <> "NO" Then
		TheForm.delPostNo.Maxlength = 30
		TheForm.delPostNo.Size = 22
		TheForm.delPostCity.Size = 1
		TheForm.delPostCity.Disabled = True
		TheForm.forsikring.Disabled = True
		TheForm.betaling(1).Disabled = True
		TheForm.oppkrav.Disabled = True
		TheForm.sendType(2).Disabled = True
	Else
		TheForm.delPostNo.Maxlength = 4
		TheForm.delPostNo.Value = ""
		TheForm.delPostNo.Size = 3
		TheForm.delPostCity.Size = 20
		TheForm.delPostCity.Disabled = False
		TheForm.forsikring.Disabled = False
		TheForm.betaling(1).Disabled = False
		TheForm.oppkrav.Disabled = False
		TheForm.sendType(2).Disabled = False
	End If
End Function

Function CountryChkCust()
	Dim TheForm
	Dim tmpVar
	Dim retVal
	Dim bolErr

	bolErr = False	
	Set TheForm = Document.sendinger
	
	If TheForm.delCountry.Value <> "NO" Then
		TheForm.delPostNo.Maxlength = 30
		TheForm.delPostNo.Size = 22
		TheForm.delPostCity.Size = 1
		TheForm.delPostCity.Disabled = True
	Else
		TheForm.delPostNo.Maxlength = 4
		TheForm.delPostNo.Value = ""
		TheForm.delPostNo.Size = 3
		TheForm.delPostCity.Size = 20
		TheForm.delPostCity.Disabled = False
	End If
End Function