#include vhLib.Macro 

ValideerOrder(OrderID)
	new Tekst set Tekst = $$GeefTeTonenTekst(OrderID)
	
	if $length(Tekst)>0 {
		do Boodschap^vhTXTPOP(Tekst)
	}
	quit

GeefTeTonenTekst(OrderID)
	New OrderIngaveService,ValidatieResultaat,Tekst,itLijnValidaties,LijnValidatie,LijnNr
	
	#dim Tekst As %String = ""
	set OrderIngaveService = ##class(APPS.VKP.OrderIngaveService).%New()
	#dim ValidatieResultaat As APPS.VKP.dto.OrderValidatieResultaat = OrderIngaveService.ValideerOrder(OrderID)
	
	if ValidatieResultaat.OntoelaatbareProbleemTeksten.Size {
		set Tekst = Tekst _ "Order kan niet gesloten worden om volgende redenen : "_$$$CRLF
		do VoegToeOntoelaatbareTeksten(ValidatieResultaat.OntoelaatbareProbleemTeksten,.Tekst)
	}
	
	if ValidatieResultaat.LijnValidaties.Count() {
		#dim itLijnValidaties = ##class(TECH.ListIterator).%New(ValidatieResultaat.LijnValidaties)
		while itLijnValidaties.HasNext() {
			#dim LijnValidatie As APPS.common.dto.ValidatieResultaat = itLijnValidaties.Next()
			#dim LijnNr As %String = itLijnValidaties.Key()
			set Tekst = Tekst _ "Lijn "_(LijnNr#100)_" heeft volgende problemen : "_$$$CRLF
			do VoegToeOntoelaatbareTeksten(LijnValidatie.OntoelaatbareProbleemTeksten,.Tekst)
		}
	}
	set Tekst = $piece(Tekst,$$$CRLF,1,$length(Tekst,$$$CRLF)-1)
	quit Tekst

VoegToeOntoelaatbareTeksten(OntoelaatbareProbleemTeksten,Tekst)
	new itTeksten 
	set itTeksten = ##class(TECH.ListIterator).%New(OntoelaatbareProbleemTeksten)
	while itTeksten.HasNext() {
		set Tekst = Tekst_$$$TAB_itTeksten.Next()_$$$CRLF
	}
	quit Tekst