;; Free code ;;;for learning ;;; try it yourself;;;;;;;;; ->CITY Names and District Names Table for Selection ->Copy the Areas.xml (Unzip Areas.rar) file attached below and paste it in tally folder.. ->Load the below TDL Source Code: [Collection:AreasXMLCollection] Data Source:File XML:"Areas.xml" XML Object Path: AREAOBJECT : 1 : AREACOLLECTION Client Only:Yes [Collection:AreasXMLSUBCollection] Source Collection:AreasXMLCollection Compute:CITY:$CITY Compute:CODE:$CODE Compute:STATE:$STATE Compute:DIST:$DIST [Collection:CITYNAMEXMLCOLL] Title:$$LocaleString:"List Of Cities" Source Collection:AreasXMLSUBCollection Full Height:Yes Align:Right Fetch:CITY Format:$CITY,40 Unique:$CITY [Collection:DISTNAMEXMLCOLL] Title:$$LocaleString:"List Of Districts" Source Collection:AreasXMLSUBCollection Full Height:Yes Align:Right Fetch:DIST Format:$DIST,40 Unique:$DIST [#Part: LED Mailing Address] Add:Bottom Line:At End:LEDAREALINE [Line:LEDAREALINE] Fields:MediumPrompt,LEDCITYINP,ShortPrompt,LEDISTINP Local:Field:MediumPrompt:Set as:$$LocaleString:"City" Local:Field:MediumPrompt:Width:8 Local:Field:ShortPrompt:Set as:$$LocaleString:"District" Local:Field:ShortPrompt:Width:8 Invisible:NOT ($$IsGroupSundryCreditors:$_PrimaryGroup or $$IsGroupSundryDebtors:$_PrimaryGroup) [Field:LEDCITYINP] Use:Name Field Storage:LEDCITYINP Background:white Table:CITYNAMEXMLCOLL,Not Applicable Show Table:On Empty [Field:LEDISTINP] Use:Name Field Storage:LEDISTINP Background:white Table:DISTNAMEXMLCOLL,Not Applicable Show Table:On Empty [System:UDF] LEDCITYINP:String:1234 LEDISTINP:String:1677 EDIT: on 11-1-20 * Format : DIST,40 - > Format:$DIST,40 hope it is useful..
You can select city name automatic district fill-up..... Code: [Collection:AreasXMLCollection] Data Source:File XML:"Areas1.xml" XML Object Path: AREAOBJECT : 1 : AREACOLLECTION Client Only:Yes [Collection:CITYNAMEXMLCOLL] Title:$$LocaleString:"List Of Cities" Source Collection:AreasXMLCollection Full Height:Yes Align:Right Fetch:CITY,DIST Format:$CITY,20 Format:$DIST,20 Unique:$CITY [#Part: LED Mailing Address] Add:Bottom Line:At End:LEDAREALINE [Line:LEDAREALINE] Fields:MediumPrompt,LEDCITYINP,ShortPrompt,LEDISTINP Local:Field:MediumPrompt:Set as:$$LocaleString:"City" Local:Field:MediumPrompt:Width:8 Local:Field:ShortPrompt:Set as:$$LocaleString:"District" Local:Field:ShortPrompt:Width:8 Invisible:NOT ($$IsGroupSundryCreditors:$_PrimaryGroup or $$IsGroupSundryDebtors:$_PrimaryGroup) [Field:LEDCITYINP] Use:Name Field Storage:LEDCITYINP Table:CITYNAMEXMLCOLL,Not Applicable Show Table:On Empty [Field:LEDISTINP] Use:Name Field Storage:LEDISTINP Set Always:Yes Set as:$$FilterValue:$DIST:CITYNAMEXMLCOLL:1:DISTFILTER Skip : Yes [System:Formulae] DISTFILTER:$CITY = #LEDCITYINP [System:UDF] LEDCITYINP:String:1234 LEDISTINP:String:1677
This code can auto fill State also as District [#Field: LED State] SET AS : $$FILTERVALUE:$STATE:CITYNAMEXMLCOLL:1ISTFILTER Code: ;; LIST OF TALUKAS , DISTRICT & STATE [COLLECTION : AREASXMLCOLLECTION] DATA SOURCE : FILE XML : "AREAS.XML" XML OBJECT PATH : AREAOBJECT : 1 : AREACOLLECTION CLIENT ONLY : YES [COLLECTION : CITYNAMEXMLCOLL] TITLE : $$LOCALESTRING:"LIST OF TALUKAS" SUBTITLE : TALUKA , DISTRICT , STATE SOURCE COLLECTION : AREASXMLCOLLECTION FULL HEIGHT : YES ALIGN : RIGHT FETCH : CITY,DIST,STATE FORMAT : $CITY,25 FORMAT : $DIST,25 FORMAT : $STATE,25 UNIQUE : $CITY [#PART : LED MAILING ADDRESS] ; ADD : BOTTOM LINE : AT END : LEDAREALINE ADD : BOTTOM LINE : BEFORE : LEDSTATE : LEDAREALINE [LINE : LEDAREALINE] FIELDS : MEDIUMPROMPT , LEDTALUKAINP , SHORTPROMPT , LEDISTINP LOCAL : FIELD : MEDIUMPROMPT : SET AS : $$LOCALESTRING:"TALUKA" LOCAL : FIELD : MEDIUMPROMPT : WIDTH : 8 LOCAL : FIELD : SHORTPROMPT : SET AS : $$LOCALESTRING:"DISTRICT" LOCAL : FIELD : SHORTPROMPT : WIDTH : 8 LOCAL : FIELD : DEFAULT : COLOR : BLUE INVISIBLE : NOT ($$ISGROUPSUNDRYCREDITORS:$_PRIMARYGROUP OR $$ISGROUPSUNDRYDEBTORS:$_PRIMARYGROUP) [FIELD : LEDTALUKAINP] USE : NAME FIELD STORAGE : LEDTALUKAINP TABLE : CITYNAMEXMLCOLL , NOT APPLICABLE SHOW TABLE : ON EMPTY [FIELD : LEDISTINP] USE : NAME FIELD STORAGE : LEDISTINP SET ALWAYS : YES SET AS : $$FILTERVALUE:$DIST:CITYNAMEXMLCOLL:1:DISTFILTER SKIP : YES [SYSTEM : FORMULAE] DISTFILTER : $CITY = #LEDTALUKAINP [SYSTEM : UDF] LEDTALUKAINP : STRING : 1234 LEDISTINP : STRING : 1677