#Include TCHUI.System
 
	;==========================================================================================================================
Start
	Do Search
	
	Quit
 
	;==========================================================================================================================
Debug
	Set %CHUIDebug=1
	Do Start
	Quit
	
	;==========================================================================================================================
ShowRevisionList()
	Quit:('$$InitializationSearchResults())
	
	Set Result=%frmSearchResults.BuildRevisionList()
	
	Do Run
	Do Finalization
 
	Quit
 
	;==========================================================================================================================
SearchViaKlant(KlantID)
	Quit:('$$InitializationSearchResults())
	
	Do %frmSearchResults.SearchViaKlantID(KlantID)
	
	Do Run
	Do Finalization
 
	Quit
	
	;==========================================================================================================================
Search
	Quit:('$$InitializationSearchResults())
	
	If '%frmSearchResults.ShowCriterionScreen() Do  Quit
	. Do Finalization
	
	Do Run
	Do Finalization
	Quit
 
	;==========================================================================================================================
	; StandAlone READ KB function
Read(KennisID,varErrStr)
	Set varErrStr=""
	If '$$InitializationRead() Do  Quit
	. Set varErrStr="Fout tijdens initialiseren applicatie (InitializationRead)."
 
	Set varErrStr=%frmDetail.rOPEN(KennisID)
	If varErrStr'="" Do  Quit
	. Do Finalization
	
	Do %frmDetail.ShowModal()
	
	Do Finalization
 
	Quit
 
	;==========================================================================================================================
	; StandAlone NEW KB function (geeft 1 terug als de gebruiker op 'ok' heeft kunnen drukken, 0 bij 'annuleren')
New(KlantID,varErrStr)
	Set varErrStr=""
	If '$$InitializationModify() Do  Quit 0
	. Set varErrStr="Fout tijdens initialiseren applicatie (InitializationModify)."
	
	Set varErrStr=%frmModify.rNEW(KlantID)
	If varErrStr'="" Do  Quit 0
	. Do Finalization
	
	Set Result=(%frmModify.ShowModal()=$$$mrOk)
	
	Do Finalization
 
	Quit Result
 
	;==========================================================================================================================
	; StandAlone MODIFY KB function (geeft 1 terug als de gebruiker op 'ok' heeft kunnen drukken, 0 bij 'annuleren')
Modify(KennisID,varErrStr)
	Set varErrStr=""
	If '$$InitializationModify() Do  Quit 0
	. Set varErrStr="Fout tijdens initialiseren applicatie (InitializationModify)."
	
	New KennisObj
	Set KennisObj=##class(Derde.Kennis.Kennis).%OpenId(KennisID)
	If '$IsObject(KennisObj) Do  Quit 0
	. Set varErrStr="Kan het kennisobject met ID '"_KennisID_"' niet openen."
	
	Set varErrStr=%frmModify.rCLONE(KennisObj)
	If varErrStr'="" Do  Quit 0
	. Do Finalization
	
	Set Result=(%frmModify.ShowModal()=$$$mrOk)
	
	Do Finalization
 
	Quit Result
 
	;==========================================================================================================================
InitializationSearchResults()
	Quit:('$$Initialization()) 0
 
	;MainForm
	Set %frmSearchResults=%Application.CreateForm("CHUI.Derde.KB.dlgSearchResults","frmSearchResults","frmSearchResults")
	
	Quit 1
 
 	;----------------------------------------------------------------------------------------
InitializationModify()
	Quit:('$$Initialization()) 0
 
	;MainForm
	Set %frmModify=%Application.CreateForm("CHUI.Derde.KB.dlgModify","frmModify","frmModify")
	
	Quit 1
 
 	;---------------------------------------------------------------------------------------- 
InitializationRead()
	Quit:('$$Initialization()) 0
 
	;MainForm
	Set %frmDetail=%Application.CreateForm("CHUI.Derde.KB.dlgDetail","frmDetail","frmDetail")
	
	Quit 1
 
 	;---------------------------------------------------------------------------------------- 
Initialization()
	;Volgende vars kunnen na een crash nog bestaan, deze eerst opkuisen
	k %frmSearchResults,%frmDetail,%frmModify,%frmSearch,%frmActions,%frmHistory
	
	Set %Application=##class(TCHUI.TApplication).Create()
	;Set %CHUIDebug=1
	Do:($G(%CHUIDebug)) %Application.AttachDebugEvents()
	Set %Screen=##class(TCHUI.TScreen).Create($$$ttVT520)
	Set %Input=##class(TCHUI.TInput).Create()
	Do %Screen.Clear()
 
	Quit:('$$UserAvailable^$$$SystemRtn) 0
	
 	;Caption
 	Do %Screen.SetTerminalCaption("Kennisanker")
	
	Quit 1
 
	;--------------------------------------------------------------------------------------------------------------------------	
Run
	Do %Application.Run()	
	Quit
	;--------------------------------------------------------------------------------------------------------------------------	
Finalization
	Do %Screen.Canvas.ChangeFont(%Screen.Font)
	k %Application,%Screen,%Input
	k %frmSearchResults,%frmDetail,%frmModify,%frmSearch,%frmActions,%frmHistory
	k %CHUIDebug
	
	Quit