persistent 1 Carriers GSQLStorage %Library.Persistent 0 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 Do . Set Status=$LB(2,"Pallet bestaat nog in Inventory, carrier blijft.") Else Do . New CarriersID . Set CarriersID=##class(EWMS.Carriers).ComposeID(LocID,Sectie) . New tmpStatus,ParsedStatus . Set tmpStatus=##class(EWMS.Carriers).%DeleteId(CarriersID) . Set ParsedStatus=$$ParseStatus^vhLib(tmpStatus) . If $$$ISERR(tmpStatus) && (ParsedStatus'["SQLError: 100") Do ;SQLError=100 is geen echte fout .. Set Status=$LB(-1,"Delete Error:"_$C(13,10)_ParsedStatus) . Else Do .. Set Status=$LB(1,"Carrier succesvol verwijderd.") 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