कुल पेज दृश्य

शुक्रवार, 31 दिसंबर 2021

Tally Chapter 108 TDL for Cash Discount in Amount by Rajiv Mishra Computer Class | TDL FILE Banaye






--------------------CODE STARTS HERE--------------------





 ;;===================================================CODE By Rajiv Mishra=================================================




[#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))


------------------Code Ended Here----------

गुरुवार, 30 दिसंबर 2021

Tally Chapter 106 TDL for Bank Entry form By Rajiv Mishra Computer Class

 


TDL VODE

--------------TDL CODE STARTS HERE----------------------------



[#Menu: Gateway of Tally]

Add: Item: Bank Details : Alter: BankDetailsReport

  

[Report:BankDetailsReport]

Variable : SVFromDate, SVToDate

Set : SVFromDate : ($BooksFrom:Company:##SVCurrentCompany)

Set : SVToDate   : ($LastVoucherDate:Company:##SVCurrentCompany)

Form:BankDetailsReport

Title:$$LocaleString:"BANK DETAILS ENTRY FORM"

Object:Company


[Form:BankDetailsReport]

Background:Light Ochre Yellow

Height:100% page

Width:100% page

Space Top : If $$InPrintMode Then 0.5 Else 0 inches

Buttons : PrintButton, ExportButton

Add: Button: BankreportButton

Parts : BankDetailsTitlee,BankDetailsRP,BankStatement Tit,Bankopbal part,BankDetailsinfoPart,ClosingBalance Part


[Part : BankDetailsTitlee]

Space Bottom : 0.2 inch

Line : BankDetailsTitlee


[Line:BankDetailsTitlee]

Field:BankDetailsTitlee

Space Top:0.02

Border:thin bottom


[Field:BankDetailsTitlee]

Use:name field

Set as:$$LocaleString:"B A N K - D E T A I L S - E N T E R Y - F O R M"

Align : Center

Full Width : Yes

Local:Style:defualt:Height:15

Color:Black

Skip: Yes

Style:large bold


[Part : BankDetailsRP]

Line : BankDetailsRP


[Line:BankDetailsRP]

Left Field:BankDetailsRP1

Right Field:BankDetailsRP2

Border:thin bottom

Space Top:0.02


[Field:BankDetailsRP1]

Use:name field

Set as:$$LocaleString:"RECEIPT"

Local:Style:defualt:Height:10

Align : Center

Full Width : Yes

Color:Black

Skip: Yes

Style:large bold


[Field:BankDetailsRP2]

Use:name field

Set as:$$LocaleString:"PAYMENT"

Local:Style:defualt:Height:10

Align : Center

Full Width : Yes

Color:Black

Skip: Yes

Style:large bold




[Part : BankStatement Tit]

;Space Bottom : 0.2 inch

Line : BankStatementPeriod


[Line:BankStatementPeriod]

Field:BankStatementPeriod

;Space Top:0.2

Border:thin bottom


[Field:BankStatementPeriod]

Use:name field

Set as:$$LocaleString:"Details For the period " + $$String:##SVFromDate + " to " + $$String:##SVToDate

Align : Center

Full Width : Yes

Color:Black

Skip: Yes

Background:WHITE


[Part:BankDetailsinfoPart]

Left Part    :Receipt part

Right Part    :Payment part

Common Border   : Yes


[Part:Bankopbal part]

Line:ReceiptopbalfldLeft


[Part:Receipt part]

Line:ReceiptTitleLeft,ReceiptDetailsLeft

Bottom Line:ReceiptClbalfieldtot

Repeat: ReceiptDetailsLeft : ReceiptDetailsAgg

Scroll: Vertical

Break On: $$IsEmpty:$LEDMParty

Total  :LEDMAmt

[Line: ReceiptTitleLeft]

Fields: LEDMDate,LEDMParty,LEDMCHQNo,LEDMAmt

Right Fields:LEDMRemark

Local: Field: Default : Delete: Storage

Local: Field: Default : Skip: Yes

Local: Field: Default : Fixed: Yes

Local: Field: Default : Type: String

Local: Field: Default : Background: Yellow



Local: Field: LEDMDate        : Set as: "Date"

Local: Field: LEDMParty        : Set as: "Party Name"

Local: Field: LEDMCHQNo        : Set as: "CHQ No"

Local: Field: LEDMAmt        : Set as: "Amount"

Local: Field: LEDMRemark    : Set as: "Remark"


Local: Field: LEDMAmt        : Align: Center

Local: Field: LEDMRemark    : Align: Center

Border : Flush Totals


[Line:ReceiptopbalfldLeft]

Fields:LEDMDate1,LEDMParty1,LEDMCHQNo1,LEDMAmt1,LEDMRemark1

Border: Thin BOttom

Local: Field: LEDMParty1        : Set as: "Opening Balance:"

Local: Field: LEDMParty1        :Background: DEEP COBALT BLUE

Local: Field: LEDMParty1        :color : WHITE


[Field: LEDMDate1]

    Use            : Name Field

    Set as        : ""

    Width        : 6% Screen

    Align        : Left

    Border: ThiN Cover

    Skip    : Yes

  

[Field: LEDMParty1]

    Use            : Name Field

    Set as        : ""

    Width        : 16% Screen

    Border: ThiN Cover

    Skip    : Yes

  

[Field: LEDMCHQNo1]

    Use            : Name Field

    Set as        : ""

    Width        : 5% Screen

    Border: ThiN Cover

    Skip    : Yes

  

[Field: LEDMAmt1]

    Use            : Name Field

    Set as        : ""

    Width        : 8% Screen

    Border: ThiN Cover

    Skip    : Yes

  

[Field: LEDMRemark1]

    Use            : Amount Field

    Set as        : $LEDMRemark1

    Storage        : LEDMRemark1

    Format         : Decimal : 2

    Align        : Right

    Border: ThiN Cover

    Background: DEEP COBALT BLUE

    Color : WHITE

    Width: 16% Screen


[Line:ReceiptDetailsLeft]

Border            : Thin Left Right

Fields: LEDMDate,LEDMParty,LEDMCHQNo,LEDMAmt,LEDMRemark


[Field: LEDMDate]

    Use            : Uni Date Field

    Set as        : LEDMDate

    Storage        : LEDMDate

    Width        : 6% Screen

    Align        : Left

  

  

[Field: LEDMParty]

    Use            : Name Field

    Set as        : $$Value

    Storage        : LEDMParty

    Width        : 16% Screen

  

  

[Field: LEDMCHQNo]

    Use            : Name Field

    Set as        : $$Value

    Storage        : LEDMCHQNo

    Width        : 5% Screen

  

  

[Field: LEDMAmt]

    Use            : Amount Field

    Set as        : $$Value

    Storage        : LEDMAmt

    Width        : 8% Screen

    Format         : Decimal : 2

    Align        : Right

  

  

[Field: LEDMRemark]

    Use            : Name Field

    Set as        : $$Value

    Storage        : LEDMRemark

    Full Width    : Yes;15% Screen

  


[System: UDF]

    ReceiptDetailsAgg    : Aggregate    : 2541

    LEDMRemark1         : Amount    : 2547

    LEDMDate            : Date        : 2542

    LEDMParty            : String    : 2543  

    LEDMCHQNo            : String    : 2544

    LEDMAmt                : Amount    : 2545

    LEDMRemark            : String    : 2546

  



  




[Line:ReceiptClbalfieldtot]

Fields:RTotalDate,RTotalParty,RTotalCHQNo,RTotalAmt,RTotalRemark

Border: Totals

Local: Field: RTotalParty        : Set as: "Total"

Local: Field: RTotalParty        :Background: misty rose

Local: Field: RTotalParty        :Border : Thin Top

;Local: Field: RTotalParty        :color : WHITE



[Field: RTotalDate]

    Use            : Name Field

    Set as        : ""

    Width        : 6% Screen

    Align        : Left

    Border: ThiN Cover

    Skip    : Yes

  

[Field: RTotalParty]

    Use            : Name Field

    Set as        : ""

    Width        : 16% Screen

    Border: ThiN Cover

    Skip    : Yes

  

[Field: RTotalCHQNo]

    Use            : Name Field

    Set as        : ""

    Width        : 5% Screen

    Border: ThiN Cover

    Skip    : Yes

  

[Field:RTotalAmt]

Use : Amount Forex Field

Set as :$$Total:LEDMAmt

Skip : Yes

style : normal bold

Width : 8% Screen

Align:Right

Background: misty rose


  

[Field: RTotalRemark]

    Use            : Name Field

    Set as        : ""

    Full Width    : Yes

    Border: ThiN Cover

    Skip    : Yes


;;;;;;;;;;;;;;;;;;;;;;PAYMENT PART START;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;





[Part:Payment part]

Line:PaymentTitleRight,PaymentDetailsRight

Bottom Line:PaymentClbalfieldtot

Repeat: PaymentDetailsRight : PaymentDetailsAgg

Scroll: Vertical

Break On: $$IsEmpty:$PaymentTitleParty

Total  :PaymentTitleAmt

[Line: PaymentTitleRight]

Border: Column Titles

Fields: PaymentTitleDate,PaymentTitleParty,PaymentTitleCHQNo,PaymentTitleAmt

Right Fields: PaymentTitleRemark

Local: Field: Default : Delete: Storage

Local: Field: Default : Skip: Yes

Local: Field: Default : Fixed: Yes

Local: Field: Default : Type: String

Local: Field: Default : Background: Yellow


Local: Field: PaymentTitleDate        : Set as: "Date"

Local: Field: PaymentTitleParty        : Set as: "Party Name"

Local: Field: PaymentTitleCHQNo        : Set as: "CHQ No"

Local: Field: PaymentTitleAmt        : Set as: "Amount"

Local: Field: PaymentTitleRemark        : Set as: "Remark"


Local: Field: PaymentTitleAmt        : Align: Center

Local: Field: PaymentTitleRemark        : Align: Center

Border : Flush Totals




[Line:PaymentDetailsRight]

Border    : Thin Right

Fields: PaymentTitleDate,PaymentTitleParty,PaymentTitleCHQNo,PaymentTitleAmt,PaymentTitleRemark


[Field: PaymentTitleDate]

    Use        : Uni Date Field

    Set as        : PaymentTitleDate

    Storage        : PaymentTitleDate

    Width        : 6% Screen

    Align        : Left

  

  

[Field: PaymentTitleParty]

    Use        : Name Field

    Set as        : $$Value

    Storage        : PaymentTitleParty

    Width        : 16% Screen

  

  

[Field: PaymentTitleCHQNo]

    Use        : Name Field

    Set as        : $$Value

    Storage        : PaymentTitleCHQNo

    Width        : 5% Screen

  

  

[Field: PaymentTitleAmt]

    Use        : Amount Field

    Set as    : $$Value

    Storage    : PaymentTitleAmt

    Width    : 8% Screen

    Format     : Decimal : 2

    Align    : Right

  

  

[Field: PaymentTitleRemark]

    Use        : Name Field

    Set as        : $$Value

    Storage        : PaymentTitleRemark

    Full Width    : Yes

  


[System: UDF]

    PaymentDetailsAgg    : Aggregate    : 3541

    PaymentTitleAmt1     : Amount    : 3547

    PaymentTitleDate    : Date        : 3542

    PaymentTitleParty    : String    : 3543  

    PaymentTitleCHQNo    : String    : 3544

    PaymentTitleAmt        : Amount    : 3545

    PaymentTitleRemark    : String    : 3546

  

[Line:PaymentClbalfieldtot]

Fields:PTotalDate,PTotalParty,PTotalCHQNo,PTotalAmt,PTotalRemark

Border: Totals

Local: Field: PTotalParty        : Set as: "Total"

Local: Field: PTotalParty        :Background: misty rose

Local: Field: PTotalParty        :Border : Thin Top

;Local: Field: PTotalParty        :color : WHITE



[Field: PTotalDate]

    Use        : Name Field

    Set as        : ""

    Width        : 6% Screen

    Align        : Right

    Border: ThiN Cover

    Skip    : Yes

  

[Field: PTotalParty]

    Use        : Name Field

    Set as        : ""

    Width        : 16% Screen

    Border: ThiN Cover

    Skip    : Yes

  

[Field: PTotalCHQNo]

    Use        : Name Field

    Set as        : $$Value

    Width        : 5% Screen

    Border: ThiN Cover

    Skip    : Yes

  

[Field:PTotalAmt]

Use : Amount Forex Field

Set as : $$Total:PaymentTitleAmt

Skip : Yes

style : normal Bold

Width : 8% Screen

Align:Right

Background: misty rose


  

[Field: PTotalRemark]

    Use        : Name Field

    Set as        : ""

    Full Width    : Yes

    Border: ThiN Cover

    Skip    : Yes



[Part:ClosingBalance Part]

Line:FinalClbalfield  


[Line:FinalClbalfield]

Left Fields:FTotalDate,FTotalParty,FTotalCHQNo,FTotalAmt,FTotalRemark

Right Fields:FTotalDate1,FTotalParty1,FTotalCHQNo1,FTotalAmt1,FTotalRemark1

Border: Totals

Local: Field: FTotalAmt1        : Set as: "Closing Balance :"

Local: Field: FTotalAmt1        :Background: DEEP COBALT BLUE

Local: Field: FTotalAmt1        :Border : Thin Top

Local: Field: FTotalAmt1        :color : WHITE


[Field: FTotalDate]

    Use            : Name Field

    Set as        : ""

    Width        : 6% Screen

    Align        : Left

    ;Border: ThiN Cover

    Skip    : Yes

  

[Field: FTotalParty]

    Use            : Name Field

    Set as        : ""

    Width        : 10% Screen

    ;Border: ThiN Cover

    Skip    : Yes

  

[Field: FTotalCHQNo]

    Use            : Name Field

    Set as        : ""

    Width        : 5% Screen

    ;Border: ThiN Cover

    Skip    : Yes

  

[Field:FTotalAmt]

    Use            : Name Field

    Set as        : ""

    Width        : 10% Screen

    ;Border: ThiN Cover

    Skip    : Yes  

  

[Field: FTotalRemark]

Use            : Name Field

    Set as        : ""

    Width        : 8% Screen

    ;Border: ThiN Cover

    Skip    : Yes  

    Full Width : Yes

    Align:Right



[Field: FTotalDate1]

    Use            : Name Field

    Set as        : ""

    Width        : 6% Screen

    Align        : Left

    ;Border: ThiN Cover

    Skip    : Yes

  

[Field: FTotalParty1]

    Use            : Name Field

    Set as        : ""

    Width        : 10% Screen

    ;Border: ThiN Cover

    Skip    : Yes

  

[Field: FTotalCHQNo1]

    Use            : Name Field

    Set as        : ""

    Width        : 5% Screen

    ;Border: ThiN Cover

    Skip    : Yes

  

[Field:FTotalAmt1]

    Use            : Name Field

    Set as        : ""

    Width        : 15% Screen

    ;Border: ThiN Cover

    Skip    : Yes  

    Background    : misty rose

  

[Field: FTotalRemark1]

Use : Amount Forex Field

Set as :#LEDMRemark1 + #RTotalAmt - #PTotalAmt

Skip : Yes

style : normal bold

Full Width : Yes

Align:Center

Background: DEEP COBALT BLUE

Color : WHITE


[Color:Medium Lavender Magenta]

    RGB:221,160,221

  

[Color:misty rose]

    RGB:255,228,225

  

[Button:BankreportButton]

Key : Alt+B

Action : Display: BankDetailsReport1

Title : Report

;;;;;;;;;;;;;;;;;;;;;;;;REPORT CODE START;;;;;;;;;;;;;;;;;;;;;;;;;;;;

[Color:Medium Lavender Magenta2]

    RGB:221,160,221

  

[Color:misty rose2]

    RGB:255,228,225



[Report: BankDetailsReport1]


Form : BankDetailsReport1

Title : "BANK DETAILS REPORT"

;Set : SVFromDate : ($BooksFrom:Company:##SVCurrentCompany)

;Set : SVToDate   : ($LastVoucherDate:Company:##SVCurrentCompany)

Variable : SVFromDate,SVToDate

Set : SVfromDate : ##SVDate

Set : SVToDate : ##SVCurrentDate

Variables : ExplodeFlag, IsForexReport

Variable : DSPHasMultiLevel

Variable : IsMultiPage, InNewPages, ShowBillType, IsGrpBillReport

Variables: SVSelectAllToggle,DSPRepeatCollection


Set : SV Sort Method : @@Default

Export : Yes


[Form:BankDetailsReport1]

Use : DSP Template

Height : 100% screen

Width : 100% screen

Button      : ExplodeFlag, F2ChangePeriod,ChangePeriod

;Keys        : ChangePeriod

Background: @@SV_RELEASEDLEAFGREEN_PL; Very Light Sea Green

Bottom Toolbar Buttons : BottomToolBarBtn1, BottomToolBarBtn6, BottomToolBarBtn7, BottomToolBarBtn8,BottomToolBarBtn9, BottomToolBarBtn10, BottomToolBarBtn11, BottomToolBarBtn12

Local: Field : FormSubTitle : Info : $$LocaleString:"BANK DETAILS REPORT"

Local: Field : Form SubTitle        : Color          : Dark Red

Local: Field:Form SubTitle    : Style    : Large SerIf Bold

Add  : Buttons     : Remove Line, Restore Line, Restore All  

Parts: BankDetailsTitlee2,BankDetailsRP2,BankStatement Tit2,Bankopbal part2,BankDetailsinfoPart2,ClosingBalance Part2




[Button : Remove Line]

    Action  : Remove Line    : Remove Line

    Key     : Alt + R

      

[Button : Restore Line]

    Action  : Show Last Removed Line    : Restore Line

    Key     : Alt + U


[Button : Restore All]

    Action  : Show Removed Lines    : Restore All

    Key     : Ctrl + U


[Part : BankDetailsTitlee2]

Space Bottom : 0.2 inch

Line : BankDetailsTitlee2


[Line:BankDetailsTitlee2]

Field:BankDetailsTitlee2

Space Top:0.02

Border:thin bottom


[Field:BankDetailsTitlee2]

Use:name field

Set as:$$LocaleString:"B A N K - D E T A I L S - R E P O R T"

Align : Center

Full Width : Yes

Local:Style:defualt:Height:15

Color:Black

Skip: Yes

Style:large bold


[Part : BankDetailsRP2]

Line : BankDetailsRP2


[Line:BankDetailsRP2]

Left Field:BankDetailsRP12

Right Field:BankDetailsRP22

Border:thin bottom

Space Top:0.02


[Field:BankDetailsRP12]

Use:name field

Set as:$$LocaleString:"RECEIPT"

Local:Style:defualt:Height:10

Align : Center

Full Width : Yes

Color:Black

Skip: Yes

Style:large bold


[Field:BankDetailsRP22]

Use:name field

Set as:$$LocaleString:"PAYMENT"

Local:Style:defualt:Height:10

Align : Center

Full Width : Yes

Color:Black

Skip: Yes

Style:large bold



[Part : BankStatement Tit2]

;Space Bottom : 0.2 inch

Line : BankStatementPeriod2


[Line:BankStatementPeriod2]

Field:BankStatementPeriod2

;Space Top:0.2

Border:thin bottom


[Field:BankStatementPeriod2]

Use:name field

Set as:$$LocaleString:"Details For the period " + $$String:##SVFromDate + " to " + $$String:##SVToDate

Align : Center

Full Width : Yes

Color:Black

Skip: Yes

Background:WHITE



[Part:BankDetailsinfoPart2]

Left Part    :Receipt part2

Right Part    :Payment part2

Common Border   : Yes


[Part:Receipt part2]

Line:ReceiptTitleLeft2,ReceiptDetailsLeft2

Bottom Line:ReceiptClbalfieldtot2

Repeat: ReceiptDetailsLeft2 : ReceiptDetailsColl


Scroll: Vertical

Total  :LEDMAmt2

[Line: ReceiptTitleLeft2]

Fields: LEDMDate2,LEDMParty2,LEDMCHQNo2,LEDMAmt2

Right Fields:LEDMRemark2

Local: Field: Default : Delete: Storage

Local: Field: Default : Skip: Yes

Local: Field: Default : Fixed: Yes

Local: Field: Default : Type: String

Local: Field: Default : Background: Yellow


Local: Field: LEDMDate2        : Set as: "Date"

Local: Field: LEDMParty2    : Set as: "Party Name"

Local: Field: LEDMCHQNo2    : Set as: "CHQ No"

Local: Field: LEDMAmt2        : Set as: "Amount"

Local: Field: LEDMRemark2    : Set as: "Remark"


Local: Field: LEDMAmt2        : Align: Center

Local: Field: LEDMRemark2    : Align: Center

Border : Flush Totals


[Part:Bankopbal part2]

Line:ReceiptopbalfldLeft2


[Line:ReceiptopbalfldLeft2]

Fields:LEDMDate12,LEDMParty12,LEDMCHQNo12,LEDMAmt12,LEDMRemark12

Border: Thin BOttom

Local: Field: LEDMParty12        : Set as: "Opening Balance:"

Local: Field: LEDMParty12        :Background: DEEP COBALT BLUE

Local: Field: LEDMParty12        :color : WHITE

Local: Field: LEDMRemark12        : Info: $LEDMRemark1


[Field: LEDMDate12]

    Use            : Name Field

    Set as        : ""

    Width        : 6% Screen

    Align        : Left

    Border: ThiN Cover

    Skip    : Yes

  

[Field: LEDMParty12]

    Use            : Name Field

    Set as        : ""

    Width        : 16% Screen

    Border: ThiN Cover

    Skip    : Yes

  

[Field: LEDMCHQNo12]

    Use            : Name Field

    Set as        : ""

    Width        : 5% Screen

    Border: ThiN Cover

    Skip    : Yes

  

[Field: LEDMAmt12]

    Use            : Name Field

    Set as        : ""

    Width        : 8% Screen

    Border: ThiN Cover

    Skip    : Yes

  

[Field: LEDMRemark12]

    Use            : Amount Field

    Set as        : $LEDMRemark1

    Format         : Decimal : 2

    Align        : Right

    Border: ThiN Cover

    Background: DEEP COBALT BLUE

    Color : WHITE

    Width: 16% Screen


[Line:ReceiptDetailsLeft2]

Border            : Thin Left Right

Fields: LEDMDate2,LEDMParty2,LEDMCHQNo2,LEDMAmt2,LEDMRemark2


[Field: LEDMDate2]

    Use            : Uni Date Field

    Set as        : $LEDMDate

    Width        : 6% Screen

    Align        : Left

  

  

[Field: LEDMParty2]

    Use            : Name Field

    Set as        : $LEDMParty

    Width        : 16% Screen

  

  

[Field: LEDMCHQNo2]

    Use            : Name Field

    Set as        : $LEDMCHQNo

    Width        : 5% Screen

  

  

[Field: LEDMAmt2]

    Use            : Amount Field

    Set as        : $LEDMAmt

    Width        : 8% Screen

    Format         : Decimal : 2

    Align        : Right

  

  

[Field: LEDMRemark2]

    Use            : Name Field

    Set as        : $LEDMRemark

    Full Width    : Yes;15% Screen

  


[Collection: ReceiptDetailsColl]

Type : ReceiptDetailsAgg : Company

Childof : ##SVCurrentCompany

Fetch : *, *.*



[Line:ReceiptClbalfieldtot2]

Fields:RTotalDate2,RTotalParty2,RTotalCHQNo2,RTotalAmt2,RTotalRemark2

Border: Totals

Local: Field: RTotalParty2        : Set as: "Total"

Local: Field: RTotalParty2        :Background: misty rose2

Local: Field: RTotalParty2        :Border : Thin Top

;Local: Field: RTotalParty        :color : WHITE




[Field: RTotalDate2]

    Use            : Name Field

    Set as        : ""

    Width        : 6% Screen

    Align        : Left

    Border: ThiN Cover

    Skip    : Yes

  

[Field: RTotalParty2]

    Use            : Name Field

    Set as        : ""

    Width        : 16% Screen

    Border: ThiN Cover

    Skip    : Yes

  

[Field: RTotalCHQNo2]

    Use            : Name Field

    Set as        : ""

    Width        : 5% Screen

    Border: ThiN Cover

    Skip    : Yes

  

[Field:RTotalAmt2]

Use : Amount Forex Field

Set as :$$Total:LEDMAmt2

Skip : Yes

style : normal bold

Width : 8% Screen

Align:Right

Background: misty rose2


  

[Field: RTotalRemark2]

    Use            : Name Field

    Set as        : ""

    Full Width    : Yes

    Border: ThiN Cover

    Skip    : Yes


;;;;;;;;;;;;;;;;;;;;;;PAYMENT PART START;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


[Collection: PaymentDetailsColl]

ParmVAR: SVCurrentDate : Date : ##SVCurrentDate

ParmVar: SVFromDate    : Date : ##SVFromDate

ParmVar: SVToDate      : Date : ##SVToDate  

Type : PaymentDetailsAgg : Company

Childof : ##SVCurrentCompany

Fetch : *, *.*


[Part:Payment part2]

Line:PaymentTitleRight2,PaymentDetailsRight2

Bottom Line:PaymentClbalfieldtot2

Repeat: PaymentDetailsRight2 : PaymentDetailsColl

Scroll: Vertical

Break On: $$IsEmpty:$PaymentTitleParty2

Total  :PaymentTitleAmt2

[Line: PaymentTitleRight2]

Border: Column Titles

Fields: PaymentTitleDate2,PaymentTitleParty2,PaymentTitleCHQNo2,PaymentTitleAmt2

Right Fields: PaymentTitleRemark2

Local: Field: Default : Delete: Storage

Local: Field: Default : Skip: Yes

Local: Field: Default : Fixed: Yes

Local: Field: Default : Type: String

Local: Field: Default : Background: Yellow


Local: Field: PaymentTitleDate2            : Set as: "Date"

Local: Field: PaymentTitleParty2        : Set as: "Party Name"

Local: Field: PaymentTitleCHQNo2        : Set as: "CHQ No"

Local: Field: PaymentTitleAmt2            : Set as: "Amount"

Local: Field: PaymentTitleRemark2        : Set as: "Remark"


Local: Field: PaymentTitleAmt2            : Align: Center

Local: Field: PaymentTitleRemark2        : Align: Center

Border : Flush Totals




[Line:PaymentDetailsRight2]

Border    : Thin Right

Fields: PaymentTitleDate2,PaymentTitleParty2,PaymentTitleCHQNo2,PaymentTitleAmt2,PaymentTitleRemark2


[Field: PaymentTitleDate2]

    Use            : Uni Date Field

    Set as        : $PaymentTitleDate

    Width        : 6% Screen

    Align        : Left

  

  

[Field: PaymentTitleParty2]

    Use            : Name Field

    Set as        : $PaymentTitleParty

    Width        : 16% Screen

  

  

[Field: PaymentTitleCHQNo2]

    Use            : Name Field

    Set as        : $PaymentTitleCHQNo

    Width        : 5% Screen

  

  

[Field: PaymentTitleAmt2]

    Use        : Amount Field

    Set as    : $PaymentTitleAmt

    Width    : 8% Screen

    Format     : Decimal : 2

    Align    : Right

  

  

[Field: PaymentTitleRemark2]

    Use            : Name Field

    Set as        : $PaymentTitleRemark

    Full Width    : Yes

  

[Line:PaymentClbalfieldtot2]

Fields:PTotalDate2,PTotalParty2,PTotalCHQNo2,PTotalAmt2,PTotalRemark2

Border: Totals

Local: Field: PTotalParty2        : Set as: "Total"

Local: Field: PTotalParty2        :Background: misty rose2

Local: Field: PTotalParty2        :Border : Thin Top

;Local: Field: PTotalParty        :color : WHITE



[Field: PTotalDate2]

    Use        : Name Field

    Set as        : ""

    Width        : 6% Screen

    Align        : Right

    Border        : ThiN Cover

    Skip        : Yes

  

[Field: PTotalParty2]

    Use            : Name Field

    Set as        : ""

    Width        : 16% Screen

    Border        : ThiN Cover

    Skip        : Yes

  

[Field: PTotalCHQNo2]

    Use            : Name Field

    Set as        : ""

    Width        : 5% Screen

    Border        : ThiN Cover

    Skip        : Yes

  

[Field:PTotalAmt2]

    Use         : Amount Forex Field

    Set as         : $$Total:PaymentTitleAmt2

    Skip         : Yes

    style         : normal Bold

    Width         : 8% Screen

    Align        :Right

    Background    : misty rose


  

[Field: PTotalRemark2]

    Use            : Name Field

    Set as        : ""

    Full Width    : Yes

    Border        : ThiN Cover

    Skip        : Yes


;;;;;;;;;CLOSING BALANCE PART;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


[Part:ClosingBalance Part2]

Line:FinalClbalfield2  


[Line:FinalClbalfield2]

Left Fields:FTotalDate2,FTotalParty2,FTotalCHQNo2,FTotalAmt2,FTotalRemark2

Right Fields:FTotalDate12,FTotalParty12,FTotalCHQNo12,FTotalAmt12,FTotalRemark12

Border: Totals

Local: Field: FTotalAmt12        : Set as: "Closing Balance :"

Local: Field: FTotalAmt12        :Background: DEEP COBALT BLUE

Local: Field: FTotalAmt12        :Border : Thin Top

Local: Field: FTotalAmt12        :color : WHITE


[Field: FTotalDate2]

    Use            : Name Field

    Set as        : ""

    Width        : 6% Screen

    Align        : Left

    ;Border: ThiN Cover

    Skip    : Yes

  

[Field: FTotalParty2]

    Use            : Name Field

    Set as        : ""

    Width        : 10% Screen

    ;Border: ThiN Cover

    Skip    : Yes

  

[Field: FTotalCHQNo2]

    Use            : Name Field

    Set as        : ""

    Width        : 5% Screen

    ;Border: ThiN Cover

    Skip    : Yes

  

[Field:FTotalAmt2]

    Use            : Name Field

    Set as        : ""

    Width        : 10% Screen

    ;Border: ThiN Cover

    Skip    : Yes  

  

[Field: FTotalRemark2]

Use            : Name Field

    Set as        : ""

    Width        : 8% Screen

    ;Border: ThiN Cover

    Skip    : Yes  

    Full Width : Yes

    Align:Right



[Field: FTotalDate12]

    Use            : Name Field

    Set as        : ""

    Width        : 6% Screen

    Align        : Left

    ;Border: ThiN Cover

    Skip    : Yes

  

[Field: FTotalParty12]

    Use            : Name Field

    Set as        : ""

    Width        : 10% Screen

    ;Border: ThiN Cover

    Skip    : Yes

  

[Field: FTotalCHQNo12]

    Use            : Name Field

    Set as        : ""

    Width        : 5% Screen

    ;Border: ThiN Cover

    Skip    : Yes

  

[Field:FTotalAmt12]

    Use            : Name Field

    Set as        : ""

    Width        : 15% Screen

    ;Border: ThiN Cover

    Skip    : Yes  

    Background    : misty rose2

  


[Field: FTotalRemark12]

Use : Amount Forex Field

Set as :#LEDMRemark1 + #RTotalAmt2 - #PTotalAmt2

Skip : Yes

style : normal bold

Full Width : Yes

Align:Center

Background: DEEP COBALT BLUE

Color : WHITE

-------------------------------CODE ENDED HERE--------------------------

Classroom Management Skills - Constructive Feedback - How to check Homework and making Suggestions By Rajiv Mishra

 Use Constructive Feedback




Try the following classroom management tips in your online / offline class and enjoy your own teaching with learners.

CUNSTRUCTIVE FEEDBACK ( CF)
What is it?
CF is a teaching jargon for language teachers or for anyone. Actually it is a classroom tool. It is positive feedback given to learners to help finding solutions to areas of weakness s/he may have. Therefore, it used with supportive intention and it is also used as a positive communication tool to discuss specific error or problem.




We need CF for:-


  • Improve learners morale.
  • Increase Knowledge.
  • Reduce confusion regarding performance of the learner and teacher's expectation
  • Give valuable insight.
  • Positively impact a learner’s behavior.



How to make your error correction feedback constructive...


you can take help from these :-

Super!  You're on the right track now!

You are really working hard these days.

You are very good at that (topic).
Good work!
I'm happy to see you learning like that.
That's much, much better!
I'm proud of the way you performed today.
That's the best you've ever done.
That's quite an improvement.
I knew you could do it.

then add your point for correction.....

Super!  You're on the right track now!  I would like to add a  few things,,,,,

I'm happy to see you learning like that. You can make these sentences beater like......



Before using CF in class, I would like to drag your attention towards an important point.

Basic difference between CF and destructive feedback. Destructive feedback points at mistakes and it is a direct attack on the learner. In destructive feedback, no practical advice, no correction or not any supportive feedback is given.

Examples of Destructive Feedback:- 

  • “Your answers are wrong.”
  • “Don't you understand?”
  • “It's wrong?”
  • “You're wrong?”
  • “You have no idea what you are doing.”


Tips for CF:- 


 
  • Start your conversation with the nicer things you found in the homework. Simply it is appreciation - GOOD JOB!!

  • Focus on something nicer point different from your expectation from the specific learner.

    "I do remember my own class homework checking days."
    in an online beginners language class, I assigned WH family homework.

    One of my learner answered "I prefer Rice to Roti." for the question "Which do you prefer rice or roti?" I was not expecting the correct answer form her. I was so happy with her answer. I appreciated her for this unexpected answer (as it was a L1 class).


  • Focus on your observation only.

    CF  should relate to what you can see or hear about that learner’s performance in class instead of making assumptions and interpretations.

  • Focus on skills that can be improved.
    CF should be about language skills that a         learner can change and improve on rather     than on something that is out of his/her             comfort at this level. Possibly someone's         Grammar is good, reading skill is good, or      his / her communication skill is better etc.         Focus on positive skills first.

  •  Provide suggestions and solutions.
    CF should include a specific answer or             advice to improve the content next time.

 

Examples of CF:- 



Look at the following examples of giving CF:
Nimmi has been a learner in your class for three months. Lately, she seems disengaged and not motivated to do homework. Because of this, her performance and quality is decreasing day by day or to learn with attention, speed is below than expected.

A response can be:
“I have noticed that you don’t look as motivated to do homework as you usually do and it makes me feel like I am not teaching well or my topics are difficult to understand. If these are or there are other reasons as to why you are feeling this way, I would love to talk with you about it and find a better way to speedup your learning.  you could be much happier.”
 

Nisha is not doing homework regularly.

A response can be:
“When you don't do homework every day, it irritates me because it shows like you are not enjoying our class & learning. it has a negative impact on our batch/class. From now on, I really need you to do Homework on time and change your behavior.”
 

Rajesh has recently taken a more back-seat role in the class as an active learner.

A response can be:

“I noticed that you are not taking as much participation in class activities as you used to. You are a bright student and surely you will have bright future ahead. 


 

How to give CF:-


Here are five steps to give CF:


1. Explain the purpose of your feedback to him/her.

Explain what you will be talking about and why it is important.


2. Describe what you have observed in class and your reaction.

Clearly identify the skill or activity and how it makes you or other learners feel.

 
3. Give the learner a chance. to respond

After you have explained the purpose, importance, observation, and your reaction, ask the learner what he think about it.

 
4. Provide suggestions or solutions or advice.

After you hear the learner out, give input as to how the learning can be improved.

 

5. Summarise everything discussed.

Summarise everything that was discussed to avoid any misunderstandings and areas of improvements. Also, summarising helps ensure that the CF was communicated efficiently.

 


Thank you for reading TFD English’s article on CF. To further enhance your knowledge and help advance your teaching career, 

We will share more ideas soon.

Regards
Rajiv Mishra
Team, TFD English
 







मंगलवार, 28 दिसंबर 2021

Tally Chapter 105 TDL for Receipt contra Payment BULK Entry by Rajiv Mishra Computer Class

 TDL CODE







--------------TDL CODE STARTS HERE------------------------





[#Menu: Gateway of Tally]


Add : Item : "Bulk Pay/ Rec/ Contra Entry" : Alter : JennyPayment EntryRpt


[Report : JennyPayment EntryRpt]


Form : JennyPayment EntryFrm

Title : $$LocaleString:"Bulk Payment Entry"

Object : Company



[Form : JennyPayment EntryFrm]


Part : Form SubTitle, JennyPayment DrLedPrt;JennyPayment CrLedPrt, JennyPayment DrLedPrt

Width : 100% Page

Height : 100% Page

Space Left : 0.25

Space Right : 0.25

Horizontal Align: Left


Local : Field : Form SubTitle : Info : "Bulk Payment / Receipt / Contra Entry"


On : Form Accept : yes : Form Accept

On : Form Accept : yes : Call : CphSale BulkAutoEntry

;; Sales Credit Part ;;

;;------------------------------------------------------------------------------------------




; [Part : JennyPayment CrLedPrt]

;

; Line : JennyPayment CrLedLne;,JennyPayment SalesLedName

;

; [Line : JennyPayment CrLedLne]

;

; Field : Medium Prompt, JennyPayment CrLedFld ;,JennyPayment SalesLedName

; Local : Field : Medium Prompt : Info : $$LocaleString:"Credit Ledger"

; Space Bottom : 0.50

;

;

; [Field : JennyPayment CrLedFld]

;

; Type : String

;

; Use : Name Field

; Table : JennyPayment SalesLed

; Storage : LedgerName

; Show Table : Always

; Case : Title Case

; Width : 50

; Align : Left

; Border : Thin Box

;

; [Collection: JennyPayment SalesLed]

;

; Title : "List of Ledgers"

; Type : Ledger

; ;Child of : $$GroupBank

; Belongs to : yes

; Format : $Name,30

; Align : Right

; Full Height : Yes


;;;;;;;;;



;; Sales Debit Part ;;

;;------------------------------------------------------------------------------------------

[Part : JennyPayment DrLedPrt]


Line : JennyPayment DrLedTtleLne, JennyPayment DrLedDetlsLne

Repeat : JennyPayment DrLedDetlsLne : JennyPaymentCollection

;Repeat : JennyPayment CrLedLne : JennyPaymentCollection

Scroll : Vertical

Common Border : Yes

Break On : $$IsEndOfList:$PartyLedgerName



[Line : JennyPayment DrLedTtleLne]


Field :JennyPaymentSerialNoFld1,JennyPaymentDateFld1,JennyPaymentVchtypeFld1,JennyPaymentDebitLedgerFld1,JennyPaymentCreditLedgerFld1,JennyPaymentDrAmountFld1,JennyPaymentSALESLEDNAME1

Right Field : JennyPaymentLednarration1

;Use : JennyPayment DrLedDetlsLne


; Local : Field : Default : Inactive : No

;Local : Field : Default : Delete : Storage

Local : Field : Default : Type : String

Local : Field : Default : Style : Normal Bold

Local : Field : Default : Align : Center

Local : Field : Default :Border : Thin Box


[Field : JennyPaymentSerialNoFld1]; : Info : $$LocaleString:"Sno."

Width :5

Set as : "Sno."

Skip : Yes


[Field : JennyPaymentDateFld1]; : Info : $$LocaleString:"Date"


Width : @@ShortWidth

Set as : "Date"

Skip : Yes

[Field : JennyPaymentVchtypeFld1]; : Info : $$LocaleString:"Voucher Type"


Width : 8


Set as : "Voucher Type"

Skip : Yes


[Field : JennyPaymentDebitLedgerFld1]; : Info : $$LocaleString:"Debit Ledger"


Width : 25

Set as :"Debit Ledger"

; Set as : If #JennyPaymentVchtypeFld = "Payment" then $$LocaleString:"(Dr) Party Ledger" else +

; If #JennyPaymentVchtypeFld = "Receipt" then $$LocaleString:"(Cr) Party Ledger" else +

; If #JennyPaymentVchtypeFld = "Contra" then $$LocaleString:"(Dr) Cash / Bank Name" else "Debit Ledger"

Skip : Yes



[Field : JennyPaymentCreditLedgerFld1]; : Info : $$LocaleString:"Credit Ledger"

Width : 25

Set as :"Credit Ledger" ;JennyPaymentCreditLedgerFld

; Set as : If #JennyPaymentVchtypeFld = "Payment" then $$LocaleString:"(Cr) Bank Name" else +

; If #JennyPaymentVchtypeFld = "Receipt" then $$LocaleString:"(Dr) Bank Name" else +

; If #JennyPaymentVchtypeFld = "Contra" then $$LocaleString:"(Cr) Cash / Bank Name" else "Credit Ledger"

Skip : Yes

[Field : JennyPaymentDrAmountFld1]; : Info : $$LocaleString:"Amount"

Set as : "Amount"

Width : @@ShortWidth

Skip : Yes


[Field : JennyPaymentSALESLEDNAME1]; : Info : $$LocaleString:"Bank Ledger"

Set as :"Bank Ledger"

Width: 5

Invisible: Yes

Skip : Yes



[Field : JennyPaymentLednarration1]; : Info : $$LocaleString:"Narration"

Set as : "Narration"

Full Width : Yes

Skip : Yes



[Line : JennyPayment DrLedDetlsLne]


Field : JennyPayment SerialNoFld, JennyPayment DateFld, JennyPayment VchtypeFld , JennyPayment DebitLedgerFld,JennyPayment CreditLedgerFld, JennyPayment SalesLedName,JennyPayment DrAmountFld

Right Field : JennyPayment Lednarration


Space Top : 0.25


[Field : JennyPayment SerialNoFld]


Use : Short Name Field

;Width : @@SymWidth

Width :5

Set as : $$Line

Skip : Yes




[Field : JennyPayment DateFld]


Type : Date

Use : Short Date Field

Storage : Date

Width : @@ShortWidth

Border : Thin Box

[Field : JennyPayment VchtypeFld ]


Type : String

Table : JennyVchtypeFld, EndOfList

;Set as : ##SVVoucherType

Use : Name Field

Set always : Yes

Storage : JennyPaymentVchtypeFld

;Set always : Yes

Show Table : Always

Case : Title Case

Width : 8

Align : Left

;Inactive : $$IsEndOfList:$JennyPaymentVchFld

Border : Thin Box


[Collection: JennyVchtypeFld]


Title : $$LocaleString:"Voucher Types"

Collection : Contra Vouchers

Collection : Payment Vouchers

Collection : Receipt Vouchers

Fetch : Name, ActualVoucherType

Format : $$Name, 10


; Type : Vouchers : VoucherType

; List Name: "Payment","Receipt","Contra"

; Belongs to : yes

; Format : $Name,30

; Align : Right

; Full Height : Yes



[Field : JennyPayment DebitLedgerFld]


Type : String

Use : Name Field

Table : JennyPayment SundryDebtorsLed, EndOfList

Storage : PartyLedgerName

;;Set as : $Name

Show Table : Always

Case : Title Case

Width : 25

Align : Left

Inactive : $$IsEndOfList:$PartyLedgerName

Border : Thin Box





[Collection: JennyPayment SundryDebtorsLed]


Title : "List of Ledgers"

Type : Ledger

;Child of : $$GroupIndirectExpenses

Belongs to : yes

Format : $Name,30

Align : Right

Full Height : Yes

;Filter : PaymentDebitledgerFld



[Field :JennyPayment CreditLedgerFld]


Type : String


Use : Name Field

Table : JennyPayment SalesLed

Storage : LedgerName

Show Table : Always

Case : Title Case

Width : 25

Align : Left

Border : Thin Box


[Collection: JennyPayment SalesLed]


Title : "List of Ledgers"

Type : Ledger

;Child of : $$GroupBank

Belongs to : yes

Format : $Name,30

Align : Right

Full Height : Yes




[Field : JennyPayment SALESLEDNAME]

Type : String

;Table : JennyPayment SalesLed


Set as: #JennyPaymentCreditLedgerFld

Storage : SalesLedgerName

;Show Table : Always

Width : 5

Skip : Yes

Align : Left

;Inactive : $$IsEndOfList:$PartyLedgerName

Invisible: Yes

[Field : JennyPayment DrAmountFld]


Type : Amount

Use : Amount Field

Storage : Amount

Width : @@ShortWidth

Inactive : $$IsEndOfList:$PartyLedgerName

Border : Thin Box



[Field : JennyPayment Lednarration ]


Type : String

Use : Name Field

Storage : Narration


Full Width : Yes

Inactive : $$IsEndOfList:$PartyLedgerName




[Collection: JennyPaymentCollection]


Title : "Bulk Payment Entry"

Type : JennyPayment BulkEntry : Company

Child Of : ##SVCurrentCompany




[System: UDF]

JennyPayment BulkEntry : Aggregate : 41071

Date : Date : 41072

PartyLedgerName : String : 41073

Amount : Amount : 41074

SalesLedgerName : String : 41075

Narration : String: 41076

JennyPaymentVchtypeFld : String: 41077

[System: UDF]

LedgerName : String : 41068

;; ---------------------------------------

[System: Variable]

[Variable : Counter]

Type: Number

;; Bulk Auto Entry ;;

;;-----------------------------------------------------------------------------------------------------------------------

[Function: CphSale BulkAutoEntry]

;; Procedural Block

Parameter : JennyVTypeName : String : ##SVVoucherType

;Parameter : pVoucherType : String

Variable : SVVoucherType : String


Variable : CphDate : Date

Variable : CphDrLedgerName : String

Variable : CphCrLedgerName : String

Variable : CphAmount : Amount

Variable : CphNarration : String

Variable : CphJennyPaymentVchtype: String


Variable : Counter : Number: 1


;00: Set : SVVoucherType : ##pVoucherType

001 : Start Batch Post : 10

005 : START PROGRESS : ($$NumItems:JennyPaymentCollection) : "Creating Vouchers" : @@CmpMailName : "Creating Sales Vouchers ..."

007 : WALK COLLECTION : JennyPaymentCollection

010 : SET : CphDate : $$Date:$Date

010a : Set : CphJennyPaymentVchtype :""

015 : SET : CphJennyPaymentVchtype :$JennyPaymentVchtypeFld

020 : SET : CphDrLedgerName : $PartyLedgerName

030 : SET : CphCrLedgerName : $SalesLedgerName

040 : SET : CphAmount : $$AsAmount:$Amount

045 : SET : CphNarration : $Narration

050 : SET : SVViewName : $$SysName:AcctgVchView

060 : NEW OBJECT : Voucher

070 : SET VALUE : Date : ##CphDate

080 : SET VALUE : VoucherTypeName :##CphJennyPaymentVchtype; ##SVVoucherType;$$VchTypePayment ; $$VchTypeReceipt;VoucherTypeName

080a : Log: #JennyPaymentVchtypeFld

090 : SET VALUE : Narration : $Narration

;100 : SET VALUE : Narration : "For Invoice No : " + $VoucherNumber + " Auto Receipt "

;;----------------------------------------------------------------------------

;;Debit Entry

110 : INSERT COLLECTION OBJECT : AllLedgerEntries

;115 : SET VALUE : VoucherTypeName : ##CphJennyPaymentVchtype


; 110a :Do If:#JennyPaymentVchtypeFld = "Payment" :Set Value :Is Deemed Positive : "Yes"

;110b :Do If:#JennyPaymentVchtypeFld = "Receipt" :Set Value :Is Deemed Positive : "No"

120 : SET VALUE : Ledger Name : ##CphDrLedgerName


140 : SET VALUE : IsDeemedPositive : "Yes"


;140a :Do If:#JennyPaymentVchtypeFld = "Payment" :Set Value : Amount : ##CphAmount * (-1)

;140b :Do If:#JennyPaymentVchtypeFld = "Receipt" :Set Value :Amount : ##CphAmount

141 : SET VALUE : Amount : ##CphAmount * (-1)

150 : SET TARGET : ..

150a : LOG : $$String:##CphDrLedgerName



;----------------------------------------------------------------------------

;;Credit Entry

160 : INSERT COLLECTION OBJECT : AllLedgerEntries

;160a : SET TARGET : LedgerEntries


;160a :Do If:#JennyPaymentVchtypeFld = "Payment" :Set Value :Is Deemed Positive : "Yes"

; 160b :Do If:#JennyPaymentVchtypeFld = "Receipt" :Set Value :Is Deemed Positive : "No"


; 160a : If: $$JennyPaymentVchtypeFld = ##CphJennyPaymentVchtype

; 160b: Do If:$LedgerName=##CphCrLedgerName:SET VALUE : Is Deemed Positive : "Yes"

; 160c : Else

; 160d: Do If:$LedgerName=##CphCrLedgerName:SET VALUE : Is Deemed Positive : "No"

; 160e : End If

170 : SET VALUE : Ledger Name : ##CphCrLedgerName


;170a :Do If:#JennyPaymentVchtypeFld = "Payment" :Set Value : Amount : ##CphAmount * (-1)

; 170b :Do If:#JennyPaymentVchtypeFld = "Receipt" :Set Value :Amount : ##CphAmount

180 : SET VALUE : Amount : ##CphAmount

190 : SET VALUE : IsDeemedPositive : "No"

200 : SET TARGET : ..

210 : SET VALUE : PersistedView : ##SVViewName

220 : CREATE TARGET

230 : INCREMENT : Counter

230a : SHOW PROGRESS : ##Counter

240 : END WALK

260 : END PROGRESS

280 : RETURN

290 : End Batch Post

[Report: JennyPayment Daybook]

Use : Daybook


Set : SVFromDate : $$FinYearBeg:##StartDate:$StartingFrom:Company:##SVCurrentCompany

Set : SVToDate : $$FinYearEnd:##StartDate:$StartingFrom:Company:##SVCurrentCompany

 







--------------TDL CODE ENDED HERE------------------------

Tally Chapter 104 TDL for Bulk Payment Entry By Rajiv Mishra Computer Class

 TDL CODE









--------------CODE STARTS HERE -------------------



[#Menu: Gateway of Tally]   

   

    Add    : Item   : "Bulk Payment Entry" : Alter : CphSales EntryRpt

   

    [Report : CphSales EntryRpt]

       

        Form    : CphSales EntryFrm

        Title   : $$LocaleString:"Bulk Payment Entry"

        Object    : Company

       

        ;Fetch Collection: Sales Support Ledgers Extract, Party Ledgers Extract

       

               

        [Form : CphSales EntryFrm]

           

            Part         : Form SubTitle, CphSales CrLedPrt, CphSales DrLedPrt

            Width        : 100% Page

            Height        : 100% Page

            Space Left    : 0.25

            Space Right    : 0.25   

            Horizontal Align: Left

           

            Local        : Field    : Form SubTitle    : Info        : "Bulk Payment Entry"

           

            On        : Form Accept : yes        : Form Accept

            On         : Form Accept : yes     : Call     : CphSale BulkAutoEntry




;; Sales Credit Part ;;                           

;;------------------------------------------------------------------------------------------           

           

                [Part : CphSales CrLedPrt]


                 Line : CphSales CrLedLne

               

               

                    [Line : CphSales CrLedLne]

   

                        Field    : Medium Prompt, CphSales CrLedFld                       

                        Local    : Field    : Medium Prompt    : Info    : $$LocaleString:"Credit Ledger"

                        Space Bottom    : 0.50

                       


                        [Field    : CphSales CrLedFld]

                           

                            Type        : String

                            Use            : Name Field

                            Table        : CashBank LedgersExtract

                            Storage        : RBCBLedgerName

                            Show Table    : Always

                            Case        : Title Case

                            Width        : 50

                            Align        : Left

                            Border        : Thin Box

                           

                           

   



;; Sales Debit Part ;;                           

;;------------------------------------------------------------------------------------------                       


            [Part : CphSales DrLedPrt]

               

                Line     : CphSales DrLedTtleLne, CphSales DrLedDetlsLne

                Repeat    : CphSales DrLedDetlsLne : CphSalesCollection

                Scroll            : Vertical

                Common Border    : Yes

                Break On        : $$IsEndOfList:$PartyLedgerName

               

               

                    [Line : CphSales DrLedTtleLne]

                       

                        Use        : CphSales DrLedDetlsLne       

                       

                        Local    : Field    : Default                    : Inactive    : No

                        Local    : Field    : Default                    : Delete    : Storage

                        Local    : Field    : Default                    : Type        : String                       

                        Local    : Field    : Default                    : Style        : Normal

                       

                        Local    : Field    : CphSales SerialNoFld        : Info        : $$LocaleString:"Sno."

                       

                        Local    : Field    : CphSales DateFld            : Info        : $$LocaleString:"Date"

                       

                        Local    : Field    : CphSales DebitLedgerFld    : Info        : $$LocaleString:"Debit Ledger"

                       

                        Local    : Field    : CphSales DrAmountFld        : Info        : $$LocaleString:"Amount"

   

                        Local    : Field    : CphVchNarration            : Info        : $$LocaleString:"Narration"

                       

                        Local    : Field    : CphChequeNo                : Info        : $$LocaleString:"Cheque No"

                       

                        Border    : Thin TopBottom

                        Delete    : Space Top

                                               


                [Line    : CphSales DrLedDetlsLne]

                   

                    Field        : CphSales SerialNoFld, CphSales DateFld, CphSales DebitLedgerFld, CphSales DrAmountFld, CphChequeNo, CphVchNarration

                   

                    Border:Thin Left

                    Space Top    : 0.25

                   


                    [Field    : CphSales SerialNoFld]

                       

                        Use          : Short Name Field

                        Width        : @@SymWidth

                        Set as       : $$Line

                        Skip         : Yes

                                           

                       


                    [Field    : CphSales DateFld]

                       

                        Type        :     Date

                        Use            :    Short Date Field

                        Storage        :    Date

                        Set as        :    $$PrevObj:$Date                       ; Line added

                        Set Always    :    Yes                       ; Line added

                        Width        :     @@ShortWidth

                       


                    [Field    : CphSales DebitLedgerFld]

                       

                        Type        :     String

                        Use            :     Name Field

                        Table        :     All Ledger, EndOfList       

                        Keys        : Create Ledger, Alter Ledger

                        Storage        :     PartyLedgerName

                        ;;Set as        :     $Name

                        Show Table    :     Always

                        Case        :     Title Case

                        Width    :     @@NameWidth

                        Align        :     Left

                        Inactive    :     $$IsEndOfList:$PartyLedgerName        ;;$$IsEndOfList:$Name    ;;$$IsEmpty:$Name

                       


                       


                    [Field    : CphSales DrAmountFld]

                       

                        Type        :     Amount

                        Use            :    Amount Field

                        Storage        :    Amount

                        ;;Set as        :   $Amount

                        Width        :     @@AmountWidth

                        Inactive    :     $$IsEndOfList:$PartyLedgerName        ;$$IsEndOfList:$Name;;$$IsEmpty:$Name

                           

                       

                    [Field:CphVchNarration]

                        Use:Voucher Narration Field

                        Storage:Narration

                        Key                 : PrevVchNarration, PrevLedNarration

                        Full WidthWidth:Yes

                        Inactive    :     $$IsEndOfList:$PartyLedgerName        ;$$IsEndOfList:$Name;;$$IsEmpty:$Name

                       

                    [Field:CphChequeNo]

                        Use            : Name Field

                        Width        : @@shortwidth

                        Storage        : CheNumUDf

                        Inactive    :     $$IsEndOfList:$PartyLedgerName        ;$$IsEndOfList:$Name;;$$IsEmpty:$Name

                                               


[Collection: CphSalesCollection]

       

    Title         : "Bulk Payment Entry"

    Type        : CphSales BulkEntry : Company

    Child Of    : ##SVCurrentCompany

                   

                       

                       


[System: UDF]


    CphSales BulkEntry         : Aggregate : 41071

    Date                    : Date        : 41072

    PartyLedgerName            : String    : 41073

    Amount                    : Amount    : 41074

    RBCBLedgerName            : String    : 41075

    CheNumUDf                : String    : 41076

    Narration                : String    : 41077





;; Bulk Auto Entry ;;

;;-----------------------------------------------------------------------------------------------------------------------


[Function: CphSale BulkAutoEntry]


;; Procedural Block

   

    Variable : CphDate             : Date   

    Variable : CphDrLedgerName     : String

    Variable : CphCrLedgerName     : String

    Variable : CphAmount        : Amount

    VARIABLE : ChqNo            : String

    VARIABLE : Narration        : String

    ;Variable:    ChqDate            :Date


    ;;Variable : CphNoofEntry        : Number:1   

    Variable     : Counter         : Number: 1

   

    001 :     Start Batch Post        : 10

    ;;003 :     SET : Counter           : 0 

    005 :     START PROGRESS          : ($$NumItems:CphSalesCollection)   : "Creating Vouchers" : @@CmpMailName : "Creating Payment Vouchers ..."

    007 :     WALK COLLECTION         : CphSalesCollection    ;;Sales Info

    ;;000 :   SET : CphNoofEntry         : $$Line:##CphNoofEntry ;; Counter

    010 :     SET : CphDate            : $$Date:$Date

    020 :     SET : CphDrLedgerName   : $PartyLedgerName

    030 :     SET : CphCrLedgerName   : #CphSalesCrLedFld

    040 :     SET : CphAmount            : $$AsAmount:$Amount   

    041    :    Set    : ChqNo                : #CphChequeNo

    042    :    Set    :    Narration        : $Narration

    ;043 :   Set:    ChqDate            : $$Date:$Date

   

   

    ;040a:   WHILE : ##CphNoofEntry >= 1

    050    :     SET             :     SVViewName            : $$SysName:AcctgVchView

   

   

    060    :     NEW OBJECT        :     Voucher   

    070    :     SET VALUE         :    Date                   : ##CphDate   

    080    :     SET VALUE        :     VoucherTypeName        : $$VchTypePayment


   

    090    :    SET VALUE         :    Narration             : $Narration

    100    :    SET VALUE         :    Narration             : "Cheque No :" + $CheNumUDf +" ,  Against Bill No :"+$Narration



;;----------------------------------------------------------------------------

;;Debit Entry

    110    :    INSERT COLLECTION OBJECT : AllLedgerEntries

    110a:    SET TARGET        : LedgerEntries

    120    :    SET VALUE         : Ledger Name            : ##CphDrLedgerName

    ;130

    140    :    SET VALUE         : IsDeemedPositive         : "Yes"   

    141    :    SET VALUE         : Amount                : ##CphAmount * (-) 1     ;##CphAmount

    150    :     SET TARGET        : ..


    150a  :    LOG : $$String:##CphDrLedgerName ;+ $$String:#CphAmount + "Dr"

    ;150b  :    LOG : ##CphCrLedgerName + $$String:#CphAmount + "Cr"

   

;----------------------------------------------------------------------------

;;Credit Entry

    160    :    INSERT COLLECTION OBJECT :  AllLedgerEntries

    160a:     SET TARGET        : LedgerEntries

    170    :    SET VALUE         : Ledger Name              :   ##CphCrLedgerName

    180    :    SET VALUE         : Amount                :     ##CphAmount * (-) 1 ;##CphAmount

    190    :    SET VALUE         : IsDeemedPositive         :   "No"

    ;200    :     SET TARGET        : ..

   

    ;200a:    LOG : $$String:##CphCrLedgerName ;+ $$String:#CphAmount + "Cr"

;-----------------------------------------------------------------------------------

    ;Bank Allocations

    201    :     IF                            : ($$IsLedOfGrp:$RBCBLedgerName:$$GroupBank OR $$IsLedOfGrp:$RBCBLedgerName:$$GroupBankOD)

    202    :    SET TARGET        : LedgerEntries[$$LoopIndex]

    203    :    SET                : BankLedgerAmount                    : $Amount

    209 :          INSERT COLLECTION OBJECT                : BankAllocations

    210    :            WALK            : BankAllocations

    211 :                SET TARGET    : BankAllocations[$$LoopIndex]

    220 :                SET VALUE        : Date                            : $$Owner:$$Owner:$Date

    230    :                SET VALUE        : TransactionType               :$$LocaleString:"Cheque"

    ;235:                SET VALUE        : BankName            : $RBCBLedgerName

    240    :                SET VALUE        : InstrumentNumber                :$$Owner:$$Owner:$ChqNumUDF

    250    :               SET VALUE         : InstrumentDate                :$$String:##CphDate

    260    :                SET VALUE        : PAYMENTFAVOURING      :$$String:##CphDrLedgerName

    270    :                 SET VALUE        : Amount                :(##CphAmount) *-1

    280    :                 SET TARGET        : ...

    281    :            End Walk   

    290    :                 SET TARGET        : ..

    300    :     END IF

   

;-----------------------------------------------------------------------------------

    310    :   SET VALUE         : PersistedView : ##SVViewName

    ;310a:     CALL             : CphSave Target Sales

    320    :   CREATE TARGET

   

    ;;330    :     SET             : CphDate            : ##CphDate

    340 :     INCREMENT         : Counter

    350a:     SHOW PROGRESS     : ##Counter

    360    :     END WALK   

    370    :     MSGBOX             : " Message Box " : "Thank You for Using this TDL for Bulk Payment"

    380 :     END PROGRESS

    390 :   DISPLAY            : CphPayment Daybook

    ;390    :     LOG : ">>>Voucher Created on "+$$String:$$Machinedate + " @ " + $$String:$$MachineTime + ">>>>>"

    400    :   RETURN

    410 :    End Batch Post


/*

[Function: CphSave Target Sales]

   

    10 : Save Target

*/



;; End-of-File



[Report: CphPayment  Daybook]


    Use        : Daybook

    Set        : VoucherTypeName    : "Payment"

    Set        : SVFromDate        : $$FinYearBeg:##StartDate:$StartingFrom:Company:##SVCurrentCompany

    Set        : SVToDate            : $$FinYearEnd:##StartDate:$StartingFrom:Company:##SVCurrentCompany

           

    Local    : Collection        : Default    : Add    : Filter    : Prov Filter




---------------CODE ENDED HERE-----------------------

 [#Form: Master Accounting Form] Delete: Bottom Buttons : Master Group, Master Ledger, Master VchType, Blank Button ;, Master Company Operat...