TECH.RegisteredObject 1 %ListOfObjects 1 1 1 %ListOfObjects Set E1EDP01.ACTION = 001 ; Set E1EDP01.MENGE = "500." ;##Quantity## Set E1EDP01.MENEE = "PCE" ;##Unit of Measure## Set E1EDP01.PMENE = "PCE" ;##Unit for Price## Set E1EDP01.VPREI = 6.96 ;##Price net## Set E1EDP01.PEINH = 100 ;##Price Unit## Set E1EDP01.NETWR = 34.8 ;##Position value## Set E1EDP01.PREIS = 11.6 ;##gross price## Set E1EDP01.E1EDP20.SEGMENT = "1" Set E1EDP01.E1EDP20.EDATU = "20121214" Set E1EDP01.E1EDP20.AMENG = "0.000" Set E1EDP01.E1EDP20.WMENG = "500." Set E1EDP01.E1EDPT1.SEGMENT = "1" Set E1EDP01.E1EDPT1.TDID = "004" Set E1EDP01.E1EDPT1.E1EDPT2.TDLINE = "Positionstext ##Position Text##" Set E1EDP01.E1EDP19 = ..GeefE1EDP19() do List.Insert(E1EDP01) Set E1EDP01 = ##class(APPS.EDIExport.AankoopOrder.BLUM.XML.E1EDP01).%New() Set E1EDP01.SEGMENT = "1" Set E1EDP01.POSEX = "002000" ; ##Customer Line Number## Set E1EDP01.ACTION = 001 ; Set E1EDP01.MENGE = "500." ;##Quantity## Set E1EDP01.MENEE = "PCE" ;##Unit of Measure## Set E1EDP01.PMENE = "PCE" ;##Unit for Price## Set E1EDP01.VPREI = 6.96 ;##Price net## Set E1EDP01.PEINH = 100 ;##Price Unit## Set E1EDP01.NETWR = 34.8 ;##Position value## Set E1EDP01.PREIS = 11.6 ;##gross price## Set E1EDP01.E1EDP20.SEGMENT = "1" Set E1EDP01.E1EDP20.EDATU = "20121214" Set E1EDP01.E1EDP20.AMENG = "0.000" Set E1EDP01.E1EDP20.WMENG = "500." Set E1EDP01.E1EDPT1.SEGMENT = "1" Set E1EDP01.E1EDPT1.TDID = "004" Set E1EDP01.E1EDPT1.E1EDPT2.TDLINE = "Positionstext ##Position Text##" Set E1EDP01.E1EDP19 = ..GeefE1EDP19() do List.Insert(E1EDP01) Quit List ]]> 1 1 1 %ListOfObjects 1 1 1 %ListOfObjects