CardboardLoaded
	Set ws=##class(PVTestWS.UserServerSoap).%New()
	Set cbs=##class(PVTestWS.ArrayOfCARDBOARDCARDBOARD).%New()
	Set cb=##class(PVTestWS.CARDBOARD).%New()
	Set cb.CARDBOARDID="ORGALUX B+E"
	Set cb.CARDBOARDCODE=3
	Set cb.THICKNESS=1.4
	Set cb.LOGOPRINT="ORGALUX"
	Set cb.REFERENCE="ORGALUX 230 B+E"
	Set cb.POSITION=2
	Set cb.CUTMACHINE="VH"
	Do cbs.CARDBOARD.Insert(cb)
	
	Set cb.CARDBOARDID="TBX B+C"
	Set cb.CARDBOARDCODE=1
	Set cb.THICKNESS=1.8
	Set cb.LOGOPRINT="TBX"
	Set cb.REFERENCE="TBX 450 B+C"
	Set cb.POSITION=4
	Set cb.CUTMACHINE="HALUX"
	Do cbs.CARDBOARD.Insert(cb)
	
	Set Status=ws.CardboardsLoaded(cbs)
	If $isObject(Status) Do DumpObject^%apiOBJ(Status)
	Else  Write "OK"
 
	Quit