serial KeyCodesCNTs,%AppsArrayCnts,UglyPickingCNTs Default %Library.TMFormClass 0 %Library.TMForm %Library.TMIcon %Library.String %Library.Boolean 0 %Library.String %Library.String -1 %Library.String "(onbekend)" %Library.String -1 %TMButton %TMButton %TMComboBox %Library.Integer $$$imNone %TMLabel %TMLabel %TMLabel %TMLabel %TMPaintBox %TMPanel %TMShape %TMShape initvalue:%String cache 0 %Status document literal RGID:%String,VolgNr:%Integer,TLNr:%String,UserID:%String,Locatie:%String,PalletID:%String,varCheckError:%Boolean cache 0 %Library.Integer document literal cache 0 document literal Args:%String cache 0 document literal cache 0 document literal TLNr:%String cache 0 %Library.Boolean document literal 2 Do ;Besteld aantal volledig ingescand->toon bericht . Do pdaMsgBox^vhVisual(..Form.Caption,$LI(tmpStatus,2),$$$MBICONINFORMATION) ;Nu de buffer is aangevuld, de status ervan opvragen (welke lijnen nog niet gepicked zijn ed) New tmpStatus,AllIsDone,LinesDone,LinesTotal,PcsDone,PcsTotal Set tmpStatus=$$$cmReceptie.GetBufferStatus(..RGID,..VolgNr,TLNr,.AllIsDone,.LinesDone,.LinesTotal,.PcsDone,.PcsTotal) If $LI(tmpStatus)<0 Do Quit 0 . Set MApplication.ScreenCursor=$$$crDefault . Do pdaMsgBox^vhVisual(..Form.Caption,$LI(tmpStatus,2),$$$MBICONERROR) ;Interface aanpassen naargelang controle status If AllIsDone Do . Do ..SwitchToInterfaceMode($$$imCheckOk) . Set ..lblInfoSub1.Caption=LinesTotal_" lijn(en)" . Set ..lblInfoSub2.Caption=PcsTotal_" stuk(s)" Else Do . Do ..SwitchToInterfaceMode($$$imCheckError) . Set ..lblInfoSub1.Caption=LinesDone_" van de "_LinesTotal_" lijn(en)" . Set ..lblInfoSub2.Caption=PcsDone_" van de "_PcsTotal_" stuk(s)" Quit 1 ]]> cache 0 %Library.Boolean document literal 2 Do ;Besteld aantal volledig ingescand->toon bericht . Do pdaMsgBox^vhVisual(..Form.Caption,$LI(tmpStatus,2),$$$MBICONINFORMATION) Quit 1 ]]> cache 0 %Library.String document literal initvalue:%String cache 0 MApplication document literal initvalue:%String cache 0 %Library.Status document literal RGID:%String,VolgNr:%Integer,lbTLNrs:%String,UserID:%String,Locatie:%String,PalletID:%String cache 0 %Library.Integer document literal 0 Do . Do ..cbbTLNr.Clear() . New Loop . For Loop=1:1:$LL(lbTLNrs) Do .. Do ..cbbTLNr.Items.Add($LI(lbTLNrs,Loop)) ;Indien slechts een TLNr, deze selecteren Set:(..cbbTLNr.Items.Count=1) ..cbbTLNr.ItemIndex=0 ;Form params invullen Set ..RGID=RGID Set ..VolgNr=VolgNr Set ..UserID=UserID Set ..Locatie=Locatie Set ..PalletID=PalletID New ModalResult Set ModalResult=..Form.ShowModal() Quit ModalResult ]]> SwitchToMode:%Integer cache 0 %Library.Boolean 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 %Library.CacheSerialState list "%Library.TMFormClass" Address Form btnCancel btnCycleCount btnNieuweDoeldrager btnOverzichtPickDetails btnProductEtiket btnVerplaatsenPallet btnWijzigAantal Label1 Label2 Shape1 imMsgIcon pbIcon Button1 Shape2 Shape3 SpeedButton1 SpeedButton2 OkCancelMode btnOk lblMsg shClient lblHeader IconCopy shHeader shIcon mmoStack Edit1 txtValue ValueMode Label3 Label4 txtTLNr Button2 btnClose Panel1 btnControl btnMarkAll lblInfoMain lblInfoSub1 lblInfoSub2 lblTLNr pnlTLNr shInfo dCurrentInterfaceMode btnCheck RGID VolgNr cbbTLNr Locatie PalletID UserID