persistent 1 ToReceiveRebuilt GSQLStorage %Persistent 0 EWMS SQL,NOCREATE dbo.ToReceiveRebuilt_Cache 1 1 OrderNr,Supplier,Product,Batch,Quality,Owner,LocID,Sectie %Integer 24 Abc %String 5 Batch %Float 32 BoxPrice %Float 30 BoxVol %Float 31 BoxWeight %Integer 20 CarrierDwh %Float 22 CarrierTarra %Integer 19 CarrierType %Float 23 CarrierWeight %String 33 ExpDay %String 36 InsertTime %Integer 11 LocG %String 8 LocID %Integer 10 LocM %Integer 26 NrCarriers %Integer 34 OrderCancelled %Integer 35 OrderConfirmed %String 2 OrderNr %String 7 Owner %Float 29 PcsPrice %Float 27 PcsVol %Float 28 PcsWeight %String 4 Product %Integer 25 ProductGroup %Float 17 QtyBlock %Float 16 QtyInBox %Float 13 QtyReceived %Float 12 QtyToReceive %Float 15 QtyTransportReq %Float 14 QtyTransported %String 6 Quality %String 18 ReasonBlock %String 9 Sectie %Integer 37 Sender %String 3 Supplier %Integer 21 UnitLoadType %String 38 ExtraInt1 %String 39 ExtraInt2 %String 40 ExtraInt3 %String 41 ExtraInt4 %String 42 ExtraInt5 %String 43 ExtraInt6 %String 44 ExtraInt7 %String 45 ExtraInt8 %String 46 ExtraInt9 %String 47 ExtraInt10 %String 48 ExtraChar1 %String 49 ExtraChar2 %String 50 ExtraChar3 %String 51 ExtraChar4 %String 52 ExtraChar5 %String 53 ExtraChar6 %String 54 ExtraChar7 %String 55 ExtraChar8 %String 56 ExtraChar9 %String 57 ExtraChar10 %String 58 ExtraFloat1 %String 59 ExtraFloat2 %String 60 ExtraFloat3 %String 61 ExtraFloat4 %String 62 ExtraFloat5 Do ##class(EWMS.ToReceiveRebuilt).Build() 1 100 / SUBNr=200,201,202,...->200 / ... .... Set PalletID=$P(SubRec,D,5) .... Set ControlPalletID=$P(SubRec,D,9) .... If PalletID'="" Do ..... Set QtyGestockeerd=QtyGestockeerd+$P(SubRec,D,4) .... Quit:(SUBNr'=MainSUBNr) ;Enkel bij mainsubnr (100,200,...) maken we een lijn aan met de overschot .... Set remQtyGestockeerd=QtyGestockeerd .... Set QtyGestockeerd=0 ;resetten voor hergebruik .... .... Set QtyRequired=$P(SubRec,D,3) ;Sublijn met Mainsubnr bevat totale qty_requested .... Set QtyRest=QtyRequired-remQtyGestockeerd .... Quit:(QtyRest'>0) .... ;Rest .... Set ProdNr=$P(SubRec,D,1) .... Set ProdObj=##class(Prod.Product).%OpenId(ProdNr) .... Quit:('$IsObject(ProdObj)) .... Set RecvObj=##class(EWMS.ToReceiveRebuilt).%New() .... Set RecvObj.OrderNr=" "_$$AddTrailingChar^vhLib(ReceptieNr," ",15) .... Set Supplier=$P(HoofdRec,D,2) .... Set RecvObj.Supplier=$$AddTrailingChar^vhLib(Supplier," ",16) .... If $P(HoofdRec,D,1)="L" Do ..... Set RecvObj.ExtraChar2=$E(##class(Derde.Lev.Lev).GetFullName(Supplier),1,20) .... Else Do ..... Set RecvObj.ExtraChar2=$E(##class(Derde.Klant.Klant).GetFullName(Supplier),1,20) .... Set InsertTime=$P(HoofdRec,D,4) .... //Quit:(InsertTime'<60690) ;03/01/2007 .... w:((remQtyGestockeerd>0) && (remQtyGestockeerd 1 LocID,OrderNr,Batch,ProductNr %String %SQLQuery paLocID:%String,paOrderNr:%String,paBatch:%String,paProductNr:%String SELECT %ID FROM ToReceive WHERE (LocID=:paLocID) AND (OrderNr=:paOrderNr) AND (Batch=:paBatch) AND (Product=:paProductNr) %CacheSQLStorage ^EWMS.ToReceiveRebuiltS