I want to create a new voucher form , which should store and fetch my udf. How can I do this , with the same design as other vouchers? 1.this voucher should work the same as other vouchers(payment, receipt, sale...) 2. This new voucher shows my own udf. 3. and one more thing: attach a document(like any related document) in narration . please help someone.
Dear Mayur bhai To save voucher object in tally database Voucher should have following fields 1) Date 2) voucher type name 3) atleast 1 debit ledgername and 1 credit ledger name . Name should be available in ledger master. total ofDr amount and credit amount should equal. Above are compulsory predefined requirements. If something in above is missing we can't save voucher in tally database. You can add your udf as required. If you want your own object to save and retrieve through tally pls go and have a look in the Tally integration thread as database for tally. Still u want more clarification pls write a question precisely. I will try to answer you.
ok voucher create is difficult, how to create my own report using own object & retrieve all udf created, in other report. can you give code for this
https://github.com/Prachi-Infosoft/tdddbserver Download and test it. If u have any query in above pls feel free to ask. It's contains tdl source code also. tdlwala@gmail.com 84597 94367.
Kindly note that in setup file its bundled. Tdl is useless without dbserver. Though its free version it's not harmful.
can you give code with simple using object :company and insert collection object to insert my own udf.
Its already available in sample tdls. Report object should be voucher. Push above discussed must-udf. And get values from user as required.
I have created a report which shows my saved entries in aggregate udf from the company object. but on enter key press on line of report , form udf are blank , means not showing for alter . in report i have added Code: [Key: viewreceipt] Key: Enter Action: Alter : alter rptlory my collection MY COLLECTION Code: [Collection:foralterVouchersColl] Type:mydbtransporter:company Child of: ##svcurrentcompany Filter: compairuniquid [System:Formulae] compairuniquid:$uniquevehiclid=#tempuniquvehiclid and function for alter FUNCTION -- Code: [Function:alter rptlory] ;Parameter:consignername object:company:$$currentcompany 13: set object 14 :set target Variable:consignme:String 0012: Set:consignme:#consignername 001: Msg Box: "Working On this function" : $uniquevehiclid 002: WALK COLLECTION : foralterVouchersColl 010: Msg Box: "Working On this function":$lrinvoicnumber 020: Set Value:##consignme:lrconsignorname 011: END WALK 070 : set target: .. 180 : RETURN 071:Action: alter : LRreceipt creation something wrong in my function, in function filter values comes from collection but not assigning to field for alter
using this method how to create new voucher form, same to same other vouchers form for lorry receipt creation, can you give code for this.
Code: [#Menu: Gateway of Tally] Add : Key Item : Before : @@locQuit : TDL - The Development Language : U :Create:MyEntry [Report: MyEntry] Form : MyEntry Object : Voucher [Form: MyEntry] Parts : MyEntry Height : 100% Page Width : 100% Page Button : Change Date Part : Stud Fees Collection Form [Part: MyEntry] Lines : MyEntry1, DebitLE Lines : CreditLE Scroll : Vertical CommonBorder: Yes [Line: MyEntry1] Field: MyEntry1date, MyEntryVCHType [Field: MyEntry1date] Storage : Date Use : Uni Date Field Set as : ##SVCurrentDate Skip :Yes [Field: MyEntryVCHType] Use : name Field Storage : VouchertypeName Set as : $$VchTypePayment Skip :Yes [Line: DebitLE] Fields : DebitLE Name, DebitLE Flag, DebitLEAmount ;Invisible : Yes [Field: DebitLE Name] Type : String : Forced Use : Name Field Set as : $$FilterValue:$Name:Ledger:1:ProfitLed Storage : LedgerName : LedgerEntries:First Set Always : Yes [Field: DebitLE Flag] Type : Logical : Forced Use : Logical Field Storage : ISDeemedPositive : LedgerEntries:First Set as : "Yes" Set Always : Yes [Field: DebitLEAmount] Type : Amount : Forced Use : Amount Base Field Storage : Amount : LedgerEntries:First Set as : $$AsAmount:1 Set Always : Yes [Line: CreditLE] Fields : CreditLE Name, CreditLE Flag, CreditLE LEAmount ; Invisible : Yes [Field: CreditLE Name] Type : String : Forced Use : Name Field Set as : $$FilterValue:$Name:Ledger:1:ProfitLed Storage : LedgerName : LedgerEntries:Last:False Set Always : Yes [Field: CreditLE Flag] Type : Logical : Forced Use : Logical Field Storage : ISDeemedPositive : LedgerEntries:Last:False Set as : No Set Always : Yes [Field: CreditLE LEAmount] Type : Amount : Forced Use : Amount Base Field Storage : Amount : LedgerEntries:Last:False Set as : $$AsAmount:1 Set Always : Yes [System: Formula] ProfitLed : $$IsLedgerProfit [Part:Stud Fees Collection Form] Lines : Stud Fees Collection Title, Stud Fees Collection Details Repeat : Stud Fees Collection Details : Student Info Scroll : Vertical Common Border : Yes Break On : $$IsEmpty:$CourseNameUdf [Line: Stud Fees Collection Title] Use : Stud Fees Collection Details Local : Field : Default : Delete : Storage Local : Field : Default : Inactive : No Local : Field : Default : Type : String Local : Field : Course Name : Info : "Course Name" Local : Field : Student Name : Info : "Student Name" Local : Field : Amount Collected : Info : "Amount" Border : Thin Bottom [Line: Stud Fees Collection Details] Fields : Course Name, Student Name, AmountCollected [Field: Course Name] Use : Name Field Storage : Course Name Udf ;;Table : List of Courses, End of List Show Table : Always [Field: Student Name] Use : Name Field Storage : Student Name Udf Inactive : $$IsSysName:$CourseNameudf ; Validate : NOT $$IsEmpty:$StudentNameUdf [Field: Amount Collected] Use : Amount Field Storage : AmountCollected Udf Inactive : $$IsSysName:$CourseNameUdf Validate : NOT $$IsEmpty:$AmountCollectedudf [System: UDF] Student Info : Aggregate : 900 Course Name UDf : String : 900 Student Name Udf : String : 901 Amount CollectedUDf: Amount : 900 [#Field: DSP VchDate] Add: Option: My Entry: Yes [!Field: My Entry] Delete: Alter add:alter: MyEntry you can hide (invivisible :yes) lines of ledger entries. But kindly note that this is limitation of tally that you can't save your object to tally database. this is why I recomended u tdddb.
thanks for code, but for lorry receipt voucher, this aggregate udf not required. i have used below code, Code: [function:create lr functio] parameter: paraconsignername:string parameter:paraconsignerlocation:String parameter:paraconsigneename:String parameter:paraconsigneelocation:String Parameter:paralrdateis:Date Parameter:paraLrinvoiceNo:number Parameter :paraLrvehicleNo:String Parameter :paraLrvehicletype:String Parameter: parauniquevehiclid : String Parameter: parahyperlink : String 01 : NEW OBJECT : VOUCHER 02 : SET : SVViewName : $$SysName:AcctgVchView 03 : SET : SVVoucherType : "LR Receipt";$$VchTypeReceipt 04 : SET VALUE : Date : ##paralrdateis ;$Date 0444 : log : $$TgtObject:$Date 05 : SET VALUE : VoucherTypeName :"LR Receipt" 06 : SET VALUE : uniquevehiclid : ($CmpVchID:Company:##SVCurrentCompany) 07 : log : $$TgtObject:$uniquevehiclid 12 : set value: lrconsignorname: ##paraconsignername 122: log: ##paraconsignername 13 : set value: lrconsignorlocation: ##paraconsignerlocation 14 : set value: lrconsignee: ##paraconsigneename 15 : set value: lrlocation: ##paraconsigneelocation 16 : set value: LRreceiptdateis: ##paralrdateis 17 : set value: lrinvoicnumber: ##paraLrinvoiceNo 18 : set value: lrvehiclnumber: ##paraLrvehicleNo 19 : set value: lrvehicletype: ##paraLrvehicletype 20 : set value: uniquevehiclid: ##parauniquevehiclid 21 : Set Value: hyper1 : ##parahyperlink 21A :log : "test" 08 : INSERT COLLECTION OBJECT : AllLedgerEntries 09 : SET VALUE : LedgerName : ##paraconsignername ;$Partyledgername 10 : SET VALUE : Amount : $$AsAmount:100;$Amount 11 : SET VALUE : IsDeemedPositive : No 22 : INSERT COLLECTION OBJECT : BillAllocations 23 : SET VALUE : Name : ##paraconsignername 24 : SET VALUE : BillType : $$SysName:AgstRef 25 : SET VALUE : Amount : $$AsAmount:100*-1;$BillAmt1 26 : SET TARGET : ... 27 : INSERT COLLECTION OBJECT : AllLedgerEntries 28 : SET VALUE : LedgerName : ##paraconsignername ;"Cash" 29 : SET VALUE : Amount : $$AsAmount:100;$amount 30 : SET VALUE : Is Deemed Positive : "Yes" 31 : SET TARGET : .. 32 : SET VALUE: Persisted View: ##SVViewName 33 : Accept Alter 34 : MSG BOX : "Info" : "Receipt Voucher Created" this working fine but when i altered from report its repeating entries. how to modify above function so that it use for altered also.
As I understood u want lr register. Still today I m not able to understand what exactly u wants to achieve.
sir keep relax , cool, just simple query is this function [function:create lr functio] is already created lorry receipt vouchers but now what problem i am facing when i alter this entries using same function , entries are repeating. in short how to alter this entries.