1. CLICK HERE TO JOIN WHATSAPP CHANNEL FOR TDL PROGRAMS

Last Purchase Voucher Number

Discussion in 'Tally Developer' started by kamal, Nov 8, 2016.

    
  1. kamal

    kamal Member


    Dear Experts
    please correct the below code in stock summary i need last purchase Voucher Number


    ;;--------------Day Book

    [#Line : DBTitle1]

    Add : Field : At Beginning : DNSSNo
    Local : Field : DNSSNo : Info : "S No"

    [#Line : DSP VchDetail]

    Add : Field : At Beginning : DNSSNo

    [Field : DNSSNo]
    Use : Number Field
    Set as : $$Line
    Format : "NOZero"
    Width : 3

    ;;------------- Stock Summary

    [#Line: DSP DateTitle]
    Local : Field : default : Style : Normal Bold
    Add : Field : At Beginning : DNSSNoT, KR Group Name
    Local : Field : DNSSNoT : Info : "S No"
    Local : Field : KR Group Name : Info : "Model"

    Add : Field : After : DSP AccName : KR DATE, KR VCH NUMBER
    Local : Field : KR DATE : Info : "Purchase Date"
    Local : Field : KR VCH NUMBER: Info : "Vouche Number"

    [Field : DNSSNoT]
    Set as : ""
    [Field : KR Group Name]
    Set as : ""
    [Field : KR DATE]
    Set as : ""
    Align : Right

    [Field : KR VCH NUMBER]
    Use : Name Field
    Set as : ""



    [#Line : DSP AccLine]

    Add : Field : At Beginning : DNSSNo, KR Group Name
    Local : Field : DNSSNo : Set as : $$Line
    Local : Field : KR Group Name : Set as : $Parent:StockItem:$StockItemName

    Add : Field : After : DSP AccName : KR DATE, KR VCH NUMBER
    Local : Field : KR DATE : Set as : $LastPurcDate:StockItem:$StockItemName
    Local : Field : KR DATE : Space Left : 0.5 INCH
    Local : Field : KR DATE : Align : Right


    Local : Field : KR VCH NUMBER : Set as : $VoucherNumber
    Local : Field : KR VCH NUMBER : Space Left : 0.5 INCH
     
    kamal, Nov 8, 2016
    #1


  2. sivam

    sivam Active Member


    Try With This one

    Code:
    ;;--------------Day Book

[#Line : DBTitle1]

Add : Field : At Beginning : DNSSNo
Local : Field : DNSSNo : Info : "S No"

[#Line : DSP VchDetail]

Add : Field : At Beginning : DNSSNo

[Field : DNSSNo]
Use : Number Field
Set as : $$Line
Format : "NOZero"
Width : 3

;;------------- Stock Summary

[#Line: DSP DateTitle]
Local : Field : default : Style : Normal Bold
Add : Field : At Beginning : DNSSNoT, KR Group Name
Local : Field : DNSSNoT : Info : "S No"
Local : Field : KR Group Name : Info : "Model"

Add : Field : After : DSP AccName : KR DATE, KR VCH NUMBER
Local : Field : KR DATE : Info : "Purchase Date"
Local : Field : KR VCH NUMBER: Info : "Vouche Number"

[Field : DNSSNoT]
Set as : ""
[Field : KR Group Name]
Set as : ""
[Field : KR DATE]
Set as : ""
Align : Right

[Field : KR VCH NUMBER]
Use : Name Field
Set as : ""
L1        : $$CollectionField:$VoucherNumber:($$NumItems:KNSPurcColl):KNSPurcColl



[#Line : DSP AccLine]

Add : Field : At Beginning : DNSSNo, KR Group Name
Local : Field : DNSSNo : Set as : $$Line
Local : Field : KR Group Name : Set as : $Parent:StockItem:$StockItemName

Add : Field : After : DSP AccName : KR DATE, KR VCH NUMBER
Local : Field : KR DATE : Set as : $LastPurcDate:StockItem:$StockItemName
Local : Field : KR DATE : Space Left : 0.5 INCH
Local : Field : KR DATE : Align : Right


Local : Field : KR VCH NUMBER : Set as : If $$IsStockItem:$Name Then @L1 Else ""
Local : Field : KR VCH NUMBER : Space Left : 0.5 INCH

[Collection: KNS PurcColl]
   
    Parm Var    : KNSItemNAme    : String    : $$ReqOwner:$Name
   
    Type        : Vouchers        : StockItem
    Child Of    : ##KNSItemNAme
    Fetch        : VoucherTypeName, VoucherNumber
    Filter        : KNSOnlyPurcVoucher
   
[System: Formulae]
   
    KNSOnlyPurcVoucher    : $$IsPurchase:$VoucherTypeName
     
    sivam, Nov 8, 2016
    #2


  3. kamal

    kamal Member


    Thank You its working
     
    kamal, Nov 9, 2016
    #3


Share This Page