I Want to Create Common Voucher Print format for all vouchers but Not Success. major difficulties are as follows. 01) Not Working for Debit Not, Credit Not and Sales Voucher. 02) Voucher Total not Calculated. 03) Amount In Words is also wrong. 04) Inventory Item Not shown. I hope our Experts are Help me for Obtain my goals. Thanks Code: [!Form : Prnt VCH] Parts : PYVCHCOmpanyAddr, SMTDate, SMTTime, VoucherType, ChqDetail, VoucherDetails, Signature Width : ##PPRWidth inch Height : ##PPRHeight inch Space Top : ##PPRSpaceTop inch Width : 190 mms HorizontalAlign : Centre [Part: PYVCHCOmpanyAddr] Part : PRCT CompanyDetails1 HorizontalAlign : Centre Border: Thick Cover [Part : PRCT CompanyDetails1] Parts : PRCT Image1, PRCT Company Addr1 , Empty Local : Part : Empty : Width : if @@IsLogoEnabled then 15% Else 0% Page Local : Part : EXPSMP Image : Height : If ($$InExportMode And $$IsSysNameEqual:HTML:##SVExportFormat) then 15% else 10% Page Local : Part : EXPSMP Image : Invisible : NOT @@IsLogoEnabled [Part: PRCT Image1] Part : Empty, EXPSMP Image Vertical: Yes Local : Line : Empty : Local : Field : Simple Field : Set as : "" Invisible : NOT @@IsLogoEnabled [Part : PRCT Company Addr1] Lines : PRCT Company1 Local : Field : Simple Field : Align : Centre Local : Field : Simple Field : FullWidth : Yes SpaceBottom : 0.1 Option : PRCTAddr1 : ##PrintWithCompanyName AND ##PrintWithAddress [!Part: PRCTAddr1] Add : Lines : PRCTAddr1 Repeat : PRCT Addr1 : Company Address Option : PRCT CMA CompanyAddress1 : NOT ($$IsSysNameEqual:Primary:##SVAddressToPrint OR $$IsEmpty:##SVAddressToPrint) [!Part: PRCT CMA CompanyAddress1] Delete : Repeat Add : Repeat : PRCTAddr1 : Company Multi Address Print [Line: PRCT Date1] Left Fields : Simple Prompt, PRCT Serial1 RightFields : Info Field1, PRCT Date1 Local : Field : Simple Prompt : Info : $$LocaleString:"No." Local : Field : Simple Prompt : PrePrinted : Yes Local : Field : Info Field : Info : $$LocaleString:"Dated" Local : Field : Info Field : PrePrinted : Yes ;SpaceBottom : 1 [Field: PRCT Serial1] Set as : $VoucherNumber Style : Normal Bold [Field: PRCT Date1] Set as : $$String:$Date:UniversalDate Style : Normal Bold [Line: PRCT Company1] Fields : Simple Field Local : Field : Simple Field : Set as : @@CmpMailName Local : Field : Simple Field : Style : INSTITUTE ; Normal Bold Local : Field : Simple Field : PrePrinted: Yes Invisible : NOT ##PrintWithCompanyName Option : PRCT CMA CompanyName1 : NOT ($$IsSysNameEqual:Primary:##SVAddressToPrint OR $$IsEmpty:##SVAddressToPrint) [!Line: PRCT CMA CompanyName1] Local : Field : Simple Field : Set as : $(Company, ##SVCurrentCompany).MultiAddressList[1, @@IsSameCmpAddrType].MailingName [Line: PRCT Addr1] Fields : Simple Field Local : Field : Simple Field : Set as : $Address Local : Field : Simple Field : Border : Thin Bottom : $$Line = $$NumItems Local : Field : Simple Field : PrePrinted: Yes [Part : SMTDate] Lines : SMDate HorizontalAlign : Left Border: Thick Left Right [Line : SMDate] Fields : Simple Prompt, SystDate RightFields : Info Field, VCHNo1 Local : Field : Simple Prompt: Info: "Print Date " Local : Field : Simple Prompt: Style : StyleAllText Local : Field : Info Field : Info : "Voucher No. : " Local : Field : Info Field : Style : StyleAllText [Field : SystDate] Set as : $$MachineDate Style : StyleAllTextBold [Field : VCHNo1] Set as : $VoucherNumber Style : StyleAllTextBold [Part : SMTTime] Lines : SMTTimeLine HorizontalAlign : Left Border: Thick Left Right [Line : SMTTimeLine] Fields : Simple Prompt, SystTime RightFields : Info Field, VCHDated Local : Field : Simple Prompt : Info: "Print Time " Local : Field : Simple Prompt : Style : StyleAllText Local : Field : Info Field : Info : "Dated : " Local : Field : Info Field : Style : StyleAllText [Field : SystTime] Set as : $$MachineTime Style : StyleAllTextBold [Field : VCHDated] Set as : $Date Style : StyleAllTextBold [Part : VoucherType] Lines : VoucherTypeLine HorizontalAlign : Center Border: Thick Left Right [Line : VoucherTypeLine] Fields : Name Field Local : Field : Name Field : Set As: $VoucherTypeName +" Voucher" Local : Field : Name Field : Style : StyleHeadingI [Part : ChqDetail] Lines : ChqDetailLine HorizontalAlign : Right Border: Thick Left Right Invisible: NOT @@IsPayment or NOT @@IsReceipt [Line : ChqDetailLine] Fields : Info Field, ChqNum Local : Field : Info Field : Info: "Cheque # " Local : Field : Info Field : Style : StyleAllText [Field : ChqNum] Set as : $$Number:$DueDateOfPymt Style : StyleAllTextBold [Part : VoucherDetails] Space Top: 0.5 Line : TopHeadingsLine, PartyDetailsAll, PartyLedNarr, TotalWordsLine, TotalAmt Repeat : PartyDetailsAll : AllLedgerEntries Border: Thick Left Right Width : Full [Line : TopHeadingsLine] Fields : PartyTitle, PartyDr, PartyCr [Field : PartyTitle] Fields : Info Field Local : Field : Info Field : Info: "Description" Local : Field : Info Field : Style : StyleAllTextBold Local : Field : Info Field : Width : 69 Local : Field : Info Field : Align : Center Border : BlueBorderXThin [Field : PartyDr] Fields : Info Field Local : Field : Info Field : Info: "Debit Amount" Local : Field : Info Field : Style : StyleAllTextBold Local : Field : Info Field : Width : 23 Local : Field : Info Field : Align : Center Border : BlueBorderXThin [Field : PartyCr] Fields : Info Field Local : Field : Info Field : Info: "Credit Amount" Local : Field : Info Field : Style : StyleAllTextBold Local : Field : Info Field : Width : 23 Local : Field : Info Field : Align : Center Border : BlueBorderXThin [Line : PartyDetailsAll] Lines : PartyName, BlankLineI [Line : PartyName] Field : PartyLedName Right Fields : PartyDrAmount, PartyCrAmount Explode : PartyLedNarrPart : yes [Part : PartyLedNarrPart] Line : PartyLedNarr Repeat : PartyLedNarr : LedgerEntries Repeat : PartyLedNarr : InventoryEntries Width : 190 mms [Line : PartyLedNarr] Fields : Short Prompt, PartyLedNarration Local : Field : Short Prompt : Info : $$LocaleString:"Remarks" + ":" Local : Field : Short Prompt : PrePrinted : Yes Local : Field : Short Prompt : Style : StyleAllTextBold SpaceBottom : 1 Space Top : 1 [Field : PartyLedName] Set as : $LedgerName Width : 69 Space Left : 1 Style : StyleAllTextBold [Field : PartyDrAmount] Use : Amount Field Set as : if $$IsDr:$Amount then $$AsPositive:$Amount else $$AsAmount:0 Inactive: NOT $$IsDr:$Amount ; Set as : if $$IsDr:$Amount then $$AsDrAmt:$Amount else "" Align : Center Width : 20 Style : StyleAllText ; Border: Left Full [Field : PartyCrAmount] Use : Amount Field Set as : if $$IsDr:$Amount then $$AsAmount:0 else $$AsPositive:$Amount Inactive: $$IsDr:$Amount ;Set as : if $$IsDr:$Amount then "" else $$AsCrAmt:$Amount Align : Center Space Left : 6 Width : 20 Style : StyleAllText ; Border: Left Full [Field : PartyLedNarration] Set as : $Narration Width : 69 Line : if $$StringLength:$Narration > 120 then 2 else 1 Style : StyleAllTextNarration [Line : BlankLineI] Fields : Simple Field Local : Field : Simple Field : Set as : " " Local : Field : Simple Field : Style : StyleAllTextBold Local : Field : Simple Field : Align : Right Local : Field : Simple Field : Width : 69 [Line : TotalAmt] Field : Short Prompt,Info Field Local : Field : Short Prompt : Info : "Chargable Amount In Words " Local : Field : Info Field : Info : $$InWords:(($$CollectionField:$Amount:($$NumLedgers:AllLedgerEntries):AllLedgerEntries)+00000)+" Only." Local : Field : Short Prompt : Style : StyleAllTextBold Local : Field : Default : Width : Full Border : Thick Left Right Double Bottom [Line : TotalWordsLine] Fields : Info Field RightFields : TotalDr,TotalCr Local : Field : Info Field : Info: "Total " Local : Field : Info Field : Align : Center Local : Field : Info Field : Style : StyleAllTextBold Local : Field : Info Field : Width : 69 Border : Thick Left Right Double Bottom [Field : TotalDr] Use : Amount Field Set as : $$Total:PartyDrAmount Width : 23 Cell : 4 Align : Center Style : StyleAllTextBold Border : Thick Left Right Double Bottom [Field : TotalCr] Use : Amount Field Set as : $$Total:PartyCrAmount Width : 23 Cell : 4 Align : Center Style : StyleAllTextBold Border : Thick Left Right Double Bottom [Part : Signature] Lines : SignLine Space Top : 3 HorizontalAlign : Center ; Border: Thick Left Right [Line : SignLine] Fields : Info Field, CheckedByLine, ApprovedByLine, ReceivedByLine Local : Field : Info Field : Info: "Prepared By : "+$$CmpUserName Local : Field : Info Field : Style : StyleAllText Local : Field : Info Field : Width : 20 Local : Field : Info Field : Space Left : 1 [Field : CheckedByLine] Fields : Info Field Local : Field : Info Field : Info: "Checked By : ____________________" Local : Field : Info Field : Style : StyleAllText Local : Field : Info Field : Width : 30 Local : Field : Info Field : Space Left : 1 [Field : ApprovedByLine] Fields : Info Field Local : Field : Info Field : Info: "Approved By : ____________________" Local : Field : Info Field : Style : StyleAllText Local : Field : Info Field : Width : 30 Local : Field : Info Field : Space Left : 1 [Field : ReceivedByLine] Fields : Info Field Local : Field : Info Field : Info: "Received By : ____________________" Local : Field : Info Field : Style : StyleAllTextBold Local : Field : Info Field : Width : 30 Local : Field : Info Field : Space Left : 1 Local : Field : Info Field : Invisible: NOT @@IsPayment or NOT @@IsReceipt [Border : BlueBorderXThick] Top : thick Bottom : Thick Right : Thick Left : Thick Color : "Blue" Print Fg: "Blue" [Border : BlueBorderXThin] Top : thin Bottom : thin Right : thin Left : thin Color : "Blue" Print Fg: "Blue" [Border: Thick Left Right Double Bottom] Top : Thick Left : Thick Right : Thick Bottom : Thick, Double [Border: Left Full] Left : Full Length,Thick [Style : StyleGSName] Font: "Cooper Black" Height : 12 [Style : StyleAllTextSmall] Font: "Calibri" Height : 8 [Style : StyleAllText] Font: "Calibri" Height : 10 [Style : StyleAllTextNarration] Font: "Calibri" Height : 8 [Style : StyleAllTextBold] Font: "Calibri" Height : 10 Bold : Yes [Style : StyleHeadingI] Font: "Verdana" Height : 10 Bold : Yes
Code: [Line : TotalAmt] Field : Short Prompt,Info Field Local : Field : Short Prompt : Info : "Chargable Amount (In Words) " Local : Field : Info Field : Info : $$InWords:(($$CollectionField:$Amount:($$NumItems:AllLedgerEntries):AllLedgerEntries)+00000)+" Only." ;; Local : Field : Info Field : Set as : IF @@IsPurchase Then $$InWords:(($$CollectionField:$Amount:($$NumItems:AllLedgerEntries):AllLedgerEntries)+00000)+" Only." Else $$InWords:$Amount+ " Only" Local : Field : Short Prompt : Style : StyleAllTextBold Local : Field : Short Prompt : Width : 31 Local : Field : Info Field : Width : 85;Full Local : Field : Default : Lines : 2 Border : Thick Left Right Double Bottom Dear @amit Sir, @tailor sir, @Teja Sir, @bipin sir, @Maulik Patel sir Please Help me
Actually I am developing selected voucher print for this I want to give all voucher same look , but voucher print format give me more trouble then I think, there for I am begging help for voucher. If I will Success to make selected voucher print module then I upload full code here, Please Help me I don know why Famous Developers and our Grurs(Teachers) silent on above Threads.
Bcoz ....most people are busy with their work... like I am busy with Returns, Audit and travelling. So have patience. Once someone is free, they will help. Also it helps when dummy tally data and full code is attached. Not all queries can be solved from snippets of code and also if one does not have data to try your code, then it is difficult. Just to solve a query people cannot make a tally data....to try the code.
Thank yo sir your valuable reply , I will post modified code and dummy data and my further more threads are unsolved i.e. 01) Multi Voucher Printing through Voucher Number Range | TDLeXperts-World's first online TDL (Tally Definition Language) community
Here is Full code and sample data Code: [#Form : DayBook] Add : Button : Print SelectedVch [#Form : Ledger Vouchers] Add : Button : Print SelectedVch [Button : Print SelectedVch] Key : Ctrl + P Title : "Print Voucher" Action : Print Report: Prnt VCH;Voucher Scope : Selected Lines [Collection : Print SelectedVch] Data Source : Parent Report : Selected Fetch : Inventory Entries.*,AllInventorEntries.Qty, Voucher Number, Date, Amount, BasicCompanyFormalName, Address, LedgerName, BasicVoucherChequeName, AllLedgerEntries.*, LedgerEntries.*,AllLedgerEntries.BankAllocations.INSTRUMENTNUMBER [#Report:Voucher Print] Add:Collection:Print SelectedVch [#Report: Multi Voucher Print] Add:Collection:Print SelectedVch [Report :Prnt VCH] Object : Voucher Collection : Print SelectedVch Filtered : Yes Print : VCHPrintConfigure [Form : Prnt VCH] Parts : PYVCHCOmpanyAddr, SMTDate, SMTTime, VoucherType, ChqDetail, VoucherDetails, Signature Width : ##PPRWidth inch Height : ##PPRHeight inch Space Top : ##PPRSpaceTop inch Width : 190 mms HorizontalAlign : Centre Horizontal Align: Left Vertical Align : Top Space Bottom : 0 Buttons : PrintButton, ExportButton Top Button : F2 InactiveButton, F3 InactiveButton, F4 InactiveButton, Blank button, + F5 InactiveButton, F6 InactiveButton, + F7 InactiveButton, F8 InactiveButton, F9 InactiveButton, F10 InactiveButton Bottom Button : F12 InactiveButton Replace : Button: F5 InactiveButton : Explode Default Key : Explode Flag [Part: PYVCHCOmpanyAddr] Part : PRCT CompanyDetails1 HorizontalAlign : Centre Border: Thick Cover Space Top : 0.5 [Part : PRCT CompanyDetails1] Parts : PRCT Image1, PRCT Company Addr1 , Empty Local : Part : Empty : Width : if @@IsLogoEnabled then 15% Else 0% Page Local : Part : EXPSMP Image : Height : If ($$InExportMode And $$IsSysNameEqual:HTML:##SVExportFormat) then 15% else 10% Page Local : Part : EXPSMP Image : Invisible : NOT @@IsLogoEnabled [Part: PRCT Image1] Part : Empty, EXPSMP Image Vertical: Yes Local : Line : Empty : Local : Field : Simple Field : Set as : "" Invisible : NOT @@IsLogoEnabled [Part : PRCT Company Addr1] Lines : PRCT Company1,PRCT Cmp PAN Local : Field : Simple Field : Align : Centre Local : Field : Simple Field : FullWidth : Yes SpaceBottom : 0.1 Option : PRCTAddr1 : ##PrintWithCompanyName AND ##PrintWithAddress [Line: PRCT Cmp PAN] Fields : Simple Field Local : Field : Simple Field : Set as : "PAN : "+ $IncomeTaxNumber:Company:##SVCurrentCompany Local : Field : Simple Field : Align : Center Local : Field : Simple Field : Print FG : "Leaf Green" Local : Field : Simple Field : Color : "Deep Grey, Leaf Green" Local : Field : Simple Field : Full Width: Yes Local : Field : Simple Field : Style : Normal Bold [!Part: PRCTAddr1] Add : Lines : PRCTAddr1 Repeat : PRCT Addr1 : Company Address Option : PRCT CMA CompanyAddress1 : NOT ($$IsSysNameEqual:Primary:##SVAddressToPrint OR $$IsEmpty:##SVAddressToPrint) [!Part: PRCT CMA CompanyAddress1] Delete : Repeat Add : Repeat : PRCTAddr1 : Company Multi Address Print [Line: PRCT Date1] Left Fields : Simple Prompt, PRCT Serial1 RightFields : Info Field1, PRCT Date1 Local : Field : Simple Prompt : Info : $$LocaleString:"No." Local : Field : Simple Prompt : PrePrinted : Yes Local : Field : Info Field : Info : $$LocaleString:"Dated" Local : Field : Info Field : PrePrinted : Yes ;SpaceBottom : 1 [Field: PRCT Serial1] Set as : $VoucherNumber Style : Normal Bold [Field: PRCT Date1] Set as : $$String:$Date:UniversalDate Style : Normal Bold [Line: PRCT Company1] Fields: Simple Field Local : Field : Simple Field : Set as : @@CmpMailName Local : Field : Simple Field : Print FG : "Leaf Green" Local : Field : Simple Field : Color : "Deep Grey, Leaf Green" Local : Field : Simple Field : Style : SUBTITLE02 ; Normal Bold Local : Field : Simple Field : PrePrinted: Yes Invisible : NOT ##PrintWithCompanyName Option : PRCT CMA CompanyName1 : NOT ($$IsSysNameEqual:Primary:##SVAddressToPrint OR $$IsEmpty:##SVAddressToPrint) [!Line: PRCT CMA CompanyName1] Local : Field : Simple Field : Set as : $(Company, ##SVCurrentCompany).MultiAddressList[1, @@IsSameCmpAddrType].MailingName [Line: PRCT Addr1] Fields : Simple Field Local : Field : Simple Field : Set as : $Address ;; Local : Field : Simple Field : Border : Thin Bottom : $$Line = $$NumItems Local : Field : Simple Field : PrePrinted: Yes [Part : SMTDate] Lines : SMDate HorizontalAlign : Left Border: Thick Left Right [Line : SMDate] Fields : Simple Prompt, SystDate RightFields : Info Field, VCHNo1 Local : Field : Simple Prompt: Info: "Print Date " Local : Field : Simple Prompt: Style : StyleAllText Local : Field : Info Field : Info : "Voucher No. : " Local : Field : Info Field : Style : StyleAllText [Field : SystDate] Set as : $$MachineDate Style : StyleAllTextBold [Field : VCHNo1] Set as : $VoucherNumber Style : StyleAllTextBold [Part : SMTTime] Lines : SMTTimeLine HorizontalAlign : Left Border: Thick Left Right [Line : SMTTimeLine] Fields : Simple Prompt, SystTime RightFields : Info Field, VCHDated Local : Field : Simple Prompt : Info: "Print Time " Local : Field : Simple Prompt : Style : StyleAllText Local : Field : Info Field : Info : "Dated : " Local : Field : Info Field : Style : StyleAllText [Field : SystTime] Set as : $$MachineTime Style : StyleAllTextBold [Field : VCHDated] Set as : $Date Style : StyleAllTextBold [Part : VoucherType] Lines : VoucherTypeLine HorizontalAlign : Center Border: Thick Left Right Background : "Green" Print BG : "Green" [Line : VoucherTypeLine] Fields : Name Field Local : Field : Name Field : Set As: $VoucherTypeName +" Voucher" Local : Field : Name Field : Style : StyleHeadingI Local : Field : Name Field : Background : "Green" Local : Field : Name Field :Color : "Deep Grey, Leaf Green" Local : Field : Name Field : Print FG : "Dark Green" [Part : ChqDetail] Lines : ChqDetailLine HorizontalAlign : Right Border: Thick Left Right Width : Full Invisible: IF (@@IsPayment OR @@IsReceipt) Then No Else Yes [Line : ChqDetailLine] Fields : Info Field, ChqNum Local : Field : Info Field : Info: "Cheque # " Local : Field : Info Field : Style : StyleAllTextBold [Field : ChqNum] Set as : $AllLedgerEntries[-1].BankAllocations.INSTRUMENTNUMBER; +$$Date:$DueDateOfPymt Style : StyleAllText [Part : VoucherDetails] Space Top: 0.5 Line : TopHeadingsLine, PartyDetailsAll, PartyLedNarr, TotalWordsLine, TotalAmt Repeat : PartyDetailsAll : AllLedgerEntries, InventoryEntries Border : Thick Left Right Width : Full Totals : PartyLedName,PartyDrAmount,PartyCrAmount [Line : TopHeadingsLine] Use : PartyName Local : Field : Default : Align : Center Local : Field : Default : Print FG : "Dark Green" Local : Field : Default : Style : StyleAllTextBold Local : Field : Default : Border : BlueBorderXThin Local : Field : PartyLedName : Info : "Description" Local : Field : PartyDrAmount : Info : "Debit Amount" Local : Field : PartyCrAmount : Info : "Credit Amount" [Line : PartyDetailsAll] Lines : PartyName, BlankLineI [Line : PartyName] Field : PartyLedName Right Fields : PartyDrAmount, PartyCrAmount Explode : PartyLedNarrPart : yes Explode : InventoryDetail : Yes Explode : PPR WithNarr : ##PDCNLedgerNarr Explode : VCHINVAlloc Explosion : ##PDCNWithInventory Explode : VCHBILLAlloc Explosion: ##PDCNBillWise AND @@PartyFltr Explode : VCHCSTAlloc Explosion : ##PDCNWithCostCentre ; Border : Left Full [Part : InventoryDetail] Line : PartyLedName Repeat : PartyLedName : ALLInventoryEntries Width : 190 mms [Part : PartyLedNarrPart] Line : PartyLedNarr Repeat : PartyLedNarr : AllLedgerEntries Width : 190 mms ; Border : Left Full [Line : PartyLedNarr] Fields : Short Prompt, PartyLedNarration Local : Field : Short Prompt : Info : $$LocaleString:"Remarks" + ":" Local : Field : Short Prompt : PrePrinted : Yes Local : Field : Short Prompt : Style : StyleAllTextBold SpaceBottom : 1 Space Top : 1 [Field : PartyLedName] Set as : $LedgerName Width : 85 Space Left : 1 Style : StyleAllTextBold [Field : PartyDrAmount] Use : Amount Field Set as : if $$IsDr:$Amount then $$AsPositive:$Amount else $$AsAmount:0 Align : Center Width : 20 Style : StyleAllText Border : Left Full [Field : PartyCrAmount] Use : Amount Field Set as : if $$IsDr:$Amount then $$AsAmount:0 else $$AsPositive:$Amount Align : Center Width : 20 Style : StyleAllText Border : Left Full [Field : PartyLedNarration] Set as : $Narration Width : 69 Line : if $$StringLength:$Narration > 120 then 2 else 1 Style : StyleAllTextNarration [Line : BlankLineI] Fields : Simple Field Local : Field : Simple Field : Set as : " " Local : Field : Simple Field : Style : StyleAllTextBold Local : Field : Simple Field : Align : Right Local : Field : Simple Field : Width : 69 ; Local : Field : Simple Field : Border : Left Full [Line : TotalAmt] Field : Short Prompt,Info Field Local : Field : Short Prompt : Info : "Chargable Amount (In Words) " Local : Field : Info Field : Info : IF @@VchIsPurcInvoice Then $$InWords:(($$CollectionField:$Amount:($$NumLedgers:AllLedgerEntries):AllLedgerEntries)+00000)+" Only." Else $$Inwords:(($$CollectionField:$Amount:($$NumItems:AllLedgerEntries):AllLedgerEntries)+00000)+" Only." Local : Field : Short Prompt : Style : StyleAllTextBold Local : Field : Short Prompt : Width : 31 Local : Field : Info Field : Width : 85;Full Local : Field : Default : Lines : 2 Border : Thick Left Right Double Bottom [Line : TotalWordsLine] Use : PartyName Local : Field : Default : Align : Center Local : Field : Default : Style : StyleAllTextBold Local : Field : Default : Border : Thick Left Right Double Bottom Local : Field : PartyLedName : Info : "Total" Local : Field : PartyDrAmount : Set as : $$Total:PartyDrAmount Local : Field : PartyCrAmount : Set as : $$Total:PartyCrAmount [System : Formula] DebitEntries : $$IsAllLedger:$LedgerName AND $$IsDr:$Amount CreditEntries : $$IsAllLedger:$LedgerName AND NOT $$IsDr:$Amount ForexFormula: If @@ShowAmtInDigits Then $$InDigits:#EXPINVTotal:"Forex" Else $$InWords:#EXPINVTotal:"Forex" ValueInWords: $$InWords:#EXPINVTotal [Part : Signature] Lines : SignLine Space Top : 3 HorizontalAlign : Left;Center ; Border: Thick Left Right [Line : SignLine] Fields : Info Field, CheckedByLine, ApprovedByLine, ReceivedByLine Local : Field : Info Field : Info: "Prepared By : "+$$CmpUserName Local : Field : Info Field : Style : StyleAllText Local : Field : Info Field : Width : 20 Local : Field : Info Field : Space Left : 1 [Field : CheckedByLine] Fields : Info Field Local : Field : Info Field : Info: "Checked By : ____________________" Local : Field : Info Field : Style : StyleAllText Local : Field : Info Field : Width : 30 Local : Field : Info Field : Space Left : 1 [Field : ApprovedByLine] Fields : Info Field Local : Field : Info Field : Info: "Approved By : ____________________" Local : Field : Info Field : Style : StyleAllText Local : Field : Info Field : Width : 30 Local : Field : Info Field : Space Left : 1 [Field : ReceivedByLine] Fields : Info Field Local : Field : Info Field : Info: "Received By : ____________________" Local : Field : Info Field : Style : StyleAllTextBold Local : Field : Info Field : Width : 30 Local : Field : Info Field : Space Left : 1 ;; Local : Field : Info Field : Invisible: NOT $VoucherTypeName:@@IsPayment or NOT $VoucherTypeName:@@IsReceipt [Border : BlueBorderXThick] Top : thick Bottom : Thick Right : Thick Left : Thick Color : "Blue" Print Fg: "Blue" [Border : BlueBorderXThin] Top : thin Bottom : thin Right : thin Left : thin Color : "Blue" Print Fg: "Blue" [Border: Thick Left Right Double Bottom] Top : Thick Left : Thick Right : Thick Bottom : Thick, Double [Border: Left Full] Left : Full Length,Thick, Flush [Style : StyleGSName] Font: "Cooper Black" Height : 12 [Style : StyleAllTextSmall] Font: "Calibri" Height : 8 [Style : StyleAllText] Font: "Calibri" Height : 10 [Style : StyleAllTextNarration] Font: "Calibri" Height : 8 [Style : StyleAllTextBold] Font: "Calibri" Height : 10 Bold : Yes [Style : StyleHeadingI] Font: "Verdana" Height : 10 Bold : Yes for Multi Voucher Print in Same format Please help me on Following Problem 01) Not Working for Debit Not, Credit Not and Sales Voucher. 02) Amount In Words is also wrong. 03) Inventory Item Not shown. I hope our Experts are Help me for Obtain my goals. Thanks
Hi I haven't gone through your code and attachments but just need to ask one quick question, Have you tried $$Inwords:$Amount ?