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
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 : ""
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