Index: BL/Sys/LabelPrinter.cls.xml
===================================================================
diff -u -r2001 -r2471
--- BL/Sys/LabelPrinter.cls.xml	(.../LabelPrinter.cls.xml)	(revision 2001)
+++ BL/Sys/LabelPrinter.cls.xml	(.../LabelPrinter.cls.xml)	(revision 2471)
@@ -26,15 +26,29 @@
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Property name="BartenderPath">
-<InitialExpression>##class(TECH.Config.ConfigMgr).Instance().GetString("PrintFileDropFolder")</InitialExpression>
+<Description>
+Property BartenderPath [ InitialExpression = {##class(TECH.Config.ConfigMgr).Instance().GetString("PrintFileDropFolder")} ];</Description>
+<InitialExpression>"c:\DropFolder"</InitialExpression>
 </Property>
 
+<Property name="BartenderFtpServer">
+<InitialExpression>"bartender"</InitialExpression>
+</Property>
+
+<Property name="BartenderFtpUser">
+<InitialExpression>"anonymous"</InitialExpression>
+</Property>
+
+<Property name="BartenderFtpWW">
+<InitialExpression>"pv@vanhoecke.be"</InitialExpression>
+</Property>
+
 <Parameter name="BartenderDeviceOL">
 <Default>OrgaluxColor2</Default>
 </Parameter>
 
 <Parameter name="BartenderDebugPath">
-<Default>\\BARTENDER\TestBestanden\</Default>
+<Default>c:\DropFolder</Default>
 </Parameter>
 
 <Parameter name="BartenderLayoutPath">
@@ -45,6 +59,10 @@
 <Type>%String</Type>
 </Property>
 
+<Property name="FileName">
+<Type>%String</Type>
+</Property>
+
 <Property name="Debug">
 <Type>%Boolean</Type>
 </Property>
@@ -283,23 +301,47 @@
 	. . . Set pxLabel=..Data(BartDevice,BartLayout,VolgNr)
 	. . . For i=1:1:$S(pxLabel.Aantal:pxLabel.Aantal,1:1) Do
 	. . . . Set sc=pxLabel.WriteRow()
-	. . Close:File'=0 File
+	. . Do ..CloseFile(File)
 ]]></Implementation>
 </Method>
 
+<Method name="CloseFile">
+<FormalSpec>File</FormalSpec>
+<Implementation><![CDATA[
+	Close:File'=0 File
+	If ..Dropfolder?1A1":"1(1"/",1"\").E Do
+	. Do ..FtpFile()
+]]></Implementation>
+</Method>
+
+<Method name="FtpFile">
+<Implementation><![CDATA[
+	Set stream=##class(%FileCharacterStream).%New()
+	Set stream.Filename=$$FULLPAD^vhDEV(..Dropfolder,..FileName)
+
+	Set ftp=##class(%Net.FtpSession).%New()
+	If 'ftp.Connect(..BartenderFtpServer,..BartenderFtpUser, ..BartenderFtpWW)  Quit  Write "Not connected",! Quit
+	;Write "Ftp server messsage:",!,ftp.ReturnMessage,!
+	If 'ftp.Store(..FileName,stream) ;Write "Failed to get file",! Quit
+	If 'ftp.Logout() ;Write "Failed to logout",!
+	Quit
+]]></Implementation>
+</Method>
+
 <Method name="CreateFile">
 <Description>
 Bartender tekstbestand openen en de Bartenderheader schrijven</Description>
 <FormalSpec>BartDevice,BartLayout</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	Set File=0
-	Set FileName = $TR(BartDevice,"\ ","")_"_"_$I(^Sys.LabelPrinterD)_"_"_$TR(BartLayout,". ","")_".TXT"
+	Set ..FileName = $TR(BartDevice,"\ ","")_"_"_$I(^Sys.LabelPrinterD)_"_"_$TR(BartLayout,". ","")_".TXT"
 	; indien dropfolder toegekend altijd die gebruiken
 	
-	set AllwaysRedirectBartenderFiles = ##class(TECH.Config.ConfigMgr).Instance().GetBoolean("AllwaysRedirectBartenderFiles")
-	if ($L(..Dropfolder))&&('AllwaysRedirectBartenderFiles) Set File=$$OPEN^vhDEV(..Dropfolder,FileName,"W","M")  
-	Else  Set File=$$OPEN^vhDEV(..BartenderPath,FileName,"W","M")
+	Set AllwaysRedirectBartenderFiles = ##class(TECH.Config.ConfigMgr).Instance().GetBoolean("AllwaysRedirectBartenderFiles")
+	If ($L(..Dropfolder))&&('AllwaysRedirectBartenderFiles) Set File=$$OPEN^vhDEV(..Dropfolder,..FileName,"W","M")  
+	Else  Set File=$$OPEN^vhDEV(..BartenderPath,..FileName,"W","M"),..Dropfolder=..BartenderPath
+	
 	If ^Sys.LabelPrinterD>9999999 Lock +^Sys.LabelPrinterD Set ^Sys.LabelPrinterD=0 Lock -^Sys.LabelPrinterD
 	Use File
 	Write "%BTW% /AF="""_..#BartenderLayoutPath_BartLayout_".btw"" /PRN="""_BartDevice_""" /R=3 /P  /D=<Trigger File Name> /CLOSE",$C(13,10)