Code: [#Menu: Gateway Of Tally] Add : Item : Contact List : Menu : QuotationMenu [Menu: QuotationMenu] Add : Item :Contact List : Alter : Contact Name [Report: Contact Name] Form : Contact Name Object : Company Variable : vContactName : String Set : vContactName : "" [Form: Contact Name] Part : FormSubTitle, Contactman ;Button : Delete All, Remove Line, Restore Line, Restore All,Report Operations Width : 95% Screen Height : 100% Screen Background : @@SV_CHEQUE Local : Field : Form SubTitle : Info : $$LocaleString:"CONTACT LIST" Local : Field : Form SubTitle : Color : LeafGreen Local: Field:Form SubTitle : Style : Large SerIf Bold Buttons : PrintButton, ExportButton Add: Button: ContactNamefilter [Part: Contactman] Lines : PKM Title,PKM Salesman Repeat : PKM Salesman:mydbcontactperson Break on: $$IsEmpty:$contactNamedetails Scroll : Vertical Height : 90% Screen [Line: PKMTitle] Fields:SrNoFld, ContactNameFld, ContactMobFld,ContactEmailFld Border:Thick Bottom [Field:SrNoFld] Use:Name Field Set as:"Sr.No." Width:5% Screen Style:Large Bold Color:"Yellow" Read Only:Yes Skip:Yes Align:Center Background :"Blue" Border:Thin Right [Field: ContactNameFld] Use:Name Field Set as:"Contact Name" Width:50% Screen Color:"Yellow" Read Only:Yes Skip:Yes Style:Large Bold Align:Center Background :"Blue" Border:Thin Right [Field: ContactMobFld] Use:Name Field Set as:"Contact No." Width:10% Screen Color:"Yellow" Read Only:Yes Skip:Yes Style:Large Bold Align:Center Background :"Blue" Border:Thin Right [Field: ContactEmailFld] Use:Name Field Set as:"E - Mail" Width:30% Screen Color:"Yellow" Read Only:Yes Skip:Yes Style:Large Bold Align:Center Background :"Blue" Border:Thin Right [Line: PKM Salesman] Fields : PKMSNo, PKMSalemanName,PKMSalemanMob,PKMSalemanEmail Border: Thin Box [Field:PKMSNo] Use:Number Field Set as:$$Line Read Only:Yes Skip Forward:Yes Width:5% Screen Border:Thin Box Align:Center [Field: PKMSalemanName] Use : Short Name Field Storage : contactNamedetails Unique : Yes Width : 50% Screen Border:Thin Box [Field: PKMSalemanMob] Use : Short Name Field Storage : SalemanMob Unique : Yes Width:10% Screen Style : Normal Bold Border:Thin Box [Field: PKMSalemanEmail] Use : Short Name Field Storage : SalemanEmail Unique : Yes Width:30% Screen Style : Normal Case : Lower Case Color:Blue [System: UDF] mydbcontactperson : Aggregate: 998 contactNamedetails : String : 1200 ;: Yes SalemanMob:String: 1300 ;: Yes SalemanEmail:String: 1301 ;: Yes [Collection : SalemanMobCollection] Childof : ##SVCurrentCompany [Collection : ContactNameCollection] Type : mydbcontactperson : Company Childof : ##SVCurrentCompany Add : SubTitle :$$LocaleString:"Contact Name" Add : Format : $contactNamedetails, 50 Title : CONTACT LIST(Create New Contact = Alt+C) FullHeight : Yes [Button:ContactNamefilter] Key : F4 Action : Alter: ContactNamefilter Title : Contact List [Report:ContactNamefilter] Form : ContactNamefilter [Form:ContactNamefilter] Part : ContactNamefilter No Confirmation : Yes [Part:ContactNamefilter] Line : ContactNamefilter [Line:ContactNamefilter] Field : Medium Prompt,ContactNamefilter Option : alter on enter Local : Field : Medium Prompt : Set as : "Select Contact Name: " Local : Field : Medium Prompt : Color :Blue Local : Field : Medium Prompt : Style :Normal Bold [Field:ContactNamefilter] Table : ContactNameCollection1,EndOfList ShowTable : Always Use : Name Field Width : 20 Border : Thin Box Variable : vContactName Modifies : vContactName [Collection : ContactNameCollection1] Type : mydbcontactperson : Company Childof : ##SVCurrentCompany Title: "Contact List" Add : SubTitle :$$LocaleString:"Contact Name" Add : Format : $contactNamedetails, 50 Title : CONTACT LIST FullHeight : Yes Filter : ContactNamefilter Fetch : mydbcontactperson,contactNamedetails,SalemanMob,SalemanEmail [Variable:vContactName] Type : String [System:Variable] vContactName : "" [System: Formula] ContactNamefilter : $contactNamedetails = ##vContactName Or $$IsSysName:##vContactName ContactNamefilter : $contactNamedetails = #ContactNamefilter Or $$IsSysName:##vContactName In this code I want when I search the customer , the cursor goes on it...How can this be done??
Code: [#Menu: Gateway Of Tally] Add : Item : Contact List : Menu : QuotationMenu [Menu: QuotationMenu] Add : Item :Contact List : Alter : Contact List [Report: Contact List] Form : Contact List Object : Company [Form: Contact List] Part : FormSubTitle, Contactman ;Button : Delete All, Remove Line, Restore Line, Restore All,Report Operations Width : 50% Screen Height : 100% Screen Background : @@SV_CHEQUE Local : Field : Form SubTitle : Info : $$LocaleString:"CONTACT LIST" Local : Field : Form SubTitle : Color : LeafGreen Local: Field:Form SubTitle : Style : Large SerIf Bold Buttons : PrintButton, ExportButton Button: FilterContactButton [Part: Contactman] Lines : PKM Title,PKM Salesman Repeat : PKM Salesman:mydbcontactperson Break on: $$IsEmpty:$contactNamedetails Scroll : Vertical Height : 90% Screen [Line: PKMTitle] Fields:SrNoFld, ContactNameFld Right Fields :ContactMobFld Border:Thick Bottom [Field:SrNoFld] Use:Name Field Set as:"Sr.No." Width:7% Screen Style:Large Bold Color:"Yellow" Read Only:Yes Skip:Yes Align:Center Background :"Blue" Border:Thin Right [Field: ContactNameFld] Use:Name Field Set as:"Contact Name" Full Width:Yes Color:"Yellow" Read Only:Yes Skip:Yes Style:Large Bold Align:Center Background :"Blue" Border:Thin Right [Field: ContactMobFld] Use:Name Field Set as:"Contact No." Width:15% Screen Color:"Yellow" Read Only:Yes Skip:Yes Style:Large Bold Align:Center Background :"Blue" Border:Thin Right [Line: PKM Salesman] Fields : PKMSNo, PKMSalemanName Right Fields :PKMSalemanMob Border: Thin Box [Field:PKMSNo] Use:Number Field Set as:$$Line Read Only:Yes Skip Forward:Yes Width:7% Screen Border:Thin Box Align:Center Key : srnopageup Key : srnopagedn [Key: srnopageup] Key : PgUp Action : Part PgUp [Key: srnopagedn] Key : PgDn Action : Part PgDn [Field: PKMSalemanName] Use : Short Name Field Storage : contactNamedetails Unique : Yes Full Width:Yes Border:Thin Box Key : pagedown report Key : pageup report [Key: pagedown report] Key : PgDn Action : Part PgDn [Key: pageup report] Key : PgUp Action : Part PgUp [Field: PKMSalemanMob] Use : Short Name Field Storage : SalemanMob Unique : Yes Width:15% Screen Style : Normal Bold Border:Thin Box [System: UDF] mydbcontactperson : Aggregate: 998 contactNamedetails : String : 1200 ;: Yes SalemanMob:String: 1300 ;: Yes [Collection : SalemanMobCollection] Childof : ##SVCurrentCompany [Collection : ContactNameCollection] Type : mydbcontactperson : Company Childof : ##SVCurrentCompany Fetch : *, *.* Add : SubTitle :$$LocaleString:"Contact Name" Add : Format : $contactNamedetails, 30 Title : CONTACT LIST FullHeight : Yes [Collection : ContactNameCollection25] Type : mydbcontactperson : Company Childof : ##SVCurrentCompany Fetch : *, *.* Add : SubTitle :$$LocaleString:"Contact Name" Add : Format : $contactNamedetails, 20 Title : CONTACT LIST FullHeight : Yes ;;;;;;;;;;;;;;;;;;;;;;;POPUP FORM TO SELECT ITEM ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; [Button: FilterContactButton] Title : Contact Search Action : Alter : Contact Wise Search Key : F4 [Variable:PartyName111] Type : String Default : "" [Report:Contact Wise Search] form:Contact Wise Search Variable:PartyName111 [Form: Contact Wise Search] Part : Contact Wise Search On : Form Accept : Yes :Display : ContactReportDisp [Part : Contact Wise Search] Line : Contact Wise Search [Line: Contact Wise Search] Field : Contact Wise Search1, Contact Wise Search2 [Field : Contact Wise Search1] Info : "Item Name :" Style:Normal Bold [Field : Contact Wise Search2] Use : Name field Table : ContactNameCollection, End of List Show Table : Always Sort : Yes Modifies : PartyName111 : yes ;;;;;;;;;;;;;;;;;;;;;;;POPUP FORM TO SELECT ITEM END;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;; REPORT TO DISPLAY ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; shree ganeshay namah [Report: ContactReportDisp] Form : Contact Name2 Object : Company Variable: PartyName111 [Form: Contact Name2] On : Form Accept : Yes: Form Accept Part : FormSubTitle,Contact Name2 ;Button : Delete All, Remove Line, Restore Line, Restore All,Report Operations Width : 50% Screen Height : 100% Screen Background :@@SV_CHEQUE Local : Field : Form SubTitle : Info : $$LocaleString:"CONTACT LIST" Local : Field : Form SubTitle : Color : LeafGreen Local: Field:Form SubTitle : Style : Large SerIf Bold Buttons : PrintButton, ExportButton [Part: Contact Name2] Lines : UserTitContactName2,CMP ContactName2 Repeat : CMP ContactName2: ContactNameCollection2 Break on: $$IsEmpty:$contactNamedetails Scroll : Vertical Height : 90% Screen [Line:UserTitContactName2] Fields:SrNoFld2, ContactNameFld2 Right Fields :ContactMobFld2 Border:Thick Bottom [Field:SrNoFld2] Use:Name Field Set as:"Sr.No." Width:7% Screen Style:Large Bold Color:"Yellow" Read Only:Yes Skip:Yes Align:Center Background :"Blue" Border:Thin Right [Field: ContactNameFld2] Use:Name Field Set as:"Contact Name" Full Width:Yes Color:"Yellow" Read Only:Yes Skip:Yes Style:Large Bold Align:Center Background :"Blue" Border:Thin Right [Field: ContactMobFld2] Use:Name Field Set as:"Contact No." Width:15% Screen Color:"Yellow" Read Only:Yes Skip:Yes Style:Large Bold Align:Center Background :"Blue" Border:Thin Right [Line: CMP ContactName2] Fields : PKMSNo2, PKMSalemanName2 Right Fields :PKMSalemanMob2 Border: Thin Box [Field:PKMSNo2] Use:Number Field Set as:$$Line Read Only:Yes Skip Forward:Yes Width:7% Screen Border:Thin Box Align:Center [Field: PKMSalemanName2] Use : Short Name Field Set as :$contactNamedetails Storage : contactNamedetails Unique : Yes Full Width:Yes Border:Thin Box [Field: PKMSalemanMob2] Use : Short Name Field Set as :$SalemanMob Storage : SalemanMob Unique : Yes Width:15% Screen Style : Normal Bold Border:Thin Box [Collection : ContactNameCollection2] Type : mydbcontactperson : Company Childof : ##SVCurrentCompany Fetch : *, *.* Filter: ContactFilter [System: Formulae] ContactFilter: $contactNamedetails = ##PartyName111 [System : Variable] PartyName111 : ""
