DEAR SIR ITS DOWNLOAD FORM TALLY WEBSITE AND SEE HOW TO MAKE EXE FILE IF SOMEONE HAVE FILES EXCEL TO TALLY FOR ENTRY PLZ UPDATE
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=""Receipt"" 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 End Sub
YA ITS USEFUL BUT SOME BUG ARE THERE ? scoped_dir_6212_14190 ITS AUTO MAKE FOLDER ? Y SOME PROBLEM IN DRIVE TOO MANY FILE AND FOLDER CREATE WHEN I REMOVE IT AND AGAIN RUN UR FILE THEN ITS AUTOMATIC NEW FILE MAKE
ON TEMP FOLDER ? C:\XX\XX\AppData\Local\Temp\XLtoEXE161005130137_tmp\XLtoEXEtmp file create Backup of yoga?? why?
