create a new voucher form , should store and fetch my udf and same design of other vouchers

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.

 

no source code it just database for tally

 

In installation folder there is tdls folders also.

 

there is just setup.exe & readme.md

 

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.

 

any file name in sample tdls.., i searched but not found

 

Pls share what u have tried.

 

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.