Wrox Programmer Forums

Need to download code?

View our list of code downloads.

Go Back   Wrox Programmer Forums > View Profile
Password Reminder
Register
Register | FAQ | Members List | Calendar | Search | Today's Posts | Mark Forums Read
Welcome to the p2p.wrox.com Forums.

You are currently viewing the section of the Wrox Programmer to Programmer discussions. This is a community of tens of thousands of software programmers and website developers including Wrox book authors and readers. As a guest, you can read any forum posting. By joining today you can post your own programming questions, respond to other developersí questions, and eliminate the ads that are displayed to guests. Registration is fast, simple and absolutely free .
DRM-free e-books 300x50

neontwenty neontwenty is offline

Registered User

Visitor Messages

Showing Visitor Messages 1 to 1 of 1
  1. irade92
    September 4th, 2013 11:18 AM - permalink
    irade92
    Hi
    I am making an application in Access 2010

    This is the XML file I have to post.:
    Post Request Example
    <?xml version="1.0" encoding="UTF-8"?>
    <prescription>
    <prescription_code>WE45927</prescription_code>
    <exempt_from_participation>true</exempt_from_participation>
    <pharmacist_facsimile>999999</pharmacist_facsimile>
    <drug_fund_code>979376</drug_fund_code>
    <quantity/>
    </prescription>

    and this is the response I should receive:

    Response example
    <?xml version="1.0" encoding="UTF-8"?>
    <response>
    <status>OK</status>
    <message>Prescription successfully realized</message>
    <message_mk>Рецептот е успешно реализиран</message_mk>
    <prescription_rank>4-Лекови ослободени од партиципација</prescription_rank>
    </response>

    and this is the url where to post:

    https://api.zdravstvo.gov.mk/rest/prescriptions/realize

    and this is my code that does not want to work:



    Private Sub proba7()
    Dim HttpReq As New MSXML2.XMLHTTP60
    Dim xmldom As New MSXML2.DOMDocument

    HttpReq.Open "POST", "https://api.zdravstvo.gov.mk/rest/prescriptions/realize", False
    HttpReq.setRequestHeader "Content-Type", "application/xml"
    xmltext = "c:\apteka\prescription.xml"
    xmldom.loadXML xmltext
    HttpReq.send



    If HttpReq.status = 200 Then
    MsgBox ("ok") ' HttpReq.responseXML.Save Response
    Else
    MsgBox ("not ok") ' Response.Write "Error: " & HttpReq.statusText
    End If

    'MsgBox HttpReq.responseXML
    'Debug.Print HttReq.responseXML
    End Sub


    Please help. My headache is getting serious... Thanks a lot

Statistics

Total Posts
Visitor Messages
Total Thanks
General Information
  • Last Activity: June 12th, 2011 02:06 AM
  • Join Date: October 4th, 2010
  • Referrals: 0

p2p Experience

p2p Experience
  • No data available.


All times are GMT -4. The time now is 07:07 AM.


Powered by vBulletin® Version 3.7.0
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.
© 2013 John Wiley & Sons, Inc.