#Include vhLib.Macro //------------------------------------------------------------------- // Class Methods //------------------------------------------------------------------- #Define cmRoot BL.MB.UGLYPicking #Define cmGeneral ##class($$$cmRoot.General) #Define cmOpslag ##class($$$cmRoot.Opslag) #Define cmReceptie ##class($$$cmRoot.Receptie) #Define cmReceptieProductie ##class($$$cmRoot.ReceptieProductie) #Define cmReservatie ##class($$$cmRoot.OrderReservatie) #Define cmOrderSel ##class($$$cmRoot.OrderSel) #Define cmPalletPick ##class($$$cmRoot.PalletPick) #Define cmOrderFeedback ##class($$$cmRoot.OrderFeedback) #Define cmProdHistChargeTrace ##class(BL.ProdHist.ChargeTrace) #Define WriteToLog(%m) Do $$$cmGeneral.ToLog(%m,$$$clNone) #Define WriteToEndOfLog(%m) Do $$$cmGeneral.ToLog(%m,$$$clNone,1) #Define WriteToLogEx(%m,%p) Do $$$cmGeneral.ToLog(%m,%p) #Define UIWriteToLog(%m) Do $$$cmGeneral.ToLog(%m,$$$clNavy) #Define UIMakovaBtnClickToLog $$$UIWriteToLog("[BUTTON] "_..%ClassName()_"."_Sender.Caption) #Define UIMakovaLblClickToLog(%p) $$$UIWriteToLog("[LABEL] "_..%ClassName()_"."_%p) #Define UIMakovaKeyToLog(%k,%p) $$$UIWriteToLog("[KEY "_%k_"] "_%p) #Define GlobalUPLogging ^UGLYPickingLog //------------------------------------------------------------------- // Order Selectie //------------------------------------------------------------------- ;Listview, bepaling rangschikking Items & SubItems ;Item (-1) #Define lvoKlant -1 ;SubItems(0..X) #Define lvoAantalLijnen 0 #Define lvoTijd 1 #Define lvoShortMagazijn 2 #Define lvoConsNr 3 #Define lvoMagazijn 4 #Define lvoDueOut 5 #Define lvoVerzendWijze 6 ;Types Magazijn controls #Define mcButton 1 #Define mcAantal 2 #Define mcInfo 3 ;Dingen te onthouden van magazijnorders #Define moOldestDueOut 1 #Define moOldestBOPicking 2 #Define moUrgentie 3 #Define moAfhaling 4 #Define moConsNr 5 #Define moAantal 6 #Define moMultipleMagazijn 7 //------------------------------------------------------------------- // Order Reservatie //------------------------------------------------------------------- ;Listview, bepaling rangschikking Items & SubItems ;Item (-1) #Define lvpLocStr -1 ;SubItems(0..X) #Define lvpPalletIDEx 0 #Define lvpProduct 1 #Define lvpAantalTePicken 2 #Define lvpLocatie 3 #Define lvpPalletID 4 #Define lvpLocM 5 #Define lvpPalletResID 6 #Define lvpInventoryID 7 #Define lvpNeedAll 8 #Define lvpIsFull 9 #Define lvpTransLoc 10 //------------------------------------------------------------------- // No alloc //------------------------------------------------------------------- ;Listview, bepaling rangschikking Items & SubItems ;Item (-1) #Define lvaKortTekst -1 ;SubItems(0..X) #Define lvaAantalTePicken 0 #Define lvaNieuwAantal 1 #Define lvaFailedReservation 2 #Define lvaPalletResID 3 #Define lvaProduct 4 //------------------------------------------------------------------- // CC Locations Summary //------------------------------------------------------------------- ;Listview, bepaling rangschikking Items & SubItems ;Item (-1) #Define lvlPalletID -1 ;SubItems(0..X) #Define lvlProduct 0 #Define lvlLastCycleCount 1 //------------------------------------------------------------------- // Pallet Pick //------------------------------------------------------------------- ;Listview, bepaling rangschikking Items & SubItems ;Item (-1) #Define lvfProdKortTekst -1 ;SubItems(0..X) #Define lvfQty 0 #Define lvfPalletResID 1 //------------------------------------------------------------------- // Cycle Count: Product Selection //------------------------------------------------------------------- ;Listview, bepaling rangschikking Items & SubItems ;Item (-1) #Define lvcProdKortTekst -1 ;SubItems(0..X) #Define lvcQty 0 #Define lvcInventoryID 1 //------------------------------------------------------------------- // Picking: Charge //------------------------------------------------------------------- #Define lvcChargeID -1 #Define lvcChargeQty 0 //------------------------------------------------------------------- // Opslag Receptie Detail //------------------------------------------------------------------- ;Item(-1) #Define lvdReceptie -1 ;SubItems(0..X) #Define lvdToelevering 0 #Define lvdAantalCaption 1 //------------------------------------------------------------------- // Opslag: Pallet Selectie //------------------------------------------------------------------- ;Listview1: Products on Pallet ;Item (-1) #Define lvo1ProdKortTekst -1 ;SubItems(0..X) #Define lvo1QtyPcs 0 #Define lvo1PalletID 1 #Define lvo1Product 2 ;Listview2: Pallets with Product ;Item (-1) #Define lvo2LocStr -1 ;SubItems(0..X) #Define lvo2LocID 0 #Define lvo2QtyPcs 1 #Define lvo2SectieCnt 2 #Define lvo2ReadyForSendToAuto 3 ;Verschillende interface-modes #Define imNone -1 ;Opstartfase, nog niks ingescand ed #Define imStartUp 0 ;Reeds gevalideerde source (location+palletid) ingegeven #Define imValidSource 1 ;Product geselecteerd er wordt dus maw voor bijladen gekozen #Define imBijladen 2 ;Na SourceValidatie wordt opnieuw gescand, verplaatsen of wijzigen PalID zijn de mogelijkheden #Define imVerplaatsen 3 ;Indien SRC Location = DEST Location maar verschillend PalletID -> Wijzig Pallet ID #Define imWijzigPalletID 4 ;Indien SRC Location <> DEST Location met gelijk PalletID -> Veranderen van pallet zijn locatie #Define imVerplaatsPallet 5 ;Indien pallet in auto magazijn en niet 'busy' dan is er de kans tot 'zend AUTO' #Define imZendAuto 6 //------------------------------------------------------------------- // Receptie //------------------------------------------------------------------- ;Item (-1) #Define lvrDossier -1 ;SubItems(0..X) #Define lvrMyQtyDone 0 #Define lvrTotalQty 1 #Define lvrLocatie 2 #Define lvrProduct 3 #Define lvrLijnNr 4 ;Buffer node constants (^UPRCP("B",BufferNaam,VolgNr)) #Define bnTime 1 #Define bnIsClosed 2 #Define bnUserID 3 ;Buffer node constants INTERFACE (^UPRCP("I",BufferNaam,VolgNr)) #Define bniDefaultLocatie 1 #Define bniDefaultPallet 2 #Define bniLocatieVast 3 #Define bniPalletVast 4 #Define bniAutoAantal 5 ;Buffer sub node constants (^UPRCP("B",BufferNaam,VolgNr,LijnNr)) #Define bsnProductNr 1 #Define bsnDossier 2 #Define bsnPalletID 3 #Define bsnLocatie 4 #Define bsnMyQtyDone 5 #Define bsnScanTime 6 #Define bsnUserID 7 #Define bsnAssocToelev 8 #Define bsnAssocCompositeIDs 9 //------------------------------------------------------------------- // ReceptieProductie //------------------------------------------------------------------- ;Koppeling tussen buffer en toelevering #Define kbtBufferKey 1 #Define kbtBKVolgNr 2 #Define kbtProductNr 3 #Define kbtPalletID 4 #Define kbtQtyRequest 5 #Define kbtKlantID 6 #Define kbtToeleveringsNr 7 #Define kbtUniekLijnNr 8 #Define kbtBackorder 9 #Define kbtQtyReserved 10 #Define kbtLocatieID 11 ;Toelevering #Define toeQtyRequest 1 #Define toeQtyReserved 2 #Define toeKlantID 3 #Define toeLeveringsWeek 4 #Define toeBackorder 5 ;ListView BUFFER ;Item (-1) #Define lvbProduct -1 ;SubItems(0..X) #Define lvbPalletID 0 #Define lvbLocatie 1 #Define lvbQtyRes 2 #Define lvbQty 3 #Define lvbStatusToelev 4 #Define lvbStatusQty 5 #Define lvbKlant 6 #Define lvbToeleveringsNr 7 #Define lvbProductNr 8 #Define lvbKlantId 9 #Define lvbBufferKey 10 #Define lvbMarkId 11 ;ListView ONGEKOPPELD ;Item (-1) #Define lvonKlantID -1 ;SubItems(0..X) #Define lvonToelevering 0 #Define lvonQtyRes 1 #Define lvonQtyReq 2 #Define lvonQty 3 #Define lvonLeveringsWeek 4 #Define lvonBackorder 5 #Define lvonTLNr 6 #Define lvonTLUNr 7 #Define lvonProductNr 8 ;ListView GEKOPPELD -> ColumnLevel !!! (dwz eerste column=0, ...) #Define lvgecolProduct 0 #Define lvgecolToelevering 2 ;Interface modes voor Receptie Controle #Define imInput 0 #Define imCheckOk 1 #Define imCheckError 2 //------------------------------------------------------------------- // ^UGLYPick Cnts //------------------------------------------------------------------- #Define upFTPLastFileExt 1