कुल पेज दृश्य

शनिवार, 23 जुलाई 2022

Tally TDL chapter 287 for Easy Copy Paste by Rajiv Mishra Computer Class


 [#Form: Master Accounting Form]

Delete: Bottom Buttons : Master Group, Master Ledger, Master VchType, Blank Button ;, Master Company Operations, Master Configure

Delete: Option : CstCat Buttons : $$IsCostCategoryOn

Delete: Option : CstCtr Buttons : $$IsCostCentresOn

Delete: Option : Employee Buttons : ($$AddOnInfo:payrollEnabled) AND $$IsPayrollOn

Delete: Option : Budget Buttons : $$IsBudgetsOn

Delete: Option : Currency Buttons : $$IsMultiCurrencyOn


[#Form: Master Inventory Form]

Delete: Bottom Buttons : Master Stock Group, Master Stock Item, Master Units, Master VchType, Blank Button ;, Master Company Operations, Master Configure

Delete: Option : StockCat Buttons : $$IsStockCategoryOn

Delete: Option : Godown Buttons : $$IsMultiGodownOn

[#Form: Multi Master Accounting Form]

Delete: Bottom Buttons : Multi Master Group, Multi Master Ledger, Blank Button ;, Master Company Operations

Delete: Option : Multi CstCat Buttons : $$IsCostCategoryOn

Delete: Option : Multi CstCtr Buttons : $$IsCostCentresOn

Delete: Option : Multi Employee Buttons : ($$AddOnInfo:payrollEnabled) AND $$IsPayrollOn

[#Form: Multi Master Inventory Form]

Delete: Bottom Buttons : Multi Master Stock Group, Multi Master Stock Item, Blank Button;, Master Company Operations

Delete: Option : Multi StockCat Buttons : $$IsStockCategoryOn

Delete: Option : Multi Godown Buttons : $$IsMultiGodownOn


[#Button : ChqConfigFill]

Delete : Key

Add: Key: Ctrl+D

Title : $$LocaleString:"Copy From"

Action : Alter : ChqConfigFillRep


[#Button: Master CstCtr]

Key: Ctrl+Alt+C

Action : Replace : Cost Centres

Title : $$LocaleString:"Cost Centre"

Inactive: NOT $IsCostCentresOn:Company:##SVCurrentCompany

Option : Sec Master CstCtr : $$InExecuteMode


[#Button: Master StockCat]

Delete : Key

Add: Key: Ctrl+Alt+C

Action : Replace : Stock Category

Title : $$LocaleString:"Category"

Inactive: NOT $IsStockCategoryOn:Company:##SVCurrentCompany

Option : Sec Master StockCat : $$InExecuteMode


[#Button: Multi Master CstCtr]

Delete : Key

Add: Key: Ctrl+Alt+C

Action : Replace : Multi Cost Centre

Title : $$LocaleString:"Cost Centre"

Inactive: NOT $IsCostCentresOn:Company:##SVCurrentCompany


[#Button: Multi Master StockCat]

Delete : Key

Add: Key: Ctrl+Alt+C

Action : Replace : Multi Stock Category

Title : $$LocaleString:"Category"

Inactive: NOT $IsStockCategoryOn:Company:##SVCurrentCompany


;

[#Button: Invoice Button]

Key : Ctrl+F

Action : Set : InvoicingModeFlag : NOT ##InvoicingModeFlag

;;Action List : view name key, invoice mode flag key

Title : if ##InvoicingModeFlag then $$LocaleString:"As Voucher" else $$LocaleString:"As Invoice"

Inactive : (NOT $$IsInvoicingOn AND NOT ##InvoicingModeFlag) OR +

(NOT @@IsSales AND NOT @@IsCreditNote AND NOT @@IsDebitNote AND NOT @@IsPurchase)


[#Button: Master VchType]

Key: Ctrl+F


[#Key: AL Voucher Type]

Key: Ctrl+F



[System: Form Keys]

Key : Field Copy C, Field Paste V


[Key : Field Copy C]

Key : Ctrl+C

Action : Field Copy


[Key : Field Paste V]

Key : Ctrl+V

Action : Field Paste


[#Form: List of Accounts]

Delete: Button: AL CstCtr

Add: Button: AL CstCtr New


[Button: AL CstCtr New]

Key : Ctrl+D

Title : $$LocaleString:"Cost Centres"

Action : Set : AccountType : $$SysName:CostCentres

Inactive: $$IsSysNameEqual:CostCentres:##AccountType OR NOT $$IsCostCentresOn:$$CurrentCompany

 


1 टिप्पणी:

  1. shri rajiv sir ji, mere is code me kuch error hai
    isme mujhe payment detect ki list banana hai jo 10000rs se jyada hai unki ek list show kare payment voucher ki.

    please sir correct this code.

    [Report: Cash Payments Above 10000]
    Form: "Cash Payments Above 10000"
    Title: "Cash Payments Above 10000"

    [Form: Cash Payments Above 10000]
    Part: "Cash Payments Above 10000": Field: PaymentVoucher
    On: Load: FindCashPaymentsAbove10000

    [Function: FindCashPaymentsAbove10000]
    Variable: PaymentVoucher: report Payment
    Variable: PaymentAmount: amount
    Variable: PaymentType: string
    Variable: PaymentCount: integer

    Let PaymentCount = 0

    For PaymentVoucher in Payment Do
    Let PaymentType = PaymentVoucher."Payment Type"
    Let PaymentAmount = PaymentVoucher.Amount

    If PaymentType = "Cash" AND PaymentAmount > 10000
    Let PaymentCount = PaymentCount + 1
    EndIf
    EndFor

    Message: "Number of cash payments above 10000: " + $PaymentCount

    [#Menu: Gateway of Tally]
    Add: Item: "Cash Payments Above 10000":display:Cash Payments Above 10000: Action: Report:"Cash Payments Above 10000"

    जवाब देंहटाएं

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