Hi All Jay Here Hope You Will Enjoy This Code.... Code: [#Menu: Gateway of Tally] Key Item : Auto Set Pan Number : R : EXECUTE : Auto Set Pan Number [Report: Auto Set Pan Number] Form : Auto Set Pan Number Local : Collection: Ledger: Fetch : Ledgergstin, Parent Fetch Collection : Ledger [Form: Auto Set Pan Number] Parts : Form Subtitle, Auto Set Pan Number Local : Field : Form SubTitle : Info : "Auto Set Pan Number on Basis of Gstin" Width : 40% Page On : Form Accept : Yes : Call : AutoSetPanNum:#JAYGROUP [Part: Auto Set Pan Number] Lines : JAY GROUP [Line: JAY GROUP] Fields : Medium Prompt, JAY GROUP Local : Field : Medium Prompt : Info : "Select Group :" [Field: JAY GROUP] Use : Name Field Table : Group [System: Formula] Smp ParentFilter : $Parent = #JAYGROUP [Collection: LedUnderJAYGroup] Type : Ledger Child Of : ##InputJayGroup Fetch : Name, Parent, Partygstin, Ledgstin [Function: AutoSetPanNum] Variable : Counter : Number Parameter : InputJayGroup : String 00 : SET : Counter : 0 01 : START PROGRESS : ($$NumItems:LedUnderJayGroup) : "Ledger Altering " : @@CmpMailName : "Ledger Altering ..." 02 : WALK COLLECTION: LedUnderJayGroup 03 : SET TARGET : (Ledger, $Name). 04 : SET VALUE : Incometaxnumber :$$Stringpart:($PartyGstin):2:10 05 : ALTER TARGET 06 : INCREMENT : Counter 07 : SHOW PROGRESS : ##Counter 08 : END WALK 09 : END PROGRESS 10: MSGBOX : "Success !!" : "Ledger altered successfully" 20 : RETURN ;; End-of-File
;;Use This For Multi Ledger GST To PAN [System: Formula] locRpt067 : $$LocaleString:"GST TO PAN (067)" [#Menu: Gateway of Tally] Add: Key Item : @@locRpt067 : U : Alter Collection : C067Main : NOT $$IsEmpty:$$SelectedCmps [Collection: C067Main] <unitgroup:multiled> Use : Multi Ledger Delete : Report Add : Report: R067Main [Report: R067Main] <unitgroup:multiled> Use : Multi Master Report Family : $$Translate:"Accounts Masters" Title : $$SPrintf@MultiLedgerCreateModeFormat@ModeName@SubModeName Variables : MGroup Set : SVAccounts : Yes Set : SVInventory : No Set : SVStatutory : No Set : SVTallyShop : No Multi Objects : Ledger Under MGroup Delete: Form Add: Form: A067Main Variable: v067AddByGST : Logical: No Variable: v067ClearPAN : Logical: No [Form: A067Main] Use : Multi Master Form Normal Color : @@SV_COSTCATEGORY Parts : P067MLEDBody ;, MLED Body,MLEDDefault, Space Bottom : 0 Button : Btn067GstToPan,Btn067ClearPAN [Button : Btn067GstToPan] Title : GST To PAN Key : F10 Action : Set : v067AddByGST : NOT ##v067AddByGST [Button : Btn067ClearPAN] Title : Clear All PAN Key : F11 Action : Set : v067ClearPAN : NOT ##v067ClearPAN [Part : P067MLEDBody] Lines : L067MLEDTitle,L067MLEDBody Scrolled: Vertical Repeat : L067MLEDBody : LedgerUnderMGroup Break On : $$IsEmpty:$Name [Line: L067MLEDTitle] Field: MultiSNo Title, Multi Master Name Title, Multi Master Parent Title, MLED Opening Title,MLED OpeningDr Title, MSTSortPosTitle Local: Field : Multi Master Name Title : Info : $$LocaleString:"Name of Ledger" Local: Field : Multi Master Name Title : Width: 40% Screen Local: Field : MLED Opening Title : Info : $$LocaleString:"GST Reg. Type" Local: Field : MLED OpeningDr Title : Info : $$LocaleString:"GSTIN/UIN" Local: Field : MSTSortPosTitle : Info : $$LocaleString:"PAN/IT No." Local: Field : MLED Opening Title : Width : 15 Local: Field : MLED OpeningDr Title : Width : 18 Local: Field : MSTSortPosTitle : Width : 12 Local: Field : Default : Style : Normal Bold Local: Field : Default : Align : Center [Line: L067MLED Body ] Field: F067SrNo,F067Name,F067Parent,F067GSTDType,F067GSTNo, F067PANNo Local: Field: MMParentOption : Skip : YES Local: Field: Default : Style : Normal [Field: F067SrNo] Use: MultiSNo [Field: F067Name] Use: Multi MST Name;Name Field Local: Field: Multi Master Name : Skip: YES Local: Field: Multi Master Name : Width: 40% Screen [Field: F067Parent] Use : Name Field Inactive: $$IsEmpty:$Name Set as : $Parent Skip : YES Align : Center Border : Thin Left [Field: F067GSTDType] Use : LED GSTDealerType Inactive: $$IsEmpty:$Name Border : Thin Left [Field: F067GSTNo] Use : LED GSTIN Delete : Invisible: ##MVInMultiMode Inactive: $$IsEmpty:$Name Width : 18 Border : Thin Left [Field: F067PANNo] Use : LED IT No Delete : Invisible : ##MVInMultiMode Inactive: $$IsEmpty:$Name Width : 12 Border : Thin Left Set By Condition: @myCondiGSTToPAN : @myGSTToPAN Set By Condition: @myCondiPANClear : "" myCondiGSTToPAN : ##v067AddByGST And $$IsEmpty:$$Value And Not $$isEmpty:#F067GSTNo myCondiPANClear : ##v067ClearPAN And Not $$IsEmpty:$$Value myGSTTOPAN : $$StringPart:#F067GSTNo:2:10 Set Always : YES
Jayji I want to suggest you that after Auto Fill PAN from GST, Show Report But Driveji has already given Solution Hats off to both of you for sharing Knowledge... Thanks to both of you.
