Moving to a previous contact

[Dalik]

What I am trying to do is in steps
1. I have my contact that I want to have data copied to
2. I open the search box and dbl click an item
3. This will view that contact information.
4. I copy the fields that I want
5. now here is my problem, I have the RecId of the first contact that I want this data to goto say its RecId = 1
This new contact is RecId = 2. Now after I pull in the data in sql, how do I move back to RecId 1 ? I tried to GMW_Goto() method and put in the RecId=1 and I did a refresh but this didnt help. If you have any idea please let me know, thank you.

 

[TheIntWizard]

dBase or SQL version?

The Wizard

http://www.integrationwizard.com

Home of Link Magic and Web Magik

 

[Dalik]

sql

 

[TheIntWizard]

SQL doesn't have a recno, it is driven by recid

You need to derive the recid from the original contact, then SetOrder and Seek to find it once you move the pointer to the new contact

THere is a programmer's guide for GoldMine on The Wizard's Library, on my web site, which explains this. It is free

The Wizard

http://www.integrationwizard.com

Home of Link Magic and Web Magik

 

[Dalik]

I am getting the RecId from the contact that I want this data to goto. From what I understand, all I need to do is
SetOrder, then seek. Once the pointer is at the record that I want shown in the contact window then I do a refresh or should that record just be displayed in the contact window as soon as the pointer is moved?

Thank you.

 

[TheIntWizard]

You Goto RecNo you SEEK RecID

If you are doing dll functions then neither moves the contact window. You need to use DDE commands to do that.

It is covered on the programmer's guide for goldmine which is free on the Wizard's Library on my web site

The Wizard

http://www.integrationwizard.com

Home of Link Magic and Web Magik

 

[Dalik]

I am getting to annoyed at the fact that I dont understand this! Maybe I been working on coding to much but that doesnt stop the fact that I have a deadline.

If you can I would really like some direct help, here is my code maybe you can find whats wrong. Its all the code commented and some of it is not going to be in the final if the DDE functions work. Most of it is of couse still being played with but if you have any comments please let me know, thank you for your time.

Private Declare Function GMW_LoadBDE Lib "gm6S32.dll" (ByVal sSysDir As String, ByVal sGoldDir As String, ByVal sCommonDir As String, ByVal sUser As String, ByVal sPassword As String) As Long
Private Declare Function GMW_UnloadBDE Lib "gm6S32.dll" () As Long
Private Declare Function GMW_NV_Create Lib "gm6S32.dll" () As Long
Private Declare Function GMW_NV_Delete Lib "gm6S32.dll" (ByVal hgmnv As Long) As Long
Private Declare Function GMW_Execute Lib "gm6S32.dll" (ByVal szFunc As String, ByVal GMPtr As Any) As Long
Private Declare Function GMW_NV_SetValue Lib "gm6S32.dll" (ByVal hgmnv As Long, ByVal name As String, ByVal Value As String) As Long
Private Declare Function GMW_NV_GetNameFromIndex Lib "gm6S32.dll" (ByVal hgmnv As Long, ByVal index As Long) As Long
Private Declare Function GMW_SetSQLUserPass Lib "gm6S32.dll" (ByVal sUserName As String, ByVal sPassword As String) As Long
Private Declare Function GMW_DB_Open Lib "gm6S32.dll" (ByVal sTableName As String) As Long
Private Declare Function GMW_DB_Close Lib "gm6S32.dll" (ByVal lArea As Long) As Long
Private Declare Function GMW_DB_Replace Lib "gm6S32.dll" (ByVal lArea As Long, ByVal sField As String, ByVal sData As String, ByVal iAddTo As Long) As Long
Private Declare Function GMW_DB_IsSQL Lib "gm6S32.dll" (ByVal lArea As Long) As Long
Private Declare Function GMW_DB_Goto Lib "gm6S32.dll" (ByVal lArea As Long, ByVal szRecNo As String) As Long


Private Sub Form_Load()

Dim lResult As Long
Dim NumValue As Long
Dim lGMPtr As Long
Dim lHandle
Dim lHandle2
Dim sRecId As String
Dim sRecId2 As String
Dim lDDE As Long
Dim UserName As String
Dim Password As String
Dim dbLocation As String
Dim SqlUser As String
Dim SqlPass As String
Dim CommonDir As String
Dim SysDir As String
Dim GoldDir As String
Dim sLogin As String
Dim ud1
Dim ud2
Dim ud3
Dim ud4
Dim ud5
Dim ud6
Dim Finished As Integer
Dim sCountact
Dim sAddress1
Dim sCity
Dim sState
Dim sZip
Dim sPhone1
Dim SQL_Database As Boolean

Finished = 1


With frmDDE

lDDE = .DDEInitiate

If lDDE > 0 Then

SysDir = .DDERequest("&SysDir&quot
GoldDir = .DDERequest("&GoldDir&quot
CommonDir = .DDERequest("&CommonDir&quot
sLogin = .DDERequest("[GetLoginCredentials]&quot
sRecId = .DDERequest("Contact1->RecId&quot
sRecId2 = .DDERequest("Contact1->RecId&quot

If lDDE = 0 Then
MsgBox ("DDE Channel couldnt be opened&quot
Unload Me
End If
Else

Unload Me
End If

End With

Me.Visible = False

On Error Resume Next
Open App.Path & "\GM_config.txt" For Input As #1
Input #1, dbLocation
Input #1, dbGMBase
Input #1, UserName
Input #1, Password
Input #1, SqlUser
Input #1, SqlPass
Close #1



'MsgBox "lResult = GMW_LoadBDE(" & GoldDir & "," & dbLocation & "," & dbLocation & "," & "MASTER" & "," & "ACCESS" & &quot"
'"MSSQL: GMSM_Contacts: dbo:"
lResult = GMW_SetSQLUserPass(SqlUser, SqlPass)


'MsgBox "lResult = GMW_LoadBDE(" & GoldDir &CommonDir "," & dbLocation & "," & dbLocation & "," & "MASTER" & "," & "ACCESS" & &quot"
'"MSSQL: GMSM_Contacts: dbo:"
lResult = GMW_LoadBDE(SysDir, GoldDir, CommonDir, UserName, Password)
Select Case lResult

Case 0:
MsgBox "BDE already loaded. " + lResult
Case -1:
MsgBox "BDE failed to loaded. " + lResult
Case -2:
MsgBox "Cannot find license file. " + lResult
Case -3:
MsgBox "Cannot load license file. " + lResult
Case -4:
MsgBox "Cannot validate the license file. " + lResult
Case -5:
MsgBox "Invalid GoldMine Dir. " + lResult
Case -6:
MsgBox "Invalid Common Dir. " + lResult
Case -7:
MsgBox "Failed to allocate the needed TLS slot. " + lResult
Case -8:
MsgBox "General Failure. " + lResult
Case -9:
MsgBox "No access to the specified contact set for this user. " + lResult

Unload Me

End Select
Dim RECID 'debug stuff
Dim SQ 'debug stuff
SQ = Chr(34)

MsgBox sRecId 'debug stuff

Do While Finished <> 0
With frmDDE


lDDE = .DDEInitiate
'Get the current information about the selected Contact window
If lDDE > 0 Then
sRecId2 = .DDERequest("Contact1->RecId&quot
sContact = .DDERequest("&Contact&quot
sAddress1 = .DDERequest("&Address1&quot
sCity = .DDERequest("&City&quot
sState = .DDERequest("&State&quot
sZip = .DDERequest("&ZIP&quot
sPhone = .DDERequest("&Phone&quot


If lDDE = 0 Then
MsgBox ("DDE Channel couldnt be opened&quot
Unload Me
End If
Else
Unload Me
End If
End With

'See if the contact window has changed.
If sRecId <> sRecId2 Then

With frmDDE
lHandle2 = .DDERequest("[Open(Contact2)]&quot
lResult = .DDERequest("[IsSQL(" + lHandle2 + &quot]&quot
If lResult = 0 Then
SQL_Database = False
Else
SQL_Database = True
End If

'' Important ------ This here is where I am having problems, I dont understant what to put in the
'3rd param(where the 16 is) I just took that from the guide ( I have one for
'version 6.0 which is just an updated version from whats on your site.
'I want to compare contact2 table with the RecId field
'This is returning a 0(means it failed)
lResult = .DDERequest("[Move(" + lHandle2 + ", SetOrder, 16)]&quot

lResult = .DDERequest("[Move(" + lHandle2 + ", TOP)]&quot
If lResult <> 1 Then
MsgBox "Moved to the top"
End If

RECID = .DDERequest("[RECNO(" + lHandle2 + &quot]&quot 'debug information
MsgBox RECID 'debug information
MsgBox sRecId 'debug information

'This is testing but I am sure you will yell about this.
lResult = .DDERequest("[Move(" + lHandle2 + ", Goto, "" + sRecId+ "&quot]&quot
If lResult <> 1 Then
MsgBox "Failed to move"
End If

RECID = .DDERequest("[RECNO(" + lHandle2 + &quot]&quot 'debug information
MsgBox RECID 'debug information

'This seems to work, even if its not at the right row
lResult = .DDERequest("[Replace(" + lHandle2 + ", " + SQ(34) + USERDEF01 + SQ(34) + ", sContact, 0)]&quot
If lResult = 1 Then
MsgBox "Passed replace"
Else
MsgBox "Failed replace"
End If
End With
' Open contact2 table
'lHandle2 = GMW_DB_Open("Contact2&quot
'If lHandle2 = 0 Then
'MsgBox ("Failed to open database.&quot
' Unload Me
'End If

'check to see if we are in sql or xbase
'lResult = GMW_DB_IsSQL(lHandle2)
'If lResult = 0 Then
' MsgBox ("Opened non-sql file, closing.&quot
' SQL_Database = False
'End If

'SQL_Database = True

'lGMPtr = GMW_NV_Create()


'move the current record to the one being viewed in sql
'lResult = GMW_DB_Goto(lHandle2, sRecId)
'Select Case lResult
' Case 0:
' MsgBox ("Error occurred&quot
'End Select

'Replace the value in UserDef these should not be hardcoded with our number value Constituent
'Important '----------------------------- Ignore this, GMW_DB_Replace() section
lResult = GMW_DB_Replace(lHandle2, "USERDEF01", sContact, 0)
If lResult = 0 Then
MsgBox ("Error occurred, no field has been changed.&quot
End If

lResult = GMW_DB_Replace(lHandle2, "USERDEF02", sAddress1, 0)
If lResult = 0 Then
MsgBox ("Error occurred, no field has been changed.&quot
End If

lResult = GMW_DB_Replace(lHandle2, "USERDEF03", sCity, 0)
If lResult = 0 Then
MsgBox ("Error occurred, no field has been changed.&quot
End If


lResult = GMW_DB_Replace(lHandle2, "USERDEF04", sState, 0)
If lResult = 0 Then
MsgBox ("Error occurred, no field has been changed.&quot
End If


lResult = GMW_DB_Replace(lHandle2, "USERDEF05", sZip, 0)
If lResult = 0 Then
MsgBox ("Error occurred, no field has been changed.&quot
End If


lResult = GMW_DB_Replace(lHandle2, "USERDEF06", sPhone1, 0)
If lResult = 0 Then
MsgBox ("Error occurred, no field has been changed.&quot
End If


Finished = 0

End If

Loop




'///////////////////////////////////////////////////////////////////////////////////////////


'move the current record to the one being viewed in sql
'lResult = GMW_DB_Goto(lHandle2, sRecId)
'Select Case lResult
' Case 0:
' MsgBox ("Error occurred&quot
'End Select
With frmDDE
'lResult = .DDERequest("[Move(" + lHandle2 + ", SetOrder, 2)]&quot
'lResult = .DDERequest("[Move(" + lHandle2 + ", Seek, " + sRecId + &quot]&quot
'lResult = .DDERequest("[Read(" + lHandle2 + ", Contact)]&quot
lResult = .DDERequest("[Close(" + Handle2 + &quot}&quot
'lResult = .DDERequest("[RecordObj(Refresh)]&quot
If lResult = 0 Then
MsgBox ("Failed to close the connection.&quot
End If
End With

MsgBox "done"


'lResult = GMW_DB_Close(lHandle2)
'If lResult = 0 Then
' MsgBox ("Failed to close connection with sql.&quot
'End If

'With frmDDE
'lResult = .DDERequest("[RecordObj(CloseWindow)]&quot
'lResult = .DDERequest("[RecordObj(Refresh)]&quot
'lResult = .DDERequest("[Move(" + lHandle2 + ", Goto, 10)]&quot
'lResult = .DDERequest("[Read(" + lHandle2 + ", Contact)]&quot

'If lResult = 0 Then
' MsgBox ("Failed to refresh.&quot
'End If
'End With

'GMW_NV_Delete (lGMPtr)

lResult = GMW_UnloadBDE
If lResult = 0 Then
MsgBox ("Failed to close database&quot
End If


Unload Me


End Sub

Private Sub Form_Terminate()
frmDDE.Visible = False
Unload frmDDE
End Sub

Private Sub Form_Unload(Cancel As Integer)
frmDDE.Visible = False
Unload frmDDE

End Sub