Marius Mutu
8e022d332e
Squash al branch-ului de lucru plan13-s2. Clase: ofacturare (nucleul formularului unificat), ofacturare_comun, ferestre_cere_date, ocomenzi, caut_ora (lista de preturi in combo-urile de cautare), omodificari. Programe: ofacturare impartit - ofacturare_antet, ofacturare_rutare_scriere si ogrid_latimi sunt fisiere noi; oproceduri_facturare primeste discountul pe linie si cota standard de TVA cand articolul nu are cota pe politica. Documentatie: capcana SQLExec no_data_found, conventia de encoding, depanarea testelor VFP si regulile de lucru - conflictele cu modificarile venite din alte proiecte sunt rezolvate pastrand ambele parti. Loguri de rulare a testelor scoase din versionare; testele raman. Co-Authored-By: Claude Opus 5 <noreply@anthropic.com> Claude-Session: https://claude.ai/code/session_01PkyjGyrV2S7932om4kfSiK
316 lines
15 KiB
Plaintext
316 lines
15 KiB
Plaintext
* test_s8o_1366_ui.prg - proba empirica S8o: incape stiva "alte date" + banda de totaluri
|
|
* in frm_facturare_articole2 (COMUN\clase\ofacturare.vc2) la rezolutia minima suportata,
|
|
* 1366x768, maximizat? Prin analogie cu test_s8_geometrie_ui.prg (nemodificat), dar cu
|
|
* This.Height calculat pentru un desktop de 768px inaltime, nu masurat pe ecranul real al
|
|
* masinii de test.
|
|
*
|
|
* Inaltimea utila 1366x768 maximizat: nu presupun taskbar=40px si nu insumez SYSMETRIC()
|
|
* individuale (title bar / border - risc de interpretare gresita a codurilor). Masor direct
|
|
* pe masina de test overhead-ul real (WindowState=2, This.Height fata de SYSMETRIC(2) - inaltimea
|
|
* ecranului fizic), presupunand ca overhead-ul (bara de titlu + eventual meniu/toolbar VFP +
|
|
* taskbar) e in pixeli ficsi, independent de rezolutie, la acelasi DPI:
|
|
* lnOverhead = SYSMETRIC(2) - This.Height(maximizat real)
|
|
* This.Height(1366x768) = 768 - lnOverhead
|
|
* SYSMETRIC(1/2/4/9) sunt logate brut, ca diagnostic, dar NU intra in formula de mai sus.
|
|
*
|
|
* Sase pasi (cele 4 stari de casete + decizia 4: acordeoane mutual exclusive sub 1366x768):
|
|
* (0) ambele inchise; (1) doar Alte date; (2) doar Incasare; (3) deschid Alte date peste
|
|
* Incasare deschisa - exclusivitatea trebuie sa inchida Incasare (cazul raportat de Marius,
|
|
* acum reparat); (4) deschid Incasare peste Alte date deschisa - exclusivitate in sens invers;
|
|
* (5) ca (4), dar cu poDate.lEditare=.T. (editare document existent) - verifica explicit ca
|
|
* reasezarea (Visible=.F. pe ct_document/ct_contabilitate/ct_livrare) chiar se produce si pe
|
|
* calea do_comuta_incasare -> actualizeaza_tipincasare(), care iese devreme (Return) cat timp
|
|
* poDate.lEditare e .T., inainte de a ajunge la Thisform.aseaza_alte_date().
|
|
* La fiecare pas 0-4, pe langa cele doua asertiuni din test_s8_geometrie_ui.prg (control.Top >=
|
|
* grd_factura.Top+Height si, pentru containere vizibile, control.Top+Height <= lb_total_baza.Top),
|
|
* se adauga o a treia: grd_factura.Height > 60 (gridul nu s-a clampat la minimul tehnic). Pasii
|
|
* 3-5 mai verifica explicit ca checkbox-ul opus s-a inchis automat (do_comuta_alte_date /
|
|
* do_comuta_incasare, ofacturare.vc2) SI ca pozitia/vizibilitatea reala s-a actualizat (nu doar
|
|
* .Value).
|
|
* Rulare: powershell -ExecutionPolicy Bypass -File test_s8o_1366_ui.ps1 (timeout >= 400s)
|
|
SET SAFETY OFF
|
|
SET TALK OFF
|
|
SET NOTIFY OFF
|
|
PUBLIC gcUILog, gcSyncDir, gnFail, gnPass, gnAssertFail, gnAssertPass, gnAssertPass2, gnAssertFail2, ;
|
|
gnAssertPassG, gnAssertFailG
|
|
gcUILog = "D:\ROA\ROAFACTURARE\COMUN\utile\Teste\facturare_unificat\test_s8o_1366_ui_log.txt"
|
|
gcSyncDir = "D:\ROA\ROAFACTURARE\COMUN\utile\Teste\facturare_unificat\uisync_s8o_1366\"
|
|
STRTOFILE("START " + TTOC(DATETIME()) + CHR(13) + CHR(10), gcUILog)
|
|
gnFail = 0
|
|
gnPass = 0
|
|
gnAssertFail = 0
|
|
gnAssertPass = 0
|
|
gnAssertPass2 = 0
|
|
gnAssertFail2 = 0
|
|
gnAssertPassG = 0
|
|
gnAssertFailG = 0
|
|
ON ERROR DO AfErr WITH ERROR(), MESSAGE(), PROGRAM(), LINENO()
|
|
ON SHUTDOWN QUIT
|
|
|
|
DO "D:\ROA\ROAFACTURARE\COMUN\utile\Teste\test_init_env_auto_roafacturare.prg" WITH 'CENTRAL', 'MARIUSM_AUTO', 'ROMFASTSOFT'
|
|
IF TYPE('gnHandle') <> 'N' OR gnHandle <= 0
|
|
DO AfLog WITH "FAIL: conexiune Oracle esuata"
|
|
DO Final
|
|
ENDIF
|
|
SET PROCEDURE TO "D:\ROA\ROAFACTURARE\COMUN\utile\Teste\mock_amessagebox.prg", "D:\ROA\ROAFACTURARE\COMUN\utile\Teste\ui_harness.prg" ADDITIVE
|
|
PUBLIC gcMockUltimMesaj, gnMockUltimTip
|
|
gcMockUltimMesaj = ""
|
|
gnMockUltimTip = 0
|
|
DO AfLog WITH "ENV OK, gnAn=" + TRANSFORM(gnAn) + " gnLuna=" + TRANSFORM(gnLuna)
|
|
IF !actualizeaza_optiuni_program()
|
|
DO AfLog WITH "FAIL: actualizeaza_optiuni_program()"
|
|
DO Final
|
|
ENDIF
|
|
gnScadereStoc = 0
|
|
|
|
* seriile de facturi (tipdoc 5) sunt pe utilizator in MARIUSM_AUTO
|
|
gnIdUtil = 8
|
|
goExecutor.oExecuta([begin pack_sesiune.set_Id_Util(?gnIdUtil); end;])
|
|
|
|
* gridextras.vcx e referit din ofacturare.vcx cu cale relativa
|
|
SET CLASSLIB TO "D:\ROA\ROAFACTURARE\COMUN\utile\gridextras\gridextras.vcx" ADDITIVE
|
|
SET PATH TO "D:\ROA\ROAFACTURARE\COMUN\utile\gridextras" ADDITIVE
|
|
SET CLASSLIB TO "D:\ROA\ROAFACTURARE\COMUN\clase\_cb_base.vcx" ADDITIVE
|
|
|
|
IF USED('crscursuri')
|
|
USE IN crscursuri
|
|
ENDIF
|
|
CREATE CURSOR crscursuri (curs N(12,4), nume_val C(10), multiplicator N(6))
|
|
DO creeaza_facturacrs WITH 'crsfactura'
|
|
SELECT *, CAST(NULL AS C(100)) AS gestiune FROM crsfactura INTO CURSOR crsfact_tmp READWRITE
|
|
USE IN crsfactura
|
|
SELECT * FROM crsfact_tmp INTO CURSOR crsfactura READWRITE
|
|
USE IN crsfact_tmp
|
|
|
|
IF !USED('saft_tip_facturi')
|
|
update_saft_tip_facturi()
|
|
ENDIF
|
|
|
|
PRIVATE poDate, poGeneratorNumere, loForm
|
|
poDate = CREATEOBJECT("oDateFactura", 25000, 1)
|
|
poDate.nIdTipDoc = 5
|
|
poDate.totalctva = 1000
|
|
DO AfLog WITH "poDate.tip=" + TRANSFORM(poDate.tip) + " poDate.eProforma=" + TRANSFORM(poDate.eProforma)
|
|
poGeneratorNumere = CREATEOBJECT("oGeneratorNumere")
|
|
poGeneratorNumere.ResetNumere()
|
|
poDate.rezultat_serii = poGeneratorNumere.creeaza_cursor_serii(poDate.nIdTipDoc)
|
|
|
|
loForm = CREATEOBJECT('frm_facturare_articole2')
|
|
DO Assert WITH VARTYPE(loForm) = 'O', "Createobject frm_facturare_articole2"
|
|
IF VARTYPE(loForm) <> 'O'
|
|
DO Final
|
|
ENDIF
|
|
|
|
loForm.WindowType = 0
|
|
loForm.Show()
|
|
|
|
* --- masurare inaltime utila reala (maximizare normala pe ecranul masinii de test) ---
|
|
DO AfLog WITH "=== MASURARE ECRAN REAL ==="
|
|
DO AfLog WITH "SYSMETRIC(1) latime ecran=" + TRANSFORM(SYSMETRIC(1))
|
|
DO AfLog WITH "SYSMETRIC(2) inaltime ecran=" + TRANSFORM(SYSMETRIC(2))
|
|
DO AfLog WITH "SYSMETRIC(4) inaltime bara titlu=" + TRANSFORM(SYSMETRIC(4))
|
|
DO AfLog WITH "SYSMETRIC(9)=" + TRANSFORM(SYSMETRIC(9))
|
|
loForm.WindowState = 2
|
|
DOEVENTS FORCE
|
|
LOCAL lnHMaxReal, lnScreenH, lnOverhead, lnHeight768
|
|
lnHMaxReal = loForm.Height
|
|
lnScreenH = SYSMETRIC(2)
|
|
lnOverhead = lnScreenH - lnHMaxReal
|
|
lnHeight768 = 768 - lnOverhead
|
|
DO AfLog WITH "maximizat real: This.Width=" + TRANSFORM(loForm.Width) + " This.Height=" + TRANSFORM(lnHMaxReal) + " SYSMETRIC(2)=" + TRANSFORM(lnScreenH)
|
|
DO AfLog WITH "lnOverhead(SYSMETRIC(2)-This.Height maximizat)=" + TRANSFORM(lnOverhead)
|
|
DO AfLog WITH "lnHeight768(768-lnOverhead)=" + TRANSFORM(lnHeight768)
|
|
|
|
* --- fortez geometria unui formular maximizat pe un desktop de 1366x768 ---
|
|
loForm.WindowState = 0
|
|
DOEVENTS FORCE
|
|
loForm.Width = 1366
|
|
loForm.Height = lnHeight768
|
|
DOEVENTS FORCE
|
|
DO AfLog WITH "dupa setare 1366x768: This.Width=" + TRANSFORM(loForm.Width) + " This.Height=" + TRANSFORM(loForm.Height)
|
|
|
|
* --- pas 0: ambele acordeoane inchise ---
|
|
DO AfLog WITH "=== PAS 0: ambele inchise (1366x768) ==="
|
|
DO VerificaGeometrie1366 WITH loForm, "pas0_ambele_inchise_1366"
|
|
DO HarnessStep WITH 0, 'ambele_inchise', 25
|
|
|
|
* --- pas 1: doar Alte date deschis ---
|
|
loForm.chk_alte_date.Value = 1
|
|
loForm.do_comuta_alte_date()
|
|
DOEVENTS FORCE
|
|
DO AfLog WITH "=== PAS 1: doar Alte date deschis (1366x768) ==="
|
|
DO VerificaGeometrie1366 WITH loForm, "pas1_alte_date_deschis_1366"
|
|
DO HarnessStep WITH 1, 'alte_date_deschis', 25
|
|
|
|
* inchid Alte date la loc, ca pasul 2 sa fie curat "doar incasare"
|
|
loForm.chk_alte_date.Value = 0
|
|
loForm.do_comuta_alte_date()
|
|
DOEVENTS FORCE
|
|
|
|
* --- pas 2: doar Incasare deschis (aloca o chitanta reala - dezalocata la final) ---
|
|
loForm.chk_incasare.Value = 1
|
|
loForm.do_comuta_incasare()
|
|
DOEVENTS FORCE
|
|
DO AfLog WITH "=== PAS 2: doar Incasare deschis (1366x768) ==="
|
|
DO VerificaGeometrie1366 WITH loForm, "pas2_incasare_deschis_1366"
|
|
DO HarnessStep WITH 2, 'incasare_deschis', 25
|
|
|
|
* --- pas 3: deschid Alte date peste Incasare deschisa (cazul raportat de Marius) - decizia 4:
|
|
* sub pragul de 1366x768, exclusivitatea acordeoanelor trebuie sa inchida Incasare ---
|
|
loForm.chk_alte_date.Value = 1
|
|
loForm.do_comuta_alte_date()
|
|
DOEVENTS FORCE
|
|
DO AfLog WITH "=== PAS 3: Alte date peste Incasare - exclusivitate acordeon (1366x768) ==="
|
|
DO Assert WITH loForm.chk_incasare.Value = 0, "PAS3: chk_incasare s-a inchis automat (exclusivitate acordeon)"
|
|
DO Assert WITH loForm.chk_alte_date.Value = 1, "PAS3: chk_alte_date a ramas deschis"
|
|
DO VerificaGeometrie1366 WITH loForm, "pas3_exclusivitate_alte_peste_incasare_1366"
|
|
DO HarnessStep WITH 3, 'exclusivitate_alte_peste_incasare', 25
|
|
|
|
* --- pas 4: deschid Incasare peste Alte date deschisa - exclusivitate in sens invers ---
|
|
loForm.chk_incasare.Value = 1
|
|
loForm.do_comuta_incasare()
|
|
DOEVENTS FORCE
|
|
DO AfLog WITH "=== PAS 4: Incasare peste Alte date - exclusivitate acordeon, sens invers (1366x768) ==="
|
|
DO Assert WITH loForm.chk_alte_date.Value = 0, "PAS4: chk_alte_date s-a inchis automat (exclusivitate acordeon)"
|
|
DO Assert WITH loForm.chk_incasare.Value = 1, "PAS4: chk_incasare a ramas deschis"
|
|
DO VerificaGeometrie1366 WITH loForm, "pas4_exclusivitate_incasare_peste_alte_1366"
|
|
DO HarnessStep WITH 4, 'exclusivitate_incasare_peste_alte', 25
|
|
|
|
* --- pas 5: exclusivitate cu poDate.lEditare = .T. (editare document existent) - verifica ca
|
|
* reasezarea chiar se face si pe calea do_comuta_incasare -> actualizeaza_tipincasare(), care
|
|
* iese devreme (Return) cat timp poDate.lEditare e .T., inainte de a ajunge la aseaza_alte_date() ---
|
|
loForm.chk_incasare.Value = 0
|
|
loForm.do_comuta_incasare()
|
|
loForm.chk_alte_date.Value = 1
|
|
loForm.do_comuta_alte_date()
|
|
DOEVENTS FORCE
|
|
poDate.lEditare = .T.
|
|
loForm.chk_incasare.Value = 1
|
|
loForm.do_comuta_incasare()
|
|
DOEVENTS FORCE
|
|
DO AfLog WITH "=== PAS 5: Incasare peste Alte date, poDate.lEditare=.T. (1366x768) ==="
|
|
DO Assert WITH loForm.chk_alte_date.Value = 0, "PAS5: chk_alte_date s-a inchis automat (exclusivitate acordeon, lEditare)"
|
|
DO Assert WITH loForm.chk_incasare.Value = 1, "PAS5: chk_incasare a ramas deschis"
|
|
DO Assert WITH !loForm.ct_document.Visible, "PAS5: ct_document s-a reasezat (invizibil) desi actualizeaza_tipincasare() a iesit devreme"
|
|
DO Assert WITH !loForm.ct_contabilitate.Visible, "PAS5: ct_contabilitate s-a reasezat (invizibil)"
|
|
DO Assert WITH !loForm.ct_livrare.Visible, "PAS5: ct_livrare s-a reasezat (invizibil)"
|
|
poDate.lEditare = .F.
|
|
DO HarnessStep WITH 5, 'exclusivitate_lEditare', 25
|
|
|
|
* curatenie obligatorie: inchid ambele, dezaloc chitanta alocata la pasul 2, inainte de Release()
|
|
loForm.chk_alte_date.Value = 0
|
|
loForm.do_comuta_alte_date()
|
|
loForm.chk_incasare.Value = 0
|
|
loForm.do_comuta_incasare()
|
|
|
|
loForm.Release()
|
|
RELEASE loForm
|
|
|
|
DO AfLog WITH "TOTAL asertiuni grid (control.Top>=grid.Bottom): pass=" + TRANSFORM(gnAssertPass) + " fail=" + TRANSFORM(gnAssertFail)
|
|
DO AfLog WITH "TOTAL asertiuni totaluri (container.Bottom<=lb_total_baza.Top): pass=" + TRANSFORM(gnAssertPass2) + " fail=" + TRANSFORM(gnAssertFail2)
|
|
DO AfLog WITH "TOTAL asertiuni grid.Height>60 (neclampat): pass=" + TRANSFORM(gnAssertPassG) + " fail=" + TRANSFORM(gnAssertFailG)
|
|
DO Final
|
|
|
|
*----------------------------------------------------------------------------------------
|
|
PROCEDURE VerificaGeometrie1366
|
|
* Logheaza si verifica geometria la 1366x768 maximizat: grid, banda de sub grila, banda
|
|
* de totaluri, plus asertiunea noua grd_factura.Height > 60 (gridul nu s-a clampat).
|
|
LPARAMETERS toForm, tcEticheta
|
|
LOCAL lnGTop, lnGHeight, lnGBottom, llClampat
|
|
lnGTop = toForm.grd_factura.Top
|
|
lnGHeight = toForm.grd_factura.Height
|
|
lnGBottom = lnGTop + lnGHeight
|
|
llClampat = (lnGHeight <= 60)
|
|
DO AfLog WITH "GRID [" + tcEticheta + "] Top=" + TRANSFORM(lnGTop) + " Height=" + TRANSFORM(lnGHeight) + " Bottom=" + TRANSFORM(lnGBottom) + " " + IIF(llClampat, "CLAMPAT(<=60)", "neclampat")
|
|
|
|
DO VerificaControl WITH toForm.chk_incasare, "chk_incasare", tcEticheta, lnGBottom
|
|
DO VerificaControl WITH toForm.chk_alte_date, "chk_alte_date", tcEticheta, lnGBottom
|
|
DO VerificaControl WITH toForm.ct_document, "ct_document", tcEticheta, lnGBottom
|
|
DO VerificaControl WITH toForm.ct_contabilitate, "ct_contabilitate", tcEticheta, lnGBottom
|
|
DO VerificaControl WITH toForm.ct_livrare, "ct_livrare", tcEticheta, lnGBottom
|
|
DO VerificaControl WITH toForm.ct_incasare, "ct_incasare", tcEticheta, lnGBottom
|
|
|
|
LOCAL lnFormHeight, lnBanda, lnTotalTop
|
|
lnFormHeight = toForm.Height
|
|
lnBanda = lnFormHeight - 103
|
|
lnTotalTop = toForm.lb_total_baza.Top
|
|
DO AfLog WITH "S8O [" + tcEticheta + "] This.Height=" + TRANSFORM(lnFormHeight) + " lnBanda(Height-103)=" + TRANSFORM(lnBanda) + " lb_total_baza.Top=" + TRANSFORM(lnTotalTop) + " chk_incasare.Top=" + TRANSFORM(toForm.chk_incasare.Top) + " chk_alte_date.Top=" + TRANSFORM(toForm.chk_alte_date.Top)
|
|
|
|
DO VerificaTotaluri WITH toForm.ct_document, "ct_document", tcEticheta, lnTotalTop
|
|
DO VerificaTotaluri WITH toForm.ct_contabilitate, "ct_contabilitate", tcEticheta, lnTotalTop
|
|
DO VerificaTotaluri WITH toForm.ct_livrare, "ct_livrare", tcEticheta, lnTotalTop
|
|
DO VerificaTotaluri WITH toForm.ct_incasare, "ct_incasare", tcEticheta, lnTotalTop
|
|
|
|
IF !llClampat
|
|
gnAssertPassG = gnAssertPassG + 1
|
|
ELSE
|
|
gnAssertFailG = gnAssertFailG + 1
|
|
ENDIF
|
|
DO AfLog WITH IIF(!llClampat, "GRIDMIN-PASS", "GRIDMIN-FAIL") + " [" + tcEticheta + "] grd_factura.Height=" + TRANSFORM(lnGHeight) + " (asteptat > 60)"
|
|
ENDPROC
|
|
|
|
PROCEDURE VerificaTotaluri
|
|
* Asertiune control.Top+control.Height <= lb_total_baza.Top, DOAR pentru controale vizibile.
|
|
LPARAMETERS toCtrl, tcNume, tcEticheta, tnTotalTop
|
|
LOCAL lnTop, lnHeight, lnBottom, llVis, llOk
|
|
lnTop = toCtrl.Top
|
|
lnHeight = toCtrl.Height
|
|
lnBottom = lnTop + lnHeight
|
|
llVis = IIF(TYPE('toCtrl.Visible') = 'L', toCtrl.Visible, .T.)
|
|
IF !llVis
|
|
DO AfLog WITH "TOTALURI-SKIP [" + tcEticheta + "] " + tcNume + " invizibil, Bottom=" + TRANSFORM(lnBottom) + " (neasertat)"
|
|
RETURN
|
|
ENDIF
|
|
llOk = (lnBottom <= tnTotalTop)
|
|
IF llOk
|
|
gnAssertPass2 = gnAssertPass2 + 1
|
|
ELSE
|
|
gnAssertFail2 = gnAssertFail2 + 1
|
|
ENDIF
|
|
DO AfLog WITH IIF(llOk, "TOTALURI-PASS", "TOTALURI-FAIL") + " [" + tcEticheta + "] " + tcNume + ".Top=" + TRANSFORM(lnTop) + " Height=" + TRANSFORM(lnHeight) + " Visible=" + TRANSFORM(llVis) + " Bottom=" + TRANSFORM(lnBottom) + " lb_total_baza.Top=" + TRANSFORM(tnTotalTop) + " marja=" + TRANSFORM(tnTotalTop - lnBottom)
|
|
ENDPROC
|
|
|
|
PROCEDURE VerificaControl
|
|
LPARAMETERS toCtrl, tcNume, tcEticheta, tnGBottom
|
|
LOCAL lnTop, lnHeight, llVis, llOk
|
|
lnTop = toCtrl.Top
|
|
lnHeight = toCtrl.Height
|
|
llVis = IIF(TYPE('toCtrl.Visible') = 'L', toCtrl.Visible, .T.)
|
|
llOk = (lnTop >= tnGBottom)
|
|
IF llOk
|
|
gnAssertPass = gnAssertPass + 1
|
|
ELSE
|
|
gnAssertFail = gnAssertFail + 1
|
|
ENDIF
|
|
DO AfLog WITH IIF(llOk, "ASSERT-PASS", "ASSERT-FAIL") + " [" + tcEticheta + "] " + tcNume + ".Top=" + TRANSFORM(lnTop) + " Height=" + TRANSFORM(lnHeight) + " Visible=" + TRANSFORM(llVis) + " (grid.Bottom=" + TRANSFORM(tnGBottom) + ", delta=" + TRANSFORM(lnTop - tnGBottom) + ")"
|
|
ENDPROC
|
|
|
|
PROCEDURE Assert
|
|
LPARAMETERS tlCond, tcMsg
|
|
IF tlCond
|
|
gnPass = gnPass + 1
|
|
DO AfLog WITH "PASS: " + tcMsg
|
|
ELSE
|
|
gnFail = gnFail + 1
|
|
DO AfLog WITH "FAIL: " + tcMsg
|
|
ENDIF
|
|
ENDPROC
|
|
|
|
PROCEDURE AfLog
|
|
LPARAMETERS tcMsg
|
|
STRTOFILE(tcMsg + CHR(13) + CHR(10), gcUILog, 1)
|
|
ENDPROC
|
|
|
|
PROCEDURE AfErr
|
|
LPARAMETERS tnErr, tcMsg, tcProg, tnLine
|
|
gnFail = gnFail + 1
|
|
DO AfLog WITH "ERROR " + TRANSFORM(tnErr) + " [" + tcProg + ":" + TRANSFORM(tnLine) + "] " + tcMsg
|
|
ENDPROC
|
|
|
|
PROCEDURE Final
|
|
DO AfLog WITH "TOTAL pass=" + TRANSFORM(gnPass) + " fail=" + TRANSFORM(gnFail)
|
|
DO AfLog WITH "END " + TTOC(DATETIME())
|
|
DO HarnessDone WITH 'done'
|
|
QUIT
|
|
ENDPROC
|