Just ... my [Scrolling...] wishes to all TDL/Tally Lovers on this Forum.. off course with a Code Code: [System : Formulae] LocTxoScroll : "Taxo" LocTxoBlank : "" LocTxoBlank1 : "" TxoGreetingScroll : "Taxo- Greetings" [#Menu : Gateway of Tally] ; Add : Item : After : @@locIndentUtilities : @@LocTxoTools Add : Indent : After : @@locIndentUtilities : @@LocTxoBlank Add : Key Item : After : @@LocTxoBlank : @@TxoGreetingScroll : T : Menu : TxoGreetingScroll :NOT $$IsEmpty:$$SelectedCmps ;AND @@RBC_TM_IsOn Add : Indent : After : @@TxoGreetingScroll : @@LocTxoBlank [Menu: TxoGreetingScroll] Indent : "Taxo- Greetings" Item : Blank Item : Blank Key Item : " - Happy Diwpawali-Greeting ": D : Display: Rbc_Scroll: NOT $$IsEmpty:$$SelectedCmps Item : Blank [Report: Rbc_Scroll] Form : Rbc_Scroll Variable : TxoCrntPost Set : TxoCrntPost : 0 On : Load : Yes : Call : StartScrollText [Form: Rbc_Scroll] No Confirm : No Space Top : 1 Space Left : 1 Space Right : 1 Space Bottom : 0 ; Option : Medium Size Form Height : 30% Page Width : 80% Page Vertical Align : Centre Background : @@SV_RELEASEDORANGE; @@SV_RELEASEDLEAFGREEN ;@@SV_BLUE; @@SV_UNYELLOW Button : Local TDL Config Local: Field: Form SubTitle : Info : "";"Map appropriate ledgers/Fields from Tally to Listed Excel Columns" Part: Rbc_ScrollSet Bottom Part : RBC_FirmProfile Set : TxoCrntPost : 0 On : Reject : Yes: Call: StopScrollText On : Reject : Yes: Form Reject On : Form Accept : Yes: Call: StopScrollText On : Form Accept : Yes: Form Accept [Part: Rbc_ScrollSet] Parts : Rbc_Scroll Title, Form SubTitle Vertical : Yes [Part: Rbc_Scroll Title] Lines : Rbc_Scroll, Bottom Line :Rbc_Scroll Info Space Bottom : 2 [Line: Rbc_Scroll] Fields : Form Sub Title Local : Field : Form Sub Title : Info : $$LocaleString:"Hapay Dipawali-2021" Local : Field : Form Sub Title : Style : TxoScrool Big Local : Field : Form Sub Title : Color : Geranium16Bit Local : Field : Form Sub Title : Delete : Border Space Bottom : 1 [Style: TxoScrool Big] Font : "Algerian" Height : 16 Bold : Yes [Style: TxoScrool Small] Font : "Algerian" Height : 12 Bold : Yes [Line: Rbc_Scroll Info] Field : Simple Field Local : Field : Simple Field : Set As : $$LocaleString:##TxoCrntText Local : Field : Simple Field : Set Always : Yes Local : Field : Simple Field : Full Width : Yes Local : Field : Simple Field : Align : Centre Local : Field : Simple Field : Style : TxoScrool Small Local : Field : Simple Field : Color : Red Local : Field : Simple Field : Delete : Border Border : thin Bottom [Part: RBC_FirmProfile] Line:RBC_FirmProfile Common Border : Yes [Line:RBC_FirmProfile] Line: RBC_FirmProfile1 ,RBC_FirmProfile2 Local : Field : default : Style : Small Serif Bold Italic [Line : RBC_FirmProfile1] Left Field : RBC_FirmProfile1 Border : Thin Cover [Line : RBC_FirmProfile2] Left Field : RBC_FirmProfile2 Border : Thin Left Right Bottom [Field : RBC_FirmProfile1] Use: Name Field Set as : "Developed for Rawat Bartwal & Co. Chartered Accountants" Skip : Yes Alignment : Center Full Width : Yes BackGround : @@SV_RELEASEDGREEN [Field : RBC_FirmProfile2] Use: Name Field Set as : "Dehradun, Uttarakhand, Contact: 7055451996, Email : ca.devendra.rawat@gmail.com" Skip : Yes Alignment : Center Full Width : Yes BackGround : @@SV_RELEASEDYELLOW_DK [System : Formula] TxoGreeting : $$LocaleString:"(Hearty wishes to you and your family at the festival of lights… May all your happiness light up and sorrows burn out. HAPPY DIWALI 2021…!!!)" [System : Variable] TxoCrntText : "" TxoCrntPost : 0 TxoMaxCount : 1 [Variable : TxoCrntPost] Type : Number [Variable : TxoMaxCount] Type : Number [Variable : TxoCrntText] Type : String Volatile : Yes [System: Event] RefreshScrollText : TIMER : TRUE : CALL : TxoChangeCrntChar:##TxoCrntPost LoadScrollText : Load Company : (NOT $$IsEmpty:$$SelectedCmps): Display : Rbc_Scroll [Function : StartScrollText ] 100 : START TIMER : RefreshScrollText : 1 [Function : StopScrollText ] 100 : Stop TIMER : RefreshScrollText [Function : TxoChangeCrntChar] Parameter : pInCrntPos : Number Variable : TxoNumChars : Number Variable : TxoLeftChar : String Variable : TxoCrntChar : String Variable : TxoNextChar : String Variable : TxoScrollTxt : String 010 : Set : TxoNumChars : $$StringLength:@@TxoGreeting 100 : Set : TxoCrntPost : ##pInCrntPos 130 : Set : TxoLeftChar : $$StringPart:@@TxoGreeting:0:##TxoCrntPost 140 : Set : TxoCrntChar : $$StringPart:@@TxoGreeting:##TxoCrntPost:1 150 : Set : TxoNextChar : $$StringPart:@@TxoGreeting:##TxoCrntPost:(##TxoNumChars-##TxoCrntPost) 160 : Set : TxoScrollTxt : $$LocaleString:##TxoNextChar + $$LocaleString:"..... <*<*>*> ....." + $$LocaleString:##TxoLeftChar /* 200 : Log : "TxoCrntPost : "+$$String:##TxoCrntPost 220 : Log : "TxoNumChars : "+$$String:##TxoNumChars 230 : Log : "TxoLeftChar : "+$$String:##TxoLeftChar 240 : Log : "TxoCrntChar : "+$$String:##TxoCrntChar 250 : Log : "TxoNextChar : "+$$String:##TxoNextChar 260 : Log : "TxoScrollTxt : "+$$String:##TxoScrollTxt */ 290 : Set : TxoCrntText: $$LocaleString:##TxoScrollTxt ; 300 : Log:##TxoCrntText 295 : Sleep : 1 310 : Set : TxoCrntPost : ##TxoCrntPost + 1 320 : Do If : ##TxoCrntPost > ##TxoNumChars : Set: TxoCrntPost : 0 400 : Refresh Data
Dear Devendraji Wish you Happy Deepawali. Thanks for sharing... Someone asked for the same in forum...
