persistent 0 1 Carriers GSQLStorage %Library.Persistent 1 PalletID:%String %Library.String EWMS SQL,NOCREATE dbo.Carriers_Cache 00000000 1 1 1 LocID,Sectie %Integer 6 CarrierDwh %Integer 5 CarrierType %Float 8 CarrierVolume %Float 7 CarrierWeight %Integer 12 ColliNr %Integer 10 IsFull %String 2 LocID %Integer 11 LocM %String 3 Sectie %Float 9 TarraWeight %Integer 4 UnitLoadType 1 LocID:%Library.String,Sectie:%Library.String,ReturnEmptyWhenNew:%Library.Boolean=0 %Library.String 1 LocID:%Library.String,Locatie:%Library.String,Sectie:%Library.String,SQLGCWrapper:%Library.String %Library.List 1 %Library.Boolean 1 LocID:%Library.String,Sectie:%Library.String,QuitWhenPalletIsInInventory:%Library.Boolean=1 %Library.List 0) Do RS.%Close() If PalletExists && QuitWhenPalletIsInInventory { Set Status=$LB(2,"Pallet bestaat nog in Inventory, carrier blijft.") } Else { New CarriersID Set CarriersID=##class(EWMS.Carriers).ComposeID(LocID,Sectie) If ##class(EWMS.Carriers).%ExistsId(CarriersID) { New tmpStatus,ParsedStatus Set tmpStatus=##class(EWMS.Carriers).%DeleteId(CarriersID) Set ParsedStatus=$$ParseStatus^vhLib(tmpStatus) If $$$ISERR(tmpStatus) && (ParsedStatus'["SQLError: 100") { ;SQLError=100 is geen echte fout Set Status=$LB(-1,"Delete Error:"_$C(13,10)_ParsedStatus) } Else { Set Status=$LB(1,"Carrier succesvol verwijderd.") } }Else{ Set Status=$LB(1,"Carrier bestond niet meer.") } } Quit Status ]]> SQLGCWrapper:%Library.String %Library.Boolean 1 PalletID:%Library.String,LocM:%Library.String %Library.String %Library.SQLQuery paLocID:%Library.String SELECT LocID, Sectie FROM EWMS.Carriers WHERE (LocID = :paLocID) %CacheSQLStorage ^EWMS.CarriersS