Hallo,
Ik heb voor een uitbreiding op microsoft CRM een applicatie gemaakt. die data haalt uit een andere database. in het begin had ik de account id's van crm gelinkt met de debiteursnummer uit database X via een koppeling tabel.
nu wil ik doormiddel van de fetchxml dingen in microsoft CRM het accountnummer uit CRM gaan halen en deze gebruiken in plaats van het debiteurnummer uit de koppeling tabel.
dit doe ik op de volgende wijze
bij beide ldnums krijg ik de waarde 035093 terug
echter wanneer ik de ldnum gebruik krijg ik geen data van de database terug en wanneer ik de ldnum2 gebruik wel terwijl ze dezelfde data bezitten!!!!!
kan dit liggen aan hetgeen wat de fetchXML terug geeft
hieronder de fetchXML functie:
Ik heb voor een uitbreiding op microsoft CRM een applicatie gemaakt. die data haalt uit een andere database. in het begin had ik de account id's van crm gelinkt met de debiteursnummer uit database X via een koppeling tabel.
nu wil ik doormiddel van de fetchxml dingen in microsoft CRM het accountnummer uit CRM gaan halen en deze gebruiken in plaats van het debiteurnummer uit de koppeling tabel.
dit doe ik op de volgende wijze
code:
1
2
| LDnum = CType(functions.fetchNumber(sAccId), String)
LDnum2 = CType(iData.GetValue("Select SynDebiNum From Koppeling Where CRMaccountId = '" & sAccId & "'"), String) |
bij beide ldnums krijg ik de waarde 035093 terug
echter wanneer ik de ldnum gebruik krijg ik geen data van de database terug en wanneer ik de ldnum2 gebruik wel terwijl ze dezelfde data bezitten!!!!!
kan dit liggen aan hetgeen wat de fetchXML terug geeft
hieronder de fetchXML functie:
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
| Public Shared Function fetchNumber(ByVal aAccountId As String) As String ', ByVal fieldNames As ArgIterator)
Dim strServer As String
Dim strVirtualDirectory As String
Dim strDir As String
Dim strErrorMsg As String
Dim strColumnSetXml As String
Dim strResultXml As String
Dim bizUser As New Microsoft.Crm.Platform.Proxy.BizUser
Dim account As New Microsoft.CRM.Platform.Proxy.CRMAccount
Dim userAuth As New Microsoft.CRM.Platform.Proxy.CUserAuth
strServer = "192.168.1.50"
strVirtualDirectory = "mscrmservices"
strDir = String.Concat("http://", strServer, "/", strVirtualDirectory, "/")
bizUser.Credentials = System.Net.CredentialCache.DefaultCredentials
bizUser.Url = String.Concat(strDir, "BizUser.srf")
account.Credentials = System.Net.CredentialCache.DefaultCredentials
account.Url = String.Concat(strDir, "CRMAccount.srf")
Try
userAuth = bizUser.WhoAmI()
'Set up the columns that you want to retrieve
strColumnSetXml = ""
strColumnSetXml = "<columnset>"
strColumnSetXml = strColumnSetXml & "<column>accountnumber</column>"
strColumnSetXml = strColumnSetXml & "</columnset>"
strResultXml = account.Retrieve(userAuth, aAccountId, strColumnSetXml).ToString
Catch ex As Exception
' Process the platform error here
strErrorMsg = ("ErrorMessage: " + ex.Message + " " + " Source: " + Err.Source)
strResultXml = "--"
'Response.Write(strErrorMsg)
End Try
Return strResultXml
End Function |