Index: CHUI/Derde/EC/Toegang/dlgKlantLijst.cls.xml
===================================================================
diff -u
--- CHUI/Derde/EC/Toegang/dlgKlantLijst.cls.xml	(revision 0)
+++ CHUI/Derde/EC/Toegang/dlgKlantLijst.cls.xml	(revision 2581)
@@ -0,0 +1,288 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="CHUI.Derde.EC.Toegang.dlgKlantLijst">
+<IncludeCode>%VHMacro</IncludeCode>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%CHUI.TForm</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<UDLText name="T">
+<Content><![CDATA[
+//Actions
+
+]]></Content>
+</UDLText>
+
+<Property name="acDeleteAll">
+<Description>
+==========================================================================================================================
+PROPERTIES                                                                                                               .
+==========================================================================================================================</Description>
+<Type>%CHUI.TAction</Type>
+</Property>
+
+<Property name="acDelete">
+<Type>%CHUI.TAction</Type>
+</Property>
+
+<Property name="acAdd">
+<Type>%CHUI.TAction</Type>
+</Property>
+
+<UDLText name="T">
+<Content><![CDATA[
+//Kaders
+
+]]></Content>
+</UDLText>
+
+<Property name="kdrMain">
+<Type>%CHUI.TKader</Type>
+</Property>
+
+<UDLText name="T">
+<Content><![CDATA[
+//Labels
+
+]]></Content>
+</UDLText>
+
+<Property name="lblKlant">
+<Type>%CHUI.TLabel</Type>
+</Property>
+
+<UDLText name="T">
+<Content><![CDATA[
+//Edits
+
+]]></Content>
+</UDLText>
+
+<Property name="txtKlant">
+<Type>%CHUI.Ctrl.TKlantEdit</Type>
+</Property>
+
+<UDLText name="T">
+<Content><![CDATA[
+//Buttons
+
+]]></Content>
+</UDLText>
+
+<Property name="btnCancel">
+<Type>%CHUI.TButton</Type>
+</Property>
+
+<Property name="btnOk">
+<Type>%CHUI.TButton</Type>
+</Property>
+
+<Property name="btnDeleteAll">
+<Type>%CHUI.TButton</Type>
+</Property>
+
+<Property name="btnDelete">
+<Type>%CHUI.TButton</Type>
+</Property>
+
+<Property name="btnAdd">
+<Type>%CHUI.TButton</Type>
+</Property>
+
+<UDLText name="T">
+<Content><![CDATA[
+//Lists
+
+]]></Content>
+</UDLText>
+
+<Property name="lstKlanten">
+<Type>%CHUI.TLijst</Type>
+</Property>
+
+<UDLText name="T">
+<Content><![CDATA[
+//DataSetLists
+
+]]></Content>
+</UDLText>
+
+<Property name="dslKlanten">
+<Type>%CHUI.TDataSetList</Type>
+</Property>
+
+<UDLText name="T">
+<Content><![CDATA[
+//Constants
+
+]]></Content>
+</UDLText>
+
+<Parameter name="colKlantNaam">
+<Default>1</Default>
+</Parameter>
+
+<Parameter name="colKlantID">
+<Default>2</Default>
+</Parameter>
+
+<UDLText name="T">
+<Content><![CDATA[
+//Property
+
+]]></Content>
+</UDLText>
+
+<Property name="lbKlanten">
+<Type>%String</Type>
+</Property>
+
+<Method name="Select">
+<Description>
+==========================================================================================================================
+METHODs                                                                                                                  .
+==========================================================================================================================</Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>varlbKlanten</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	;Message form
+	Set MsgForm=%Application.CreateForm("CHUI.Derde.EC.Toegang.dlgKlantLijst","dlg"_$TR($G(Caption)," ",""),$G(Caption),,,$G(ListHeight)+5,,,$$$ftDialog)
+	Set MsgForm.lbKlanten=$G(varlbKlanten)
+	Do MsgForm.lstKlanten.Refresh()
+	
+	Set Result=MsgForm.ShowModal()
+ 
+	Do MsgForm.Destroy()
+	
+	Set:(Result=$$$mrOk) varlbKlanten=MsgForm.lbKlanten
+	
+	Quit Result
+]]></Implementation>
+</Method>
+
+<Method name="CreateControls">
+<Implementation><![CDATA[
+	;Form settings
+	Set ..Left=1, ..Top=1, ..Width=45, ..Height=17
+	Set ..Caption="Klant(en) selecteren"
+
+	Do ..Center()
+
+	//Actions
+	Do ##class(%CHUI.TAction).CreateSet(%this,"acAdd","Toevoegen",1,$LB("A"))
+	Set ..acAdd.OnExecute=$LB(%this,"acAddExecute")
+	Do ##class(%CHUI.TAction).CreateSet(%this,"acDelete","Verwijderen",1,$LB("D"))
+	Set ..acDelete.OnExecute=$LB(%this,"acDeleteExecute")
+	Do ##class(%CHUI.TAction).CreateSet(%this,"acDeleteAll","Alles wissen",1,$LB("C"))
+	Set ..acDeleteAll.OnExecute=$LB(%this,"acDeleteAllExecute")
+
+	//Kaders
+	Do ##class(%CHUI.TKader).CreateSet(%this,"kdrMain"," "_..Caption_" ",1,1,..Height,..Width,10,,,)
+	Set ..CaptionControl=..kdrMain
+
+	//Labels
+	Do ##class(%CHUI.TLabel).CreateSet(%this,"lblKlant","Klant:",3,3,,,$$$alLeft,,,$LB(,,$$$fsNoUnderline))
+
+	//Edits
+	Do ##class(%CHUI.Ctrl.TKlantEdit).CreateSet(%this,"txtKlant","Klant",3,10,,22)
+
+	//Buttons
+	Do ##class(%CHUI.TButton).CreateSet(%this,"btnAdd","Toevoegen",3,33,,11,,,,,$$$alCenter)
+	Set ..btnAdd.Action=..acAdd
+	Do ##class(%CHUI.TButton).CreateSet(%this,"btnDelete","Verwijderen",14,10,,14,,,,,$$$alCenter)
+	Set ..btnDelete.Action=..acDelete
+	Do ##class(%CHUI.TButton).CreateSet(%this,"btnDeleteAll","Alles wissen",16,10,,14,,,,,$$$alCenter)
+	Set ..btnDeleteAll.Action=..acDeleteAll
+	Do ##class(%CHUI.TButton).CreateSet(%this,"btnOk","Ok",14,30,,14,,,,,$$$alCenter)
+	Set ..btnOk.ModalResult=$$$mrOk
+	Do ##class(%CHUI.TButton).CreateSet(%this,"btnCancel","Annuleren",16,30,,14,,,,,$$$alCenter)
+	Set ..btnCancel.ModalResult=$$$mrCancel
+
+	//Lists
+	Do ##class(%CHUI.TLijst).CreateSet(%this,"lstKlanten","Klanten",5,10,8,34)
+	
+	Set rdRowlstKlanten=..lstKlanten.CreateRowDef("rdRowlstKlanten",$$$ftAddLijstRow)
+	Do ..lstKlanten.AddLabelToRowDef(rdRowlstKlanten,1," ")
+	Do ..lstKlanten.AddLabelDBToRowDef(rdRowlstKlanten,..#colKlantNaam)
+
+	//DataSetLists
+	Set ..dslKlanten=##class(%CHUI.TDataSetList).Create(..lstKlanten,"dslKlanten")
+	Do ..dslKlanten.AddColDef(..#colKlantNaam,$$$rsList,1)
+	Do ..dslKlanten.AddColDef(..#colKlantID,$$$rsList,2)
+	Set ..dslKlanten.OnQueryInit=$LB(%this,"dslKlantenQueryInit")
+
+	Do ..lstKlanten.InitSpec(..dslKlanten,,rdRowlstKlanten)
+	
+	Do ..SetTabAndPaintOrder(..kdrMain,..txtKlant,..btnAdd,..lstKlanten,..btnDelete,..btnDeleteAll,..btnOk,..btnCancel)
+]]></Implementation>
+</Method>
+
+<Method name="dslKlantenQueryInit">
+<Description>
+==========================================================================================================================
+EVENTs                                                                                                                   .
+==========================================================================================================================</Description>
+<FormalSpec>Sender:%CHUI.TControlBasis,ResultStr:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do Sender.QueryClear()
+	
+	For Loop=1:1:$LL(..lbKlanten) Do
+	. Set KlantID=$LI(..lbKlanten,Loop)
+	.	Do Sender.SetData(Loop,$LB(##class(Derde.Klant.Klant).GetFullName(KlantID),KlantID))
+]]></Implementation>
+</Method>
+
+<Method name="acDeleteAllExecute">
+<FormalSpec>Sender:%CHUI.TControlBasis</FormalSpec>
+<Implementation><![CDATA[
+	Quit:($$$MsgBox(..Caption,"Deze opdracht verwijdert alle klanten uit de lijst, doorgaan?",$$$mbOkCancel)=$$$mrCancel)
+
+	Set ..lbKlanten=""
+	
+	Do ..lstKlanten.RefreshTop()
+]]></Implementation>
+</Method>
+
+<Method name="acDeleteExecute">
+<FormalSpec>Sender:%CHUI.TControlBasis</FormalSpec>
+<Implementation><![CDATA[
+	Set KlantID=..lstKlanten.GetSelectedData(..#colKlantID)
+	Quit:(KlantID="")
+	
+	Set KlantIDPos=$LF(..lbKlanten,KlantID)
+	Quit:('KlantIDPos)
+	
+	Set lbKlanten=..lbKlanten
+	$$$DoLBDeleteAt(lbKlanten,KlantIDPos)
+	Set ..lbKlanten=lbKlanten
+	
+	Do ..lstKlanten.RefreshTop()   //Selectie terug op bovenste item uit lijst plaatsen
+]]></Implementation>
+</Method>
+
+<Method name="acAddExecute">
+<FormalSpec>Sender:%CHUI.TControlBasis</FormalSpec>
+<Implementation><![CDATA[
+	Set KlantID=..txtKlant.Value
+
+	If '$IsValidNum(KlantID) Do  Quit
+	. Do $$$ShowMsgBoxSimple(..Caption,"Er is geen geldig klantnummer opgegeven.")
+	. Do ..txtKlant.SetFocus()
+	Else  If '##class(Derde.Klant.Klant).%ExistsId(KlantID) Do  Quit
+	. Do $$$ShowMsgBoxSimple(..Caption,"Klantnummer "_KlantID_" bestaat niet.")
+	. Do ..txtKlant.SetFocus()
+	Else  If $LF(..lbKlanten,KlantID) Do  Quit
+	. Do $$$ShowMsgBoxSimple(..Caption,"De opgegeven klant komt reeds voor in de lijst.")
+	. Do ..txtKlant.SetFocus()
+	
+	Set ..txtKlant.Value=""
+	Do ..txtKlant.SetFocus()  //Klaarzetten voor nieuwe klant
+	
+	Set ..lbKlanten=..lbKlanten_$LB(KlantID)
+	
+	Do ..lstKlanten.Refresh()
+]]></Implementation>
+</Method>
+</Class>
+</Export>