It looks like you're new here. Sign in or register to get started.
kitik wrote: fActualInventory is a fucntion that returns a decimal number. Salut! Laura Nicolàs
LS4.20.01-01 FO #LS04-02011# 24.11.2006 Added fields "Replenish as Item No." to the Merchandising tab. LS4.20.01-02 StK #LS04-02061# 28.11.2006 Remove unused field Item Distrib. Status. LS4.20.01-03 HH #LS04-01833# 05.12.2006 Add Item POS Text Header and Line to text and print setup LS4.20.01-04 GG #LS04-02152# 10.01.2007 Height and Width of subform pricing and distrib. made a little smaller so look is OK LS4.20.01-05 FO #LS04-02011# 12.01.2007 The "Replenish as Item No." should only be visible when the Replenishment Type is Average U Actual Inventory - OnActivate() Actual Inventory - OnDeactivate() Actual Inventory - OnFormat(VAR Text : Text[1024];) Actual Inventory - OnBeforeInput() Actual Inventory - OnInputChange() Actual Inventory - OnAfterInput(VAR Text : Text[1024];) Actual Inventory - OnValidate() Actual Inventory - OnAfterValidate() Actual Inventory - OnLookup(VAR Text : Text[1024];) : Boolean Actual Inventory - OnDrillDown() Actual Inventory - OnAssistEdit() SetEditable() Setup.GET(); IF NOT Setup."3rd Party POS" THEN BEGIN; CurrForm."POSIS&HGBPOSTitle".ENABLED(FALSE); CurrForm.POSISTitle.ENABLED(FALSE); CurrForm.HGBPOSTitle.ENABLED(FALSE); CurrForm."3PP_Description On POS".ENABLED(FALSE); CurrForm."3PP_Scale Item".ENABLED(FALSE); CurrForm."3PP_Weight Item".ENABLED(FALSE); CurrForm."3PP_Keying in Price".ENABLED(FALSE); CurrForm."3PP_No Discount Allowed".ENABLED(FALSE); CurrForm."3PP_No Staff Discount Allowed".ENABLED(FALSE); CurrForm."3PP_No Customer Discount Allow".ENABLED(FALSE); CurrForm."3PP_No Item Return Allowed".ENABLED(FALSE); CurrForm."3PP_Keying in Quantity".ENABLED(FALSE); CurrForm."3PP_Zero Price Valid".ENABLED(FALSE); CurrForm."3PP_Warranty card".ENABLED(FALSE); CurrForm."3PP_Qty. Becomes Negative".ENABLED(FALSE); END; fActual Inventory() : Decimal EXIT(Inventory - QtySoldNotPst); fItemStatusCode() : Code[10] EXIT(ItemStatusLinks."Status Code"); fItemStatusDesc() : Text[30] ItemStatusLinks.CALCFIELDS("Status Description"); EXIT(ItemStatusLinks."Status Description"); fItemStatusComment() : Text[50] EXIT(ItemStatusLinks.Comment); fItemStatusDate() : Date EXIT(ItemStatusLinks."Starting Date"); fBlockOnPOS() : Boolean EXIT(ItemStatusLinks."Block Sale on POS"); fBlockPurchasing() : Boolean EXIT(ItemStatusLinks."Block Purchasing"); fBlockTransfers() : Boolean EXIT(ItemStatusLinks."Block Transferring"); SetVisible() ReplenishmItemStoreRec.RESET; ReplenishmItemStoreRec.SETRANGE("Item No.","No."); IF ReplenishmItemStoreRec.FINDFIRST THEN CurrForm.LocationDetailsExist.VISIBLE := TRUE ELSE CurrForm.LocationDetailsExist.VISIBLE := FALSE; CASE "Replenishment Calculation Type" OF "Replenishment Calculation Type"::"Average Usage" : BEGIN CurrForm."Store Forward Sales Profile".VISIBLE := TRUE; CurrForm."Wareh. Forward Sales Profile".VISIBLE := TRUE; CurrForm."Replenishment Sales Profile".VISIBLE := TRUE; CurrForm."Store Stock Cover Reqd (Days)".VISIBLE := TRUE; CurrForm."Wareh Stock Cover Reqd (Days)".VISIBLE := TRUE; CurrForm."Manual Estimated Daily Sale".VISIBLE := FALSE; CurrForm."Replenish as Item No.".VISIBLE := TRUE; //LS4.20.01-05 CurrForm.MinInventoryReplenishment.VISIBLE := FALSE; //LS4.20.01-05 CurrForm.MaxInventoryReplenishment.VISIBLE := FALSE; //LS4.20.01-05 END; "Replenishment Calculation Type"::"Manual Estimate" : BEGIN CurrForm."Store Forward Sales Profile".VISIBLE := FALSE; CurrForm."Wareh. Forward Sales Profile".VISIBLE := FALSE; CurrForm."Replenishment Sales Profile".VISIBLE := FALSE; CurrForm."Store Stock Cover Reqd (Days)".VISIBLE := TRUE; CurrForm."Wareh Stock Cover Reqd (Days)".VISIBLE := TRUE; CurrForm."Manual Estimated Daily Sale".VISIBLE := TRUE; CurrForm."Replenish as Item No.".VISIBLE := FALSE; //LS4.20.01-05 CurrForm.MinInventoryReplenishment.VISIBLE := FALSE; //LS4.20.01-05 CurrForm.MaxInventoryReplenishment.VISIBLE := FALSE; //LS4.20.01-05 END; "Replenishment Calculation Type"::"Stock Levels" : BEGIN CurrForm."Store Forward Sales Profile".VISIBLE := FALSE; CurrForm."Wareh. Forward Sales Profile".VISIBLE := FALSE; CurrForm."Replenishment Sales Profile".VISIBLE := FALSE; CurrForm."Store Stock Cover Reqd (Days)".VISIBLE := FALSE; CurrForm."Wareh Stock Cover Reqd (Days)".VISIBLE := FALSE; CurrForm."Manual Estimated Daily Sale".VISIBLE := FALSE; CurrForm."Replenish as Item No.".VISIBLE := FALSE; //LS4.20.01-05 CurrForm.MinInventoryReplenishment.VISIBLE := TRUE; //LS4.20.01-05 CurrForm.MaxInventoryReplenishment.VISIBLE := TRUE; //LS4.20.01-05 END; ELSE BEGIN CurrForm."Store Forward Sales Profile".VISIBLE := FALSE; CurrForm."Wareh. Forward Sales Profile".VISIBLE := FALSE; CurrForm."Replenishment Sales Profile".VISIBLE := FALSE; CurrForm."Store Stock Cover Reqd (Days)".VISIBLE := FALSE; CurrForm."Wareh Stock Cover Reqd (Days)".VISIBLE := FALSE; CurrForm."Manual Estimated Daily Sale".VISIBLE := FALSE; CurrForm."Replenish as Item No.".VISIBLE := FALSE; //LS4.20.01-05 CurrForm.MinInventoryReplenishment.VISIBLE := FALSE; //LS4.20.01-05 CurrForm.MaxInventoryReplenishment.VISIBLE := FALSE; //LS4.20.01-05 END; END;
fActual Inventory() : Decimal EXIT(Inventory - QtySoldNotPst);
Comments
Salut!
Laura Nicolàs
Author of the book Implementing Dynamics NAV 2013
Cursos Dynamics NAV (spanish) : http://clipdynamics.com/ - A new lesson released every day.
From where, in wich table(what is field name) how to get this information?
Salut!
Laura Nicolàs
Author of the book Implementing Dynamics NAV 2013
Cursos Dynamics NAV (spanish) : http://clipdynamics.com/ - A new lesson released every day.
When designing the form (or the table), press F9 and find the function.
If nothing happens when you press F9, then you can't. You'll have to ask your partner.
Salut!
Laura Nicolàs
Author of the book Implementing Dynamics NAV 2013
Cursos Dynamics NAV (spanish) : http://clipdynamics.com/ - A new lesson released every day.
It's "Inventory - QtySoldNotPst", althought I don't know when or how it fills the QtySoldNotPst variable.
You should ask a developer in your company to follow the code for you.
Salut!
Author of the book Implementing Dynamics NAV 2013
Cursos Dynamics NAV (spanish) : http://clipdynamics.com/ - A new lesson released every day.