;**********************************************************; ;*********************================*********************; ;*********************| Explore Busy |*********************; ;*********************================*********************; ;**********************************************************; [#Form: Payment Color] Delete : Print Add : Print : PaymentVoucher [Report : Payment Voucher] Object : Voucher Filtered : Yes Print : VCHPrintConfigure [Form : Payment Voucher] Parts : PYVCHCOmpanyAddr, SMTDate, SMTTime, VoucherType, PaymentFrom, ChqDetail, TopHeadings, VoucherDetails, CheckedBy, VCHTotalAmount 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 10% 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 ($$IsSysNameEqualrimary:##SVAddressToPrint OR $$IsEmpty:##SVAddressToPrint) [!Part: PRCT CMA CompanyAddress1] Delete : Repeat Add : Repeat : PRCTAddr1 : Company Multi Address Print [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 ($$IsSysNameEqualrimary:##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, VCHNo Local : Field : Simple Prompt: Info: "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 : VCHNo] 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: "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 : Info Field Local : Field : Info Field : Info: "Payment Voucher" Local : Field : Info Field : Style : StyleHeadingI [Part : PaymentFrom] Lines : PaymentFromLine HorizontalAlign : Center Border: Thick Left Right [Line : PaymentFromLine] Space Top: 2 Fields : PMTFrom [Field : PMTFrom] Set as : $$CollectionField:$LedgerName$$NumItems:AllLedgerEntries):AllLedgerEntries ;;"Explore Busy (YouTube Channel)" Style : StyleHeadingI [Part : ChqDetail] Lines : ChqDetailLine HorizontalAlign : Right Border: Thick Left Right [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 : TopHeadings] Lines : TopHeadingsLine HorizontalAlign : Center Border: Thick Left Right [Line : TopHeadingsLine] Fields : PartyTitle, PartyDr, PartyCr [Field : PartyTitle] Fields : Info Field Local : Field : Info Field : Info: "Title and Narration" Local : Field : Info Field : Style : StyleAllTextBold Local : Field : Info Field : Width : 70 Border : BlueBorderXThin [Field : PartyNarration] Fields : Info Field Local : Field : Info Field : Info: "Narration" Local : Field : Info Field : Style : StyleAllTextBold Local : Field : Info Field : Width : 40 Border : BlueBorderXThin [Field : PartyDr] Fields : Info Field Local : Field : Info Field : Info: "Debit" Local : Field : Info Field : Style : StyleAllTextBold Local : Field : Info Field : Width : 10 Local : Field : Info Field : Align : Center Border : BlueBorderXThin [Field : PartyCr] Fields : Info Field Local : Field : Info Field : Info: "Credit" Local : Field : Info Field : Style : StyleAllTextBold Local : Field : Info Field : Width : 10 Local : Field : Info Field : Align : Center Border : BlueBorderXThin [Part : VoucherDetails] Space Top: 1 Line : PartyDetailsAll, PartyLedNarr Repeat : PartyDetailsAll : AllLedgerEntries Border: Thick Left Right [Line : PartyDetailsAll] Lines : PartyName, BlankLineI [Line : PartyName] Field : PartyLedName, CostCenterName, PartyDrAmount, PartyCrAmount ;Field : PartyLedName, CostCenterName, PartyDrAmount, PartyCrAmount ;Field : PartyLedName, PartyClosingBalance, PartyDrAmount, PartyCrAmount Explode : PartyLedNarrPart : yes [Part : PartyLedNarrPart] Line : PartyLedNarr Repeat : PartyLedNarr : LedgerEntries [Line : PartyLedNarr] Fields : Short Prompt, PartyLedNarration Local : Field : Short Prompt : Info : $$LocaleString:"Payment Remarks" + ":" Local : Field : Short Prompt : PrePrinted : Yes SpaceBottom : 1 Space Top : 1 [Field : PartyLedName] Set as : $LedgerName Width : 49 Space Left : 1 Style : StyleAllTextBold [Field : CostCenterName] Use : Name Field ;Set as : $AllLedgerEntries[Last].Categoryallocations.Costcentreallocations.Name Set as : $Costcentreallocations.Name Width : 18 Space Left : 1 Style : StyleAllTextBold [Field : PartyClosingBalance] Set as : $ClosingBalance;;; Closing value will be displayed on the field ;Align : Right ;Space Right = 1 ;Width : 10.5 ;Style : StyleAllText [Field : PartyDrAmount] Set as : if $$IsDr:$Amount then $$AsDrAmt:$Amount else "" Align : Right Width : 11 Style : StyleAllText [Field : PartyCrAmount] Set as : if $$IsDr:$Amount then "" else $$AsCrAmt:$Amount Align : Right Space Right = 1 Width : 10.5 Style : StyleAllText [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 : BankNarrLine] Field : BankNarrField [Field : BankNarrField] Set as : $Narration Width : 69 Space Left : 1 Style : StyleAllText [Part : VCHTotalAmount] Line : TotalWordsLine Width : 190 mms ;Border: Thick Left Right Space Top: 0.5 ;0.2 Border: Thick Left Right Double Bottom [Line : TotalWordsLine] Fields : Info Field RightFields : TotalPaidFig Local : Field : Info Field : Info: "Paid "+$$InWords($$CollectionField:$Amount$$NumItems:AllLedgerEntries):AllLedgerEntries)+00000)+" Only. "+"कृपया पैसा गिनने के बाद ही हस्ताक्षर करें." ;;"Paid "+$$String:$Amount+" Only." Local : Field : Info Field : Style : StyleAllTextBold Local : Field : Info Field : Width : 69 Border : BlueBorderXThin [Field : TotalPaidFig] Set as : $$CollectionField:$Amount$$NumItems:AllLedgerEntries):AllLedgerEntries ;;$Amount Width : 23 Align : Right Style : StyleAllTextBold Border : BlueBorderXThin [Part : CheckedBy] Lines : CreatedByUserLine, AmountNote, CurrencyNote Space Top : 1 HorizontalAlign : Center Border: Thick Left Right [Line : AmountNote] Fields : Info Field Local : Field : Info Field : Info: "मैंने पैसे गिनने के बाद हस्ताक्षर किये हैं." Local : Field : Info Field : Style : StyleAllTextBold Local : Field : Info Field : Width : 93 Local : Field : Info Field : Align : Right Space Top: 0.5 ;0.2 Space Bottom: 0.5 ; 1 [Line : CurrencyNote] Fields : Info Field Local : Field : Info Field : Info: "Other x + 50 x + 100 x + 200 x + 500 x + 2000 x = /-" ;Local : Field : Info Field : Style : StyleAllTextBold Local : Field : Info Field : Width : 93 Local : Field : Info Field : Align : Right [Line : CreatedByUserLine] Fields : Info Field, CheckedByLine, ApprovedByLine, ReceivedByLine Local : Field : Info Field : Info: "Created By : "+$$CmpUserName Local : Field : Info Field : Style : StyleAllTextSmall Local : Field : Info Field : Width : 17 Local : Field : Info Field : Space Left : 1 Border: Thick Left Right [Field : CheckedByLine] Fields : Info Field Local : Field : Info Field : Info: "Given By : ____________________" Local : Field : Info Field : Style : StyleAllText Local : Field : Info Field : Width : 23 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 : 24 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 : 24 Local : Field : Info Field : Space Left : 1 [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] Left : Thick Right : Thick Bottom : Thick, Double [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 ;**********************************************************; ;*********************================*********************; ;*********************| Explore Busy |*********************; ;*********************================*********************; ;**********************************************************;
DEAR SIR YOUR CODE LOAD IN TALLY BUT NOT SHOW THIS FILE PLEASE HELP & Screen short solution as possible soon
[#Form: Payment Color] Delete : Print Add : Print : Ali Payment Voucher [Report : Ali Payment Voucher] Object : Voucher Filtered: Yes [Form : Ali Payment Voucher] ;Parts : CompanyTitle, VoucherDate, StmDateNTime, VoucherType, PaymentFrom, ChequeDetails, TopHeading, + ; VoucherDetails, ChequedBy, TotalAmount Parts : CompanyTitle, DateNTime, VoucherType, PaymentFrom, ChequeDetails, TopHeading, VoucherDetails, + TotalLines, Signatures ;pymtRemarks, Width : ##PPRWidth inch Height : ##PPRHeight inch SpaceTop: ##PPRSpaceTop inch SpaceLeft: 0.1 cm SpaceRight: 0.1 cm ;;-----------------------------------| Company Title |----------------------------------- [Part : CompanyTitle] Line : CompanyTitle, CompanyAddress Repeat : CompanyAddress : CompanyAddress Border : Thin Top Left Right [Line : CompanyTitle] Fields : SimpleField Local : Field : SimpleField : Set As : @@CmpMailName Local : Field : SimpleField : Style : CompanyTitle Local : Field : SimpleField : Full Width: Yes Local : Field : SimpleField : Align : Center [Line : CompanyAddress] Fields : SimpleField Local : Field : SimpleField : Set as : $Address Local : Field : SimpleField : Border : Thin Bottom : $$Line = $$NumItems Local : Field : SimpleField : PrePrinted: Yes Local : Field : SimpleField : Full Width: Yes Local : Field : SimpleField : Align : Center Local : Field : SimpleField : Style : HeadingI ;;-----------------------------------| Date & Time |----------------------------------- [Part : DateNTime] Line : DateInfo, TimeInfo Border : Thick Left Right [Line : DateInfo] Left Fields : NameField1, SystemDate Right Fields : NameField2, VoucherDate Space Top : 0.1 Space Bottom: 0.1 Local : Field : NameField1 : Info : "Print Date :" Local : Field : NameField1 : Width : 10 Local : Field : NameField1 : Align : Right Local : Field : NameField1 : Style : SubHead1 Local : Field : NameField2 : Info : "Voucher Date :" Local : Field : NameField2 : Align : Right Local : Field : NameField2 : Style : SubHead1 [Field : SystemDate] Set As : $$String:$$MachineDate Width : 10 Align : Left Style : NormalText1 [Field : VoucherDate] Set As : $Date Width : 10 Style : NormalText1 [Line : TimeInfo] Left Field : NameField1, SystemTime Right Field : NameField2, VoucherNo Local : Field : NameField1 : Info : "Print Time :" Local : Field : NameField1 : Width : 10 Local : Field : NameField1 : Align : Right Local : Field : NameField1 : Style : SubHead1 Local : Field : NameField2 : Info : "Voucher No :" Local : Field : NameField2 : Align : Right Local : Field : NameField2 : Style : SubHead1 [Field : SystemTime] Use : SystemDate Set As : $$String:$$MachineTime Type : Time Style : NormalText1 [Field : VoucherNo] Use : VoucherDate Set As : $VoucherNumber ;;-----------------------------------| Voucher Type |----------------------------------- [Part : VoucherType] Lines : VoucherType HorizontalAlign : Center Border : Thick Left Right [Line : VoucherType] Fields : Info Field Local : Field : Info Field : Info: "PAYMENT VOUCHER" Local : Field : Info Field : Style : HeadingI Local : Field : Info Field : WideSpaced : Yes ;;-----------------------------------| Payment From |----------------------------------- [Part : PaymentFrom] Lines : PaymentFrom Space Top : 0.5 HorizontalAlign : Center Border: Thick Left Right [Line : PaymentFrom] Fields : PaymentFrom [Field : PaymentFrom] Set As : $$CollectionField:$LedgerName$$NumItems:AllLedgerEntries):AllLedgerEntries Style : HeadingI ;;----------------------------------| Cheque Details |----------------------------------- [Part : ChequeDetails] Line: ChequeDetails Border: Thick Left Right [Line : ChequeDetails] Right Field : Info Field, ChequeNo, ChequeDate Local : Field : Info Field : Info: "Chq. No:" Local : Field : Info Field : Style : SubHead1 [Field : ChequeNo] Set As : $AllLedgerEntries[Last].BankAllocations[1].InstrumentNumber Style : NormalText1 [Field : ChequeDate] Set As : " Dated " + $$String:$AllLedgerEntries[Last].BankAllocations[1].InstrumentDate Style : NormalText1 ;;-----------------------------------| Top Headings |----------------------------------- [Part : TopHeading] Lines : TopHeading Border : Thick Box Space Top : 0.2 Space Bottom : 0.2 Space Left : 1 Space Right : 1 Common Border : Yes [Line : TopHeading] Left Fields : pNameH Right Fields : ccNameH, pAmountDrH, pAmountCrH [Field : pNameH] Set As : "Particulars / Narration" WideSpaced : Yes Style : SubHead1 Align : Center [Field : ccNameH] Set As : "Site Name" Style : SubHead1 Align : Right Width : 16 Space Right : 1 [Field : pAmountDrH] Set As : "Debit Rs." Align : Right Style : SubHead1 Width : 13 Border : Thick Left Space Right : 1 [Field : pAmountCrH] Set As : "Credit Rs." Align : Right Style : SubHead1 Width : 13 Border : Thick Left ;;---------------------------------| Voucher Details |----------------------------------- [Part : VoucherDetails] Lines : VoucherDetails Repeat : VoucherDetails : AllLedgerEntries Border : Thick Left Right Space Top : 1 ; Space Bottom : 1 Space Left : 1 Space Right : 1 Common Border : Yes [Line : VoucherDetails] Fields : pName Right Fields: pNarration, ccName, pAmountDr, pAmountCr [Field : pName] Set As : $LedgerName Style : SubHead1 [Field : pNarration] Set As : $Narration Lines : 2 Style : NarrationText Align : Right [Field : ccName] Set As : $Costcentreallocations.Name Width : 16 Align : Right Style : SubHead1 Space Right : 1 [Field : pAmountDr] Type : Amount Set As : if $$IsDr:$Amount Then $$AsDrAmt:$Amount else "" Align : Right Width : 13 Border : Thick Left Style : NormalText1 Space Right : 1 [Field : pAmountCr] Type : Amount Set As : if $$IsDr:$Amount Then "" Else $$AsCrAmt:$Amount Align : Right Width : 13 Border : Thick Left Style : NormalText1 ;;---------------------------------| Total Lines |----------------------------------- [Part : TotalLines] Line : TotalLines Border : Thick Box Space Top : 0.2 Space Bottom : 0.2 Space Left : 1 Space Right : 1 Common Border : Yes [Line : TotalLines] Fields : TotalLines Right Fields: SimpleField, TotalAmount Local : Field : SimpleField : Info : "कृपया पैसा गिनने के बाद ही हस्ताक्षर करें." Local : Field : SimpleField : Style: SubHead1 [Field : TotalAmount] Use : pAmountCr Set As : $$CollectionField:$Amount$$NumItems:AllLedgerEntries):AllLedgerEntries Style : SubHead1 Width : 13 Align : Right Border : Thick Left [Field : TotalLines] Set As : "Paid "+$$InWords($$CollectionField:$Amount$$NumItems:AllLedgerEntries):AllLedgerEntries)+00000)+" Only." Style : SubHead1 [Part : pymtRemarks] Line : pymtRemarks Border : Thick Left Right Space Top : 0.2 Space Bottom : 0.2 Space Left : 1 Space Right : 1 [Line : pymtRemarks] Fields : Short Prompt, pymtRemarks Local : Field : Short Prompt : Info : $$LocaleString:"Remarks" Local : Field : Short Prompt : Width : 6 Local : Field : Short Prompt : PrePrinted : Yes Local : Field : Short Prompt : Style : NarrationText [Field : pymtRemarks] Set As : $Narration Style : NarrationText Lines : 2 ;;------------------------------------| Signatures |----------------------------------- [Part : Signatures] Line : pymtRemarks, Signatures, ReceiverDetail, CurDenominator Space Top : 0.2 Space Bottom : 0.2 Space Left : 1 Space Right : 1 Border : Thick Box [Line : Signatures] Field : CreatedBy Right Fields : Signatures [Field : CreatedBy] Set As : "Created By: " + $$CmpUserName Style : SubHead1 [Field : Signatures] Set As : "Given By : __________________ " + + "Approved By : __________________ " + + "Received By : __________________" Style : SubHead1 [Line : ReceiverDetail] Field : SimpleField Local : Field : SimpleField : Set As : "Receiver's Name: _______________________________________________ Date : __________________" Local : Field : SimpleField : Full Width : yes Local : Field : SimpleField : Align : Right Local : Field : SimpleField : Style: SubHead1 Space Top : 0.5 [Line : CurDenominator] Field : SimpleField Local : Field : SimpleField : Info : "2000 x _______ + 500 x _______ + 200 x _______ + 100 x _______ + 50 x _______ + Other _______ : __________________" Local : Field : SimpleField : Full Width : yes Local : Field : SimpleField : Align : Right Local : Field : SimpleField : Style: SubHead1 Space Top : 0.5 Space Bottom : 0.5 ;;-----------------------------------| Font Styles |----------------------------------- [Style : CompanyTitle] Font : "Arial Black" Height : 12 Bold : Yes [Style : HeadingI] Font : "Calibri" Height : 12 Bold : Yes [Style : SubHead1] Font : "Calibri" Height : 10 Bold : Yes [Style : NormalText1] Font: "Calibri" Height : 10 [Style : NarrationText] Font : "Calibri" Height : 10 Italic : Yes
Dear Experts, I have modify this code & generate two copy in A4 size paper. Image as under: Another one is i want cost center wise details as screen shoot att. Awaiting for replay
Dear Experts, Can Any one solve the issue . How to print cost center wise breakup in receipt voucher. Thanks Mani