SELECTED LINE AUTO LEDGERNAME CHANGED

AUTOMATICALLY CHAGED LEDGERNAME IN SELECTED TRANSACTION
1) GO IN SPECIFIC LEDGER
2) CLICK ON DEFINE LEDGER BUTTON & SELECT NEW LEDGER
3) SELECT LINE FOR CHANGING LEDGER NAME
4) CLICK ON SEND TO BUTTON

AND ENJOY YOUR LEDGER NAME CHANGED

(TRY THIS ON YOUR OWN RISK,TAKE BACK UP FIRST THEN TRY THIS ONLY DEMO PERPOSE)

Code:

[Collection:SELECTEDVCH]
    Data Source : Report    : Selected
    Fetch        : MasterID,VoucherTypeName
  
  
[#Form: Ledger Vouchers]

    Add : Button     : VHCCHANGE, defineLedger
  

[Key:VHCCHANGE]
    Title    : "SEND TO -" + $$String:##MYPARTYNAME
    Key        : Alt+ W
  
    Action:Call:MODIFYVCH
  
[Key:defineLedger]
    Title:"Define Ledger"
    Key:Alt+n
    Action:Alter:VCHCHANGE
      
[Report:VCHCHANGE]
    Form:VCHCHANGE
  
[Form:VCHCHANGE]
    Part:VCHCHANGE
      
[Part:VCHCHANGE]
    Line:VCHCHANGE
  
[Line:VCHCHANGE]
    Field:VCHCHANGE
  
[Field:VCHCHANGE]
    Use:NAME FIELD
    Table:list of Ledgers
    Modifies:MYPARTYNAME
    Variable:MYPARTYNAME
  
[Variable:MYPARTYNAME]
    Type:String
    Volatile::yes
  
[System:Variable]
    MYPARTYNAME:""
  
[Function:MODIFYVCH]
    Variable:CurrentVchMSTID:String
  
        100: Walk Collection: SELECTEDVCH
        102    :Set        : CurrentVchMSTID    :  $$SPrintF:@@VCHMasterID:$MasterID
        200:Modify Object: (Voucher,##CurrentVchMSTID).LedgerEntries[1,    ($LedgerName = ##LedgerName)].LedgerName: ##MYPARTYNAME
      
        205: If: @@Ispurchase or @@isSales
        210:Modify Object: (Voucher,##CurrentVchMSTID).LedgerEntries[1,    ($LedgerName = ##LedgerName)].PartyName: ##MYPARTYNAME
        220:Modify Object: (Voucher,##CurrentVchMSTID).LedgerEntries[1,    ($LedgerName = ##LedgerName)].PartyMailingName: ##MYPARTYNAME
        230:Modify Object: (Voucher,##CurrentVchMSTID).LedgerEntries[1,    ($LedgerName = ##LedgerName)].StateName:$LedStateName:Ledger:##MYPARTYNAME
        240:Modify Object: (Voucher,##CurrentVchMSTID).LedgerEntries[1,    ($LedgerName = ##LedgerName)].GSTRegistrationType:$GSTRegistrationType:Ledger:##MYPARTYNAME
        250:Modify Object: (Voucher,##CurrentVchMSTID).LedgerEntries[1,    ($LedgerName = ##LedgerName)].PartyGSTIN:$PartyGSTIN:Ledger:##MYPARTYNAME
        260: End If
      
        300: End Walk
      

 

[Function:MODIFYVCH]
Variable:CurrentVchMSTID:String
100: Walk Collection: SELECTEDVCH
102 :Set : CurrentVchMSTID : $$SPrintF : @@VCHMasterID:$MasterID
200:Modify Object: (Voucher,##CurrentVchMSTID).LedgerEntries[1, ($LedgerName = ##LedgerName)].GSTRDATE: ##SetClaimDate

300: End Walk


unable to modify udf value

 

IF YOU HAVE USED UDF IN LEDGER ENTRIES THEN THEN THIS LINE WORK ELSE TRY BELOW LINE


200:Modify Object: (Voucher,##CurrentVchMSTID).GSTRDATE: ##SetClaimDate

 

its working in tally erp9 but not working in tallyprime please do this for tallyprime also

 

[#Part: EI BaseInfo] change in to [#Part: EI Consignee]

 

I Got Bellow Code from this site.can any one help on this code.if i press enter on line i want go to standard rates change screen.thanks in advance to every one.




;========================================== Stock Item Details Book =======================================
[#Menu:Gate Way Of Tally]

Add : Item : Item Address Book : Execute : ChageItemGroup
[Report: Item Address Book]

Title : "Ledger Master Reports"
Form : StockItem_Report
Variable : SvFromDate, SvToDate
Set : SvFromDate : @@DSPFromDate
Set : SvToDate : @@DSPToDate


[Form: StockItem_Report]

Button : ExportButton,MailButton,PrintButton
Bottom Toolbar Buttons : BottomToolBarBtn1,BottomToolBarBtn8,BottomToolBarBtn9,BottomToolBarBtn10
Background : @@SV_BALANCESHEET
Part : StockItem_ReportsHeading, StockItem_ReportsBody ; DSP AccTitles,
Width : 100 % Page
Height : 100 % Page
Space Bottom : 0.50
Space Left : 0.50
Space Right : 0.50
Space Top : 0.50
Vertical Align : Center
Horizontal Align : Center

[Part: StockItem_ReportsHeading]

Line:StockItem_ReportsHeading

[Line: StockItem_ReportsHeading]

Field: Name Field
Local: Field : Name Field : Set as : "ITEM ADDRESS BOOK"
Local: Field : Name Field : Style : Large Bold
Local: Field : Name Field : Align : Center
Local: Field : Name Field : Full Width : Yes
Local: Field : Name Field : Color : Blue
Local: Field : Name Field : Inactive : $$InExportMode
Local: Field : Name Field : Skip : Yes
Space Bottom : 0.25 cm

[Part: StockItem_ReportsBody]

Line : StockItem_ReportsTitle,StockItem_ReportsDesc
Repeat : StockItem_ReportsDesc : StockItemColl
Scroll : Both
Vertical : Yes
Common Border : yes
Float : No
Border : Thin Bottom


[Line: StockItem_ReportsTitle]
Field : Stockitem_SNo, Stockitem_ItemName

Right Field : STKAltStandRate,STKStandCostApplicable,STKRate1,STKStandSellingPrice,STKRate2

Border : Totals

Local : Field : Default : Type : String
Local : Field : Default : Align : Center
Local : Field : Default : Border : Thin Left
Local : Field : Default : Style : Large Bold
Local : Field : Default : Skip : Yes
Local : Field : Default : Line : 2

Local : Field : Stockitem_SNo : Set as : $$LocaleString:"SL NO."
Local : Field : Stockitem_ItemName : Set as : $$LocaleString:"Item Name"
L
Local : Field : STKAltStandRate : Set as : $$LocaleString:"Alter Standard Rates"
Local : Field : STKStandCostApplicable : Set as : $$LocaleString:"Standard Cost Applicable From"
Local : Field : STKRate1 : Set as : $$LocaleString:"Rate"
Local : Field : STKStandSellingPrice : Set as : $$LocaleString:"Standard Selling Price \n (Apllicable From)"
Local : Field : STKRate2 : Set as : $$LocaleString:"Rate"


[Line:StockItem_ReportsDesc]


Field : Stockitem_SNo, Stockitem_ItemName

Right Field : STKAltStandRate,STKStandCostApplicable,STKRate1,STKStandSellingPrice,STKRate2

Local : Field : Default : Style : Normal
Explode : LedDup_ReportsDescExp1
Border : Thin TopBottom
;;Option : Alter on Enter
Option: STKI SetStdRate on Enter

[Part : LedDup_ReportsDescExp1]

Line : LedDup_ReportsDescExp1
Repeat : LedDup_ReportsDescExp1:StockGodownColl

[Line : LedDup_ReportsDescExp1]

Field : Stockitem_SNo, Stockitem_ItemName

Right Field : STKAltStandRate,STKStandCostApplicable,STKRate1,STKStandSellingPrice,STKRate2

Local : Field : Default : Type : String
Local : Field : Default : Align : Center
Local : Field : Default : Border : Thin Left
;Local : Field : Default : Style : Nomal
Local : Field : Default : Line : 0
Local : Field : Default : Skip : Yes

Local : Field : Stockitem_SNo : Set as : ""
Local : Field : Stockitem_ItemName : Set as : "";$StockItemName
Local : Field : Stockitem_Alias : Set as : ""

Local : Field : STKAltStandRate : Set as : ""
Local : Field : STKStandCostApplicable : Set as : ""
Local : Field : STKRate1 : Set as : ""
Local : Field : STKStandSellingPrice : Set as : ""
Local : Field : STKRate2 : Set as : ""



[Field : Stockitem_SNo]

Use : Number Field
Set as : $$Line
Width : 8
Format : "NoZero"
Alter : StockItem
Invisible:$$InExportMode

[Field : Stockitem_ItemName]

Use : Name Field
Set as : $Name
Full Width : Yes
;Color : Red






[Field: STKAltStandRate]

Use : Logical Field
Set as : ""
Width : 15
Align : Center
Invisible : Yes

[Field: STKStandCostApplicable]

Use : Name Field
Set as : $$CollectionField:$date-1):StandardCostList
Width : 20
Align : Center

[Field: STKRate1]

Use : Rate Price Field
Set as : $$CollectionField:$Rate-1):StandardCostList
Width : 15




[Field: STKStandSellingPrice]

Use : Name Field
Set as : $$CollectionField:$date-1):StandardPriceList
Width : 25

[Field: STKRate2]

Use : Rate Price Field
Set as : $$CollectionField:$Rate-1):StandardPriceList
Width : 15



;----------------------------------UDF--------------------------------------------------
[Collection : StockItemColl]

Title : "Stock Item"
Type : Stock Item
Child Of : ##ItemGroupTable
Belongs To : Yes

[Collection : StockGodownColl]

Type : Batch
Child of : #Stockitem_ItemName
Fetch : GodownName, BatchName, IsBatchWiseOn, Name, TrPurcQty, TrPurcValue, TrAvgPurcPrice
Fetch : TrAvgPurcCost, TrSaleQty, TrSaleQty, TrSaleValue, TrAvgSalePrice, OpeningBalance
Fetch : OpeningValue, StkClBalance, TBalClosing, StkOpBalance, TBalOpening, TBalCredits, StkOutQty, StkInQty, TBalDebits
Fetch : ClosingRate,BSDebits, MFdOn, Expiry Period, StockItemName, TBalNettCredits
Compute : IsEmptyObject : $$IsEmptyObject
Compute : IsWithItems : Yes
Compute : HasMfgDate : $$Owner:$HasMfgDate
Compute : IsPerishableOn: $$Owner:$IsPerishableOn
Sort : @@Default : $BatchName, $GodownName
Filter : IsNotThirdPartiesGodown

;-------------------------------------------------------------------------------------
[Report: ChageItemGroup]
Use : Modify Variables
Local : Part : Modify Variables : Lines : Item_Group
Local : Field: MV Title : Info : $$LocaleString:"Select Group"
Title : $$LocaleString:"Change Group"
Local : Form : Modify Variables : Vertical Align :Top
Local : Form : Modify Variables : on : Form Accept : Yes : Form Accept
Local : Form : Modify Variables : On : Form Accept : Yes : Display : Item Address Book


[Line: Item_Group]

Field : Medium Prompt, Item Group Table
Local : Field : Medium Prompt:Set as :$$LocaleString:"Item Group"

[Field : Item Group Table]

Use : Name Field
Table : List of ExtractStockGroups, AllItems
Show Table : Always
Modifies : ItemGroupTable
Variable : ItemGroupTable

[Variable : Item Group Table]

Type :String

[System : Variables]

Item Group Table : ""

 

sir, it is very nice code.but work only for payment voucher.it is better for receipts lso.

 

How to change bank allocation also?

 

sabkuch possible hai

 

Thanks

 

Good morning Madam
I am madhu New member Below TDL is not Working and error is showing
Voucher totals Do not matched
Dr . Cr not marched Attached error file can u please tell me bit urgent please


AUTOMATICALLY CHAGED LEDGERNAME IN SELECTED TRANSACTION
1) GO IN SPECIFIC LEDGER
2) CLICK ON DEFINE LEDGER BUTTON & SELECT NEW LEDGER
3) SELECT LINE FOR CHANGING LEDGER NAME
4) CLICK ON SEND TO BUTTON