"_$C(9)_"Voeg buffer toe via productnummer." . Do MApplication.MessageBox(ShortCutMsg,..Form.Caption_": Shortcuts",$$$MBICONINFORMATION) . Set Key=0 ;End of user code s Args=$lb(Sender,Key,Shift) q ]]> cache 0 document literal ProductNr:%String cache 0 %Library.Boolean document literal ChoosenBuffers:%List cache 0 %Library.List document literal 1 Do ;Status>1 is GEEN FATALE fout, maar vereist wel een bericht . Do MApplication.MessageBox($LI(lbStatus,2),..Form.Caption,$$$MBICONINFORMATION) Else If $LI(lbStatus)<0 Do Quit "" . Do MApplication.MessageBox($LI(lbStatus,2),..Form.Caption,$$$MBICONERROR) ; --- User Interface --- Do ..dCOMPWRITElvBuffers() Quit ChoosenBuffers ]]> initvalue:%String cache 0 MApplication document literal Sender:%Library.String cache 0 %Library.Boolean document literal initvalue:%String cache 0 %Library.Status document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal 0 Do . ;Do MApplication.MessageBox($LI(Status,2),..Form.Caption,$$$MBICONINFORMATION) Else If $LI(Status)<0 Do . Do MApplication.MessageBox($LI(Status,2),..Form.Caption,$$$MBICONERROR) Do:($LI(Status)=1) ..dCOMPWRITElvBuffers() ;Set Sender.Enabled="True" ;End of user code s Args=$lb(Sender) q ]]> Args:%String cache 0 document literal Laag omwille van mogelijke delete van een item uit de list . Set lbBuffer=$LI(lbBuffers,Loop) . Set RGID=$LI(lbBuffer,1) . Set VolgNr=$LI(lbBuffer,2) . Set LijnNr="" . For Set LijnNr=$$$cmReceptie.GetNextBufferLijnNr(RGID,VolgNr,LijnNr) Quit:(LijnNr="") Do .. Set ValidateOK=$$$cmReceptie.ValidateBufferComposites(RGID,VolgNr,LijnNr,.tmpResultStr) .. If tmpResultStr'="" $$$WriteToLog(tmpResultStr) .. Set ResultStr=ResultStr_$C(13,10,13,10)_tmpResultStr If ResultStr'="" Do . Set tmpResultStr="Het controleren van de CompositeIDs leverde volgende resultaten op:"_ResultStr . Do MApplication.MessageBox(tmpResultStr,..Form.Caption,$$$MBICONEXCLAMATION) Quit ]]> Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal ") New MailStatus Set MailStatus=$$SendMiniMail^vhLib(MailFrom,MailTo,..Form.Caption,..mmoLog.Text) If $$$ISERR(MailStatus) Do . Do MApplication.MessageBox($$ParseStatus^vhLib(MailStatus),..Form.Caption,$$$MBICONERROR) Else Do . Do MApplication.MessageBox("Informatie succesvol verstuurd naar "_$$ListToPieces^vhLib(MailTo,",")_".",..Form.Caption,$$$MBICONINFORMATION) . Set Sender.Enabled="False" ;End of user code s Args=$lb(Sender) q ]]> Args:%String cache 0 document literal geen koppeling meer,dus quit . Set OngekoppeldSelItem=..lvOngekoppeld.Items.GetItems(SelLoop) . Quit:(OngekoppeldSelItem.Selected="False") . ;Set OngekoppeldSelItem.Selected="False" . Set TLNr=OngekoppeldSelItem.SubItems.GetStrings($$$lvonTLNr) . Set TLUNr=OngekoppeldSelItem.SubItems.GetStrings($$$lvonTLUNr) . Set Status=$$KoppelManueel(ProductNr,BufferKey,TLNr,TLUNr) . Set:($LI(Status)=1) UpdateRequired=1 If UpdateRequired Do . Do ..dCOMPWRITElvBuffers() Set Sender.Enabled="True" ;End of user code s Args=$lb(Sender) q ;------------------------------------------------------------------------------ KoppelManueel(ProductNr,BufferKey,TLNr,TLUNr) ;Vragen naar aantal dat van toelevering moet genomen worden New PTQtyAvailable,PTLine,PBQtyAvailable,MaxToTake Set PTLine=aPT(ProductNr,TLNr,TLUNr) Set PTQtyAvailable=$P(PTLine,..BufferSEP,$$$toeQtyRequest)-$P(PTLine,..BufferSEP,$$$toeQtyReserved) Set PBLine=aPB(ProductNr,BufferKey,0) Set PBQtyAvailable=$P(PBLine,..BufferSEP,$$$kbtQtyRequest)-$P(PBLine,..BufferSEP,$$$kbtQtyReserved) ;Minimum nemen van PTQtyAvailable & PBQtyAvailable New QtyToTakeFromToelev If PTQtyAvailableMaxToTake Do ... Do MApplication.MessageBox("Het maximum aantal dat gekoppeld kan worden is "_MaxToTake_".",..Form.Caption,$$$MBICONINFORMATION) ... Set QtyToTakeFromToelev=MaxToTake .. Else If QtyToTakeFromToelev<0 Do ... Do MApplication.MessageBox("U kan enkel een positief aantal koppelen.",..Form.Caption,$$$MBICONINFORMATION) ... Set QtyToTakeFromToelev=$ZABS(QtyToTakeFromToelev) .. Else Do ... Set QuitFor=1 Quit:(EarlyQuit) $LB(2,"Manueel koppelen ge-annuleerd.") ;------------------ ;Uitvoeren van de manuele koppeling Set MApplication.ScreenCursor=$$$crHourGlass Do ..lblMsg.PushStatus() Do ..lblMsg.ShowMsg("Bezig met manueel koppelen van buffer '"_BufferKey_"' en toeleveringslijn '"_TLNr_"."_TLUNr_"'...") New Status Set Status=$$$cmReceptieProductie.KoppelMANUEEL(ProductNr,BufferKey,TLNr,TLUNr,QtyToTakeFromToelev) Do ..lblMsg.PopStatus() Set MApplication.ScreenCursor=$$$crDefault ;------------------ ;Eventuele fout-afhandeling OF indien Ok, kijken of er een backorder is en de gebruiker If $LI(Status)<0 Do . Do MApplication.MessageBox($LI(Status,2),..Form.Caption,$$$MBICONERROR) Else Do . ;Do ..HANDLEBackOrder(ProductNr) Quit Status ]]> Args:%String cache 0 document literal Args:%String cache 0 document literal lbMarkedProducts:%Library.List cache 0 document literal cache 0 document literal 0 -> selecteer eerste If +..lvBuffers.Selected=0 Do . If ..lvBuffers.Items.Count>0 Do .. Set ..lvBuffers.ItemFocused=..lvBuffers.Items.GetItems(0) .. Set ..lvBuffers.Selected=..lvBuffers.ItemFocused ;------------------ Do ..lvBuffers.Items.EndUpdate() Set MApplication.ScreenCursor=$$$crDefault Set ..lblMsg.Caption=..lvBuffers.Items.Count_" buffer-item(s)." Quit ]]> cache 0 document literal 0 -> selecteer eerste If +..lvBuffers.Selected=0 Do . If ..lvBuffers.Items.Count>0 Do .. Set ..lvBuffers.ItemFocused=..lvBuffers.Items.GetItems(0) .. Set ..lvBuffers.Selected=..lvBuffers.ItemFocused ;------------------ Do ..lvBuffers.Items.EndUpdate() Set MApplication.ScreenCursor=$$$crDefault Set ..lblMsg.Caption=..lvBuffers.Items.Count_" buffer-item(s)." Quit ]]> ClearOnly:%Boolean=0 cache 0 document literal QtyRequest:"(+"_(QtyReserved-QtyRequest)_") ",1:"")_QtyReserved) .... Set tmpItem.ImageIndex=-1 ;Checken of product gekoppeld is aan één toelevering New TLCnt Set TLCnt=$S(lbTLNrs="":0,1:$LL(lbTLNrs)) If TLCnt=0 Do . Do dcwlgSetInterfaceToKoppelNone() Else If TLCnt=1 Do . New SingleTLNr . Set SingleTLNr=$LI(lbTLNrs) . New Status . Set Status=$$dcwlgAddRest(SingleTLNr,ProductNr) ;Huidig product niet meer tonen, het staat er reeds in... . If $LI(Status)<0 Do Quit .. Do dcwlgSetInterfaceToKoppel() .. Do MApplication.MessageBox($LI(Status,2),..Form.Caption,$$$MBICONERROR) . Else Do .. Do dcwlgSetInterfaceToKoppelAanToelev(SingleTLNr) Else Do . Do dcwlgSetInterfaceToKoppel() Quit ;============================================================================== dcwlgSetInterfaceToKoppelAanToelev(TLNr) Set ..lvGekoppeld.Columns.GetItems($$$lvgecolProduct).Width=250 Set ..lvGekoppeld.Columns.GetItems($$$lvgecolToelevering).Width=0 Set ..lblHdrGekoppeld.Caption="GEKOPPELD AAN TOELEVERING "_TLNr Set ..shHdrGekoppeld.Brush.Color=$$$clBtnFace Quit ;------------------------------------------------------------------------------ dcwlgSetInterfaceToKoppel() Set ..lvGekoppeld.Columns.GetItems($$$lvgecolProduct).Width=0 Set ..lvGekoppeld.Columns.GetItems($$$lvgecolToelevering).Width=70 Set ..lblHdrGekoppeld.Caption="GEKOPPELD" Set ..shHdrGekoppeld.Brush.Color=$ZHEX("8080FF") Quit ;------------------------------------------------------------------------------ dcwlgSetInterfaceToKoppelNone() Set ..lvGekoppeld.Columns.GetItems($$$lvgecolProduct).Width=0 Set ..lvGekoppeld.Columns.GetItems($$$lvgecolToelevering).Width=70 Set ..lblHdrGekoppeld.Caption="GEKOPPELD" Set ..shHdrGekoppeld.Brush.Color=$$$clBtnFace Quit ;============================================================================== dcwlgAddRest(TLNr,exclProductNr) New Status Set Status=$$$cmReceptieProductie.aBuildSortedProdArrayViaToelev(TLNr,exclProductNr) Quit:($LI(Status)<0) Status Set tmpItem=..lvGekoppeld.Items.Add() Set tmpItem.Caption="" Set tmpItem.ImageIndex=-1 New QtyIsDone,ProductNr,tmpItem,PTPLine,RealQtyRequested,QtyReserved Set (QtyIsDone,ProductNr)="" For Set QtyIsDone=$O(aiPTP(QtyIsDone)) Quit:(QtyIsDone="") Do . For Set ProductNr=$O(aiPTP(QtyIsDone,ProductNr)) Quit:(ProductNr="") Do .. Set PTPLine=aiPTP(QtyIsDone,ProductNr) .. Set RealQtyRequested=$LI(PTPLine,2) ;zoals aanwezig in de toelevering (nt zoals id buffer) .. Set QtyReserved=$LI(PTPLine,1) .. Set tmpItem=..lvGekoppeld.Items.Add() .. Set tmpItem.Caption=##class(Prod.Product).GetPropViaNr(ProductNr,"KortTekst") .. Do tmpItem.SubItems.Add("") .. Do tmpItem.SubItems.Add("") .. Do tmpItem.SubItems.Add(RealQtyRequested) .. Do tmpItem.SubItems.Add(QtyReserved) .. Set tmpItem.ImageIndex=$S(QtyIsDone:-1,1:0) Quit Status ]]> ClearOnly:%Boolean=0 cache 0 document literal 0 Do . Set ..lvOngekoppeld.ItemFocused=..lvOngekoppeld.Items.GetItems(0) . Set ..lvOngekoppeld.Selected=..lvOngekoppeld.ItemFocused Quit ]]> Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal we trekken een vertikale lijn If Item.Data=1 Do . Set Canvas.Pen.Color=$$$clSilver . Set Canvas.Pen.Style="psDot" . Set Canvas.Font.Style="" . Do Canvas.MoveTo(0,13) . Do Canvas.LineTo($LI(Rect,3),13) ;Copy buffer naar canvas Do Sender.Canvas.Draw($LI(Rect,1),$LI(Rect,2),..bmpBuffer) ;End of user code s Args=$lb(Sender,Item,"","False") q ]]> Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Job:%String="" Args:%String cache 0 document literal %Library.CacheSerialState "%Library.TMFormClass" Address Form BufferSEP Button1 Button2 ChoosenBuffers Shape2 Shape3 Shape4 UserID bmpBuffer btnALaCarte btnAfsluiten btnAutomatischKoppelen btnBufferEdit btnChooseBuffers btnDoorsturen btnLogOk btnMailLogTo btnManueelKoppelen btnUndo chkBackorder frmEditBufferLine frmNewBufferLine ilBufferEdit lblHdrBuffer lblHdrGekoppeld lblHdrOngekoppeld lblMsg lvBuffers lvGekoppeld lvOngekoppeld mmoLog pmBufferEdit pmiDeleteBufferline pmiNewBufferline pmiOpenBufferline pmiSep1 pnlBuffer pnlFooter pnlGekoppeld pnlHeader pnlOngekoppeld shHdrBuffer pmiBufferViaToelevering pmiSep2 UserId pmiSep3 pmiVerwijderTempBfrs pmiWisBufferLijst ilGekoppeld shHdrGekoppeld pmiSep4 pmiSynchronize pOwnerDraw