Need total Nugs value in print invoice and party ledger

Discussion in 'Free Source Codes' started by M. Sajid Razzaq, Feb 13, 2022.

    

  1. [#LINE: EI COLUMNONE]

    OPTION : KC EI COLUMNONE : @@ISSALES

    [!LINE : KC EI COLUMNONE]

    ADD : RIGHT FIELDS : Before : VCH QtyTitle : KC MTS Title
    LOCAL : FIELD : KC MTS Title : INFO : "Nug"

    [#LINE: EXPINV COLUMN1]

    OPTION : KC EXPINV COLUMN1 : @@ISSALES

    [!LINE : KC EXPINV COLUMN1]
    ADD : LEFT FIELDS : After: EXPINV DESCTITLE : KC MTS Title


    [FIELD : KC MTS Title]

    USE : Name FIELD
    Set as : "Nug"
    SET ALWAYS : YES
    WIDTH : 4
    ALIGN : CENTER
    Print Fg :Black
    Skip : Yes

    [#LINE : EI INVINFO]

    OPTION : KC EI INVINFO : @@ISSALES

    [#LINE : CI INVINFO]

    OPTION : KC EI INVINFO : @@ISSALES

    [!LINE : KC EI INVINFO]

    ADD: RIGHT FIELDS: Before : VCH ActualQty : KC MTS



    [FIELD : KC MTS]

    USE : Number FIELD
    STORAGE : KCMTS
    SET ALWAYS : YES
    WIDTH : 4
    ALIGN : CENTER
    Print Fg :Black


    [#Part: EI InvInfo]

    Add : Total : KCMTS

    [#LINE: EXPINV INVDETAILS]

    OPTION : KC EXPINV INVDETAILS : @@ISSALES

    [!LINE : KC EXPINV INVDETAILS]

    ADD : LEFT FIELDS : after : EXPINV DESC : KC MTSPRINT



    [FIELD : KC MTSPRINT]

    USE : NUMBER FIELD
    SET AS : $KCMTS
    SET ALWAYS : YES
    WIDTH : 4
    ALIGN : CENTER
    Print Fg :Black

    [SYSTEM : UDF]


    KC MTS : Number : 505



    [SYSTEM : FORMULA]

    TRSFormula : ( $KCMTS )
    IsSales0 : $$IsSales:##SVVoucherType


    [#Part : VCH Narration]
    Option : Nug Totals : @@IsSales

    [!Part : Nug Totals]
    Add : Line : At Beginning : KC MTS Total

    [Line : KC MTS Total]
    Field : Medium Prompt, EI Nug Total

    Local : Field : Medium Prompt : Info : "Total Nugs"


    [Field : EI Nug Total]
    Use : Number Field
    Set as : $$Total:KCMTS
    Set Always : Yes
    Width : @@NumberWidth
    Align : Center
    Color : Black
    Style : Normal Bold
     

    Attached Files:



  2. sattam

    sattam Active Member


    Please try to learn Basic of TDL.Your code is not completed.
    Add total field in voucher as well as invoice print
    add field in ledger voucher report
    define that field and also fetch it in relevant collection
    You Have to give more efforts to complete your requirement
     



  3. Sattam Sir I also want to learn basics of TDL. How is possible ? Please edit this file with correct code. I will very thank full to you for this help.
     



  4. Sattam Sir, Please help me for correction of this code
     



  5. [#Line: DSP VchAccTitles]
    Add :Right Field :After :DSP VchTypeTitle :DSP KCMTSTitle

    [#Line: DBTitle1]
    Add :Right Field :After :DSP VchTypeTitle :DSP KCMTSTitle

    [Field: DSP KCMTSTitle]
    Use : Name Field
    Set as :"Nug"
    Width :5
    Style :Normal
    Align :Center
    Color : Red


    [#Line: DSP VchDetail]
    Add : Right Field :After :DSP VchType :DSP EI Nug Total
    [Field: DSP EI Nug Total]
    Use: Name Field
    Set As :$$Total:KCMTS
    Width :5
    Style : Normal
    Align : Center
    Color : Red
    Border : Thin Left

    Where I am wrong, please help me for correction my code. thanks
     

    Attached Files:



  6. RaylongTale

    RaylongTale New Member


    Find which collection is being used to repeat in Ledger Vouchers. As Mr. Sattam said fetch the method in the Collection and then add KCMTS in Total in Part level of the Report.
     


  7. sattam

    sattam Active Member


    Try This
     

    Attached Files:




  8. [#LINE: EI COLUMNONE]
    OPTION : KC EI COLUMNONE : @@ISSALES


    [!LINE : KC EI COLUMNONE]

    ADD : RIGHT FIELD : Before : VCH QtyTitle : KC MTS Title
    LOCAL : FIELD : KC MTS Title : INFO : "Nug"


    [FIELD : KC MTS Title]

    USE : Name FIELD
    Set as : "Nug"
    SET ALWAYS : YES
    WIDTH : 5
    ALIGN : CENTER
    Print Fg :Black
    Skip : Yes


    [#LINE : EI INVINFO]
    OPTION : KC EI INVINFO : @@ISSALES


    [#LINE : CI INVINFO]
    OPTION : KC EI INVINFO : @@ISSALES

    [!LINE : KC EI INVINFO]
    ADD: RIGHT FIELDS: Before : VCH ActualQty : KC MTS

    [FIELD : KC MTS]

    USE : Number FIELD
    STORAGE : KCMTS
    SET ALWAYS : YES
    WIDTH : 5
    ALIGN : CENTER
    Print Fg :Black



    ;; ------------------------ Print


    [#LINE: EXPINV COLUMN1]
    OPTION : KC EXPINV COLUMN1 : @@ISSALES

    [!LINE : KC EXPINV COLUMN1]
    ADD : LEFT FIELDS : After: EXPINV DESCTITLE : KC MTS Title
    Local : Field : KC MTS Title: Add: Border: Thin Left

    [#Line: EXPINV InvDetails]
    OPTION : KC EXPINV INVDETAILS : @@ISSALES

    [!LINE : KC EXPINV INVDETAILS]
    ADD : LEFT FIELDS : after : EXPINV DESC : KC MTS
    Local : Field : KC MTS: Add: Border: Thin Left

    [#Line: EXPINV AccDetails]
    OPTION : KC EXPINV AccDetails : @@ISSALES

    [!LINE : KC EXPINV AccDetails]
    ADD : LEFT FIELDS : after : EXPINV AccDesc : KC MTS
    Local : Field : KC MTS: Add: Border: Thin Left

    [#Form: Export Invoice]

    Option : KC Export Invoice : @@IsSales

    [!Form : KC Export Invoice ]

    Local : Line : VCH NarrPrompt: Add : Right Fields: At Beginning : EI Nug Totals

    [Field: EI Nug Totals]

    Use: Number Field
    Border : Totals
    Set as : @@FormlaKCMTS
    Set always : Yes
    Skip : Yes
    Width : 5
    Align: Centre



    [#Part : VCH Narration]
    Option : Nug Totals : @@IsSales

    [!Part : Nug Totals]
    Add : Line : At Beginning : KC MTS Totals

    [Line : KC MTS Totals]
    Field : Medium Prompt, EI Nug Totals

    Local : Field : Medium Prompt : Info : "Total Nugs"


    [SYSTEM : UDF]
    KC MTS : Number : 505


    [System: Formula]

    KCMTSFormla : $$Number:$KCMTS
    FormlaKCMTS : $$CollNumTotal:InventoryEntries:mad:@KCMTSFormla





    [#Line : EXPINV Totals]

    Add : Left Field: After : EXPINV DescTitle:EI Nug Totals
    Local : Field : EI Nug Totals: Add: Border: Thin Left

    [#Line : EXPSMP Totals]

    Add : Left Field: After : EXPINV DescTitle:EI Nug Totals
    Local : Field : EI Nug Totals: Add: Border: Thin Left

    [Style : Verdana Box]

    Font : if $$SysInfo:IsWindows then "Verdana" else "Helvetica"
    Bold : Yes
    Italic : Yes
    Height : 18


    ;;--------------------------------------------------------

    [#Line: DSP VchAccTitles]
    Add :Right Field :After :DSP VchTypeTitle :DSP KCMTSTitle


    [#Line: DBTitle1]
    Add :Right Field :After :DSP VchTypeTitle :DSP KCMTSTitle


    [Field: DSP KCMTSTitle]

    Use : Name Field
    Set as :"Nug"
    Width :5
    Style :Normal
    Align :Center
    Color : Blue


    [#Line: DSP VchDetail]
    Add : Right Field :After :DSP VchType :DSP KC MTS


    [Field: DSP KC MTS]

    Use: Number Field
    Set As :$KCMTSValue
    Width :5
    Style : Normal
    Align : Center
    Color : Blue
    Border : Thin Left

    [#Collection: Daybook Vouchers of Company]
    Fetch:KCMTSValue
    Compute:KCMTSValue:$$collnumtotal:inventoryentries:$KCMTS


    [#Collection: NRM Vouchers of Company]
    Fetch:KCMTSValue
    Compute:KCMTSValue:$$collnumtotal:inventoryentries:$KCMTS

    [#Collection: Vouchers of Ledger]
    Fetch:KCMTSValue
    Compute:KCMTSValue:$$collnumtotal:inventoryentries:$KCMTS
     

    Attached Files:

    irfan.alhakimuae likes this.


Share This Page