'''''''''''''''''''''
sub test224a ()

select case stepcount
case 0
set doc = H.StartDiag
etape()
CheckOkErr
DisplayStep "Init", "ok"

case 1
set doc = reqWriteLog0(&H33)
etape()
if instr(mode.innertext, "loader") then
CheckOkErr
else CheckMultErr &H33, &H11
end if
DisplayStep "Write Logzone", "7F3433/11"

case 2
set doc = reqStop(waitOk)
etape()
CheckOkErr
DisplayStep "Stop", "ok"

case else
continueTest = false

end select
end sub

''''''''''''''''''''
sub test224b ()

select case stepcount
case 0
set doc = H.StartDiag
etape()
CheckOkErr
DisplayStep "Init", "ok"

case 1
set doc = reqSA1(1, waitOk)
etape()
CheckOkErr
DisplayStep "SA#1", "ok"

case 2
set doc = reqWriteLog0(&H33)
etape()
CheckOkErr
DisplayStep "Write Logzone", "7F3433"

case 3
set doc = reqStop(waitOk)
etape()
CheckOkErr
DisplayStep "Stop", "ok"

case else
continueTest = false

end select
end sub

''''''''''''''''''''
sub test224c ()

select case stepcount
case 0
set doc = H.StartDiag
etape()
CheckOkErr
DisplayStep "Init", "ok"

case 1
set doc = reqSA2(&H22, waitError)
etape()
if instr(mode.innertext, "loader") then
CheckOkErr
else CheckMultErr &H22, &H12
end if
DisplayStep "SA#2", "7F2722/12"

case 2
set doc = reqWriteLog0(&H33)
etape()
if instr(mode.innertext, "loader") then
CheckOkErr
else CheckMultErr &H33, &H11
end if
DisplayStep "Write Logzone", "7F3433/11"

case 3
set doc = reqStop(waitOk)
etape()
CheckOkErr
DisplayStep "Stop", "ok"

case else
continueTest = false

end select
end sub

''''''''''''''''''''
sub test224d ()

select case stepcount
case 0
set doc = H.StartDiag
etape()
CheckOkErr
DisplayStep "Init", "ok"

case 1
set doc = reqSA1(1, waitOk)
etape()
CheckOkErr
DisplayStep "SA#1", "ok"

case 2
set doc = reqSA2(1, waitOk)
etape()
CheckOkErr
DisplayStep "SA#2", "ok"

case 3
set doc = reqWriteLog0parCRC()
etape()
CheckOkErr
DisplayStep "Write Logzone crc", "740A"

case 4
set doc = reqStop(waitOk)
etape()
CheckOkErr
DisplayStep "Stop", "ok"

case else
continueTest = false

end select
end sub

''''''''''''''''''''
sub test224e ()

select case stepcount
case 0
set docWriteLog0parRL = reqWriteLog0parRL(&H12)
set doc = H.StartDiag
etape()
CheckOkErr
DisplayStep "Init", "ok"

case 1
set doc = reqSA1(1, waitOk)
etape()
CheckOkErr
DisplayStep "SA#1", "ok"

case 2
set doc = reqSA2(1, waitOk)
etape()
CheckOkErr
DisplayStep "SA#2", "ok"

case 3
set doc = docWriteLog0parRL
etape2(doc)
CheckOkErr
DisplayStep "Write Logzone RL", "7F3412"

case 4
set doc = reqStop(waitOk)
etape()
CheckOkErr
DisplayStep "Stop", "ok"

case else
continueTest = false

end select
end sub

''''''''''''''''''''
sub test224f ()

select case stepcount
case 0
set docWriteLog0parAdr = reqWriteLog0parAdr(&H12)
set doc = H.StartDiag
etape()
CheckOkErr
DisplayStep "Init", "ok"

case 1
set doc = reqSA1(1, waitOk)
etape()
CheckOkErr
DisplayStep "SA#1", "ok"

case 2
set doc = reqSA2(1, waitOk)
etape()
CheckOkErr
DisplayStep "SA#2", "ok"

case 3
set doc = docWriteLog0parAdr
etape()
CheckOkErr
DisplayStep "Write Logzone Adr", "7F3412"

case 4
set doc = reqStop(waitOk)
etape()
CheckOkErr
DisplayStep "Stop", "ok"

case else
continueTest = false

end select
end sub


''''''''''''''''''''
sub test224g ()

select case stepcount
case 0
set docWriteLog0parLB = reqWriteLog0parLB(&H12)
set doc = H.StartDiag
etape()
CheckOkErr
DisplayStep "Init", "ok"

case 1
set doc = reqSA1(1, waitOk)
etape()
CheckOkErr
DisplayStep "SA#1", "ok"

case 2
set doc = reqSA2(1, waitOk)
etape()
CheckOkErr
DisplayStep "SA#2", "ok"

case 3
set doc = docWriteLog0parLB
etape2(doc)
CheckOkErr
DisplayStep "Write Logzone LB", "7F3412"

case 4
set doc = reqStop(waitOk)
etape()
CheckOkErr
DisplayStep "Stop", "ok"

case else
continueTest = false

end select
end sub

''''''''''''''''''''
sub test224h ()

select case stepcount
case 0
set doc = H.StartDiag
etape()
CheckOkErr
DisplayStep "Init", "ok"

case 1
set doc = reqSA1(1, waitOk)
etape()
CheckOkErr
DisplayStep "SA#1", "ok"

case 2
set doc = reqSA2(1, waitOk)
etape()
CheckOkErr
DisplayStep "SA#2", "ok"

case 3
set doc = reqWriteLog0(&H22)
etape()
CheckOkErr
DisplayStep "Write Logzone", "7F3422"

case 4
set doc = reqStop(waitOk)
etape()
CheckOkErr
DisplayStep "Stop", "ok"

case else
continueTest = false

end select
end sub

'''''''''''''''''''''''
sub test224i ()

select case stepcount
case 0
set doc = H.StartDiag
etape()
CheckOkErr
DisplayStep "Init", "ok"

case 1
set doc = reqSA1(1, waitOk)
etape()
CheckOkErr
DisplayStep "SA#1", "ok"

case 2
set doc = reqSA2(1, waitOk)
etape()
CheckOkErr
DisplayStep "SA#2", "ok"

case 3
set doc = reqErase(1, listeRL(globalZone), waitOk)
etape()
CheckOkErr
DisplayStep "Erase...", "718101"

case 4
debut = timer
set doc1 = reqEraseStatus()
do while timer < debut + 100
set doc = doc1.clonenode(true)
etape()
if (strReponse <> "") And (strReponse <> "718101") then Exit Do
loop
CheckCode 2
DisplayStep "Erase status", "718102"

case 5
set doc = reqDownload0(2, listeRL(globalZone), listeAdr(globalZone), maxDL, waitOk)
etape()
CheckOkErr
DisplayStep "Download", "ok"

case 6
set doc = reqWriteLog0(&H22)
etape()
CheckOkErr
DisplayStep "Write Logzone", "7F3422"

case 7
set doc = reqStop(waitOk)
etape()
CheckOkErr
DisplayStep "Stop", "ok"

case else
continueTest = false

end select
end sub

'''''''''''''''''''''''
sub test224j ()
select case stepcount
case 0
B.Prepare btpdata.selectsinglenode("//tuningdata"),false
DisplayStep "prepare", "ok"

case 1
B.EngineeringProgramming Session
DisplayStep "download", "ok"

case else
continueTest = false

end select
end sub

'''''''''''''''''''''''
sub testreprogtuning()

t0 = timer
select case stepcount
case 0
DisplayStep "preparation of download xml document", "time"
totalbytes = 0

case 1
set docDownTun = reqDownLoadAll(listeRL(calibZone))
t1 = timer - t0
DisplayStep "reqDownloadTuning ", FormatNumber(t1,1) & " sec"

case 2
set doc = H.StartDiag
etape()
CheckOkErr
DisplayStep "Init", "ok"
SA1Count = 30


case 3
set doc = reqSA1(&h22,true)
etape()
CheckOkErr
if left(strReponse,4) = "6781" then
testok = True
DisplayStep "SA#1", "ok"
else
if testok then
SA1Count = SA1Count - 1
if SA1Count <= 0 Then
testok = false
DisplayStep "SA#1", "failed1"
Else
stepcount = stepcount - 1
DisplayStep "SA#1", "retry"
End If
else
DisplayStep "SA#1", "failed2"
end if
end if

case 4
set doc = reqSA2(1, waitOk)
etape()
CheckOkErr
DisplayStep "SA#2", "ok"

case 5
set doc = reqRlid(&HFE, waitOk)
etape()
curHisto = baReponse.interval(3).text
set doc = reqRlid(&HFF, waitOk)
etape()
curHisto = curHisto & baReponse.interval(3).text

case 6
set doc = reqErase(1, listeRL(calibZone), waitOk)
etape()
CheckOkErr
DisplayStep "Erase", "718101"

case 7
debut = timer
set doc1 = reqEraseStatus()
do while timer < debut + 30
set doc = doc1.clonenode(true)
etape()
if (strReponse <> "") and (strReponse <> "718101") then exit do
loop
CheckCode 2
DisplayStep "Erase status", "718102"

case 8
strRequete = "..."
strReponse = "..."
DisplayStep "Reprogramming calibration zone in progress ...", "..."

case 9
debut = timer
etape2(docDownTun)
t0 = timer - debut
CheckOkErr
DisplayStep "download tuning : " & totalbytes & " bytes", "7402 " & FormatNumber(t0,1) & " sec"

case 10
set doc = reqCheck()
etape()
CheckOkErr
DisplayStep "SelfCheck", "718201"

case 11
debut = timer
set doc1 = reqCheckStatus()
do while timer < debut + 100
set doc = doc1.clonenode(true)
etape()
if (strReponse <> "") and (strReponse <> "718201") then exit do
loop
CheckCode 2
DisplayStep "SelfCheck status", "718202"

case 12
set doc = reqWriteLogData()
etape()
CheckOkErr
if testOk Then
DisplayStep "Write Logzone", "ok"
else
if strReponse = 7408 Then
DisplayStep "Write Logzone", "Logzone full"
testOk = true
else
DisplayStep "Write Logzone", "ok2"
end if
end if

case 13
set doc = reqStop(waitOk)
etape()
CheckOkErr
DisplayStep "Stop", "ok"


case else
continueTest = false

end select
end sub

'''''''''''''''''''''''
sub testreprogglobal()

t0 = timer
select case stepcount
case 0
DisplayStep "preparation of download xml document", "time"
totalbytes = 0

case 1
set doc = reqDownLoadAll(listeRL(globalZone))
set docDownAll = CreateObject("MSXML2.DOMDocument")
doc.Save docDownAll
t1 = timer - t0
DisplayStep "reqDownloadAll ", FormatNumber(t1,1) & " sec"

case 2
set doc = H.StartDiag
etape()
CheckOkErr
DisplayStep "Init", "ok"
SA1Count = 30


case 3
set doc = reqSA1(&h22,true)
etape()
CheckOkErr
if left(strReponse,4) = "6781" then
testok = True
DisplayStep "SA#1", "ok"
else
if testok then
SA1Count = SA1Count - 1
if SA1Count <= 0 Then
testok = false
DisplayStep "SA#1", "failed1"
Else
stepcount = stepcount - 1
DisplayStep "SA#1", "retry"
End If
else
DisplayStep "SA#1", "failed2"
end if
end if

case 4
set doc = reqSA2(1, waitOk)
etape()
CheckOkErr
DisplayStep "SA#2", "ok"

case 5
set doc = reqRlid(&HFE, waitOk)
etape()
curHisto = baReponse.interval(3).text
set doc = reqRlid(&HFF, waitOk)
etape()
curHisto = curHisto & baReponse.interval(3).text

case 6
set doc = reqErase(1, listeRL(globalZone), waitOk)
etape()
CheckOkErr
DisplayStep "Erase", "718101"

case 7
debut = timer
set doc1 = reqEraseStatus()
do while timer < debut + 60
set doc = doc1.clonenode(true)
etape()
if (strReponse <> "") and (strReponse <> "718101") then exit do
loop
CheckCode 2
DisplayStep "Erase status", "718102"

case 8
strRequete = "..."
strReponse = "..."
DisplayStep "Reprogramming global zone in progress ...", "..."

case 9
debut = timer
etape2(docDownAll)
t0 = timer - debut
CheckOkErr
DisplayStep "download global : " & totalbytes & " bytes", "7402 " & FormatNumber(t0,1) & " sec"

case 10
set doc = reqCheck()
etape()
CheckOkErr
DisplayStep "SelfCheck", "718201"

case 11
debut = timer
set doc1 = reqCheckStatus()
do while timer < debut + 200
set doc = doc1.clonenode(true)
etape()
if (strReponse <> "") and (strReponse <> "718201") then exit do
loop
CheckCode 2
t0 = timer - debut
DisplayStep "SelfCheck status", "718202"

case 12
set doc = reqWriteLogData()
etape()
CheckOkErr
if testOk Then
DisplayStep "Write Logzone", "ok"
else
if strReponse = 7408 Then
DisplayStep "Write Logzone", "Logzone full"
testOk = true
else
DisplayStep "Write Logzone", "ok2"
end if
end if

case 13
set doc = reqStop(waitOk)
etape()
CheckOkErr
DisplayStep "Stop", "ok"


case else
continueTest = false

end select
end sub

'''''''''''''''''''''''
sub testfilllogzone()



t0 = timer

select case stepcount

case 0
NbReprog = InputBox ("Number of Reprogramming",Input, 1)
DisplayStep "preparation of download xml document", "time"
reprogcount = 0

case 1
set docDownTun = reqDownLoadAll(listeRL(calibZone))
t1 = timer - t0
DisplayStep "reqDownloadTuning ", FormatNumber(t1,1) & " sec"

case 2
set doc = H.StartDiag
etape()
CheckOkErr
DisplayStep "Init", "ok"

case 3
set doc = reqSA1(1, waitOk)
etape()
CheckOkErr
DisplayStep "SA#1", "ok"

case 4
set doc = reqSA2(1, waitOk)
etape()
CheckOkErr
DisplayStep "SA#2", "ok"

case 5
'essai pour actualiser l'ecriture de la zone histo
set doc = reqRlid(&HFE, waitOk)
etape()
curHisto = baReponse.interval(3).text
set doc = reqRlid(&HFF, waitOk)
etape()
curHisto = curHisto & baReponse.interval(3).text

case 6
set doc = reqErase(1, listeRL(calibZone), waitOk)
etape()
CheckOkErr
DisplayStep "Erase", "718101"

case 7
debut = timer
set doc1 = reqEraseStatus()
do while timer < debut + 20
set doc = doc1.clonenode(true)
etape()
if (strReponse <> "") and (strReponse <> "718101") then exit do
loop
CheckCode 2
DisplayStep "Erase status", "718102"

case 8
strRequete = "..."
strReponse = "..."
DisplayStep "Reprogramming calibration zone in progress ...", "..."

case 9
debut = timer
etape2(docDownTun)
t0 = timer - debut
CheckOkErr
DisplayStep "download tuning", "7402 " & FormatNumber(t0,1) & " sec"

case 10
set doc = reqCheck()
etape()
CheckOkErr
DisplayStep "SelfCheck", "718201"

case 11
debut = timer
set doc1 = reqCheckStatus()
do while timer < debut + 100
set doc = doc1.clonenode(true)
etape()
if (strReponse <> "") and (strReponse <> "718201") then exit do
loop
CheckCode 2
DisplayStep "SelfCheck status", "718202"

case 12
set doc = reqWriteLogData()
etape()
CheckOkErr
if testOk Then
if reprogcount < NbReprog - 1 then
DisplayStep "Write Logzone of reprogrammation n° " & reprogcount+1 & "/" & NbReprog, "ok"
set doc = reqStop(waitOk)
etape()
CheckOkErr
DisplayStep "Stop", "ok"
debut = timer
do while timer < debut + 1
loop
reprogcount = reprogcount + 1
stepcount = 1
else
DisplayStep "Write Logzone of last reprogrammation", "ok"
end if
else
if strReponse = 7408 Then
DisplayStep "Write Logzone", "Logzone full"
testOk = true
else
DisplayStep "Write Logzone", "ok2"
end if
end if

case 13
set doc = reqStop(waitOk)
etape()
CheckOkErr
DisplayStep "Stop", "ok"

case else
continueTest = false

end select
end sub

''''''''''''''''''''''''''''''''

sub testlogzone()

t0 = timer
select case stepcount
case 0
DisplayStep "preparation of download xml document", "time"
totalbytes = 0

case 1
set docDownTun = reqDownLoadAll(listeRL(calibZone))
t1 = timer - t0
DisplayStep "reqDownloadTuning ", FormatNumber(t1,1) & " sec"

case 2
set doc = H.StartDiag
etape()
CheckOkErr
DisplayStep "Init", "ok"
SA1Count = 30


case 3
set doc = reqSA1(&h22,true)
etape()
CheckOkErr
if left(strReponse,4) = "6781" then
testok = True
DisplayStep "SA#1", "ok"
else
if testok then
SA1Count = SA1Count - 1
if SA1Count <= 0 Then
testok = false
DisplayStep "SA#1", "failed1"
Else
stepcount = stepcount - 1
DisplayStep "SA#1", "retry"
End If
else
DisplayStep "SA#1", "failed2"
end if
end if

case 4
set doc = reqSA2(1, waitOk)
etape()
CheckOkErr
DisplayStep "SA#2", "ok"

case 5
set doc = reqRlid(&HFE, waitOk)
etape()
curHisto = baReponse.interval(3).text
set doc = reqRlid(&HFF, waitOk)
etape()
curHisto = curHisto & baReponse.interval(3).text

case 6
set doc = reqErase(1, listeRL(calibZone), waitOk)
etape()
CheckOkErr
DisplayStep "Erase", "718101"

case 7
debut = timer
set doc1 = reqEraseStatus()
do while timer < debut + 10
set doc = doc1.clonenode(true)
etape()
if (strReponse <> "") and (strReponse <> "718101") then exit do
loop
CheckCode 2
DisplayStep "Erase status", "718102"

case 8
strRequete = "..."
strReponse = "..."
DisplayStep "Reprogramming calibration zone in progress ...", "..."

case 9
debut = timer
etape2(docDownTun)
t0 = timer - debut
CheckOkErr
DisplayStep "download tuning : " & totalbytes & " bytes", "7402 " & FormatNumber(t0,1) & " sec"

case 10
set doc = reqCheck()
etape()
CheckOkErr
DisplayStep "SelfCheck", "718201"

case 11
debut = timer
set doc1 = reqCheckStatus()
do while timer < debut + 100
set doc = doc1.clonenode(true)
etape()
if (strReponse <> "") and (strReponse <> "718201") then exit do
loop
CheckCode 2
DisplayStep "SelfCheck status", "718202"

case 12
set doc = reqWriteLogChoiceData()
etape()
CheckOkErr
if testOk Then
DisplayStep "Write Logzone", "ok"
else
if strReponse = 7408 Then
DisplayStep "Write Logzone", "Logzone full"
testOk = true
else
DisplayStep "Write Logzone", "ok2"
end if
end if

case 13
set doc = reqStop(waitOk)
etape()
CheckOkErr
DisplayStep "Stop", "ok"


case else
continueTest = false

end select
end sub


'''''''''''''''''''''''''''''''''''''''


sub testlogzoneG()



t0 = timer
select case stepcount
case 0
DisplayStep "preparation of download xml document", "time"
totalbytes = 0

case 1
set doc = reqDownLoadAll(listeRL(globalZone))
set docDownAll = CreateObject("MSXML2.DOMDocument")
doc.Save docDownAll
t1 = timer - t0
DisplayStep "reqDownloadAll ", FormatNumber(t1,1) & " sec"

case 2
set doc = H.StartDiag
etape()
CheckOkErr
DisplayStep "Init", "ok"
SA1Count = 30


case 3
set doc = reqSA1(&h22,true)
etape()
CheckOkErr
if left(strReponse,4) = "6781" then
testok = True
DisplayStep "SA#1", "ok"
else
if testok then
SA1Count = SA1Count - 1
if SA1Count <= 0 Then
testok = false
DisplayStep "SA#1", "failed1"
Else
stepcount = stepcount - 1
DisplayStep "SA#1", "retry"
End If
else
DisplayStep "SA#1", "failed2"
end if
end if

case 4
set doc = reqSA2(1, waitOk)
etape()
CheckOkErr
DisplayStep "SA#2", "ok"

case 5
set doc = reqRlid(&HFE, waitOk)
etape()
curHisto = baReponse.interval(3).text
set doc = reqRlid(&HFF, waitOk)
etape()
curHisto = curHisto & baReponse.interval(3).text

case 6
set doc = reqErase(1, listeRL(globalZone), waitOk)
etape()
CheckOkErr
DisplayStep "Erase", "718101"

case 7
debut = timer
set doc1 = reqEraseStatus()
do while timer < debut + 60
set doc = doc1.clonenode(true)
etape()
if (strReponse <> "") and (strReponse <> "718101") then exit do
loop
CheckCode 2
DisplayStep "Erase status", "718102"

case 8
strRequete = "..."
strReponse = "..."
DisplayStep "Reprogramming global zone in progress ...", "..."

case 9
debut = timer
etape2(docDownAll)
t0 = timer - debut
CheckOkErr
DisplayStep "download global : " & totalbytes & " bytes", "7402 " & FormatNumber(t0,1) & " sec"

case 10
set doc = reqCheck()
etape()
CheckOkErr
DisplayStep "SelfCheck", "718201"

case 11
debut = timer
set doc1 = reqCheckStatus()
do while timer < debut + 200
set doc = doc1.clonenode(true)
etape()
if (strReponse <> "") and (strReponse <> "718201") then exit do
loop
CheckCode 2
t0 = timer - debut
DisplayStep "SelfCheck status", "718202"

case 12
set doc = reqWriteLogChoiceData()
etape()
CheckOkErr
if testOk Then
DisplayStep "Write Logzone", "ok"
else
if strReponse = 7408 Then
DisplayStep "Write Logzone", "Logzone full"
testOk = true
else
DisplayStep "Write Logzone", "ok2"
end if
end if

case 13
set doc = reqStop(waitOk)
etape()
CheckOkErr
DisplayStep "Stop", "ok"


case else
continueTest = false

end select
end sub

'''''''''''''''''''''''''''''''''''''''