rude person wrote:
On Mon, 12 Sep 2005 11:44:07 GMT, Raghu Gupta <am*********@ya hoo.com> wrote:
Hi,
Actually i am facing some problem using quickbooks and presently i am
not so expert in using it.
I am using c# code to retrive the data from quickbooks.
it doesn't matter which language we are using.
So i have .iif file of employee list,so through code i have to read .iif
file and get the data out of it and store that data in database.
As i can use QuickBook only to import .iif file and from quickbook i can
read the data, but there will be many .iif files, so i should read it
dynamically and store it in database.And there should be no intervention
of QuickBook SDK in this process.
so my problem is,i need quickbook sdk code such that i can read .iif
file and retrive the data.
so, please can u help me with any suggestions or any good tutorials
concerned to this.
Thank you,
Regards,
Raghu
*** Sent via Developersdex http://www.developersdex.com ***
Hi
you could try posting in alt.comp.softwa re.financial.qu ickbooks which seems to be an active group
' Parse response XML from QuickBooks using MSXML parser
Public Function ParseResponseXM L(elementName As String) As Boolean
On Error GoTo ErrHandler
resListID = ""
Dim retStatusCode As String
Dim retStatusMessag e As String
Dim retStatusSeveri ty As String
' Create xmlDoc Obj
' DOM Document Object
Dim xmlDoc As New MSXML2.DOMDocum ent40
' DOM Node list object for looping through
Dim objNodeList As IXMLDOMNodeList
' Node objects
Dim objChild As IXMLDOMNode
Dim custChildNode As IXMLDOMNode
Dim invoiceChildNod e As IXMLDOMNode
' Attributes Name Mapping
Dim attrNamedNodeMa p As IXMLDOMNamedNod eMap
Dim i As Integer
Dim ret As Boolean
Dim errorMsg As String
errorMsg = ""
' Load xml doc
ret = xmlDoc.loadXML( responseXML)
If Not ret Then
errorMsg = "loadXML failed, reason: " & xmlDoc.parseErr or.Reason
GoTo ErrHandler
End If
' Get nodes list
Set objNodeList = xmlDoc.getEleme ntsByTagName(el ementName)
' Loop through each node
' Since we have only one request, we should only have one
' response. The loop is actually unnecessary, but it
' is a good programming practice
For i = 0 To (objNodeList.le ngth - 1)
' Get the CustomerRetRs
Set attrNamedNodeMa p = objNodeList.Ite m(i).Attributes
' Get the status Code, info and Severity
'
retStatusCode =
attrNamedNodeMa p.getNamedItem( "statusCode").n odeValue
retStatusSeveri ty =
attrNamedNodeMa p.getNamedItem( "statusSeverity ").nodeValu e
retStatusMessag e =
attrNamedNodeMa p.getNamedItem( "statusMessage" ).nodeValue
' Check status code to see if there is error or warning
If retStatusCode <> "0" Then
' Checking for Warning is a good practice, although
unlikely to happen
' on an add request.
If retStatusSeveri ty = "Warning" Then
' Show the warning, then continue normal processing
MsgBox retStatusMessag e, vbExclamation, "Warning from
QuickBooks"
ElseIf retStatusSeveri ty = "Error" Then
MsgBox retStatusMessag e, vbExclamation, "Error from
QuickBooks"
' We only have one response thus we will exit. If we
have multiple
' responses, then we may want to continue with the loop.
ParseResponseXM L = False
Exit Function
End If
End If
' Look at the child nodes
For Each objChild In objNodeList.Ite m(i).childNodes
' Get the CustomerRet block if we were adding a customer
If objChild.nodeNa me = "CustomerRe t" Then
' Get the elements in this block
For Each custChildNode In objChild.childN odes
If custChildNode.n odeName = "ListID" Then
resListID = custChildNode.T ext
ElseIf custChildNode.n odeName = "Name" Then
resCustName = custChildNode.T ext
ElseIf custChildNode.n odeName = "FullName" Then
resCustFullName = custChildNode.T ext
End If
Next
End If ' End of customerRet
' Get the "InvoiceQueryRe t" if we were looking for
' an in-use customer by querying for invoices -- if
' we find one of these, we'll have all the information
' we need and can then break from the function.
If objChild.nodeNa me = "InvoiceRet " Then
For Each invoiceChildNod e In objChild.childN odes
If invoiceChildNod e.nodeName = "CustomerRe f" Then
' Get the elements in this block
For Each custChildNode In
invoiceChildNod e.childNodes
If custChildNode.n odeName = "ListID" Then
resListID = custChildNode.T ext
ElseIf custChildNode.n odeName = "Name" Then
resCustName = custChildNode.T ext
ElseIf custChildNode.n odeName = "FullName" Then
resCustFullName = custChildNode.T ext
End If
Next
' If we get here, we have all the information
we need
GoTo BreakPoint
End If
Next
End If ' end of InvoiceQueryRet
' Get the Customer Name if we were deleting a customer
If elementName = "ListDelRs" And objChild.nodeNa me =
"FullName" Then
custName = objChild.Text
End If ' end of ListDelType
Next
Next
BreakPoint:
ParseResponseXM L = True
Exit Function
ErrHandler:
If errorMsg <> "" Then
MsgBox errorMsg, vbExclamation, "Error"
Else
MsgBox Err.Description , vbExclamation, "Error"
End If
ParseResponseXM L = False
Exit Function
End Function
