Dear Member, Hope You will enjoy this code This code allows you to print or export seal and signature In sales , purchase ,debit note, credit Note Print Ledger Voucher Report and Bill wise report with Company Logo and seal and signature Seal and Signature in Payment advice also. 1) first go to Help>Tdl and Addons> F6 Add on features 2) then Enable signature print to Yes 3) a subform will open where You have to give location of your signature Image with name and extension That's it Enjoy. All members are requested to give Valuable feedback to improve this code also added features Code: [#Part: CMP TallyShopFeaturesTitle] Add: Line: CMP EnableSignatureImage [Line: CMP EnableSignatureImage] Field: Medium Prompt, CMP EnableSignatureImage Local: Field: Medium Prompt: Info: "Enable Signature Print ? " Space Top: 1 [Field: CMP EnableSignatureImage] Use: Logical Field Storage: EnableSignature Set as: If $$IsEmpty:$$Value then "No" else $$Value Sub Form: Cmp CompanySign Path: $$Value = "Yes" [Report : CMP CompanySign Path] Form : CMP CompanySign Path [Form : CMP CompanySign Path] Parts : Form SubTitle, CMP CompanySign Path Option : Small Size Form FullWidth : No FullHeight : No SpaceTop : 1 SpaceBottom : 1 SpaceLeft : 1 SpaceRight : 1 Background : @@SV_COSTCATEGORY Local : Field : Form SubTitle: Info : $$LocaleString:"Company Signature" Horizontal Alignment: Centre Vertical Alignment : Centre [Part : CMP CompanySign Path] Line : CMP CompanySign Path, CompanyLogo PathNotesOne [Line : CompanyLogo PathNotesOne] Field : CompanyLogo PathNotes Space Top : 1 Space Bottom : 0.4 Local : Field : CompanyLogo PathNotes: Set as : "- " + $$LocaleString:"Formats supported are BMP and JPEG." [Field: CompanyLogo PathNotes] Style : Normal Italic FullWidth : Yes Align : Left Skip : Yes Fixed : Yes [Line : CMP CompanySignPath] Fields : Medium Prompt, CMP CompanySign Path Local : Field : Medium Prompt : Info : $$Localestring:"Location of Signature:" [Field : CMP CompanySign Path] Use : Name Field Case : Normal Set as : $SignaturePath:Company:##SVCurrentCompany Storage : SignaturePath Setalways : Yes Width : @@LongWidth Max : 100 Control : CMPLogoPathExist : ($$IsEmpty:$$Value OR Not $$IsFileExists:$$Value OR ($$FileSize:$$Value > 1048577)) Modifies : SASignPath : Yes [System : Formula] CMPLogoPathExist : (If $$IsEmpty:$$Value then $$LocaleString:"Logo path cannot be empty." + Else If Not $$IsFileExists:$$Value then $$LocaleString:"Logo path specified is invalid or file not found." + Else IF $$FileSize:$$Value > 1048577 Then "File size exceeds 1 MB." + Else $$LocaleString:"Format Not Supported") [#Report: ChangeCurrentCompany] Local : Form : Modify Variables : On :Form Accept : Yes : SET : SASignPath:$SignaturePath:Company:##SvCurrentCompany [#Report: Voucher] SET : SASignPath:$SignaturePath:Company:##SvCurrentCompany [System:Variable] SASignPath : $SignaturePath:Company:##SvCurrentCompany [Variable: SASignPath] Type : String Persistent : Yes [System:UDF] EnableSignature : Logical : 1029 SignaturePath : String : 1031 [#Part: EXPINV Signature] Delete:Line: EXPSMP Signature Delete:Bottom Lines: EXPSMP Authourity Top Part : Test Image Part1 Top Part : Test Image Part12 Right Part : Test Image Part Bottom Part : Test Image Part2 Vertical: Yes Height: 57 MMS Width :70% Page Option : Small Size Part Horizontal Alignment: Right Option : TraderInv AuthSignInfo : (@@IsDealerExciseSalesInvoice OR @@IsExciseMfgrRule11Invoice) AND NOT ##SATraderCommercial AND (NOT $$IsEmpty:##SAAuthorisedSignName OR NOT $$IsEmpty:##SAAuthorisedSignDesgn) Local:Field:Default:Full Width:Yes [#Part: EXPSMP Signature] Delete:Line : EXPSMP Signature Delete:Bottom Lines: EXPSMP Authourity Top Part : Test Image Part1 Top Part : Test Image Part12 Right Part : Test Image Part Bottom Part : Test Image Part2 Vertical: Yes Height: 57 MMS Width :70% Page Option : Small Size Part Horizontal Alignment: Right Option : TraderInv AuthSignInfo : (@@IsDealerExciseSalesInvoice OR @@IsExciseMfgrRule11Invoice) AND NOT ##SATraderCommercial AND (NOT $$IsEmpty:##SAAuthorisedSignName OR NOT $$IsEmpty:##SAAuthorisedSignDesgn) Local:Field:Default:Full Width:Yes [#Line : EXPSMP Signature] Local : Field : Simple Field : Align : Right [Part:Test Image Part1] Line : EXPSMP Signature Height: 12 mms Local : Line : Default :Space Bottom:1 [Part:Test Image Part12] Line : blankline1 Height: 2 mms [Part:Test Image Part] Line : Test Image Line Graph Type : ##SASignPath Height : 39 mms Width :70% Page Horizontal Alignment:right Invisible : Not $EnableSignature:Company:##SVCurrentCompany [Part:Test Image Part2] Line : EXPSMP Authourity Height: 4 mms [Line:blankline1] Right Field: Blank Field Space Top : If $$InPrintMode Then 1 Else 1 [Field:Blank Field] Set as:"" Align : Right [Line:Test Image Line] Right Field: Test Image Field Space Top : If $$InPrintMode Then 1 Else 1 [Field:Test Image Field] Set as:"" Align: Right Full Width:Yes ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; [#Part: BankPymtAdvice Checked] Delete:Lines : BankPymtAdvice Sign, BankPymtAdvice Checked Part : BankPymtAdviceSignImage, BankPymtAdvice CheckedSat Vertical : Yes Space Top : 0.5 inch [Part: BankPymtAdvice CheckedSat] Line : BankPymtAdvice Sign, BankPymtAdvice Checked Space Top : 0.5 inch [Part:BankPymtAdviceSignImage] Line : BankPymtAdviceSignImage Line Graph Type : $SignaturePath:Company:##SVCurrentCompany Height : 30 mms Width :40% Page Horizontal Alignment:Left Invisible : NOT $EnableSignature:Company:##SVCurrentCompany [Line:BankPymtAdviceSignImage Line] Field: Test Image Field Space Top : If $$InPrintMode Then 1 Else 1 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; [#Form: Normal Ledger] Add:Option:Normal Ledger with Sign:$$InPrintMode OR $$InExportMode OR $$InMailAction AND ($EnableSignature:Company:##SVCurrentCompany ) [#Form:Ledger Outstandings] Add:Option:Normal Ledger with Sign:$$InPrintMode OR $$InExportMode OR $$InMailAction AND ($EnableSignature:Company:##SVCurrentCompany ) [#Form: Bills Outstanding] Add:Option:Normal Ledger with Sign:$$InPrintMode OR $$InExportMode OR $$InMailAction AND ($EnableSignature:Company:##SVCurrentCompany ) [#Part:DSP AccTitles] Delete:Parts:DSP ReportTime, DSP CompanyName, DSP CompanyAddress, DSP GCC CmpRegnNo, DSP GSTCmpRegnNo, DSP ReportTitle, DSP PageNo, DSP ScaleFactor Add:Part:EXPINV Image,Sat DSP AccTitlesRt Vertical : No Local:Part:EXPINV Logo:Delete:Height Local:Part:EXPINV Logo:Delete:Width Local:Part:EXPINV Logo:Add:Height:32 mms Local:Part:EXPINV Logo:Add:Width :32 mms [Part:Sat DSP AccTitlesRt] Parts : DSP ReportTime, DSP CompanyName, DSP CompanyAddress, DSP GCC CmpRegnNo, DSP GSTCmpRegnNo, DSP ReportTitle, DSP PageNo, DSP ScaleFactor Vertical : Yes [#Line : DSP CompanyName] Local:Field: DSP CompanyName:PrintStyle : MyBook Antiqua Bold Local:Field: DSP CompanyName:Print FG: Maroon [#Line : DSP CompanyAddress] Local:Field: DSP CompanyAddress:PrintStyle : Normal Bold Local:Field: DSP CompanyAddress:Print FG: DarkBlue16Bit [Style : MyBook Antiqua Bold] Font : "Bookman Old Style" Bold : Yes Height : 20 [!Form:Normal Ledger with Sign] Add:Bottom Part:Normal Ledger with Sign [Part:Normal Ledger with Sign] Right Part:Normal Ledger with Sign1 [Part:Normal Ledger with Sign1] Part:Test Image Part1,BankPymtAdviceSignImage,Test Image Part2 Vertical:Yes Local:Part:BankPymtAdviceSignImage:Horizontal Alignment:Right Local:Part:BankPymtAdviceSignImage:Width :100% Page Local:Part:BankPymtAdviceSignImage:Height :30 mms Local:Part:Test Image Part2:Local:Line:EXPSMP Authourity:Delete:Left Fields : Name Field,Short Name Field ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Sir, Pl share code for auto selection of company specific sign when more than one company are created in tally. I want auto selection of sign for current company. Thanks
Can anyone help me to add seal and signature in this attached tdl Also want to add doted grid lines for items