fetch udf value from invoice to report(inventory part)

Discussion in 'Free Source Codes' started by love, Sep 19, 2020.

    
  1. love

    love Member


    i created a report of purchase register , in condesed form it is fetching all values correctly , but in explode , the udf value am not able to fetch in inventory part , plz help/guide to solve.
     

    Attached Files:



  2. Rohit001

    Rohit001 Member



    Write this on that field..

    Set as:$$collectionfield:$udf:1:ledgerentries
     


  3. love

    love Member


    thanks rohit sir,
    i tried this way
    Local: Field: MYCLIENT : Set as:$$CollectionField:$VCHorderbyName:1:ledgerentries

    but value is not coming
     


  4. Rohit001

    Rohit001 Member


    ..
    You should fetch your field value of upper line

    Set as: #fieldname
     
    love likes this.


  5. love

    love Member


    fetched the values sir, but with that inventory details fetching first item and stopped fetching qty and rate fields , amount filed is fetching value of upper line
     

    Attached Files:



  6. Rohit001

    Rohit001 Member


    Show me ur code & requirement i will do it
     


  7. Vijaya

    Vijaya New Member


    In explode part,r yu repeating any collection.If repeating directly set the value using method name. If not, write a collection and walk upto ledger entries and fetch the UDF value and set it with $$collectionfield

    Ex:[collection:purcol]
    type:Voucher
    [collection :sumcol]
    sourcecollection:purcol
    walk:LedgerEntries
    compute:UDf:$UDF
     


  8. love

    love Member


    here is my code ,
    i want
    1.serial number to be continous
    2. upper line invisible in explode mode
    3. client name (order by column) fetched in every item line
    4. items explode as in voucher i.e 5 lines in a voucher explode to 5 lines in report

    requirement 4 is solved as of now, but it changed as mentioned above.



    Code:
    [#Menu: Gateway of TAlly]
        Add : Item : my purchases : Display : mypurchase
      
    [Report: mypurchase]
        Add: Form: mypurchase
       
        Variables    :   SV CurrentCompany, SV FromDate, SV ToDate
        Set         : SV Sort Method        : @@Default
    Set                 : SVFromDate    : $$MonthStart:##SVCurrentDate
    Set             : SVToDate        : $$MonthEnd:##SVCurrentDate       
    
        Set : orderbyChqVar : "Full"
    Set : orderbyName : ""
      
    
    
    
    [Form: mypurchase]
        Part:  mypurchase
        Height: 100 % screen
        Width: 100 % Screen
       
       
       Bottom Toolbar Buttons : BottomToolBarBtn1,BottomToolBarBtn6, BottomToolBarBtn7, BottomToolBarBtn8, BottomToolBarBtn9, BottomToolBarBtn10, BottomToolBarBtn11, BottomToolBarBtn12,
    Add: ButtonS: EXPLODEFLAG,ChangePerioD
    
    
    
    
      
      
    [Part: mypurchase] ;Main part contains data
        Add: Lines: mypurchase Column Titles, mypurchase
        Repeat: mypurchase : PQRorderbyVouchersColl
         Scrolled: BOTH
        Common Border: YES
        Total:MyVCHValue,Myvchqty
        option : LedgerwiseS1 : ##Newchangecoll1 Not Contains  "ALL ITEMS"
    option : AllLedger1    : ##Newchangecoll1 contains "ALL ITEMS"
    option : LedgerwiseCLIENT : ##NewchangecollCLIENT Not Contains  "ALL ITEMS"
    option : AllLedgerCLIENT    : ##NewchangecollCLIENT contains "ALL ITEMS"
    
    
    
    [Line:mypurchase Column Titles] ;Titles lines
        Use: mypurchase
        Local : Field : Default : Type : String
        Local : Field : Default : Style : Tiny Bold
        Local : Field : Default : Align : Centre
        Local: Field: MySNo     : Info: "S No"
        Local: Field: Mydate     : Info: "Date"
        Local: Field: MYVCHNo.     : Info: "VCH No."
        Local: Field: MYPARTY       : Info: "Party Name"
        Local: Field: MYCLIENT       : Info: "Orderby"
        Local: Field: Mynewdisc     : Info: "disc to be given"
        Local: Field: MyCOMM     : Info: "Comm"
        Local: Field: MyItem        : Info: "Item Name"
        Local: Field: Myvchqty      : Info: "Qty"
        Local: Field: Myunit     : Info: "Unit"
        Local: Field: Myvchrate     : Info: "Rate"
        Local: Field: MyVCHDISC : Info: "Disc"   
        Local: Field: MyVCHValue : Info: "Amount"
        Local: Field: MyVCHexclude : Info: "Exclude"
    
        Local: Field: Default      : Color: blue
        Local: Field: Default      : Style: Book Antiqua Italic
      
        Border: Column Titles
        ;Space Top: 0.75
        ;Space Bottom: 0.75
    
    [Line: my purchase] ;Main line
    
        Field:MySno, Mydate,MYVCHNo., MYPARTY,Myclient,Mynewdisc,MYCOMM, MyItem
        Right Field:Myvchqty, Myvchrate,MyVCHDISC, MyVCHValue,
        ;Space Top: 0.50
       ; Height: 1.5
        Explode: MyExplode part : ($$KeyExplode or ##Explodeflag)
        Border:  Double Sub Column Titles
      
    
    
    
    [Line:mypurchase TOT] ;Titles lines
        Use: mypurchase
        Local : Field : Default : Type : String
        Local : Field : Default : Style : Tiny Bold
        Local : Field : Default : Align : Centre
        Local: Field: MySNo     : Info: ""
        Local: Field: Mydate     : Info: ""
        Local: Field: MYVCHNo.     : Info: ""
        Local: Field: MYPARTY       : Info: "Total"
        Local: Field: MYCLIENT       : Info: ""
        Local: Field: Mynewdisc     : Info: ""
        Local: Field: MyCOMM     : Info: ""
        Local: Field: MyItem        : Info: ""
        Local: Field: Myvchqty      : Set as: $$Total:$StockiteM:$billedqty
        Local: Field: Myvchrate     : Info: ""
        Local: Field: MyVCHDISC : Info: ""   
        Local: Field: MyVCHValue : Set as: $$Total:MyVCHValue
        Local: Field: MyVCHexclude : Info: ""
        Local: Field: Default      : Color: blue
        Local: Field: Default      : Style: Book Antiqua Italic
      
        Border: Column Titles
    
    
    
    
    
    
    
    ;-----------------INVENTORY EXPLODE PART----------------
    
    [report:myexplodepart]
    
        Form: MyExplode part
       
    [Form:myexplode part]
         Part: MyExplode part
    
    [Part: MyExplode part] ;Exploded part
        Line: Myexplodeline
        Repeat: Myexplodeline : INVENTORY ENTRIES  
    ;Repeat: Myexplodeline : CLIENTNAME
    
    
    
    [Line: My Explodeline]
       
    
    
        Field:MySno, Mydate,MYVCHNo., MYPARTY,Myclient,Mynewdisc,my comm, MyItem
        Right Field:Myvchqty, Myvchrate,MyVCHDISC, MyVCHValue,MyVCHExclude
       
    
        Local : Field : Default : Type : String
        Local : Field : Default : Style : Tiny Bold
        Local : Field : Default : Align : Centre
        Local: Field: Mydate     :Set as : $date
        Local: Field: MYVCHNo.    :Set as : $REFERENCE
        Local: Field: MYPARTY    :Set as :  $partyLedgername
        Local: Field: MYPARTY    : Space Left: 10
        Local: Field: MYCLIENT       : Set as:#VCHorderbyNamedr 
        Local: Field: Mynewdisc     : Set as : ""
        Local: Field: MyItem    :Set as : $Stockitem;""
        Local: Field: Myvchqty  :Set as : $billedqty
        Local: Field:  Myvchrate : Space Left: 0
        Local: Field: MyVCHDISC : Set as: $Discount      
        Local: Field: Myvchqty  : Space Left:0
        Local: Field:myunit: Set as: ""
        Local: Field: Default     : Color: Red
        Local: Field: default  : Border:Double Sub Column Titles 
        Local: Field: MyCOMM     : Set as: $VCHorderbyName1
       
    
    
    [Field:MYSno]
    Set as : $$Line
    Width : 3% PAGE
    Align : Center
    Border : Thin Left Right
    Skip: Yes
    Width:3% PAGE
    
    
    
    
      
    [Field: Mydate]
        Use: Short Date Field
        Set as: $Date
        Width:5% PAGE
    
    [Field: MYVCHNo.]
        Use: Name field
        Set as: $REFERENCE
        Width:7% PAGE
        Align: Center
        Border : Thin Left
    
    [Field: MYPARTY]
        Use: Name Field
        Set as: $Ledgername
        Border : Thin Left
        Width:20% PAGE
    [Field: MYCLIENT]
        Use :Name Field
        Set as :$VCHorderbyName
        Border : Thin Left
        Width : 10% Screen
        Align : Left
        Storage: CLIENTNAME
    ;Style : Tiny
    ;Key : Create orderbyName
        Skip: Yes
    
    [Field: MYNEWDISC]
        Use :NUMBER Field
        Set as :$VCHorderbyName1
        Border : Thin Left
        Width : 3% Screen
        Align : Left
        ;Style: Tiny
        ;Key : Create orderbyName
        Skip: Yes
    
        [Field: MYCOMM]
        Use :NUMBER Field
        Set as :$VCHorderbyName1
        Border : Thin Left
        Width : 3% Screen
        Align : Left
        ;Style: Tiny
        ;Key : Create orderbyName
        Skip: Yes
    
    
    [Field:MYVCHEXCLUDE]
        Use:short name field
        Border:thin left right
        set as:$Remarksone13
        Alter:Remark12
        Width:5% PAGE
    
    
    
    
       [Field: MYITEM]
        Use: Name Field
        Set as:""; $Stockitem;
        Width:18% page
        Border: THIN LEFT
    
    [Field: Myvchqty]
        Use: Qty Primary Field
        Set as: $StockiteM:$billedqty ;"Qty"
        Format: "No Symbol, Short Form, No Compact"
        Align: Center
        Border: THIN LEFT
    
    [Field: MYUnit]
        Set as: #Myvchrate
        USE: Rate Units Field
        Align: Left
        Border: No Bottom Thick
        Width: 10% Page
    
    
    
    
    [Field: Myvchrate]
        Use: Rate price Field
        Set as: $rate ;"Qty";$Stockitemname
        Width: 10
        Border: THIN LEFT
    [Field: MyVCHValue]
        Use:Amount Field
        Set as: $Amount
        Border: THIN LEFT
      
    [Field: MyVCHDISC]
        Use  : Number Field
        Set as:$DISCOUNT:$STOCKITEM
        Border: THIN LEFT
        Align:Center
        Format:"NO ZERO"
        Width:3% PAGE
    [system: Formulae]
        MYfilter : $Basicbuyeraddress
      
    
    [COLLECTION :CLIENTNAME]
    Collection: Inventory Entries
    Fetch:DATE, NAME,LEDGERNAME,REFERENCE,VCHorderbyNamedr, CLIENTNAME
      
    [Collection: partyFilter]
        Type: Ledger;;;VOuchers : Vouchertypes ;##vouchertypesales
        ;Child Of: ""
        Fetch: Basicbuyeraddress,VCHorderbyNamedr, CLIENTNAME
            Filter: Myfilter
    
    
    
    
    /*.........UDFs............*/                                      
    [System:UDF]
       CLIENTNAME:String:1003
    
    
    
    
    
    ;=============== During Sales Voucher Entry=============
    
    [#Part: EI BaseInfo]
        Option: HPorderbyName: $$IsPurchase:##SVVoucherType
    
    [!Part: HPorderbyName]
        Add: Line: HPorderbyName
    
    [Line: HPorderbyName]
        Add: Field: HPorderbyNameTitle
        Add: Field: VCHorderbyNamedr
        Add: Field: HPorderbyNameTitle1
        Add: Field: VCHorderbyName1
        ;Add: Field: VCHorderbyName12
    
    [Field: HPorderbyNameTitle]
        Info : "party a/c: "
        Width: 10
        ;;This is where the User will input the "orderby"
        Background: "Orchid2"
    
    
    [Field: VCHorderbyNamedr]
        Use : Name Field
        Storage : VCHorderbyName
        Set as : $VCHorderbyName
        Set as:$$CollectionField:$VCHorderbyName:1:ledgerentries 
        VCHorderbyName:FIRST
        Width : 25
        Table : filterledgerCLIENT, not applicable
        Show Table: Always
        ;Key : Create orderbyName
        Background: "Orchid2"
    
    [Field: HPorderbyNameTitle1]
        Info : "Party disc"
        Width: 8
    ;;This is where the User will input the "orderby"
        Background: "Orchid2"
       
    [Field: VCHorderbyName1]
        Use : Name Field
        Storage : VCHorderbyName1
        Width : 5
        Background: "Orchid2"
        VCHorderbyName1:FIRST
    [Field: VCHorderbyName12]
        Use : Name Field
        Set as:$VCHorderbyNAME+"/"+$$STRING:$REFERENCE
        Style: NORMAL
        Width: 100
    
    [System: UDF]
        VCHorderbyName:String:375
        VCHorderbyName1:String:390
        VCHorderbyName12:String:395
    [SYSTEM :Formula]
        ORDNO:  @@ord1+ $$String:#VCSHorderbyNAME1
        ord1:$VCHorderbyNAME+"/"+$$STRING:$REFERENCE
    
    
    [Collection: filterledgerCLIENT]
    
        Type : Ledger
        ChildOf : $$GroupSundryDebtors
        BelongsTo : Yes
    Collection  :  All Items
    
    ;;
    ;
    ;
    ;
    ;
    ;;
    ;
    
    
    
    ;================================================================================================
    ;===================================== Collections =================================================
    
    [Collection: PQRorderbyVouchersColl]
        Type : Voucher
        Fetch : Date, VoucherNumber, VoucherTypeName,LedgerName,PartyLedgerName,VCHorderbyName,GrossProfit,GROSSREVENUE, LedgerEntries.*,inventoryentries
        Filter : MYpartyPURVouchers
    
    
    [System:UDF]
    
        prodert:Logical:1000
    
    
    
    [System: Formula]
    
        MYpartyPURVouchers: $$IsPurchase:$VoucherTypeName
    
    
     


  9. Amit Kamdar

    Amit Kamdar Administrator Staff Member


    1.serial number to be continous -- If you mean, after exploding, the serial number will be continuos as in EXCEL, not possible.
    2. upper line invisible in explode mode == Remove -- Local: Field: default : Border:Double Sub Column Titles
    3. client name (order by column) fetched in every item line -- Show photo....do not understand.
     


  10. love

    love Member


    my report is coming like this
    report cominglike this.jpg


    i want the report to look like
    report cominglike this copy.jpg
    i.e the black lines with invoice amount in first picture get invisible in explode


    otherway round i want a report of purchase vouchers showing full item details of each voucher at the same time fetching my udf value(KG , RIDHI SIDHI) from voucher in each item of the corresponding voucher

    for my requirement no-1. i can do away with serial no
    thanks amit sir for your reply and guidance
    thnx amit sir
     
    Last edited: Sep 22, 2020


  11. Amit Kamdar

    Amit Kamdar Administrator Staff Member


    Since both collections are different.........
    make a button.... "Explode All" or "Item-wise" --- on selection it will go to another report where you can use the explode collection.
     


  12. udaya

    udaya Active Member


    upload_2021-2-21_10-39-30.png



    [#Form: DayBook]

    [#Line: DBTitle1]
    Add: Right Field: At Beginning: DBUkT

    [Field: DBUkT]
    Use : NameField
    width : 5
    Set as : "Disc"

    [#Line: DSPVCHDetail]
    Add: Right Field: At Beginning: ukdisc1

    [Field:ukdisc1]
    Use : Amount Field
    Width : 5
    Set as : $EIDiscountAmt
    Align : Right
    Style : Small
     


  13. udaya

    udaya Active Member


    Please Guide me to solve this..... Experts
     


  14. Amit Kamdar

    Amit Kamdar Administrator Staff Member


    Show screenshot of ENTRY....and mark...which Field you are trying to show?
     


  15. udaya

    udaya Active Member


    upload_2021-2-21_15-15-33.png


    Sir this discount or any other discount ledger amount want show ...
    Please Guide me sir
     


  16. Amit Kamdar

    Amit Kamdar Administrator Staff Member


    That is NOT the EI DiscountAmt Field............
     


  17. udaya

    udaya Active Member


    In developer mode show "EI Value"
    but this also not show sir...?
     


  18. Amit Kamdar

    Amit Kamdar Administrator Staff Member


    There is another way to do it............


    [Field:ukdisc1]
    Use : Amount Field
    Width : 5
    Set as : $(Voucher, $MasterId).AllLedgerEntries[1, @@IsDiscountLedger].Amount
    Align : Right
    Style : Small

    [System : Formula]
    IsDiscountLedger : $LedgerName Contains "Discount"
     


  19. Amit Kamdar

    Amit Kamdar Administrator Staff Member


    Assuming.....all your Discount ledger contains the word "DISCOUNT", above will work.
     


  20. udaya

    udaya Active Member


    Amit sir it not working sir....


    [#Form: DayBook]

    [#Line: DBTitle1]
    Add: Right Field: At Beginning: DBUkT

    [Field: DBUkT]
    Use : NameField
    width : 5
    Set as : "Disc"

    [#Line: DSPVCHDetail]
    Add: Right Field: At Beginning: ukdisc1

    [Field:ukdisc1]
    Use : Amount Field
    Width : 5
    Set as : $(Voucher, $MasterId).AllLedgerEntries[1, @@IsDiscountLedger].Amount
    Align : Right
    Style : Small

    [System : Formula]
    IsDiscountLedger : $LedgerName Contains "Discount"
     


  21. Amit Kamdar

    Amit Kamdar Administrator Staff Member


    Code:
    [#Line: DBTitle1]
    Add: Right Field: At Beginning: DBUkT
    
    [Field: DBUkT]
    Use : NameField
    width : 5
    Set as : "Disc"
    
    [#Line: DSPVCHDetail]
    Add: Right Field: At Beginning: ukdisc1
    
    [Field:ukdisc1]
    Use : Amount Field
    Width : 5
    Set as : $$AsPositive:($AllLedgerEntries[1, @@IsDiscountLedger].Amount)
    Align : Right
    Style : Small
    
    [System    : Formula]
    IsDiscountLedger     : $LedgerName Contains "Discount"
    
     


  22. Amit Kamdar

    Amit Kamdar Administrator Staff Member



  23. udaya

    udaya Active Member


    it working in prime but not in erp sir...
     


  24. Amit Kamdar

    Amit Kamdar Administrator Staff Member


    Ok..will check it out later.... I do not have ERP9 at present.
     


  25. Amit Kamdar

    Amit Kamdar Administrator Staff Member


    rename IsDiscountLedger to something else, as it is already existing
     


Share This Page