Code: Change the Title to "Amt of Dis" as it appears in the Invoice [#Line: EI ColumnOne] Add: Option: Disc EI ColumnOne: @@IsSales ;;Optional definition for the line "Disc EI ColumnOne" [!Line: Disc EI ColumnOne] Local: Field: VCH DiscTitle: Set as: "Amt of Dis" ;;Change the title to "Amt of Dis" as it appears in the Batch subform [#Line: VCHBATCH ColumnOne] Add: Option: Disc EI ColumnName: @@IsSales ;;Optional definition [!Line: Disc EI ColumnName] Local: Field: VCH DiscTitle: Info: "Amt of Dis" ;;Change the Title to "Discount Amt" as it appears in the Multiple Price list report [#Field: MPSDiscountTitle] Set as: "Discount Amt" ;;Reclaculate formula's [System: Formula] CalcedAmt: ($Rate * $BilledQty) - $BatchDiscount NrmlAmount: ($BilledQty * $Rate) - $BatchDiscount ;;Update the format attribute for Discount field as it appears in the Invoice [#Field: VCH Discount] Delete: Format Add: Format: "Nopercent,NoZero" ;;Update the format attribute for Discount field as it appears in Batch sub-form [#Field: VCHBATCH Discount] Delete: Format Add: Format: "Nopercent,NoZero" ;;Required if there are no batch Allocations [#Field: VCH Value] Resetval: if (@@NoBaseUnits OR $$IsEmpty:BilledQty) then $$Value else (($Rate * $BilledQty) - $Discount)
very good tdl. But problem when discount to be given on %. Can it be made like when we want % we can take % and when we want Rs. we can take that?
Dear Sir, Thanks for the code. When we print the invoice, in printing it is still showing % in stead of Rs. also the formula of discount is incorrect which i have changed. Thanks
Hi Kuber Mohindru, Can you please let me know why the error "error in tdl 'part:EXPSMP Terms' Insufficient height to allocate!" appears when I try to take invoice print with the following settings: print mode: dot matrix mode or draft mode. Everything is OK in Neat mode! I can take other report prints using print mode: dot matrix mode or draft mode! (see the screenshot) https://www.dropbox.com/s/mhigv4fba7egdih/error.PNG
HELLO PRAVEEN I M VIJAY KUMAR FROM BAGALKOT KARANATAKA FROM SANSKRUTI COMPUTERS IF YOU WANT TO REMOVE % SING IN INVOICE PRINT PUT THE CODE [#Field: EXPINV Discount] Delete: Format Add: Format: "Nopercent,NoZero"
Hey Guys here is right code.... [#Line: EI ColumnOne] Add: Option: Disc EI ColumnOne: @@IsSales ;;Optional definition for the line "Disc EI ColumnOne" [!Line: Disc EI ColumnOne] Local: Field: VCH DiscTitle: Set as: "Cash Discount" Local:Field:VCH DiscTitle:Width:8 Local:Field:VCH DiscTitle:Align:Center Local:Field:VCH DiscTitle:Style:Normal Bold ;;Change the title to "Cash Discount" as it appears in the Batch subform [#Line: VCHBATCH ColumnOne] Add: Option: Disc EI ColumnName: @@IsSales ;;Optional definition [!Line: Disc EI ColumnName] Local: Field: VCH DiscTitle: Info: "Cash Discount" Local:Field:VCH DiscTitle:Width:7 Local:Field:VCH DiscTitle:Align:Center ;;Change the Title to "Discount Amt" as it appears in the Multiple Price list report [#Field: MPSDiscountTitle] Set as: "Cash Discount" Width:7 Align:Center ;;Reclaculate formula's [System: Formula] CalcedAmt: ($Rate * $BilledQty) - $BatchDiscount NrmlAmount: ($BilledQty * $Rate) - $BatchDiscount ;;Update the format attribute for Discount field as it appears in the Invoice [#Field: VCH Discount] Delete: Format Add: Format: "Nopercent,NoZero" Width:7 Align:Center ;;Update the format attribute for Discount field as it appears in Batch sub-form [#Field: VCHBATCH Discount] Delete: Format Add: Format: "Nopercent,NoZero" Width:7 Align:Center ;;Required if there are no batch Allocations [#Field: VCH Value] Resetval: if (@@NoBaseUnits OR $$IsEmpty:BilledQty) then $$Value else (($Rate * $BilledQty) - $Discount) [#Field: EXPINV DiscTitle] Use : NumberTitleField Info : $$LocaleString:"CD Amount" Border : Thin Left Align : Centre Width : 5 Style : Small Invisible : If (@@IsJobOrderOut OR @@IsJobOrderIn OR (@@IsSales And (@@AcctsInvoice OR @@AcctsInvoiceMfgr))) Then Yes Else (NOT @@WithDiscount OR (NOT @@InvWithRate AND NOT @@InvWithAmt)) [#Field: EXPINV Discount] Delete: Format Width : 5 Border : Thin Left Format : "NoZero,Percentage" Invisible : If (@@IsJobOrderOut OR @@IsJobOrderIn OR (@@IsSales And (@@AcctsInvoice OR @@AcctsInvoiceMfgr))) Then Yes Else (NOT @@WithDiscount OR (NOT @@InvWithRate AND NOT @@InvWithAmt))
can you update above code for purchase, sales, debit note and credit note direct enter amount not in percent in upload screen shots
Thanks for Good Code.... but Discount in Amount not printed in POS invoice. in POS invoice discount calculated as Percentage. Please Help
Dear Expert Discount in Amount not printed in POS invoice properly. In POS invoice discount calculated as Percentage. and how can i get Total of Discount in POS Thanks in Advance
Dear experts, Thanks in Advance how to delete Discount Line in POS Invoice and add before amount colomn.
Hii Guys, here is right Code (using for purchase voucher ). this also same for sales voucher. [#Line: EI ColumnOne] Add: Option: Disc EI ColumnOne: @@IsSales Add: Option: Disc EI ColumnOne: @@IsPurchase [!Line: Disc EI ColumnOne] Local: Field: VCH DiscTitle: Set as: "Disc Amt" Local: Field: Default : Style : Normal Bold [#Line: VCHBATCH ColumnOne] Add: Option: Disc EI ColumnName: @@IsSales Add: Option: Disc EI ColumnName: @@IsPurchase [!Line: Disc EI ColumnName] Local: Field: VCH DiscTitle: Info: "Disc Amt" [#Field: MPSDiscountTitle] Set as: "Discount Amt" [System: Formula] CalcedAmt: ($Rate * $BilledQty) - $BatchDiscount NrmlAmount: ($BilledQty * $Rate) - $BatchDiscount [# Field: EXPINV DiscTitle] Info : $$LocaleString:"Disc." Border : Thin Left Align : Centre Width : 5 Style : Small Invisible : If (@@IsJobOrderOut OR @@IsJobOrderIn OR (@@IsSales And (@@AcctsInvoice OR @@AcctsInvoiceMfgr))) Then Yes Else (NOT @@WithDiscount OR (NOT @@InvWithRate AND NOT @@InvWithAmt)) [#Field: VCH Discount] Delete: Format Add: Format: "Nopercent,NoZero" [#Field: VCHBATCH Discount] Delete: Format Add: Format: "Nopercent,NoZero" [#Field: VCH Value] Resetval: if (@@NoBaseUnits OR $$IsEmpty:BilledQty) then $$Value else (($Rate * $BilledQty) - $Discount) [#Field: EXPINV Discount] Use : Number Field Align : Right Style : Small Set as : $Discount Width : 5 Border : Thin Left Format : "NoZero,NoPercentage" Invisible : If (@@IsJobOrderOut OR @@IsJobOrderIn OR (@@IsSales And (@@AcctsInvoice OR @@AcctsInvoiceMfgr))) Then Yes Else (NOT @@WithDiscount OR (NOT @@InvWithRate AND NOT @@InvWithAmt))
