how to table Value system Udf value pass in function

Discussion in 'Tally & TDL Learning HUB' started by malamsingh, Dec 17, 2021.

    
Tags:
  1. malamsingh

    malamsingh New Member


    Good afternoon sir
    pls help me sir
    how system Udf value pass in function

    [#Form :JobMaterial Journal Voucher]
    On : Form Accept : Yes : Form Accept
    On : Form Accept : Yes : CALL : MultipleEntryManuJrnlFunc



    [#Part: DBLLINE Narration]

    Add : Line : Before : Vch Narrprompt : VchReceiptdr
    [Line: VchReceiptdr]

    Left Fields : Medium Prompt,Name Field,my field
    Local : Field : Medium Prompt : Set as :"List Of Stock ITEM:"
    Local : Field : Name Field : Table : List of Stock Item
    Local : Field : Name Field : Storage:VchReceiptdr
    Local : Field : Name Field : Show Table : Always
    [Field:myfield]
    Field:Name Field
    Set as:$VchReceiptdr


    [System: UDF]
    VchReceiptdr: String:1000

    [Function : Create Auto Mfg Voucher]
    001 : Query Box : " Do you want to post \n Auto Manufacturing Voucher" : Yes : No
    002 : If : $$LastResult=Yes
    003 : CALL : MultipleEntryManuJrnlFunc
    004 : END if
    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

    [Collection:MultipleEntryManuJrnlColl]
    Source Collection : ..
    Walk : INVENTORYENTRIESIN ;;;;MultipleItemEntryAggr
    Fetch : *.*,*
    Compute : FinItemNew : $StockitemName
    Compute : FinQtyNew : $ActualQty
    Compute : MfgGodown : $VoucherSourceGodown
    Compute: VarStockitem: $VchReceiptdr ;;;; $VoucherDestinationGodown

    [Collection:MultipleEntryManuJrnlColl1]
    Source Collection : MultipleEntryManuJrnlColl
    Walk : MultiComponentItemList
    By: StockItemname
    Fetch : FinItemNew,FinQtyNew
    Fetch : *.*,*
    Fetch : ComponentListName, ComponentBasicQty
    Fetch : MultiComponentItemList.StockitemName, MultiComponentItemList.GodownName
    Fetch : MultiComponentItemList.ActualQty, MultiComponentItemList.AddlCostAllocPerc, MultiComponentItemList.NatureofItem
    Filter : WithSameProdName


    [System:Formulae]
    WithSameProdName:$FinItemNew=##FinItemVar


    [Function: MultipleEntryManuJrnlFunc]
    Variable : FinItemVar : String
    Variable : FinItemQtyVar : String
    Variable : ManufactGdwnVar: String
    Variable: VarStockName:String
    Variable : RawMaterialVar : String
    Variable : RawMaterialQtyVar : String

    000 : Walk Collection : MultipleEntryManuJrnlColl

    001 : Set : FinItemVar : $FinItemNew
    002 : Set : FinItemQtyVar : $FinQtyNew
    003 : Set : ManufactGdwnVar:$MfgGodown
    004: Set:VarStockName:$VchReceiptdr
    010 : Log:##FinItemVar
    015 : Log:##FinItemQtyVar
    016 : Log:##ManufactGdwnVar
    017: Log:##VarStockName

    020 : NEW OBJECT : Voucher
    021 : SET VALUE : Date : $Date ;;;;;#DateforVoucherLine;##SVCurrentDate
    022 : SET VALUE : VoucherTypeName :$$VchTypeStockJrnl
    023 : SET VALUE : IsInvoice : "No"
    024 : SET VALUE : PERSISTEDVIEW : "Multi Consumption Voucher View";##SVViewName
    025 : Set Value : DESTINATIONGODOWN : "Main Location" ;;;;##ManufactGdwnVar
    026 : Set Value : VOUCHERDESTINATIONGODOWN :"Main Location" ;;;##ManufactGdwnVar
    027 : Set Value : VOUCHERSOURCEGODOWN : "Main Location" ;;;; ##ManufactGdwnVar
    029 : Set Value : DIFFACTUALQTY : "No"
    030 : Set Value : ISMSTFROMSYNC : "No"
    031 : Set Value : ASORIGINAL : "No"
    035 : Set Value : AUDITED : "No"
    036 : Set Value : FORJOBCOSTING : "Yes"
    037 : Set Value : ISOPTIONAL : "No"
    038 : Set Value : EFFECTIVEDATE : $date ;;#DateforVoucherLine

    045 : Insert Collection object : INVENTORYENTRIESIN ;inventoryentriesin
    046 : Set target: INVENTORYENTRIESIN
    050 : SET VALUE : STOCKITEMNAME : $$String:##VarStockName ;; How to use here System UDF Value
    051 : Set Value : BOMNAME : $$String:""
    052 : Set Value : Godownname : ##ManufactGdwnVar
    053 : Set Value : ACTUALQTY : $$TgtObject:$$AsQty:##FinItemQtyVar
    054 : Set Value : BILLEDQTY : $$TgtObject:$$AsQty:##FinItemQtyVar

    056 : Set Value : ISDEEMEDPOSITIVE : "Yes"
    057 : Set Value : ISLASTDEEMEDPOSITIVE : "Yes"
    058 : Set Value : ISSCRAP : "No"
    ;025 : Set Value : Rate : $$AsRate:""

    060 : INSERT COLLECTION OBJECT : BATCHALLOCATIONS
    065 : Set Value : GODOWNNAME : "Main Location" ;;;; ##ManufactGdwnVar
    070 : Set Value : BATCHNAME : "Primary Batch"
    075 : Set Value : DYNAMICCSTISCLEARED : "No"
    076 : Set Value : ACTUALQTY : $$TgtObject:$$AsQty:##FinItemQtyVar
    077 : Set Value : BILLEDQTY : $$TgtObject:$$AsQty:##FinItemQtyVar
    080 : SET TARGET : ....


    082 : Walk Collection :MultipleEntryManuJrnlColl
    083 : Insert collection object : INVENTORYENTRIESOUT ;InventoryEntriesOut
    084 : SEt TARGET : INVENTORYENTRIESOUT
    085 : Set : RawMaterialVar : $Stockitemname
    088 : Set : RawMaterialQtyVar : $ActualQty ;;;$RawMaterialQty
    089 : Log:##RawMaterialVar
    090 : Log:##RawMaterialQtyVar
    091 : SET VALUE : STOCKITEMNAME : ##RawMaterialVar
    092 : SET VALUE : ACTUALQTY : -$$TgtObject:$$AsQty:##RawMaterialQtyVar
    093 : SET VALUE : BilledQty : -$$TgtObject:$$AsQty:##RawMaterialQtyVar ;($actualQty *## SSFunctonAutoJrnlNumToCal)

    100 : Set Value : ISDEEMEDPOSITIVE : "No"
    110 : Set Value : ISLASTDEEMEDPOSITIVE : "No"
    115 : Set Value : ISAUTONEGATE : "No"
    120 : Set Value : ISCUSTOMSCLEARANCE : "No"
    125 : Set Value : ISTRACKCOMPONENT : "No"
    130 : Set Value : ISTRACKPRODUCTION : "No"
    135 : Set Value : ISPRIMARYITEM : "No"
    140 : Set Value : ISSCRAP : "No"
    /*
    151 : INSERT COLLECTION OBJECT : BATCHALLOCATIONS
    152 : Set Value : GODOWNNAME : "Main Location"
    153 : Set Value : BATCHNAME : "Primary Batch"
    154 : Set Value : DYNAMICCSTISCLEARED : "No"
    155 : Set Value : ACTUALQTY : $$TgtObject:$$AsQty:##RawMaterialQtyVar
    165 : Set Value : BILLEDQTY : $$TgtObject:$$AsQty:##RawMaterialQtyVar
    */
    167 : Set Target : ..
    ;;170 : Set Target : ... ;;; If use Batch Emable This Close Prev Line
    180 : End Walk
    190 : End Walk
    200 : Save Target
     


Share This Page