कुल पेज दृश्य

गुरुवार, 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--------------------------

कोई टिप्पणी नहीं:

एक टिप्पणी भेजें

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