Hello Mr. Kurian Its a really helpful TDL, you contribution towards this forum is really creative and new. I just wanted to know whether this TDL could be extended to link the specific files instead file location paths. I mean if we fetch the doument like pdf file or some image, etc should directly be opened through it. Awaiting your reply, must not be big challenge for a person of your intelligence.
It is already there, you can open the files attached. Kindly go through the descriptions and screen captures before making a comment.
dear sir, its very nice. congrates for your hard success. may be it has my error but thing is DLC.txt allows me to attach file in ledger, purchase & sales voucher creation but it not allow me to attach in receipt, journal or payment creation...can you explain whats wrong i'm doing thank you
Mr. Santhosh, This year come to a close with your highly innovative TDL. I wonder at your imagination and your determination to make it a reality. Your contributions in this forum is astounding. You have helped many, with your selfless contributions. MAY THE NEW YEAR BRING YOU MORE LAURELS AND HAPPINESS TO YOU AND TO THOSE ALL AROUND YOU. BYE BYE
It is working fine in all vouchers, since you never disclosed your scenario in detail I cannot make any comments there on...............
Dear Expert, Great work, can we send those document attached with invoice by mail then it look much better
Dear Sir, You have to create for ledger master and same am create for voucher master and set the button to view this. I have to attach some files in voucher but not view the attached document please guide me. ;; ======================= Voucher Type creation entry ===============;; [# Part: VTYP BehaviourMain] Add: Lines : After : VTYPPrintSave : vtyp amount [Line: vtyp amount] Field : Long Prompt, amount Local : Field : Long Prompt : Info : $$LocaleString:"Set the Amount :" Local : Field : Long Prompt : Width : @@LongWidth - 1 [Field: amount] Use : Amount Field Storage : Amnt Set always : Yes [#Field: VCH NrmlRate] Control : MyRateControl : $Amnt > $Rate [System : Formula] MyRateControl : "Rate Control" attc : $$ReqObject:Skip:Yes ;;================================Color=========================;; [ColorMSPlum] RGB:221,160,221 [ColorMSLavender] RGB:230,230,250 [ColorMSAlmond] RGB:205,133,63 ;;================================Vocuher Entry =======================;; [#Part: VCH Narration] Add : Line : Attc [Button : Open File] Key : Ctrl + O Action : Exec Command: $Fullpath [Line: Attc] Field: Medium Prompt, Attinfo Local: Field: Medium Prompt: Info: "Want to Attach File ? " Space Top: 1 [Field: Attinfo] Use :Logical Field ;Storage : Enableprenarration Set as : If $$IsEmpty:$$Value then "No" else $$Value ;Sub Form: Attchdet Rep : $$Value = "Yes" Sub Form MSLedSF :$$Value = "Yes" Storage MSLedSF ;Set as :No [Report : DMSLedSF] Form : Attchdet Form [Form : Attchdet Form] Part : DMSLedPrt Height : 55% Page Width : 60% Page ;;On : Form Accept : CALL : TSPLSmpRefreshFile Add : Button : Upload File Add : Button : Open File Background MSPlum [Button : Upload File] Key : Ctrl + S Action : CopyFile : " " : ##Fullpath ;; Action : CopyFile : ##MyDstFilePath : ##Fullpath [System: UDF] Fullpath : String : 11103 [Field: openfile] Use : Name Field Set As : "Open" Key : Open File ;; Skip : Yes Color : Black Print FG : Pale Leaf Green Border : TQ Width : 5 [Border: TQ] Top : Thick, Double Bottom : Thick, Double Left : Thick, Double Right : Thick, Double [Part : DMSLedPrt] LineMSLedSFLine RepeatMSLedSFLineMSLedSFAggregate Scroll:Vertical Break On:$$IsEnd:$DMSLedDescription [LineMSLedSFLine] FieldsMSLedDescription, DMSLedPath [FieldMSLedDescription] Use:Name Field Align:Left TableMSLedTable, End of List Show Table:Always StorageMSLedDescription [FieldMSLedPath] Use:Name Field Align:Left StorageMSLedPath Inactive:$$IsEnd:$DMSLedDescription [System:UDF] DMSLedSFAggregate :Aggregate :41021 DMSLedDescription :String :41022 DMSLedPath :String :41023 amnt :Amount :41024 [TableMSLedTable] Title:"Documents" List: Agreement, Affidavit, Registration Certificate, Circular, Notification, Appeal Letter, PAN, + FD Certificate, Other Documents, TAN, IT Docs, Bank Certificates,Logo ;; ================= Adding Button in voucher =====================;; [# Form: Accounting voucher] Add:Button:after : Change Voucher Company: DMSVchButton [ButtonMSVchButton] Key :Alt + F3 Title :"View Documents" Action isplay MSVchReport [ReportMSVchReport] ;;Object : Voucher : #SVoucherType Form MSVchReportForm [FormMSVchReportForm] Part MSVchMainTit,DMSVchSubTit, DMSVchHd, DMSVchBdy, DMSVchUser Width : 200 MMS Height : 100 MMS Background : DMSLavender [PartMSVchMainTit] Line MSVchMainTitLine Background :Leaf Green [LineMSVchMainTitLine] Field MSVchMainTitFld Space Bottom:1 Border :Thick Bottom [FieldMSVchMainTitFld] Use :Name Field Set as :"List of Documents pertaining to Voucher Master" Align :Center Full Width :Yes Color :"Yellow" Style :Large Bold [PartMSVchSubTit] ;;ObjectEx :Voucher : #SVoucherType Space Top :1 Line MSVchSubTitLn [LineMSVchSubtitLn] Fields MSVchSubTitFld Space Bottom:1 [FieldMSVchSubTitFld] Use:Name Field Set as:$Name Full Width:Yes Align:Centre Color:"Red" Style:Large Bold [PartMSVchHD] Line MSVchHdLn, DMSVchTipLine [LineMSVchHdLn] Field MSVchHDFld Space Top :1 [FieldMSVchHdFld] Use :Name Field Set as :"Documents:-" Full Width :No Border :Thick Bottom [LineMSVchTipLine] Field MSVchTipFld Space Bottom:1 [FieldMSVchTipFld] Use :Name Field Set as :"(Press Enter to browse the documents)" Full Width :Yes Style MSVchTipStyle [StyleMSVchTipStyle] Font :"Bookman Old Style" Italic :Yes Height :11 [PartMSVchBdy] ; ObjectEx : Voucher : #SVoucherType Line MSVchBodyLine, DMSVchQuoteLine Repeat MSVchBodyLine:test;DMSVchCollection Scroll :Both Background :If $$IsEmpty:#DVchDescription Then "White" Else "DMSAlmond" [Collection:test] Type MSLedSFAggregate :voucherType Child Of :##SVVoucherType Compute MSLedDescription1 :$DMSLedDescription Compute MSLedPath1 :$DMSLedPath Compute :amnt1 :$amnt [CollectionMSLedCollection] TypeMSLedSFAggregate: Voucher Format:$DMSLedDescription, 30 Format:$DMSLedPath, 30 [LineMSVchBodyLine] FieldsMSVchNo, DVchDescription, DVchPath [FieldMSVchNo] Use : Number Field Set as : $$Line Align:Center KeyMSVchEnter Invisible: $$IsEmpty:#DVchDescription [FieldVchDescription] Use:Name Field Set as:$DMSLedDescription1 KeyMSVchEnter [FieldVchPath] Use:Name Field Set as:$DMSLedPath1 Invisible:Yes [KeyMSVchEnter] Key:Enter Action:Browse Url:$DMSLedPath1 [CollectionMSVchCollection] TypeMSVchSFAggregate:Vouchertype ; : #SVoucherType Format:$DMSVchDescription, 30 Format:$DMSVchPath, 30 [LineMSVchQuoteLine] Invisible:Not $$IsEmpty:#DVchDescription FieldMSVchQtFld [FieldMSVchQtFld] Use:Name Field Set as:"NO DOCUMENTS IN SUPPORT" Width:90 Align:Centre Style:Large Bold Color:"Blue" [PartMSVchUser] ObjectEx : Voucher : #SVoucherType LineMSVchUserLn Space Top:1 Background:Red [LineMSVchUserLn] FieldMSVchUserFld [FieldMSVchUserFld] Use:Name Field Set as:"This Ledger is created by: " + $CrDtTm1 Full Width:Yes Align: Center Color:"Yellow" StyleMSVchTipStyle
I appreciate your effort. Really its very amazing code and very helpful. Currently it is working to attached file in Contra, Journal, Payment and Receipt Voucher. if I want to do the same for sales, purchase, debit note, credit note what procedure have to be made? Let me know pls to : Sohel@ebit-group.com
i hope to help me i want code to hide rate and amount to user in voucher and report and i want tacking number in dilvery note without not applicable plss help me
Sirji I am new to this community and want this tdl file of urs. Can anyone plz tell me Which file i have to download Where is that attachment How to link to tally erp9
Sir, Great work ... i am just new and want to work on this assignment for document linking; currently i have seen all attachments which are .jpg ... can you please attache TDL file? or manzermasood@gmail.com
Bundle of thanks for source code file .... i have made some changes and made according to my understanding .... Once again many many thanks Sr.Taufeeq Shaikh