Payment import from Excel

Discussion in 'Free Source Codes' started by JObimon Arackal JOhn, Mar 5, 2014.

    
  1. JObimon Arackal JOhn

    JObimon Arackal JOhn Active Member


    This coding is in very raw form.

    You have to modify according to your need

    Excel data should be in this format

    1.png
     

    Attached Files:

    Raju Das likes this.


  2. JObimon Arackal JOhn

    JObimon Arackal JOhn Active Member


    Corrected One.
     

    Attached Files:

    mpal2311 likes this.


  3. T .V S RAMAN

    T .V S RAMAN New Member


    dear sir
    you give format of excel . same format was made in my d drive. my excel 2013, but error comes " external table is not in the expected format. how to copy of your format. tell
     


  4. T .V S RAMAN

    T .V S RAMAN New Member


    my file format enclose tell where the mistake
     

    Attached Files:



  5. JObimon Arackal JOhn

    JObimon Arackal JOhn Active Member



    Save file as Xls. not Xlsx..

    It is not Extension change.open your file in excel and save as xls


    if you want to import from xlsx file you need to change the coding accordingly.
     


  6. T .V S RAMAN

    T .V S RAMAN New Member


    DEAR SIR

    I WAS CHANGE FILE FORMAT XLS. BUT CODE WAS NOT WORKING DATA IMPORT TO TALLY

    RAMAN
     


  7. JObimon Arackal JOhn

    JObimon Arackal JOhn Active Member



    If you had changed the code to .xlsx then change it back to xls
    also check what is the file name you have given. is that xls or xlsx.it must be filename.xls
     


  8. T .V S RAMAN

    T .V S RAMAN New Member


    dear sir

    please give me code in sale invoice po no.& date print with item. my order was 1 item in one order it one bills more than 6 orders. please tell me if it is possible.
    regards
    raman
     


  9. JObimon Arackal JOhn

    JObimon Arackal JOhn Active Member




    Nothing is impossible. I have already uploaded TDl for sales import without item .please search the same in this item. Change according to your requirement.

    Please do not say you are new to TDL. Hence you need full code


    We are seeing these kind of post from the beginning of this site.

    This site is not for free source code. If some body is posting some free code , it is done with an intention of Knowledge exchange. If you have any requirement first you prepare a tdl.When you face a problem get help from fellow members
     


  10. Dharmendra Rane

    Dharmendra Rane New Member


    Dear sir

    I am using the enclosed TDL to import data from excel to Tally.ERP9 Rel 4.93. It takes more time to import. Even after taking so long time it fails to import even one entry at times without any error but at times it shows label error 250.

    thanks and regards
    Dharmendra R.
     

    Attached Files:



  11. Nirav Merchant

    Nirav Merchant Active Member


    Can Any body tell me what collection to use if I want to Get Item details from Excel in Payment or Receipt vch and not sales or purchase

    I tried using Inventory Allocations but it give errors that collection not Found
     



  12. Dear all members

    Please any example post of export tally to excel sales register, voucher entry wise
     


  13. vyadav

    vyadav Member


    Dear all members ,,

    My question is Bill allocation import problem how to maintain Agst Ref, New Ref

    Please give a solutions.
     



  14. Hi ,

    When i import payment voucher face some problem regarding the value for <Name>

    So required your help to get the valve for <Name>

    <BANKALLOCATIONS.LIST>
    <DATE>20160801</DATE>
    <INSTRUMENTDATE>20160801</INSTRUMENTDATE>
    <NAME>1288fe11-8407-4b11-adb6-b28797be7b4d</NAME>
    <TRANSACTIONTYPE>Cheque</TRANSACTIONTYPE>
     


  15. birender

    birender New Member


    dear sir

    please give me code in I need payment voucher import with cost center also

    Thanks,
     


  16. birender

    birender New Member


    Dear sir

    please provide tdl code for payment voucher import with cost centre & category also


    Thanks with regard
     


  17. rmraja

    rmraja Active Member


    Dear Sir,
    I am not a tdl programmer let see other senior member from this portal to provide tdl code
     


  18. psr

    psr Member


    Sir, Can you please share the VB Code?

    Thank you
     


  19. rmraja

    rmraja Active Member


    Private Sub Command1_Click()
    Dim ComboString1 As String
    Dim ComboString2 As String
    Dim ComboString3 As String
    Dim ComboString11 As String
    Dim ComboString21 As String
    Dim ComboString31 As String
    ComboString11 = Combo1.Text
    ComboString21 = Combo2.Text
    ComboString31 = Text5.Text
    ComboString1 = Combo1.Text
    ComboString2 = Combo2.Text
    ComboString3 = Text5.Text
    If Combo1.Text = "" Or Combo2.Text = "" _
    Or Text1.Text = "" Or Text4.Text = "" Then
    MsgBox "", _
    vbApplicationModal, "Voucher Creation"
    Else
    date2 = Format(Text1.Text, "dd/mm/yyyy")
    Temp = Str$(Text4.Text * -1)
    If InStrRev(ComboString11, "&") Then
    ComboString1 = Replace(ComboString11, "&", "" & "")
    End If
    If InStrRev(ComboString21, "&") Then
    ComboString2 = Replace(ComboString21, "&", "" & "")
    End If
    If InStrRev(ComboString31, "&") Then
    ComboString3 = Replace(ComboString31, "&", "" & "")
    End If
    xmlstc = "<ENVELOPE>" + vbCrLf & _
    "<HEADER>" + vbCrLf & _
    "<VERSION>1</VERSION>" + vbCrLf & _
    "<TALLYREQUEST>Import</TALLYREQUEST>" + vbCrLf & _
    "<TYPE>Data</TYPE>" + vbCrLf & _
    "<ID>Vouchers</ID>" + vbCrLf & _
    "</HEADER>" + vbCrLf & _
    "<BODY>" + vbCrLf & _
    "<DESC>" + vbCrLf & _
    "</DESC>" + vbCrLf & _
    "<DATA>" + vbCrLf & _
    "<TALLYMESSAGE >" + vbCrLf & _ "<VOUCHER VCHTYPE=""Payment"" ACTION=""Create"">" + vbCrLf& _ "<DATE>" + date2 + "</DATE>" + vbCrLf & _ "<NARRATION>" + ComboString3 + "</NARRATION>" + vbCrLf & _ "<VOUCHERTYPENAME>Receipt</VOUCHERTYPENAME>" + vbCrLf & _ "<EFFECTIVEDATE>" + date2 + "</EFFECTIVEDATE>" + vbCrLf & _ "<ALLLEDGERENTRIES.LIST>" + vbCrLf & _ "<LEDGERNAME>" + ComboString2 + "</LEDGERNAME>" + vbCrLf & _
    "<AMOUNT>" + Text4.Text + "</AMOUNT>" + vbCrLf & _ "</ALLLEDGERENTRIES.LIST>" + vbCrLf & _ "<ALLLEDGERENTRIES.LIST>" + vbCrLf xmlstc = xmlstc + "<LEDGERNAME>" + ComboString1 +
    "</LEDGERNAME>" + vbCrLf & _
    "<ISDEEMEDPOSITIVE>Yes</ISDEEMEDPOSITIVE>" + vbCrLf & _
    "<AMOUNT>" + Temp + "</AMOUNT>" + vbCrLf & _
    "</ALLLEDGERENTRIES.LIST>" + vbCrLf & _
    "</VOUCHER>" + vbCrLf & _
    "</TALLYMESSAGE>" + vbCrLf & _
    "</DATA>" + vbCrLf & _
    "</BODY>" + vbCrLf & "</ENVELOPE>"
    ServerHTTP.Open "POST", "http://localhost:" + PortNumber
    ServerHTTP.send xmlstc
    ' Response from Tally - ServerHTTP.responseText
    responsstr = ServerHTTP.responseText
    newstring = InStrRev(responsstr, "<LINEERROR>")
    If newstring = 0 Then]
    XMLDOM.loadXML (responsstr)
    MsgBox "Response String " + responsstr
    Set CHILDNODE = _
    XMLDOM.selectNodes("ENVELOPE/BODY/DATA/IMPORTRESULT/LASTVCHID")
    MsgBox "Voucher Created with MASTER ID " +
    CHILDNODE(0).Text, ,"Voucher Creation"
    Else
    MsgBox "Failed to POST"
    End If
    responsestr = ServerHTTP.responseText
    Text4.Text = ""
    Text5.Text = ""
    End If
     


  20. rmraja

    rmraja Active Member



  21. maniderik

    maniderik New Member


    paymnet import error

    upload_2017-3-26_13-48-2.png
     


  22. maniderik

    maniderik New Member


    FUNCTION: 'ImportPaymentVCH' LABEL: 01 : Action execution failed!
    FUNCTION: 'ImportPayment' LABEL: 001 : Action execution failed!
     


  23. Mohan.S

    Mohan.S Member


    Dear Sir
    in this code we are getting cr only on bill allocation. how to correct this.

    21 : Walk Collection: PaymentBills
    22 : INSERT COLLECTION OBJECT : BillAllocations
    23 : Set Target : BillAllocations[$$LoopIndex]
    ;; 25 : INSERT COLLECTION OBJECT : BillAllocations
    26 : Set : AmtVar :$$AsAmount:$PaidAmt
    27 : Set Target : Billtype : $$SysName:$BillType
    28 : SET VALUE : Name : $BillNo
    29 : SET VALUE : Amount : $$TgtObject:$$AsDrAmt:##AmtVar + $$String:"Dr"
    ;; 30 : Set Value : Amount : $$String:"DR"
    ;; 31 : SET VALUE : Is Deemed Positive: Yes
     


Share This Page