While send xml to tally to fetch any information from tally into VB then response xml only showing that TallyPrime Server is Running. Response is same while xml has changed or pause / timed is inserted before EXRes receive response from tally.
Public Sub LdrEx()
Dim ExCd As String
ExCd = LedXmCd()
Dim objXML As MSXML2.ServerXMLHTTP
Set objXML = New MSXML2.ServerXMLHTTP
objXML.Open "POST", "http://localhost:9000", False
objXML.send ExCd
Dim EXRes As String
EXRes = objXML.responseXML
Set objXML = Nothing
Dim TFile As String
TFile = Environ("HOMEDRIVE") & Environ("HOMEPATH") & "\Desktop\LdReceived.xml"
Open TFile For Output As #1
Print #1, EXRes
Close #1
End Sub
XML from LedXmCd() is:
<ENVELOPE>
<HEADER>
<VERSION>1</VERSION>
<TALLYREQUEST>EXPORT</TALLYREQUEST>
<TYPE>DATA</TYPE>
<ID>Voucher Register</ID>
</HEADER>
<BODY>
<DESC>
<STATICVARIABLES>
<SVFROMDATE TYPE="Date">20210101</SVFROMDATE>
<SVTODATE TYPE="Date">20210101</SVTODATE>
<VOUCHERTYPENAME TYPE="STRING">Receipt</VOUCHERTYPENAME>
</STATICVARIABLES>
</DESC>
</BODY>
</ENVELOPE>
Check whether XML is saved in variable ExCd by adding watch and adding breakpoint at