<%@Language=VbScript%>
<%
Response.Expires = 0
Response.CacheControl = "private"
Response.ContentType = "application/vnd.ms-excel"
Response.AddHeader "Content-disposition", "filename=afrastering.csv"
Dim VersieCalculator
If Request.Querystring("versiecalculator") <> "2" Then
VersieCalculator = 1
Else
VersieCalculator = 2
End If
DierKeuze = Session("ADierKeuze")
PermanentVerplaatsbaar = Session("APermanentVerplaatsbaar")
TypeGeleiders = Session("ATypeGeleiders")
TypeAfrastering = Session("ATypeAfrastering")
AantalDraden = Session("AantalDraden")
AfstandPalen = Session("AfstandPalen")
AantalHoeken = Session("AantalHoeken")
AantalDoorgangen = Session("AantalDoorgangen")
KeuzeSchapenGeiten = Session("KeuzeSchapenGeiten")
Montage = Session("Montage")
Schrikdraadapparaat = Session("Schrikdraadapparaat")
Afstand = Session("Afstand")
Toebehoren = Session("Toebehoren")
TotaleLengte = Session("TotaleLengte")
FAfstand = Session("FAfstand")
FAfstand2 = Session("FAfstand2")
Dim SQL, rs, SQL1, rs1, SQL2, rs2, SQL3, rs3, SQL4, rs4, SQL5, rs5, SQL6, rs6, SQL7, rs7, SQL8, rs8, SQL9, rs9, SQL10, rs10
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../database/gallagher.mdb") & ";User Id=admin;Password=;"
SQL = "SELECT * FROM KeuzeBOM WHERE Dier='" & DierKeuze & "' And VP ='" & PermanentVerplaatsbaar & "' AND TypeAfrastering='" & TypeAfrastering & "' AND TypeDraad ='" & TypeGeleiders & "'"
Set rs = cn.Execute(SQL)
' --- FUNCTIES -----
Function ValutaNUK (FrmString)
ValutaNUK = Replace(Replace(Replace(FrmString,",","-"),".",","),"-",".")
End Function
Dim BJoules
Sub BerekenJoules
BJoules = 0
Select Case DierKeuze
Case "paard"
BJoules = 0.9
Case "koe"
BJoules = 1
Case "schapen"
BJoules = 1.5
Case "konijnen"
BJoules = 1.5
Case "kip"
BJoules = 1.5
Case "varkens"
BJoules = 1.5
Case "wild"
BJoules = 1.5
Case "gwild"
BJoules = 1.5
Case "hond"
BJoules = 1.5
Case "kat"
BJoules = 1.5
Case Else
BJoules = 1.5
End Select
If Aansluiting = "ja" Then
BJoules = BJoules * 1
Else
BJoules = BJoules * 0.2
End If
BJoules = BJoules * TotaleLengte /1000
If rs.Fields("BOM") = "2G" or rs.Fields("BOM") = "2GG" or rs.Fields("BOM") = "2I" or rs.Fields("BOM") = "2J" Then
BJoules = BJoules * 4
Else
Select Case AantalDraden
Case "1"
BJoules = BJoules * 1.25
Case "2"
BJoules = BJoules * 1
Case "3"
BJoules = BJoules * 2
Case Else
BJoules = BJoules * 2
End Select
End If
SQL7 = "SELECT * FROM GeleiderJoule WHERE Artikelnummer='" & GeleiderArtikelnummer & "'"
Set rs7 = cn.Execute(SQL7)
If not rs7.EOF Then
BJoules = BJoules * rs7.Fields("Joule")
Else
BJoules = BJoules * 3
End If
BJoules = Replace(BJoules,",",".")
End Sub
Function HoekpaalAantal(D, E)
HoekpaalAantal = D + (E * 2)
End Function
Function HoekpaalAantal2(D, E, A, HAfmeting)
HoekpaalAantal2 = D + (E * 2) + (Round((A / HAfmeting) + 0.4) - 1)
End Function
Function HoekpaalAantal3(B, C30)
HoekpaalAantal3 = B * C30
End Function
Function HoekpaalAantal4(A, HAfmeting)
HoekpaalAantal4 = (Round((A / HAfmeting) + 0.4))
End Function
Function TussenPaalAantal(A, C, D, E)
TussenPaalAantal = Round((A / C - D - (E * 2)) + 0.4)
End Function
Function TussenPaalAantal1(A, C, D, E)
TussenPaalAantal1 = Round(((A / C - D - (E * 2))*0.25) + 0.4)
End Function
Function TussenPaalAantal2(A, C, D, E, TsPaalAantal1)
TussenPaalAantal2 = Round((A / C - D - (E * 2)) + 0.4) - TsPaalAantal1
End Function
Function TussenPaalAantal3(A, C, D, E)
TussenPaalAantal3 = Round(((A / C - D - (E * 2))*0.75) + 0.4)
End Function
Function GeleiderAantal(A, B)
GeleiderAantal = A * B
End Function
Function HaspelAantal(A, B, HAfmeting, VAfmeting)
TestAantal = 0
Rest = 0
BAantal = Int(A / HAfmeting)
Rest = (A / HAfmeting) - BAantal
Rest = int(Rest * HAfmeting)
TestAantal = VAfmeting
If Rest > TestAantal Then
BAantal = BAantal + 1
End If
HaspelAantal = B * BAantal
End Function
Function HaspelAantal2(A, B, HAfmeting)
BAantal = Round((A / HAfmeting) + 0.4)
HaspelAantal2 = B * BAantal
End Function
Function IsolatorAantal(B, B35)
IsolatorAantal = B * B35
End Function
Function IsolatorAantal1(E, B)
IsolatorAantal1 = E * B * 2
End Function
Function IsolatorAantal2(B, D)
IsolatorAantal2 = B * D * 2
End Function
Function IsolatorAantal3(B, D, E)
IsolatorAantal3 = (B * D) + (B * E * 2)
End Function
Function IsolatorAantal4(E, B)
IsolatorAantal4 = Round((E * B * 2 * 0.6) + 0.4)
End Function
Function IsolatorAantal5(AantalTussenpaal1, B)
IsolatorAantal5 = AantalTussenpaal1 * B
End Function
Function IsolatorAantal6(AantalTussenpaal2, B)
IsolatorAantal6 = AantalTussenpaal2 * B
End Function
Function IsolatorAantal7(A, C, D, E, B)
IsolatorAantal7 = Round((((A/C) - D - (E*2)) * B) + 0.4)
End Function
Function IsolatorAantal8(B, D)
IsolatorAantal8 = B * D
End Function
Function IsolatorAantal9(E, B, A, HAfmeting)
Tussentotaal = ( B * (int((A / HAfmeting) + 0.9) - 1))
If Tussentotaal < 0 Then
Tussentotaal = 0
End If
IsolatorAantal9 = (B * E * 2) + Tussentotaal
End Function
Function IsolatorAantal10(B, B35)
IsolatorAantal10 = (B-1) * B35
End Function
Function IsolatorAantal11(AantalTussenpaal3, B)
IsolatorAantal11 = AantalTussenpaal3 * B
End Function
Function VerbindingAantal(D, B)
BAantal = (Round ( ( (D / 2) + 0.4 ) ) * B)
If BAantal > 6 Then
VerbindingAantal = 6
Else
VerbindingAantal = BAantal
End If
End Function
Function VerbindingAantalR(D, B)
VerbindingAantalR = (Round ( ( (D / 2) + 0.4 ) ) * B) '- 6
End Function
Function VerbindingAantalD(E, B)
BAantal = E * B * 2
If BAantal > 6 Then
VerbindingAantalD = 6
Else
VerbindingAantalD = BAantal
End If
End Function
Function VerbindingAantalDR(E, B)
VerbindingAantalDR = (E * B * 2) - 6
End Function
Function VerbindingAantal2(A, HAfmeting)
VerbindingAantal2 = Round((A / HAfmeting) + 0.4)
End Function
Function TrekverenAantal(B, E)
TrekverenAantal = B * E * 2
End Function
Function DraadklemmenAantal(E36, B, E)
DraadklemmenAantal = (E36 - 1) + (B * E * 2)
End Function
Function DraadklemmenAantal2(E36)
DraadklemmenAantal2 = E36 - 1
End Function
Function DraadklemmenAantal3(E36, B, E)
DraadklemmenAantal3 = (E36) + (B * E * 2)
End Function
Function SchroevenAantal(B, B35)
SchroevenAantal = Round((B * B35 * 2) + 0.4)
End Function
Function DoorgangAantal(E)
DoorgangAantal = E
End Function
Function DoorgangAantal2(E, B)
DoorgangAantal2 = E * B
End Function
Function DoorgangDraadklemmenAantal(E)
DoorgangDraadklemmenAantal = E * 10
End Function
Function GrondkabelAantal(E)
GrondkabelAantal = E * 12
End Function
Function GrondkabelAantal2(E)
GrondkabelAantal2 = E * 8
End Function
Function StutpaalAantal(G31)
StutpaalAantal = Round ((G31 * 1.5) + 0.4)
End Function
Function GrondAnkerAantal(G31)
GrondAnkerAantal = G31
End Function
Function NetAantal(A)
NetAantal = Round ((A / 50) + 0.4)
End Function
Function NetAantal3(A, B)
NetAantal3 = Round((((A * B) - 75) / 75) + 0.49)
End Function
' --- EINDE FUNCTIES -----
'--- START BEREKENING ------
Dim ArtikelAr(100)
Dim AantalAr(100)
Dim AantalArRest(100)
TellerAr = 0
AlgemeenTotaal = 0
SwDoorgang=0
SwTussenpaal = ""
SwBerekenMontageElkHek=0
HaspelLengte = TotaleLengte
AantalHaspel = 0
GeleiderArtikelnummer = ""
If not rs.EOF Then
SQL1 = "SELECT * FROM BOM WHERE BOM='" & rs.Fields("BOM") & SWGeitSchaap & "' ORDER BY Volgnummer"
set rs1 = cn.Execute(SQL1)
Dim jvOutput
If not rs1.EOF Then
jvOutput = "Artikelnr;Omschrijving;Benodigd Aantal;VE;Aantal VE;Prijs VE in Euro;Totaal in Euro" & vbcrlf
jvOutput = jvOutput & ";Afrastering;;;;;" & vbcrlf
SwTekst = 0
While Not rs1.EOF
ArtikelnummerZoek = Trim(Request.Form("Artikel" & rs1.Fields("Volgnummer") & "1" ))
If ArtikelnummerZoek = "" then
ArtikelnummerZoek = rs1.Fields("Artikelnummer")
End If
SQL2 = "SELECT * FROM BOMDetail WHERE BOM='" & rs.Fields("BOM") & SWGeitSchaap & "' AND VolgnummerParent=" & rs1.Fields("Volgnummer") & " AND ParentArtikelnummer='" & ArtikelnummerZoek & "' ORDER BY Volgnummer"
set rs2 = cn.Execute(SQL2)
While Not rs2.EOF
If CVolgnummer <> rs2.Fields("VolgnummerParent") & rs2.Fields("Volgnummer") Then
If rs2.Fields("Alternatief") = "N" then
ArtikelnummerZoek = rs2.Fields("ParentArtikelnummer")
ArtikelDetailZoek = rs2.Fields("Artikelnummer")
Else
ArtikelnummerZoek = Trim(Request.Form("Artikel" & rs2.Fields("VolgnummerParent") & rs2.Fields("Volgnummer")))
If ArtikelnummerZoek = "" then
ArtikelnummerZoek = rs2.Fields("ParentArtikelnummer")
ArtikelDetailZoek = rs2.Fields("Artikelnummer")
Else
ArtikelnummerZoek = mid(ArtikelnummerZoek, 1, 6)
ArtikelDetailZoek = mid(ArtikelnummerZoek, 1, 6)
End If
End If
If rs2.Fields("Categorie") = "doorgangen" And SwDoorgang=0 then
SwDoorgang=1
If ArtikelnummerZoek = "001064" Then
SwBerekenMontageElkHek = 1
End If
jvoutput = jvOutput & ";Doorgang;;;;;" & vbcrlf
End If
If rs2.Fields("Formule") = "TKST" then
SQL3 = "SELECT * FROM BOMTekst WHERE BOM='" & rs2.Fields("BOM") & "' AND ParentArtikelnummer='" & ArtikelnummerZoek & "' AND Volgnummer=" & rs2.Fields("Volgnummer")
set rs3 = cn.Execute(SQL3)
If not rs3.EOF Then
Omschrijving = rs3.Fields("Omschrijving")
Else
Omschrijving = " "
End If
jvOutput = jvOutput & ";" & csvString(Omschrijving) & ";;;;;" & vbcrlf
Else
SQL3 = "SELECT * FROM ProductDetail WHERE Artikelnr='" & ArtikelDetailZoek & "'"
set rs3 = cn.Execute(SQL3)
If not rs3.EOF Then
SQL4 = "SELECT * FROM Producten WHERE Artikelnr='" & rs3.Fields("ArtikelnrParent") & "'"
set rs4 = cn.Execute(SQL4)
If not rs4.EOF Then
Select Case rs2.Fields("Formule")
Case "HKP"
Aantal = HoekpaalAantal(AantalHoeken, AantalDoorgangen)
AantalHoekpaal = Aantal
Case "HKP2"
Aantal = HoekpaalAantal2(AantalHoeken, AantalDoorgangen, TotaleLengte, 500)
AantalHoekpaal2 = Aantal
Case "HKP3"
Aantal = AantalHaspel
Case "HKP4"
Aantal = HoekpaalAantal4(TotaleLengte, 500)
Case "HKP5"
Aantal = HoekpaalAantal2(AantalHoeken, AantalDoorgangen, TotaleLengte, 300)
AantalHoekpaal2 = Aantal
Case "HKP6"
Aantal = HoekpaalAantal4(TotaleLengte, 300)
Case "HKP7"
Aantal = HoekpaalAantal2(AantalHoeken, AantalDoorgangen, TotaleLengte, 400)
AantalHoekpaal2 = Aantal
Case "HKP8"
Aantal = HoekpaalAantal4(TotaleLengte, 400)
Case "HKP9"
Aantal = HoekpaalAantal2(AantalHoeken, AantalDoorgangen, TotaleLengte, 600)
AantalHoekpaal2 = Aantal
Case "HKP10"
Aantal = HoekpaalAantal4(TotaleLengte, 1000)
Case "HKP11"
Aantal = HoekpaalAantal2(AantalHoeken, AantalDoorgangen, TotaleLengte, 800)
AantalHoekpaal2 = Aantal
Case "TSP"
Aantal = TussenPaalAantal(TotaleLengte, AfstandPalen, AantalHoeken, AantalDoorgangen)
AantalTussenpaal = Aantal
If rs2.Fields("Artikelnummer") = "007618" Or rs2.Fields("Artikelnummer") = "007724" Or rs2.Fields("Artikelnummer") = "007601" Then
SwTussenpaal = "IP"
Else
If rs2.Fields("Artikelnummer") = "009527" Or rs2.Fields("Artikelnummer") = "009534" Then
SwTussenpaal = "EP"
End If
End IF
Case "TSP1"
Aantal = TussenPaalAantal1(TotaleLengte, AfstandPalen, AantalHoeken, AantalDoorgangen)
AantalTussenpaal1 = Aantal
If rs2.Fields("Artikelnummer") = "007618" Or rs2.Fields("Artikelnummer") = "007724" Or rs2.Fields("Artikelnummer") = "007601" Then
SwTussenpaal = "IP"
Else
If rs2.Fields("Artikelnummer") = "009527" Or rs2.Fields("Artikelnummer") = "009534" Then
SwTussenpaal = "EP"
End If
End IF
Case "TSP2"
Aantal = TussenPaalAantal2(TotaleLengte, AfstandPalen, AantalHoeken, AantalDoorgangen, AantalTussenpaal1)
AantalTussenpaal2 = Aantal
If rs2.Fields("Artikelnummer") = "007618" Or rs2.Fields("Artikelnummer") = "007724" Or rs2.Fields("Artikelnummer") = "007601" Then
SwTussenpaal = "IP"
Else
If rs2.Fields("Artikelnummer") = "009527" Or rs2.Fields("Artikelnummer") = "009534" Then
SwTussenpaal = "EP"
End If
End IF
If AantalDraden < 4 Then
AantalDraden = 4
Session("AantalDraden") = AantalDraden
jvOutput = jvOutput & ";" & csvString("Let op: bij deze tussenpaal is het aantal draden minimaal 4 !") & ";;;;;" & vbcrlf
End If
Case "TSP3"
Aantal = TussenPaalAantal3(TotaleLengte, AfstandPalen, AantalHoeken, AantalDoorgangen)
AantalTussenpaal3 = Aantal
If rs2.Fields("Artikelnummer") = "007618" Or rs2.Fields("Artikelnummer") = "007724" Or rs2.Fields("Artikelnummer") = "007601" Then
SwTussenpaal = "IP"
Else
If rs2.Fields("Artikelnummer") = "009527" Or rs2.Fields("Artikelnummer") = "009534" Then
SwTussenpaal = "EP"
End If
End IF
Case "GLD"
Aantal = GeleiderAantal(TotaleLengte, AantalDraden)
AantalGeleider = Round((Aantal / rs3.Fields("Verpakking") + 0.4))
GeleiderArtikelnummer = rs2.Fields("Artikelnummer")
Case "HSP"
If HaspelLengte < 0 Then
HaspelLengte = 0
End If
Aantal = HaspelAantal2(HaspelLengte, AantalDraden, 200)
AantalHaspel = AantalHaspel + Aantal
Case "HSP1"
If HaspelLengte < 0 Then
HaspelLengte = 0
End If
Aantal = HaspelAantal(HaspelLengte, AantalDraden, 300, 200)
HaspelLengte = HaspelLengte - (Aantal * 300 / AantalDraden)
AantalHaspel = AantalHaspel + Aantal
Case "HSP2"
If HaspelLengte < 0 Then
HaspelLengte = 0
End If
Aantal = HaspelAantal(HaspelLengte, AantalDraden, 500, 300)
HaspelLengte = HaspelLengte - (Aantal * 500 / AantalDraden)
AantalHaspel = AantalHaspel + Aantal
Case "HSP3"
If HaspelLengte < 0 Then
HaspelLengte = 0
End If
Aantal = HaspelAantal2(HaspelLengte, AantalDraden, 100)
AantalHaspel = AantalHaspel + Aantal
Case "HSP4"
If HaspelLengte < 0 Then
HaspelLengte = 0
End If
Aantal = HaspelAantal(HaspelLengte, AantalDraden, 150, 100)
HaspelLengte = HaspelLengte - (Aantal * 150 / AantalDraden)
AantalHaspel = AantalHaspel + Aantal
Case "HSP5"
If HaspelLengte < 0 Then
HaspelLengte = 0
End If
Aantal = HaspelAantal(HaspelLengte, AantalDraden, 300, 150)
HaspelLengte = HaspelLengte - (Aantal * 300 / AantalDraden)
AantalHaspel = AantalHaspel + Aantal
Case "HSP6"
If HaspelLengte < 0 Then
HaspelLengte = 0
End If
Aantal = HaspelAantal(HaspelLengte, AantalDraden, 200, 150)
HaspelLengte = HaspelLengte - (Aantal * 200 / AantalDraden)
AantalHaspel = AantalHaspel + Aantal
Case "HSP7"
If HaspelLengte < 0 Then
HaspelLengte = 0
End If
Aantal = HaspelAantal(HaspelLengte, AantalDraden, 400, 200)
HaspelLengte = HaspelLengte - (Aantal * 400 / AantalDraden)
AantalHaspel = AantalHaspel + Aantal
Case "HSP8"
If HaspelLengte < 0 Then
HaspelLengte = 0
End If
Aantal = HaspelAantal2(HaspelLengte, AantalDraden, 150)
AantalHaspel = AantalHaspel + Aantal
Case "HSP9"
If HaspelLengte < 0 Then
HaspelLengte = 0
End If
Aantal = HaspelAantal(HaspelLengte, AantalDraden, 600, 400)
HaspelLengte = HaspelLengte - (Aantal * 600 / AantalDraden)
AantalHaspel = AantalHaspel + Aantal
Case "HSP10"
If HaspelLengte < 0 Then
HaspelLengte = 0
End If
Aantal = HaspelAantal2(HaspelLengte, AantalDraden, 400)
AantalHaspel = AantalHaspel + Aantal
Case "HSP11"
If HaspelLengte < 0 Then
HaspelLengte = 0
End If
Aantal = HaspelAantal(HaspelLengte, AantalDraden, 1000, 600)
HaspelLengte = HaspelLengte - (Aantal * 1000 / AantalDraden)
AantalHaspel = AantalHaspel + Aantal
Case "HSP12"
If HaspelLengte < 0 Then
HaspelLengte = 0
End If
Aantal = HaspelAantal(HaspelLengte, AantalDraden, 600, 500)
HaspelLengte = HaspelLengte - (Aantal * 600 / AantalDraden)
AantalHaspel = AantalHaspel + Aantal
Case "HSP13"
If HaspelLengte < 0 Then
HaspelLengte = 0
End If
Aantal = HaspelAantal2(HaspelLengte, AantalDraden, 500)
AantalHaspel = AantalHaspel + Aantal
Case "HSP14"
If HaspelLengte < 0 Then
HaspelLengte = 0
End If
Aantal = HaspelAantal(HaspelLengte, AantalDraden, 600,400)
HaspelLengte = HaspelLengte - (Aantal * 600 / AantalDraden)
AantalHaspel = AantalHaspel + Aantal
Case "ISL"
Aantal = IsolatorAantal(AantalDraden, AantalTussenpaal)
Case "ISL1"
Aantal = IsolatorAantal1(AantalDoorgangen, AantalDraden)
Case "ISL2"
Aantal = IsolatorAantal2(AantalDraden, AantalHoeken)
Case "ISL3"
Aantal= IsolatorAantal3(AantalDraden, AantalHoeken, AantalDoorgangen)
Case "ISL4"
Aantal= IsolatorAantal4(AantalDoorgangen, AantalDraden)
Case "ISL5"
Aantal= IsolatorAantal5(AantalTussenpaal1, AantalDraden)
Case "ISL6"
Aantal= IsolatorAantal6(AantalTussenpaal2, AantalDraden)
Case "ISL7"
Aantal= IsolatorAantal7(TotaleLengte, AfstandPalen, AantalHoeken, AantalDoorgangen, AantalDraden)
Case "ISL8"
Aantal= IsolatorAantal8(AantalDraden, AantalHoeken)
Case "ISL9"
Aantal= IsolatorAantal9(AantalDoorgangen, AantalDraden, TotaleLengte, 500)
Case "ISL10"
Aantal= IsolatorAantal9(AantalDoorgangen, AantalDraden, TotaleLengte, 300)
Case "ISL11"
Aantal= IsolatorAantal9(AantalDoorgangen, AantalDraden, TotaleLengte, 400)
Case "ISL12"
Aantal= IsolatorAantal9(AantalDoorgangen, AantalDraden, TotaleLengte, 600)
Case "ISL13"
Aantal= IsolatorAantal10(AantalDraden, AantalTussenpaal)
Case "ISL14"
Aantal= IsolatorAantal11(AantalTussenpaal3, AantalDraden)
Case "ISL15"
Aantal= 2
Case "VRB"
Aantal = 1
Case "VRB1"
Aantal = VerbindingAantal(AantalHoeken, AantalDraden)
Case "VRB2"
Aantal = VerbindingAantalR(AantalHoeken, AantalDraden)
Case "VRB3"
Aantal = TrekverenAantal(AantalDraden, AantalDoorgangen)
Case "VRB4"
Aantal = DraadklemmenAantal(AantalGeleider, AantalDraden, AantalDoorgangen)
Case "VRB5"
Aantal = AantalGeleider
Case "VRB6"
Aantal = VerbindingAantal2(TotaleLengte, 500)
Case "VRB7"
Aantal = VerbindingAantal2(TotaleLengte, 300)
Case "VRB8"
Aantal = VerbindingAantal2(TotaleLengte, 400)
Case "VRB9"
Aantal = VerbindingAantal2(TotaleLengte, 600)
Case "VRB10"
Aantal = DraadklemmenAantal2(AantalGeleider)
Case "VRB11"
Aantal = VerbindingAantalD(AantalDoorgangen, AantalDraden)
Case "VRB12"
Aantal = VerbindingAantalDR(AantalDoorgangen, AantalDraden)
Case "VRB13"
Aantal = DraadklemmenAantal3(AantalGeleider, AantalDraden, AantalDoorgangen)
Case "VRB14"
Aantal = AantalTussenpaal * AantalDraden * 2
Case "VRB15"
Aantal = AantalDraden - 1
Case "SCHR"
Aantal = SchroevenAantal(AantalDraden, AantalTussenpaal)
Case "SCHR1"
Aantal = AantalTussenpaal * 2
Case "DRG1"
Aantal = DoorgangAantal(AantalDoorgangen)
Case "DRG2"
Aantal = DoorgangDraadklemmenAantal(AantalDoorgangen)
Case "DRG3"
Aantal = GrondkabelAantal(AantalDoorgangen)
Case "DRG4"
Aantal = DoorgangAantal2(AantalDoorgangen, AantalDraden)
Case "DRG5"
Aantal = GrondkabelAantal2(AantalDoorgangen)
Case "DRG6"
Aantal = DoorgangAantal(AantalDoorgangen) * 10
Case "STTP"
Aantal = StutpaalAantal(AantalHoekpaal)
Case "GRAN"
Aantal = GrondAnkerAantal(AantalHoekpaal)
Case "NET"
Aantal = NetAantal(TotaleLengte)
Case "NET2"
Aantal = 1
Case "NET3"
Aantal = NetAantal3(TotaleLengte, AantalDraden)
Case Else
Aantal = 0
End Select
SQL6 = "SELECT * FROM BOMAfmeting WHERE BOM='" & rs2.Fields("BOM") & "' AND VolgnummerParent=" & rs2.Fields("VolgnummerParent") & " AND Volgnummer=" & rs2.Fields("Volgnummer") & " AND ArtikelnummerBasis='" & rs2.Fields("Artikelnummer") & "' AND Verpakking < " & Aantal & " ORDER BY Verpakking DESC"
set rs6 = cn.Execute(SQL6)
If not rs6.EOF Then
ArtikelDetailZoek = rs6.Fields("Artikelnummer")
SQL2 = "SELECT * FROM BOMDetail WHERE BOM='" & rs.Fields("BOM") & SWGeitSchaap & "' AND VolgnummerParent=" & rs1.Fields("Volgnummer") & " AND ParentArtikelnummer='" & rs6.Fields("Artikelnummer") & "' ORDER BY Volgnummer"
set rs2 = cn.Execute(SQL2)
If Not rs2.EOF Then
SQL3 = "SELECT * FROM ProductDetail WHERE Artikelnr='" & rs2.Fields("Artikelnummer") & "'"
set rs3 = cn.Execute(SQL3)
If not rs3.EOF Then
SQL4 = "SELECT * FROM Producten WHERE Artikelnr='" & rs3.Fields("ArtikelnrParent") & "'"
set rs4 = cn.Execute(SQL4)
End If
End If
End If
SQL6 = "SELECT * FROM BOMVerpakking WHERE BOM='" & rs2.Fields("BOM") & "' AND VolgnummerParent=" & rs2.Fields("VolgnummerParent") & " AND Volgnummer=" & rs2.Fields("Volgnummer") & " AND ArtikelnummerBasis='" & ArtikelDetailZoek & "' ORDER BY Verpakking DESC"
set rs6 = cn.Execute(SQL6)
If rs2.Fields("Formule") = "GLD" Then
If Not rs6.EOF Then
AantalGeleider = 0
AantalGeleiderT = 0
End If
End If
While Not rs6.EOF
If Aantal > 0 Then
SQL10 = "SELECT * FROM ProductDetail WHERE Artikelnr='" & rs6.Fields("Artikelnummer") & "'"
set rs10 = cn.Execute(SQL10)
If not rs10.EOF Then
AantalVerpakking = int(Aantal / rs6.Fields("Verpakking"))
If rs2.Fields("Formule") = "GLD" Then
AantalGeleiderT = AantalGeleiderT + AantalVerpakking
End If
If rs2.Fields("Formule") = "ISL" AND rs2.Fields("BOM") = "1C" AND rs2.Fields("Artikelnummer")= "067605" Then
AantalVerpakking = int(Aantal / rs6.Fields("Verpakking"))
End If
Aantal = ((Aantal / rs10.Fields("Verpakking")) - AantalVerpakking)* rs10.Fields("Verpakking")
AAantal = int(AantalVerpakking * rs10.Fields("Verpakking"))
BOmschrijving = rs10.Fields("OmschrijvingNL")
BPrijs = rs10.Fields("PrijsEuroNLInBTW")
BArtikelnrParent = rs10.Fields("ArtikelnrParent")
SQL7 = "SELECT * FROM Producten WHERE Artikelnr='" & BArtikelnrParent & "'"
set rs7 = cn.Execute(SQL7)
If not rs7.EOF Then
If AantalVerpakking > 0 and BPrijs > 0 Then
If left(rs6.Fields("Artikelnummer"),3) = "D00" then
jvOutput = jvOutput & ";"
Else
jvOutput = jvOutput & csvString(rs6.Fields("Artikelnummer")) & ";"
End If
jvOutput = jvOutput & csvString(rs7.Fields("NaamNL")) & " " & csvString(BOmschrijving) & ";" & AAantal & ";" & csvString(rs10.Fields("Verpakking")) & " " & csvString(rs10.Fields("Verpakkingeenheid")) & ";" & _
AantalVerpakking & ";" & ValutaNUK(FormatNumber(BPrijs,2,-1,0,-1)) & ";" & ValutaNUK(FormatNumber((AantalVerpakking * BPrijs),2,-1,0,-1)) & "" & vbcrlf
ArtikelAr(TellerAr) = rs6.Fields("Artikelnummer")
AantalAr(TellerAr) = AAantal
AantalArRest(TellerAr) = (rs10.Fields("Verpakking") * AantalVerpakking) - AAantal
TellerAr = TellerAr + 1
AlgemeenTotaal = AlgemeenTotaal + (AantalVerpakking * BPrijs)
End If
End If
End If
End If
rs6.MoveNext
WEnd
If rs2.Fields("Formule") = "GLD" And AantalGeleider = 0 Then
If Aantal > 0 Then
AantalGeleider = AantalGeleiderT + Round((Aantal / rs3.Fields("Verpakking") + 0.4))
Else
AantalGeleider = AantalGeleiderT
End If
End If
VoorString = " "
If Aantal > 0 Or rs2.Fields("Formule") = "ZLFVZ" Then
If rs2.Fields("Alternatief") = "N" then
For I = 0 To TellerAr
If ArtikelAr(I) = rs2.Fields("Artikelnummer") Then
If rs2.Fields("BOM") <> "1B-TURBO" And rs2.Fields("BOM") <> "1C" Then
Aantal = Aantal - AantalArRest(I)
End If
End If
Next
If Aantal > 0 Or rs2.Fields("Formule") = "ZLFVZ" Then
If left(rs2.Fields("Artikelnummer"),3) = "D00" then
jvOutput = jvOutput & ";" & csvString(rs4.Fields("NaamNL") & " " & rs3.Fields("OmschrijvingNL")) & ";"
Else
jvOutput = jvOutput & csvString(rs2.Fields("Artikelnummer")) & ";" & csvString(rs4.Fields("NaamNL")) & " " & csvString(rs3.Fields("OmschrijvingNL")) & ";"
End If
End If
Else
If left(rs2.Fields("Artikelnummer"),1) = "D" Then
ArtikelTekst = "Zelf voorzien" & " " & rs4.Fields("NaamNL") & " " & rs3.Fields("OmschrijvingNL")
Else
ArtikelTekst = ArtikelDetailZoek & VoorString & rs4.Fields("NaamNL") & " " & rs3.Fields("OmschrijvingNL")
End If
ControleArtikelnummer = Trim(Request.Form("Artikel" & rs2.Fields("VolgnummerParent") & rs2.Fields("Volgnummer")))
For I = 0 To TellerAr
If ArtikelAr(I) = ControleArtikelnummer Then
Aantal = Aantal - AantalArRest(I)
End If
If ArtikelAr(I) = rs2.Fields("Artikelnummer") and ControleArtikelnummer = "" Then
Aantal = Aantal - AantalArRest(I)
End If
Next
If Aantal > 0 Or rs2.Fields("Formule") = "ZLFVZ" Then
If ControleArtikelnummer = "" Or ControleArtikelnummer = rs2.Fields("Artikelnummer") then
jvOutput = jvOutput & replace(artikeltekst,rs2.Fields("Artikelnummer"),rs2.Fields("Artikelnummer")&";") & ";"
Else
End If
SQL5 = "SELECT * FROM BOMAlternatief WHERE BOM='" & rs2.Fields("BOM") & "' AND ArtikelnummerParent='" & ArtikelDetailZoek & "'"
set rs5 = cn.Execute(SQL5)
While Not rs5.EOF
If left(rs5.Fields("Artikelnummer"),1) = "D" Then
ArtikelTekst = "Zelf voorzien" & " "
Else
ArtikelTekst = rs5.Fields("Artikelnummer") & VoorString
End If
SQL8 = "SELECT * FROM ProductDetail WHERE Artikelnr='" & rs5.Fields("Artikelnummer") & "'"
set rs8 = cn.Execute(SQL8)
If not rs8.EOF Then
SQL9 = "SELECT * FROM Producten WHERE Artikelnr='" & rs8.Fields("ArtikelnrParent") & "'"
set rs9 = cn.Execute(SQL9)
ArtikelTekst = ArtikelTekst & rs9.Fields("NaamNL") & " " & rs8.Fields("OmschrijvingNL")
End If
'End If
If ControleArtikelnummer = rs5.Fields("Artikelnummer") Then
jvOutput = jvOutput & replace(artikeltekst,rs5.Fields("Artikelnummer"),rs5.Fields("Artikelnummer")&";") & ";"
Else
End If
rs5.MoveNext
WEnd
If Not mnu Then
SQL10 = "SELECT * FROM producten WHERE Artikelnr = '" & rs2.Fields("Artikelnummer") & "'"
set rs10 = cn.Execute(SQL10)
End If
End If
End If
Dim vPrijsEuro
If rs3.Fields("PrijsEuroNlInBTW") >= 0 Then
vPrijsEuro = rs3.Fields("PrijsEuroNlInBtw")
Else
vPrijsEuro = 0
End If
If (Aantal > 0 And vPrijsEuro > 0) Or rs2.Fields("Formule") = "ZLFVZ" Then
jvOutput = jvOutput & Aantal & ";" & csvString(rs3.Fields("Verpakking")) & " " & csvString(rs3.Fields("Verpakkingeenheid")) & ";" & Round((Aantal / rs3.Fields("Verpakking") + 0.49)) & _
";" & ValutaNUK(FormatNumber(vPrijsEuro,2,-1,0,-1)) & ";" & ValutaNUK(FormatNumber((Round((Aantal / rs3.Fields("Verpakking") + 0.49)) * vPrijsEuro),2,-1,0,-1)) & "" & vbcrlf
ArtikelAr(TellerAr) = rs2.Fields("Artikelnummer")
AantalAr(TellerAr) = Aantal
AantalArRest(TellerAr) = (Round((Aantal / rs3.Fields("Verpakking") + 0.49)) * rs3.Fields("Verpakking") ) - AantalAr(TellerAr)
'AantalArRest(TellerAr) = Aantal
TellerAr = TellerAr + 1
AlgemeenTotaal = AlgemeenTotaal + (Round((Aantal / rs3.Fields("Verpakking") + 0.49)) * vPrijsEuro)
End If
End If
End If
End If
End If
End If
CVolgnummer = rs2.Fields("VolgnummerParent") & rs2.Fields("Volgnummer")
rs2.MoveNext
WEnd
rs1.MoveNext
WEnd
jvOutput = jvOutput & ";Totaal afrastering;;;;;" & ValutaNUK(FormatNumber(AlgemeenTotaal,2,-1,0,-1)) & "" & vbcrlf
SubTotaal = AlgemeenTotaal
SwMBX = 0
If Schrikdraadapparaat = "ja" Then
jvOutput = jvOutput & "Schrikdraadapparaat;;;;;;" & vbcrlf
BerekenJoules
If (BJoules > 48 and Aansluiting = "ja") or (BJoules > 7 and Aansluiting <> "ja") Then
Else
If Aansluiting = "ja" Then
ZAansluiting = "J"
Else
ZAansluiting = "N"
End If
SQL7 = "SELECT * FROM SchrikdraadApparaat_Nl WHERE Aansluiting='" & ZAansluiting & "' And Joules >=" & BJoules & " ORDER BY Joules"
set rs7 = cn.Execute(SQL7)
SWHeading = ""
ZoekArtikelnr = ""
BeginArtikelnr = ""
Teller = 0
While Not rs7.EOF And Teller < 2
SQL6 = "SELECT * FROM ProductDetail WHERE Artikelnr='" & rs7.fields("Artikelnr") & "'"
set rs6 = cn.Execute(SQL6)
If not rs6.EOF Then
BOmschrijving = rs6.Fields("OmschrijvingNL")
BPrijs = rs6.Fields("PrijsEuroNLInBTW")
BArtikelnrParent = rs6.Fields("ArtikelnrParent")
BVerpakking = rs6.Fields("Verpakking")
BVerpakkingeenheid = rs6.Fields("Verpakkingeenheid")
SQL6 = "SELECT * FROM Producten WHERE Artikelnr='" & BArtikelnrParent & "'"
set rs6 = cn.Execute(SQL6)
If not rs6.EOF And BPrijs > 0 Then
ControleArtikelnummer = Trim(Request.Form("Schrikdraadapparaat"))
ArtikelTekst = rs7.fields("Artikelnr") & " " & " " & rs6.Fields("NaamNL") & " " & BOmschrijving
If Teller = 0 Then
BeginArtikelnr = rs7.fields("Artikelnr")
End If
If ControleArtikelnummer = "" Then
If Teller = 0 Then
If mid(rs6.Fields("NaamNL"),1,3) = "MBX" Then
SwMBX = 1
End If
jvOutput = jvOutput & Replace(ArtikelTekst,rs7.fields("Artikelnr"),rs7.fields("Artikelnr")&";") & ";"
Else
jvOutput = jvOutput & Replace(ArtikelTekst,rs7.fields("Artikelnr"),rs7.fields("Artikelnr")&";") & ";"
End If
Else
If ControleArtikelnummer = rs7.fields("Artikelnr") then
jvOutput = jvOutput & Replace(ArtikelTekst,rs7.fields("Artikelnr"),rs7.fields("Artikelnr")&";") & ";"
ZoekArtikelnr = rs7.fields("Artikelnr")
Else
jvOutput = jvOutput & Replace(ArtikelTekst,rs7.fields("Artikelnr"),rs7.fields("Artikelnr")&";") & ";"
End If
End IF
End If
End If
Teller = Teller + 1
rs7.MoveNext
WEnd
IF ZoekArtikelnr = "" Then
ControleArtikelnummer = BeginArtikelnr
Else
ControleArtikelnummer = ZoekArtikelnr
End IF
If ControleArtikelnummer <> "" then
SQL6 = "SELECT * FROM ProductDetail WHERE Artikelnr='" & ControleArtikelnummer & "'"
set rs6 = cn.Execute(SQL6)
If not rs6.EOF Then
BPrijs = rs6.Fields("PrijsEuroNLInBTW")
BArtikelnrParent = rs6.Fields("ArtikelnrParent")
BVerpakking = rs6.Fields("Verpakking")
BVerpakkingeenheid = rs6.Fields("Verpakkingeenheid")
End If
End If
jvOutput = jvOutput & "1;" & BVerpakking & " " & BVerpakkingeenheid & ";1;" & ValutaNUK(FormatNumber(BPrijs,2,-1,0,-1)) & ";" & ValutaNUK(FormatNumber((BPrijs),2,-1,0,-1)) & "" & vbcrlf
ArtikelAr(TellerAr) = ControleArtikelnummer
AantalAr(TellerAr) = 1
TellerAr = TellerAr + 1
AlgemeenTotaal = AlgemeenTotaal + BPrijs
If ControleArtikelnummer <> "" then
SQL6 = "SELECT * FROM SchrikdraadApparaatDetail_Nl WHERE Artikelnr='" & ControleArtikelnummer & "'"
Else
SQL6 = "SELECT * FROM SchrikdraadApparaatDetail_Nl WHERE Artikelnr='" & ZoekArtikelnr & "'"
End If
set rs6 = cn.Execute(SQL6)
If not rs6.EOF Then
If rs6.fields("ArtikelnrAccessoires") <> "" Then
If Request.Form("bentonite") = "ja" Then
SQL8 = "SELECT * FROM ProductDetail WHERE Artikelnr = '" & rs6.fields("NaamNL") & "'"
Else
SQL8 = "SELECT * FROM ProductDetail WHERE Artikelnr = '" & rs6.fields("ArtikelnrAccessoires") & "'"
End If
set rs8 = cn.Execute(SQL8)
If not rs8.EOF Then
BOmschrijving = rs8.Fields("OmschrijvingNL")
BPrijs = rs8.Fields("PrijsEuroNLInBTW")
BArtikelnrParent = rs8.Fields("ArtikelnrParent")
BBArtikelnrParent = rs8.Fields("Artikelnr")
BVerpakking = rs8.Fields("Verpakking")
BVerpakkingeenheid = rs8.Fields("Verpakkingeenheid")
SQL8 = "SELECT * FROM Producten WHERE Artikelnr='" & BArtikelnrParent & "'"
set rs8 = cn.Execute(SQL8)
If not rs8.EOF And BPrijs > 0 Then
jvOutput = jvOutput & csvString(BBArtikelnrParent) & ";" & csvString(rs8.Fields("NaamNL")) & " " & csvString(BOmschrijving) & ";"
If Request.Form("bentonite") = "ja" Then
AAantal = rs6.fields("AantalBentonite")
Else
AAantal = rs6.fields("Aantal")
End If
jvOutput = jvOutput & AAantal & ";" & csvString(BVerpakking) & " " & csvString(BVerpakkingeenheid) & ";"
If AAantal > 0 Then
jvOutput = jvOutput & Round((AAantal / BVerpakking + 0.49)) & ";" & ValutaNUK(FormatNumber(BPrijs,2,-1,0,-1)) & ";" & ValutaNUK(FormatNumber((AAantal * BPrijs),2,-1,0,-1)) & "" & vbcrlf
Else
jvOutput = jvOutput & "0;" & ValutaNUK(FormatNumber(BPrijs,2,-1,0,-1)) & ";0,00" & vbcrlf
End If
ArtikelAr(TellerAr) = rs6.fields("ArtikelnrAccessoires")
AantalAr(TellerAr) = AAantal
TellerAr = TellerAr + 1
AlgemeenTotaal = AlgemeenTotaal + (AAantal * BPrijs)
End If
End If
End If
If rs6.fields("ArtikelnrAardklem") <> "" and Request.Form("bentonite") <> "ja" Then
SQL8 = "SELECT * FROM ProductDetail WHERE Artikelnr = '" & rs6.fields("ArtikelnrAardklem") & "'"
set rs8 = cn.Execute(SQL8)
If not rs8.EOF Then
BOmschrijving = rs8.Fields("OmschrijvingNL")
BPrijs = rs8.Fields("PrijsEuroNLInBTW")
BArtikelnrParent = rs8.Fields("ArtikelnrParent")
BVerpakking = rs8.Fields("Verpakking")
BVerpakkingeenheid = rs8.Fields("Verpakkingeenheid")
SQL8 = "SELECT * FROM Producten WHERE Artikelnr='" & BArtikelnrParent & "'"
set rs8 = cn.Execute(SQL8)
If not rs8.EOF And BPrijs > 0 Then
jvOutput = jvOutput & csvString(rs6.fields("ArtikelnrAardklem")) & ";" & csvString(rs8.Fields("NaamNL")) & " " & BOmschrijving & ";"
If Request.Form("bentonite") = "ja" Then
AAantal = rs6.fields("AantalBentonite")
Else
AAantal = rs6.fields("Aardklem")
End If
jvOutput = jvOutput & csvString(AAantal) & ";" & csvString(BVerpakking) & " " & csvString(BVerpakkingeenheid) & ";"
If AAantal > 0 Then
jvOutput = jvOutput & Round((AAantal / BVerpakking + 0.49)) & ";" & ValutaNUK(FormatNumber(BPrijs,2,-1,0,-1)) & ";" & ValutaNUK(FormatNumber((AAantal * BPrijs),2,-1,0,-1)) & "" & vbcrlf
Else
jvOutput = jvOutput & "0;" & ValutaNUK(FormatNumber(BPrijs,2,-1,0,-1)) & ";0,00" & vbcrlf
End If
If AAantal > 0 Then
ArtikelAr(TellerAr) = rs6.fields("ArtikelnrAardklem")
AantalAr(TellerAr) = AAantal
TellerAr = TellerAr + 1
End If
AlgemeenTotaal = AlgemeenTotaal + (AAantal * BPrijs)
End If
End If
End If
If rs6.fields("ArtikelnrBentonite") <> "N" Then
SQL8 = "SELECT * FROM ProductDetail WHERE Artikelnr = '" & rs6.fields("ArtikelnrBentonite") & "'"
set rs8 = cn.Execute(SQL8)
If not rs8.EOF Then
BOmschrijving = rs8.Fields("OmschrijvingNL")
BPrijs = rs8.Fields("PrijsEuroNLInBTW")
BArtikelnrParent = rs8.Fields("ArtikelnrParent")
BVerpakking = rs8.Fields("Verpakking")
BVerpakkingeenheid = rs8.Fields("Verpakkingeenheid")
SQL8 = "SELECT * FROM Producten WHERE Artikelnr='" & BArtikelnrParent & "'"
set rs8 = cn.Execute(SQL8)
If not rs8.EOF And BPrijs > 0 Then
If Request.Form("bentonite") = "ja" then
jvOutput = jvOutput & "ja "
Else
jvOutput = jvOutput & "nee "
End If
jvOutput = jvOutput & csvString(rs6.fields("ArtikelnrBentonite")) & ";" & csvString(rs8.Fields("NaamNL")) & " " & csvString(BOmschrijving) & ";"
If Request.Form("bentonite") = "ja" then
AAantal = rs6.fields("AantalBentonite")
Else
AAantal = 0
End If
jvOutput = jvOutput & csvString(AAantal) & ";" & csvString(BVerpakking) & " " & csvString(BVerpakkingeenheid) & ";"
If AAantal > 0 Then
jvOutput = jvOutput & Round((AAantal / BVerpakking + 0.49)) & ";" & ValutaNUK(FormatNumber(BPrijs,2,-1,0,-1)) & ";" & ValutaNUK(FormatNumber((AAantal * BPrijs),2,-1,0,-1)) & "" & vbcrlf
Else
jvOutput = jvOutput & "0;" & ValutaNUK(FormatNumber(BPrijs,2,-1,0,-1)) & ";0,00" & vbcrlf
End If
jvOutput = jvOutput & "Door gebruik van het Bentonite aardingsmengsel kunt u het benodigd aantal aardpennen reduceren.;;;;;;" & vbcrlf
If AAntal > 0 Then
ArtikelAr(TellerAr) = rs6.fields("ArtikelnrBentonite")
AantalAr(TellerAr) = AAantal
TellerAr = TellerAr + 1
End If
AlgemeenTotaal = AlgemeenTotaal + (AAantal * BPrijs)
End If
End If
End If
If rs6.fields("Grondkabel") <> "N" Then
SQL8 = "SELECT * FROM ProductDetail WHERE Artikelnr = '" & rs6.fields("Grondkabel") & "'"
set rs8 = cn.Execute(SQL8)
If not rs8.EOF Then
BOmschrijving = rs8.Fields("OmschrijvingNL")
BPrijs = rs8.Fields("PrijsEuroNLInBTW")
BArtikelnrParent = rs8.Fields("ArtikelnrParent")
BVerpakking = rs8.Fields("Verpakking")
BVerpakkingeenheid = rs8.Fields("Verpakkingeenheid")
SQL8 = "SELECT * FROM Producten WHERE Artikelnr='" & BArtikelnrParent & "'"
set rs8 = cn.Execute(SQL8)
If not rs8.EOF And BPrijs > 0 Then
AAntal = Afstand
vAantal = Round((AAantal / BVerpakking) + 0.49)
AAantal = Afstand
jvOutput = jvOutput & csvString(rs6.fields("Grondkabel")) & ";" & csvString(rs8.Fields("NaamNL")) & " " & csvString(BOmschrijving) & ";" & csvString(AAantal) & ";" & csvString(BVerpakking) & " " & csvString(BVerpakkingeenheid) & ";"
If AAantal > 0 Then
jvOutput = jvOutput & Round((AAantal / BVerpakking + 0.49)) & ";" & ValutaNUK(FormatNumber(BPrijs,2,-1,0,-1)) & ";" & ValutaNUK(FormatNumber((vAantal * BPrijs),2,-1,0,-1)) & "" & vbcrlf
Else
jvOutput = jvOutput & "0;" & ValutaNUK(FormatNumber(BPrijs,2,-1,0,-1)) & ";0,00" & vbcrlf
End If
If AAntal > 0 Then
ArtikelAr(TellerAr) = rs6.fields("Grondkabel")
AantalAr(TellerAr) = AAantal
TellerAr = TellerAr + 1
End If
AlgemeenTotaal = AlgemeenTotaal + (vAantal * BPrijs)
End If
End If
End If
If rs6.fields("BatterijAccu") <> "N" Then
If rs6.fields("BatterijAccu") = "J" Then
If rs6.fields("BatterijAccuLand") = "E" Then
jvOutput = jvOutput & "Exclusief batterij;;;;;;" & vbcrlf
Else
jvOutput = jvOutput & "Inclusief batterijen;;;;;;" & vbcrlf
End If
Else
SQL8 = "SELECT * FROM ProductDetail WHERE Artikelnr = '" & rs6.fields("BatterijAccu") & "'"
set rs8 = cn.Execute(SQL8)
If not rs8.EOF Then
BOmschrijving = rs8.Fields("OmschrijvingNL")
BPrijs = rs8.Fields("PrijsEuroNLInBTW")
BArtikelnrParent = rs8.Fields("ArtikelnrParent")
BVerpakking = rs8.Fields("Verpakking")
BVerpakkingeenheid = rs8.Fields("Verpakkingeenheid")
SQL8 = "SELECT * FROM Producten WHERE Artikelnr='" & BArtikelnrParent & "'"
set rs8 = cn.Execute(SQL8)
If not rs8.EOF And BPrijs > 0 Then
AAantal = 1
jvoutput = jvOutput & csvString(rs6.fields("BatterijAccu")) & ";" & csvString(rs8.Fields("NaamNL")) & " " & csvString(BOmschrijving) & ";" & csvString(AAantal) & ";" & csvString(BVerpakking) & " " & csvString(BVerpakkingeenheid) & ";"
If AAantal > 0 Then
jvOutput = jvOutput & Round((AAantal / BVerpakking + 0.49)) & ";" & ValutaNUK(FormatNumber(BPrijs,2,-1,0,-1)) & ";" & ValutaNUK(FormatNumber((AAantal * BPrijs),2,-1,0,-1)) & "" & vbcrlf
Else
jvOutput = jvOutput & "0;" & ValutaNUK(FormatNumber(BPrijs,2,-1,0,-1)) & ";0,00" & vbcrlf
End If
If AAntal > 0 Then
ArtikelAr(TellerAr) = rs6.fields("BatterijAccu")
AantalAr(TellerAr) = AAantal
TellerAr = TellerAr + 1
End If
AlgemeenTotaal = AlgemeenTotaal + (AAantal * BPrijs)
End If
End If
End If
End If
If Aansluiting = "ja" Then
ZArtikelnummer = "064802"
SQL8 = "SELECT * FROM ProductDetail WHERE Artikelnr = '" & ZArtikelnummer & "'"
set rs8 = cn.Execute(SQL8)
If not rs8.EOF Then
BOmschrijving = rs8.Fields("OmschrijvingNL")
BPrijs = rs8.Fields("PrijsEuroNLInBTW")
BArtikelnrParent = rs8.Fields("ArtikelnrParent")
BVerpakking = rs8.Fields("Verpakking")
BVerpakkingeenheid = rs8.Fields("Verpakkingeenheid")
SQL8 = "SELECT * FROM Producten WHERE Artikelnr='" & BArtikelnrParent & "'"
set rs8 = cn.Execute(SQL8)
If not rs8.EOF And BPrijs > 0 Then
If Request.Form("Bliksembeveiliger") = "ja" then
jvOutput = jvOutput & "ja "
Else
jvOutput = jvOutput & "nee "
End If
jvOutput = jvOutput & csvString(ZArtikelnummer) & ";" & csvString(rs8.Fields("NaamNL")) & " " & csvString(BOmschrijving) & ";"
If Request.Form("Bliksembeveiliger") = "ja" then
AAantal = 1
Else
AAantal = 0
End If
jvOutput = jvOUtput & csvString(AAantal) & ";" & csvString(BVerpakking) & " " & csvString(BVerpakkingeenheid) & ";"
If AAantal > 0 Then
jvOUtput = jvOUtput & Round((AAantal / BVerpakking + 0.49)) & ";" & ValutaNUK(FormatNumber(BPrijs,2,-1,0,-1)) & ";" & ValutaNUK(FormatNumber((AAantal * BPrijs),2,-1,0,-1)) & "" & vbcrlf
Else
jvOutput = jvOutput & "0;" & ValutaNUK(FormatNumber(BPrijs,2,-1,0,-1)) & ";0,00" & vbcrlf
End If
If AAntal > 0 Then
ArtikelAr(TellerAr) = ZArtikelnummer
AantalAr(TellerAr) = AAantal
TellerAr = TellerAr + 1
End If
AlgemeenTotaal = AlgemeenTotaal + (AAantal * BPrijs)
End If
End If
End If
End If
jvOutput = jvOutput & ";Totaal schrikdraadapparaat;;;;;" & ValutaNUK(FormatNumber(AlgemeenTotaal - SubTotaal,2,-1,0,-1)) & "" & vbcrlf
End If
End If
If Toebehoren="ja" then
SubTotaal = AlgemeenTotaal
SQL7 = "SELECT * FROM BomAccessoires WHERE BOM='" & rs.Fields("BOM") & "' ORDER BY Volgnummer, Type"
set rs7 = cn.Execute(SQL7)
SWHeading = ""
If not rs7.EOF Then
jvOutput = jvOutput & ";Maak uw keuze uit volgende accessoires:;;;;;" & vbcrlf
While Not rs7.EOF
SwToon = "J"
If len(rs7.Fields("Type")) > 1 Then
CnTussenpaal = Mid(rs7.Fields("Type"),Len(rs7.Fields("Type"))-1,2)
If CnTussenpaal = "EP" or CnTussenpaal = "IP" Then
If SwTussenpaal <> CnTussenpaal Then
SwToon = "N"
End If
End If
End If
If rs7.Fields("Categorie") = "S" and Schrikdraadapparaat = "ja" and Aansluiting <> "ja" Then
SwToon = "N"
End If
If SwToon = "J" Then
If SWHeading <> rs7.Fields("Categorie") Then
If rs7.Fields("Categorie") = "A" Then
jvOutput = jvOutput & ";Accessoires voor de AFRASTERING;;;;;" & vbcrlf
Else
If rs7.Fields("Categorie") = "G" Then
jvOutput = jvOutput & ";Accessoires GEREEDSCHAP;;;;;" & vbcrlf
Else
If Schrikdraadapparaat = "ja" and Aansluiting = "ja" Then
jvOutput = jvOutput & "Accessoires optioneel SCHRIKDRAADAPPARAAT;;;;;;" & vbcrlf
End If
End If
End If
SWHeading = rs7.Fields("Categorie")
End If
SQL6 = "SELECT * FROM ProductDetail WHERE Artikelnr='" & rs7.Fields("Artikelnummer") & "'"
set rs6 = cn.Execute(SQL6)
If not rs6.EOF Then
BOmschrijving = rs6.Fields("OmschrijvingNL")
BPrijs = rs6.Fields("PrijsEuroNLInBTW")
BArtikelnrParent = rs6.Fields("ArtikelnrParent")
BVerpakking = rs6.Fields("Verpakking")
BVerpakkingeenheid = rs6.Fields("Verpakkingeenheid")
SQL6 = "SELECT * FROM Producten WHERE Artikelnr='" & BArtikelnrParent & "'"
set rs6 = cn.Execute(SQL6)
If not rs6.EOF And BPrijs > 0 Then
WaardeKeuze = Request.Form(rs7.Fields("Artikelnummer"))
If WaardeKeuze="ja" Then
jvOutput = jvOutput & "ja "
Else
jvOutput = jvOutput & "nee "
End If
jvOutput = jvOutput & csvString(rs7.Fields("Artikelnummer")) & ";" & csvString(rs6.Fields("NaamNL")) & " " & csvString(BOmschrijving) & ";"
AAantal = 0
If rs7.Fields("Type") = "E" then
AAantal = Request.Form("I" & rs7.Fields("Artikelnummer"))
If AAantal < 1 then AAantal = AantalDoorgangen
Else
AAantal = Request.Form("I" & rs7.Fields("Artikelnummer"))
End If
If AAantal < 1 Then
AAantal = 1
End If
jvOutput = jvOutput & AAantal & ";"
jvOutput = jvOutput & csvString(BVerpakking) & " " & csvString(BVerpakkingeenheid) & ";"
'If AAantal > 0 Then
If WaardeKeuze="ja" Then
jvOutput = jvOutput & Round((AAantal / BVerpakking + 0.49)) & ";" & ValutaNUK(FormatNumber(BPrijs,2,-1,0,-1)) & ";" & ValutaNUK(FormatNumber((AAantal * BPrijs),2,-1,0,-1)) & "" & vbcrlf
If AAntal > 0 Then
ArtikelAr(TellerAr) = rs7.Fields("Artikelnummer")
AantalAr(TellerAr) = AAantal
TellerAr = TellerAr + 1
End If
AlgemeenTotaal = AlgemeenTotaal + (AAantal * BPrijs)
Else
jvOutput = jvOutput & "0;" & ValutaNUK(FormatNumber(BPrijs,2,-1,0,-1)) & ";0,00" & vbcrlf
End If
End If
End If
End IF
rs7.MoveNext
WEnd
End If
jvOutput = jvOutput & ";Totaal accessoires;;;;;" & ValutaNUK(FormatNumber(AlgemeenTotaal - Subtotaal,2,-1,0,-1)) & "" & vbcrlf
End If
If Left(rs.Fields("BOM"),1) <> "2" Then
If Montage="ja" then
SQL7 = "SELECT * FROM BomMontage WHERE BOM='" & rs.Fields("BOM") & "'"
set rs7 = cn.Execute(SQL7)
If not rs7.EOF Then
jvOutput = jvOutput & ";Montage door Gallagher - Richtprijs:;;;;;" & vbcrlf
Montage = AantalHoekpaal * rs7.Fields("HoekpaalNl")
If Montage > 0 Then
jvOutput = jvOutput & ";Montage hoekpalen;;;;;" & ValutaNUK(FormatNumber((Montage),2,-1,0,-1)) & "" & vbcrlf
End If
Lengte = (TotaleLengte)
If AantalDraden = 1 then
AMontage = (Lengte * rs7.Fields("Draad1NL"))
Else
If AantalDraden = 2 then
AMontage = (Lengte * rs7.Fields("Draad2NL"))
Else
If AantalDraden = 3 then
AMontage = (Lengte * rs7.Fields("Draad3NL"))
Else
If AantalDraden = 4 then
AMontage = (Lengte * rs7.Fields("Draad4NL"))
Else
If AantalDraden = 5 then
AMontage = (Lengte * rs7.Fields("Draad5NL"))
Else
If AantalDraden = 6 then
AMontage = (Lengte * rs7.Fields("Draad6NL"))
Else
AMontage = (Lengte * rs7.Fields("Draad7NL"))
End If
End If
End If
End If
End If
End If
jvOutput = jvOutput & ";Montage afrastering;;;;;" & ValutaNUK(FormatNumber((AMontage),2,-1,0,-1)) & "" & vbcrlf
Montage = Montage + AMontage
If SwBerekenMontageElkHek = 1 Then
jvOutput = jvOutput & ";Montage doorgang;;;;;" & ValutaNUK(FormatNumber((AantalDoorgangen * rs7.Fields("ElkHekNL")),2,-1,0,-1)) & "" & vbcrlf
Montage = Montage + (AantalDoorgangen * rs7.Fields("ElkHekNL"))
End If
If Schrikdraadapparaat = "ja" and Aansluiting ="ja" Then
If SwMBX = 1 Then
MontageSchrikdraadapp = 8 * rs7.Fields("SchrkAppMBXNL")
Else
MontageSchrikdraadapp = 4 * rs7.Fields("SchrkAppNL")
End If
jvOutput = jvOutput & ";Montage schrikdraadapparaat;;;;;" & ValutaNUK(FormatNumber(MontageSchrikdraadapp,2,-1,0,-1)) & "" & vbcrlf
jvOUtput = jvOUtput & "Gebaseerd op 4 uur montage. Bij een MBX apparaat inclusief retourleiding montageprijs gebaseerd op 8 uur.;;;;;;" & vbcrlf
Montage = Montage + MontageSchrikdraadapp
End If
'Montage voor schrikdraadapp nog bijtellen.
jvOutput = jvOutput & ";Totaal montage;;;;;" & ValutaNUK(FormatNumber((Montage),2,-1,0,-1)) & "" & vbcrlf
AlgemeenTotaal = AlgemeenTotaal + Montage
End If
End If
End If
jvOutput = jvOutput & ";Totaal incl. 19% BTW;;;;;" & ValutaNUK(FormatNumber(AlgemeenTotaal,2,-1,0,-1)) & "" & vbcrlf
jvOutput = jvOutput & ";Totaal excl. 19% BTW;;;;;" & ValutaNUK(FormatNumber(AlgemeenTotaal/1.19,2,-1,0,-1)) & "" & vbcrlf
jvOutput = Replace(jvOutput," ","")
End If
End If
'End If
Response.Write jvOutput
Function csvString(tekst)
If not Isnull(tekst) Then
csvString = Replace(tekst,";","")
Else
csvString = ""
End if
End Function
%>
