/*
Q : How to Get Pan From GST No ?
A : Here is code for GST To Pan In one click
Copy this code in taxt file. then load in tally.
*/
[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 : MSTSortPosTitle : Delete: Invisible
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
