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