Index: EWPR.mac.rou
===================================================================
diff -u -r73189 -r73346
--- EWPR.mac.rou	(.../EWPR.mac.rou)	(revision 73189)
+++ EWPR.mac.rou	(.../EWPR.mac.rou)	(revision 73346)
@@ -1,5 +1,6 @@
 #include Prod.Product
 #include BL.Derde.LevSpecifiek
+#include vhLib.Macro
 EWPR ;E'WMS Produkten [ 12/04/2003  4:37 PM ]
  
  Set PRNr=0
@@ -16,11 +17,19 @@
     Set $P(^KPR(PRNr,2),D,17)="A;"_$H
 	Q "Send"
  
+ 
+ ; ##class(TECH.Config.ConfigMgr).Instance().SetBoolean("EWMSProductSyncViaSQL",$$$false)
+ ; ##class(TECH.Config.ConfigMgr).Instance().SetBoolean("EWMSProductSyncViaEWMS2003",$$$false)
+ 
 ZEND(PRNr,Forced) 
- New C
+ New C, EWMSProductSyncViaSQL,EWMSViaEWMS2003
+ Set EWMSViaSQL = ##class(TECH.Config.ConfigMgr).Instance().GetBoolean("EWMSProductSyncViaSQL",$$$false)
+ Set EWMSViaEWMS2003 = ##class(TECH.Config.ConfigMgr).Instance().GetBoolean("EWMSProductSyncViaEWMS2003",$$$True)
  ;Q ; Tijdelijk geen produkt info doorsturen
  If ($$CHKSEND(PRNr)&&("1D"[$$CHKAFGL(PRNr)))||$G(Forced) Do
- . Do BUILD(PRNr),ZEND^EWRECS("C")
+ . Do BUILD(PRNr)
+ . Do:(EWMSProductSyncViaEWMS2003) ZEND^EWRECS("C")
+ . Do:(EWMSProductSyncViaSQL) ##class(BL.Legacy.EWPR).ZendSQL("C")
  . Set $P(^KPR(PRNr,2),D,17)="A;"_$H
  Quit
  
Index: BL/Legacy/EWPR.cls.xml
===================================================================
diff -u -r72407 -r73346
--- BL/Legacy/EWPR.cls.xml	(.../EWPR.cls.xml)	(revision 72407)
+++ BL/Legacy/EWPR.cls.xml	(.../EWPR.cls.xml)	(revision 73346)
@@ -16,6 +16,300 @@
 	}
 ]]></Implementation>
 </Method>
+
+<UDLText name="T">
+<Content><![CDATA[
+/* ; eerst BUILD^EWPR oproepen
+ */
+]]></Content>
+</UDLText>
+
+<Method name="ZendSQL">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Ref:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set SqlConnection =##class(%SQLGatewayConnection).%New()
+    #dim EWMSServer as %String = ##class(TECH.Config.ConfigMgr).Instance().GetString("EWMS.SQLGCWrapper_ConnectionDataSourceName")
+    #dim EWMSUsername as %String = ##class(TECH.Config.ConfigMgr).Instance().GetString("EWMS.SQLGCWrapper_UserName")
+    #dim EWMSPassword as %String = ##class(TECH.Config.ConfigMgr).Instance().GetString("EWMS.SQLGCWrapper_Password")
+
+	Do ##class(TECH.Exceptions.StatusException).ThrowIndienNietOK(SqlConnection.Connect(EWMSServer,EWMSUsername,EWMSPassword) )
+    Do ##class(vhLib.Logger).%New().Info("EWMS Product sync",$$ArrayToText^vhLib(Ref,.@Ref))
+    Set rs=##class(%ResultSet).%New("%DynamicQueryGW:SQLGW")
+	#dim Status as %String = ""
+ ;parameters
+	#Dim SqlString as %String = "declare @product as char(16) = '"_ @Ref@("PRNR") _"' " _ $$$CRLF
+	set SqlString = SqlString _ "declare @ident_nr as char(11) ='"_ @Ref@("IDNR") _"' " _ $$$CRLF
+	set SqlString = SqlString _ "declare @korttekst as char(25)='"_ @Ref@("KORTTEKST") _"' " _ $$$CRLF
+	set SqlString = SqlString _ "declare @omschrijving_ned as char(255) ='"_ @Ref@("OMSCHRIJFNED") _"' " _ $$$CRLF
+	set SqlString = SqlString _ "declare @omschrijving_frans as char(255) = '"_ @Ref@("OMSCHRIJFFRANS") _"' " _ $$$CRLF
+	set SqlString = SqlString _ "declare @lev_nr as int = "_ @Ref@("LEVNR") _" " _ $$$CRLF
+	set SqlString = SqlString _ "declare @lev_naam as char(40) = '"_ @Ref@("LEVNM") _"' " _ $$$CRLF
+	set SqlString = SqlString _ "declare @lev_ref as char(45) = '"_ @Ref@("LEVREF") _"' " _ $$$CRLF
+	set SqlString = SqlString _ "declare @lev_omschrijving as char(255)= '"_ @Ref@("LEVREFOMS") _"' " _ $$$CRLF
+	set SqlString = SqlString _ "declare @telbaar as float = "_ @Ref@("TELBAAR") _"  " _ $$$CRLF 
+	set SqlString = SqlString _ "declare @aankoopprijs as float = "_ @Ref@("AKP") _"  " _ $$$CRLF
+	set SqlString = SqlString _ "declare @GVP as int = "_ +@Ref@("AANTALGVP") _" " _ $$$CRLF ;-> 0
+	set SqlString = SqlString _ "declare @KVP as int = "_ +@Ref@("AANTALKVP") _" " _ $$$CRLF 
+	set SqlString = SqlString _ "declare @stock_nietstock as char(1) = '"_ @Ref@("SNS") _"'  " _ $$$CRLF ;->
+	set SqlString = SqlString _ "declare @moeder_kind_beide as char(1) = '"_ @Ref@("MKBTYPE") _"'  " _ $$$CRLF ;->
+	set SqlString = SqlString _ "declare @moeder_product as char(16) = '"_ @Ref@("MOEDERPRNR") _"'  " _ $$$CRLF
+	set SqlString = SqlString _ "declare @product_group as int = "_ @Ref@("PRODUKTGROEP") _" " _ $$$CRLF
+	set SqlString = SqlString _ "declare @cycle_count_type as int = "_ @Ref@("CYCLECOUNTTYPE") _" " _ $$$CRLF
+	set SqlString = SqlString _ "declare @abc as int = "_ @Ref@("ABCKLAS") _" " _ $$$CRLF
+	set SqlString = SqlString _ "declare @barcode_type  as int = 0 " _ $$$CRLF ; -> niet gezet in BUILD^EWPR
+	set SqlString = SqlString _ "declare @barcode as char(20) = '"_ @Ref@("BARCODE") _"' " _ $$$CRLF
+	set SqlString = SqlString _ "declare @sorteersleutel as char(20) = '"_ @Ref@("SORTKEY") _"'  " _ $$$CRLF
+	set SqlString = SqlString _ "declare @gewicht as int = "_ @Ref@("GEWICHT") _" " _ $$$CRLF
+	set SqlString = SqlString _ "declare @sample_status as char(1) = '"_ @Ref@("SAMPLETYPE") _"' " _ $$$CRLF ;->
+	set SqlString = SqlString _ "declare @datum_fifo as char(26) = '"_ @Ref@("DATUMFIFO") _"' " _ $$$CRLF ;->
+	set SqlString = SqlString _ "declare @default_opslagzone as int = "_ @Ref@("OPSLAGZONE") _" " _ $$$CRLF
+	set SqlString = SqlString _ "declare @telwijze as char(1) = '"_ @Ref@("TELWIJZE") _"'  " _ $$$CRLF ;->
+	set SqlString = SqlString _ "declare @foto_path as varchar(255) = '"_ @Ref@("IMAGE") _"' " _ $$$CRLF
+
+ ; inserten in VH_Produktgegevens indien product niet bestaat (zie where clause)
+	set SqlString = SqlString _ "insert into VH_Produktgegevens ( [product] " _ $$$CRLF
+	set SqlString = SqlString _ "      ,[ident_nr] " _ $$$CRLF
+	set SqlString = SqlString _ "      ,[korttekst] " _ $$$CRLF
+	set SqlString = SqlString _ "      ,[omschrijving_ned] " _ $$$CRLF
+	set SqlString = SqlString _ "      ,[omschrijving_frans] " _ $$$CRLF
+	set SqlString = SqlString _ "      ,[lev_nr] " _ $$$CRLF
+	set SqlString = SqlString _ "      ,[lev_naam] " _ $$$CRLF
+	set SqlString = SqlString _ "      ,[lev_ref] " _ $$$CRLF
+	set SqlString = SqlString _ "      ,[lev_omschrijving] " _ $$$CRLF
+	set SqlString = SqlString _ "      ,[telbaar] " _ $$$CRLF
+	set SqlString = SqlString _ "      ,[aankoopprijs] " _ $$$CRLF
+	set SqlString = SqlString _ "      ,[GVP] " _ $$$CRLF
+	set SqlString = SqlString _ "      ,[KVP] " _ $$$CRLF
+	set SqlString = SqlString _ "      ,[stock_nietstock] " _ $$$CRLF
+	set SqlString = SqlString _ "      ,[moeder_kind_beide] " _ $$$CRLF
+	set SqlString = SqlString _ "      ,[moeder_product] " _ $$$CRLF
+	set SqlString = SqlString _ "      ,[product_group] " _ $$$CRLF
+	set SqlString = SqlString _ "      ,[cycle_count_type] " _ $$$CRLF
+	set SqlString = SqlString _ "      ,[abc] " _ $$$CRLF
+	set SqlString = SqlString _ "      ,[barcode_type] " _ $$$CRLF
+	set SqlString = SqlString _ "      ,[barcode] " _ $$$CRLF
+	set SqlString = SqlString _ "      ,[sorteersleutel] " _ $$$CRLF
+	set SqlString = SqlString _ "      ,[gewicht] " _ $$$CRLF
+	set SqlString = SqlString _ "      ,[sample_status] " _ $$$CRLF
+	set SqlString = SqlString _ "      ,[datum_fifo] " _ $$$CRLF
+	set SqlString = SqlString _ "      ,[default_opslagzone] " _ $$$CRLF
+	set SqlString = SqlString _ "      ,[telwijze] " _ $$$CRLF
+	set SqlString = SqlString _ "      ,[foto_path]  " _ $$$CRLF
+	set SqlString = SqlString _ "	    ) " _ $$$CRLF
+	set SqlString = SqlString _ "select top 1 " _ $$$CRLF
+	set SqlString = SqlString _ "	left(@product + space(16),16), " _ $$$CRLF
+	set SqlString = SqlString _ "	left(@ident_nr + space(11),11), " _ $$$CRLF
+	set SqlString = SqlString _ "	left(@korttekst + space(25),25), " _ $$$CRLF
+	set SqlString = SqlString _ "	left(@omschrijving_ned + space(255),255), " _ $$$CRLF
+	set SqlString = SqlString _ "	left(@omschrijving_frans + space(255),255), " _ $$$CRLF
+	set SqlString = SqlString _ "	@lev_nr, --int " _ $$$CRLF
+	set SqlString = SqlString _ "	left(@lev_naam + space(40),40), " _ $$$CRLF
+	set SqlString = SqlString _ "	left(@lev_ref + space(45),45), " _ $$$CRLF
+	set SqlString = SqlString _ "	left(@lev_omschrijving + space(255),255), " _ $$$CRLF
+	set SqlString = SqlString _ "	@telbaar, --float " _ $$$CRLF
+	set SqlString = SqlString _ "	@aankoopprijs, --float " _ $$$CRLF
+	set SqlString = SqlString _ "	@GVP, --int " _ $$$CRLF
+	set SqlString = SqlString _ "	@KVP, --int " _ $$$CRLF
+	set SqlString = SqlString _ "	@stock_nietstock, --char " _ $$$CRLF
+	set SqlString = SqlString _ "	@moeder_kind_beide, --char " _ $$$CRLF
+	set SqlString = SqlString _ "	left(@moeder_product+ space(255),255), " _ $$$CRLF
+	set SqlString = SqlString _ "	@product_group, --int " _ $$$CRLF
+	set SqlString = SqlString _ "	@cycle_count_type, --int " _ $$$CRLF
+	set SqlString = SqlString _ "	@abc, --int " _ $$$CRLF
+	set SqlString = SqlString _ "	@barcode_type, -- int " _ $$$CRLF
+	set SqlString = SqlString _ "	left(@barcode + space(20),20), " _ $$$CRLF
+	set SqlString = SqlString _ "	left(@sorteersleutel + space(20),20), " _ $$$CRLF
+	set SqlString = SqlString _ "	@gewicht, -- int " _ $$$CRLF
+	set SqlString = SqlString _ "	@sample_status, --char " _ $$$CRLF
+	set SqlString = SqlString _ "	left(@datum_fifo + space(26),26),  " _ $$$CRLF
+	set SqlString = SqlString _ "	@default_opslagzone, --int " _ $$$CRLF
+	set SqlString = SqlString _ "	@telwijze, -- char " _ $$$CRLF
+	set SqlString = SqlString _ "	left(@foto_path + space(255),255)  " _ $$$CRLF
+	set SqlString = SqlString _ "	from VH_Produktgegevens " _ $$$CRLF
+	set SqlString = SqlString _ "where 0 = ( select COUNT(*) from VH_Produktgegevens where product = LEFT(@product + space(16),16) ) " _ $$$CRLF
+	set SqlString = SqlString _ "; " _ $$$CRLF
+
+ ; update in alle gevallen met de info die we net gekregen hebben
+	set SqlString = SqlString _ "update VH_Produktgegevens set " _ $$$CRLF
+	set SqlString = SqlString _ "	ident_nr = @ident_nr " _ $$$CRLF
+	set SqlString = SqlString _ "	,korttekst = @korttekst " _ $$$CRLF
+	set SqlString = SqlString _ "	,omschrijving_ned = @omschrijving_ned " _ $$$CRLF
+	set SqlString = SqlString _ "	,omschrijving_frans = @omschrijving_frans " _ $$$CRLF
+	set SqlString = SqlString _ "	,lev_nr = @lev_nr " _ $$$CRLF
+	set SqlString = SqlString _ "	,lev_naam = @lev_naam " _ $$$CRLF
+	set SqlString = SqlString _ "	,lev_ref = @lev_ref " _ $$$CRLF
+	set SqlString = SqlString _ "	,lev_omschrijving = @lev_omschrijving " _ $$$CRLF
+	set SqlString = SqlString _ "	,telbaar = @telbaar " _ $$$CRLF
+	set SqlString = SqlString _ "	,aankoopprijs = @aankoopprijs " _ $$$CRLF
+	set SqlString = SqlString _ "	,GVP = @GVP " _ $$$CRLF
+	set SqlString = SqlString _ "	,KVP = @KVP " _ $$$CRLF
+	set SqlString = SqlString _ "	,stock_nietstock = @stock_nietstock " _ $$$CRLF
+	set SqlString = SqlString _ "	,moeder_kind_beide = @moeder_kind_beide " _ $$$CRLF
+	set SqlString = SqlString _ "	,moeder_product = @moeder_product " _ $$$CRLF
+	set SqlString = SqlString _ "	,product_group = @product_group " _ $$$CRLF
+	set SqlString = SqlString _ "	,cycle_count_type = @cycle_count_type " _ $$$CRLF
+	set SqlString = SqlString _ "	,abc = @abc " _ $$$CRLF
+	set SqlString = SqlString _ "	,barcode_type = @barcode_type " _ $$$CRLF
+	set SqlString = SqlString _ "	,barcode = @barcode " _ $$$CRLF
+	set SqlString = SqlString _ "	,sorteersleutel = @sorteersleutel " _ $$$CRLF
+	set SqlString = SqlString _ "	,gewicht = @gewicht " _ $$$CRLF
+	set SqlString = SqlString _ "	,sample_status = @sample_status " _ $$$CRLF
+	set SqlString = SqlString _ "	,datum_fifo = @datum_fifo " _ $$$CRLF
+	set SqlString = SqlString _ "	,default_opslagzone = @default_opslagzone " _ $$$CRLF
+	set SqlString = SqlString _ "	,telwijze = @telwijze " _ $$$CRLF
+	set SqlString = SqlString _ "	,foto_path = @foto_path  " _ $$$CRLF
+	set SqlString = SqlString _ "	where product = LEFT(@product + space(16),16)  " _ $$$CRLF
+	set SqlString = SqlString _ "	; " _ $$$CRLF	
+
+ ; 3 record inserten met verschillende loc_m (zie join), indien het nog niet bestaat (zie where clause)
+    set SqlString = SqlString _ "	with magazijnen as ( " _ $$$CRLF	
+	set SqlString = SqlString _ "	select '1' magazijn " _ $$$CRLF	
+	set SqlString = SqlString _ "	union " _ $$$CRLF	
+	set SqlString = SqlString _ "	Select '2' magazijn " _ $$$CRLF	
+	set SqlString = SqlString _ "	union  " _ $$$CRLF	
+	set SqlString = SqlString _ "	select '3' magazijn " _ $$$CRLF	
+	set SqlString = SqlString _ "	) " _ $$$CRLF	
+
+	set SqlString = SqlString _ "	insert into product ( " _ $$$CRLF
+	set SqlString = SqlString _ "       [product] " _ $$$CRLF
+	set SqlString = SqlString _ "      ,[loc_m] " _ $$$CRLF
+	set SqlString = SqlString _ "      ,[owner] " _ $$$CRLF
+	set SqlString = SqlString _ "      ,[product_group] " _ $$$CRLF
+	set SqlString = SqlString _ "      ,[description] " _ $$$CRLF
+	set SqlString = SqlString _ "      ,[pcs_description] " _ $$$CRLF
+	set SqlString = SqlString _ "      ,[carrier_type] " _ $$$CRLF
+	set SqlString = SqlString _ "      ,[carrier_dwh] " _ $$$CRLF
+	set SqlString = SqlString _ "      ,[pcs_vol] " _ $$$CRLF
+	set SqlString = SqlString _ "      ,[pcs_weight] " _ $$$CRLF
+	set SqlString = SqlString _ "      ,[pcs_price] " _ $$$CRLF
+	set SqlString = SqlString _ "      ,[box_vol] " _ $$$CRLF
+	set SqlString = SqlString _ "      ,[box_weight] " _ $$$CRLF
+	set SqlString = SqlString _ "      ,[box_price] " _ $$$CRLF
+	set SqlString = SqlString _ "      ,[abc] " _ $$$CRLF
+	set SqlString = SqlString _ "      ,[max_in_carrier] " _ $$$CRLF
+	set SqlString = SqlString _ "      ,[max_in_box] " _ $$$CRLF
+	set SqlString = SqlString _ "      ,[unit_measure] " _ $$$CRLF
+	set SqlString = SqlString _ "      ,[order_thr] " _ $$$CRLF
+	set SqlString = SqlString _ "      ,[order_qty] " _ $$$CRLF
+	set SqlString = SqlString _ "      ,[ordered_qty] " _ $$$CRLF
+	set SqlString = SqlString _ "      ,[supplier] " _ $$$CRLF
+	set SqlString = SqlString _ "      ,[last_out_loc_id] " _ $$$CRLF
+	set SqlString = SqlString _ "      ,[last_out_section] " _ $$$CRLF
+	set SqlString = SqlString _ "      ,[last_out_g] " _ $$$CRLF
+	set SqlString = SqlString _ "      ,[last_out_x] " _ $$$CRLF
+	set SqlString = SqlString _ "      ,[last_out_y] " _ $$$CRLF
+	set SqlString = SqlString _ "      ,[last_out_z] " _ $$$CRLF
+	set SqlString = SqlString _ "      ,[last_batch] " _ $$$CRLF
+	set SqlString = SqlString _ "      ,[last_quality] " _ $$$CRLF
+	set SqlString = SqlString _ "      ,[last_out_time] " _ $$$CRLF
+	set SqlString = SqlString _ "      ,[last_in_g] " _ $$$CRLF
+	set SqlString = SqlString _ "      ,[rein_g] " _ $$$CRLF
+	set SqlString = SqlString _ "      ,[nr_pick_pcs] " _ $$$CRLF
+	set SqlString = SqlString _ "      ,[nr_pick_req] " _ $$$CRLF
+	set SqlString = SqlString _ "      ,[nr_car_req] " _ $$$CRLF
+	set SqlString = SqlString _ "      ,[last_car_to_zero] " _ $$$CRLF
+	set SqlString = SqlString _ "      ,[cycle_count_type] " _ $$$CRLF
+	set SqlString = SqlString _ "      ,[cycle_count_thr] " _ $$$CRLF
+	set SqlString = SqlString _ "      ,[insert_time] " _ $$$CRLF
+	set SqlString = SqlString _ "      ,[exp_time] " _ $$$CRLF
+	set SqlString = SqlString _ "      ,[last_in_time] " _ $$$CRLF
+	set SqlString = SqlString _ "      ,[length] " _ $$$CRLF
+	set SqlString = SqlString _ "      ,[width] " _ $$$CRLF
+	set SqlString = SqlString _ "      ,[height] " _ $$$CRLF
+	set SqlString = SqlString _ "      ,[extra_int_1] " _ $$$CRLF
+	set SqlString = SqlString _ "      ,[extra_int_2] " _ $$$CRLF
+	set SqlString = SqlString _ "      ,[extra_int_3] " _ $$$CRLF
+	set SqlString = SqlString _ "      ,[extra_int_4] " _ $$$CRLF
+	set SqlString = SqlString _ "      ,[extra_int_5] " _ $$$CRLF
+	set SqlString = SqlString _ "      ,[extra_int_6] " _ $$$CRLF
+	set SqlString = SqlString _ "      ,[extra_int_7] " _ $$$CRLF
+	set SqlString = SqlString _ "      ,[extra_int_8] " _ $$$CRLF
+	set SqlString = SqlString _ "      ,[extra_int_9] " _ $$$CRLF
+	set SqlString = SqlString _ "      ,[extra_int_10] " _ $$$CRLF
+	set SqlString = SqlString _ "      ,[extra_char_1] " _ $$$CRLF
+	set SqlString = SqlString _ "      ,[extra_char_2] " _ $$$CRLF
+	set SqlString = SqlString _ "      ,[extra_char_3] " _ $$$CRLF
+	set SqlString = SqlString _ "      ,[extra_char_4] " _ $$$CRLF
+	set SqlString = SqlString _ "      ,[extra_char_5] " _ $$$CRLF
+	set SqlString = SqlString _ "      ,[extra_char_6] " _ $$$CRLF
+	set SqlString = SqlString _ "      ,[extra_char_7] " _ $$$CRLF
+	set SqlString = SqlString _ "      ,[extra_char_8] " _ $$$CRLF
+	set SqlString = SqlString _ "      ,[extra_char_9] " _ $$$CRLF
+	set SqlString = SqlString _ "      ,[extra_char_10] " _ $$$CRLF
+	set SqlString = SqlString _ "      ,[extra_float_1] " _ $$$CRLF
+	set SqlString = SqlString _ "      ,[extra_float_2] " _ $$$CRLF
+	set SqlString = SqlString _ "      ,[extra_float_3] " _ $$$CRLF
+	set SqlString = SqlString _ "      ,[extra_float_4] " _ $$$CRLF
+	set SqlString = SqlString _ "      ,[extra_float_5] " _ $$$CRLF
+	set SqlString = SqlString _ "      ,[ts] ) " _ $$$CRLF
+	set SqlString = SqlString _ "	select top 3  " _ $$$CRLF
+	set SqlString = SqlString _ "		left(@product + space(16),16), " _ $$$CRLF
+	set SqlString = SqlString _ "		mag.magazijn, " _ $$$CRLF
+	set SqlString = SqlString _ "		'0000000000', " _ $$$CRLF
+	set SqlString = SqlString _ "		@product_group, " _ $$$CRLF
+	set SqlString = SqlString _ "		left(@omschrijving_ned + space(255),255), " _ $$$CRLF
+	set SqlString = SqlString _ "		left(@korttekst + space(40),40), " _ $$$CRLF
+	set SqlString = SqlString _ "		4,0,0,0,0,0,0,0, " _ $$$CRLF
+	set SqlString = SqlString _ "		@abc, " _ $$$CRLF
+	set SqlString = SqlString _ "		0,--max in carrier " _ $$$CRLF
+	set SqlString = SqlString _ "		0, --max in box " _ $$$CRLF
+	set SqlString = SqlString _ "		'DEFAULT ', --unit_measure " _ $$$CRLF
+	set SqlString = SqlString _ "		0,0,0,'                ','00000000','00000000',0,0,0,0,'                              ','0000000000','                          ', -- tem last_out_time " _ $$$CRLF
+	set SqlString = SqlString _ "		0, " _ $$$CRLF
+	set SqlString = SqlString _ "		0, -- rein_g " _ $$$CRLF
+	set SqlString = SqlString _ "		0,0,0,'4999-12-31-23.59.59.000000',4,0,'                          ','0000-00-00-00.00.00.000000','                          ',0,0,0, -- tem height " _ $$$CRLF
+	set SqlString = SqlString _ "		@lev_nr, " _ $$$CRLF
+	set SqlString = SqlString _ "		0,0,0,0,0,0,0,0,0, " _ $$$CRLF
+	set SqlString = SqlString _ "		left(@ident_nr + space(20),20), -- extra_char_1 " _ $$$CRLF
+	set SqlString = SqlString _ "		'      0             ', " _ $$$CRLF
+	set SqlString = SqlString _ "		left(@sorteersleutel + SPACE(20),20)," _ $$$CRLF
+	set SqlString = SqlString _ "		'                    ', '                    ','                    ','                    ','                    ','                    ','                    ', " _ $$$CRLF
+	set SqlString = SqlString _ "		0,0,0,0,0,null " _ $$$CRLF
+	set SqlString = SqlString _ "	from product " _ $$$CRLF
+	set SqlString = SqlString _ "	join magazijnen mag on 1 = 1 " _ $$$CRLF
+	set SqlString = SqlString _ "	where 0 = (select count(*) from product where product = LEFT(@product + space(16),16)) " _ $$$CRLF
+	set SqlString = SqlString _ ";"
+ 
+ ;bestaande records updaten alle gevallen met relevante info die we net gekregen hebben
+ 
+	set SqlString = SqlString _ "Update product set " _ $$$CRLF
+	set SqlString = SqlString _ "     [product_group] = @product_group " _ $$$CRLF
+	set SqlString = SqlString _ "     ,[description] = left(@omschrijving_ned + space(255),255) " _ $$$CRLF
+	set SqlString = SqlString _ "     ,[pcs_description] = left(@korttekst + space(40),40) " _ $$$CRLF
+	set SqlString = SqlString _ "     ,[abc] = @abc " _ $$$CRLF
+	set SqlString = SqlString _ "     ,[extra_int_1] = @lev_nr " _ $$$CRLF
+	set SqlString = SqlString _ "     ,[extra_char_1] = left(@ident_nr + space(20),20) " _ $$$CRLF
+	set SqlString = SqlString _ "     ,[extra_char_3] = left(@sorteersleutel + SPACE(20),20) " _ $$$CRLF
+	set SqlString = SqlString _ "where product = LEFT(@product + space(16),16)  " _ $$$CRLF
+ 
+    try
+    {
+    	Do ##class(TECH.Exceptions.StatusException).ThrowIndienNietOK(rs.Prepare(SqlString,,SqlConnection))    
+ 	    Do ##class(TECH.Exceptions.StatusException).ThrowIndienNietOK(rs.Execute())
+
+ 	} catch {
+		do SqlConnection.Disconnect()
+		do ##class(TECH.ExceptionHandler).Rethrow()
+	}
+	do SqlConnection.Disconnect()
+   
+	/*	aanpassen historiek optioneel te implementeren, nachtelijke stock controle doet dit.
+	    nog niet zeker wat de hoeveelheid hier moet zijn, totale stock, of de delta van de wijziging
+	
+ 	Set CUserId="EWMS"
+	Set %Q1="^KBA(""%1"",$I)"
+	Set CifPPL=$$CifPPL^KPRIJS(PRNr)
+	If ##class(OBJTimpl.WMSOrder.VerdeelSOPRVoorraad).BepaalMagazijn(Entiteit, PRNr)="F" ; Fysiek Magazijn
+	{
+		Set R=$$EXTDATE^vhLib.DataTypes(,"DSN")_3_D_VoorraadWijziging_D_(CifPPL*VoorraadWijziging)_D_1_D_D_D_D_Referentie_D_D_D ; Record voor KPR20
+		Set PR=PRNr
+	 	Do ^KPR20
+	 	Do PUT^PRHIST(PRNr,VoorraadWijziging,Actie,"M",,,,,,Referentie,,CUserId)
+	}
+	*/
+]]></Implementation>
+</Method>
 </Class>