Index: CHUI/Prod/BlumImagesVoorAdminImport.cls.xml
===================================================================
diff -u
--- CHUI/Prod/BlumImagesVoorAdminImport.cls.xml	(revision 0)
+++ CHUI/Prod/BlumImagesVoorAdminImport.cls.xml	(revision 68299)
@@ -0,0 +1,146 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="CHUI.Prod.BlumImagesVoorAdminImport">
+<ClassType/>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>TCHUI.TForm</Super>
+
+<Parameter name="lblDetailsWidth">
+<Type>%Integer</Type>
+<Default>80</Default>
+</Parameter>
+
+<Property name="lblHeader">
+<Description>
+==========================================================================================================================
+PROPERTIES                                                                                                               .
+==========================================================================================================================
+
+Labels</Description>
+<Type>TCHUI.TLabel</Type>
+</Property>
+
+<Property name="lblImportFileNameLabel">
+<Type>TCHUI.TLabel</Type>
+</Property>
+
+<Property name="lblDetailLabel">
+<Type>TCHUI.TLabel</Type>
+</Property>
+
+<Property name="lblDetails">
+<Type>TCHUI.TLabel</Type>
+</Property>
+
+<Property name="txtImportFileName">
+<Description>
+Edits</Description>
+<Type>TCHUI.TEdit</Type>
+</Property>
+
+<Property name="btnImportFile">
+<Description>
+Buttons</Description>
+<Type>TCHUI.TButton</Type>
+</Property>
+
+<Property name="btnClose">
+<Type>TCHUI.TButton</Type>
+</Property>
+
+<Method name="OpenChuiForm">
+<Description>
+==========================================================================================================================
+CLASS METHODs                                                                                                            .
+==========================================================================================================================</Description>
+<ClassMethod>1</ClassMethod>
+<ProcedureBlock>1</ProcedureBlock>
+<Implementation><![CDATA[	Do BootApp^TCHUI.System("CHUI.Prod.BlumImagesVoorAdminImport")
+]]></Implementation>
+</Method>
+
+<Method name="CreateControls">
+<Description>
+==========================================================================================================================
+METHODs                                                                                                                  .
+==========================================================================================================================</Description>
+<Implementation><![CDATA[
+	;Form settings
+	Set ..Caption="Import BLUM images voor Admin"
+
+	;Labels
+	Do ##class(TCHUI.TLabel).CreateSet(%this,"lblHeader","22.25  33. Importeer BLUM images voor Admin",1,1,,80,$$$alLeft,,,$LB($$$clUltraLight,$$$clUltraDark,$$$fsNoUnderline))
+	Set ..lblHeader.Sizing=$$$lsFixed
+	Do ##class(TCHUI.TLabel).CreateSet(%this,"lblImportFileNameLabel","CSV-bestand:",2,1,,,$$$alLeft)
+
+	Do ##class(TCHUI.TLabel).CreateSet(%this,"lblDetailLabel","Details:",5,1,,,,,,,$$$alLeft)
+	
+	Do ##class(TCHUI.TLabel).CreateSet(%this,"lblDetails","",6,1,18, ..#lblDetailsWidth,,,,$LB(,$$$clMedLight,$$$fsNoUnderline),$$$alLeft)
+	Set ..lblDetails.WordWrap = $$$True
+
+	;Edits
+	Do ##class(TCHUI.TEdit).CreateSet(%this,"txtImportFileName","Bestand volledige naam",3,2,,78)
+
+	;Buttons
+	Do ##class(TCHUI.TButton).CreateSet(%this,"btnImportFile","Import",24,55,,10,,,,,$$$alCenter)
+	Set ..btnImportFile.OnClick=$LB(%this,"btnImportFileClick")
+
+	Do ##class(TCHUI.TButton).CreateSet(%this,"btnClose","Afsluiten",24,67,,13,,,,,$$$alCenter)
+	Set ..btnClose.OnClick=$LB(%this,"btnCloseClick")
+
+	Do ..SetTabAndPaintOrder(..lblHeader, ..lblImportFileNameLabel, ..txtImportFileName, ..lblDetails, ..btnImportFile, ..btnClose)
+	Do ..txtImportFileName.SetFocus()
+]]></Implementation>
+</Method>
+
+<Method name="btnImportFileClick">
+<Description>
+==========================================================================================================================
+EVENTs                                                                                                                   .
+==========================================================================================================================</Description>
+<FormalSpec>Sender:TCHUI.TControlBasis</FormalSpec>
+<Implementation><![CDATA[
+	#dim BestandVolledigeNaam As %String = ..txtImportFileName.Value
+	#dim ImportResultMessage As %String = ""
+	#dim DetailMessages As %String = ""
+	
+	Set ..lblDetails.Caption = ""
+	
+	If ##class(TECH.File).Exists(BestandVolledigeNaam) {
+		
+		Set BlumImagesVoorAdminImporteerder = ##class(BL.Prod.ImageLinkImport.BlumImagesVoorAdminImporteerder).%New()
+		Do BlumImagesVoorAdminImporteerder.ImportImagesVoorBlumProducten(BestandVolledigeNaam)   ; "\\notes01\shared\W V\Images\import_AX_VHenBlum_ALLProducts_2022-07-04.csv")
+		
+		#dim Stats As TECH.FrequentieTabel = BlumImagesVoorAdminImporteerder.GeefStats()
+		Set ImportResultMessage = "Import van '"_BestandVolledigeNaam_"' : " _ $$$CRLF _ Stats.ToString()
+		
+		#dim AantalGelukt As %Integer = Stats.GeefFrequentieVanItem("Gelukt")
+		#dim AantalGefaald As %Integer = Stats.GeefFrequentieVanItem("Gefaald")
+		
+		If (AantalGefaald = 0) {
+			Set DetailMessages = $Select(AantalGelukt=0:"NIKS VERWERKT !", 1:"Alle images oké!")
+		}
+		Else {
+			Set DetailMessages = Stats.ToString() _ $$$CRLF_ BlumImagesVoorAdminImporteerder.GeefDetailFeedback()
+		}
+	}
+	Else {
+		Set ImportResultMessage = "File '"_BestandVolledigeNaam_"' bestaat niet of kan niet ingelezen worden." 
+	}	
+	
+	#dim mbResult As %String = $$$MsgBoxSimple("Stats",ImportResultMessage)
+	
+	Set ..lblDetails.Caption = $$GetWordWrap^TCHUI.System(DetailMessages, ..#lblDetailsWidth)
+	Do ..txtImportFileName.SetFocus()
+]]></Implementation>
+</Method>
+
+<Method name="btnCloseClick">
+<FormalSpec>Sender:TCHUI.TControlBasis</FormalSpec>
+<Implementation><![CDATA[	Do ..Close()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>