Merhaba arkadaşlar,aşağıdaki gibi VBscriptim kod parçası ile ilgili bir sorunum var, bir çok kontrol koymama ragmen , ilk if bloguna girmesinin ardından , exit ile programdan çıkamayıp , diger if blogunada giriyor.
araya eklediğim flag de , exit sublarda aşağıdaki if e girmesine engel olamıyor. result_err_return_code = 0 koşulunu sağladığı için ilk ife girip çıkmasını istiyorum ancak arada ne oluyorsa o diger bloada giriyor.data clear mi lazım , nasıl çözeiblirim arkadaşlar.fikri olan war mı acaba ?
Dim control
Dim flag
flag = 0
If (result_err_return_code="0" and err_return_code = "0-OK (CustomerId=0, ContractId="&p_contractid1&")") Then
control = data_tablolar_control(p_contractid1,p_new_tmcode1)
If control ="1" Then
reporter.ReportEvent micPass,"TEST SUCCESS :)","return_ok="&control
flag = 1
Exit Sub
Else
reporter.ReportEvent micFail,"TEST NOT SUCCESS :(","return_not_ok=" &control
flag = 1
Exit Sub
End If
End If
If flag = 1 then
exit sub
Else If (result_err_return_code <>"0" ) and ( flag= 0) then
call hatalar(err_return_code,test_case_no,p_contractid1)
Else
Exit sub
End if
End If
|
Del.icio.us
Digg
Facebook
Furl
Google
Blink
Simpy
Spurl
Y! MyWeb