11/22/2024 3:56:40 PM
|
| |
| slxdeveloper.com Community Forums |
|
| |
|
|
The Forums on slxdeveloper.com are now retired. The forum archive will remain available for the time being. Thank you for your participation on slxdeveloper.com!
Forum to discuss usage & tips for SalesLogix controls and other 3rd party ActiveX controls. View the code of conduct for posting guidelines.
|
|
|
|
Modify ContactInfoView form
Posted: 21 Jun 06 3:46 AM
|
fiogf49gjkf0d Hi there,
I'm brand spanking new to all of this SLX development so please bear with me if i'm asking something dumb.
I want to modify the default ContactInfoView form that displays contact information. I have created an extension table called LG_CONTACTEXT that will hold additional fields I want to insert on the form.
In the Architext I have opened up the 'ContactInfoView' form to add new edit fields that will display the additional information. However, when I click on the 'Text' property to associate it with the correct database field, the path tree is blank and I cannot select anything to link the field to. I have managed to do this successfully on the Account form so I don't understand why it won't work on the Contact one. One thing I have noticed is that all the controls on the form are greyed out. I don't know if this has anything to do with it!
Can anyone help me out? |
|
|
|
Re: Modify ContactInfoView form
Posted: 21 Jun 06 3:59 AM
|
fiogf49gjkf0d Darren,
ContactInfoView is a managed form, so you cannot bind fields to controls. You will need to script updates and loads. Check the script of the form to find out how to do this.
James |
|
|
|
Re: Modify ContactInfoView form
Posted: 21 Jun 06 4:45 AM
|
where can i get the abortion pill abortion pill fiogf49gjkf0d Hi James,
I never thought it would be so difficult to add a simple field to a standard form. I thought this would have been quite a common task!?
Anyway, i'm no expert at VB but I had a go at dissecting the code. As expected, it didn't work :o(
Here is what I tried:
'Including Script - System:SLX Database Support
'Including Script - System:SLX_Common
'----------------------------------------------------------------------------------------------------------
option explicit
Dim gConID
Dim gAccID
Dim gSecID
Dim gAddID
Dim objSLXDB
Dim PrevForm
'added by DS
Dim gExtID
'end of added
Sub BtnCloseClick(Sender)
ModalResult = mrCancel
'Application.BasicFunctions.CloseCurrentView(True)
End Sub
Sub AXFormOpen(Sender)
Dim objMainView
Dim objMainDetails
Dim objMainGrd
txtHistoryCount.Text = "0"
Set objSlxDB = New SLX_DB
'Set PrevForm = Application.Forms("system:Potential Matches")
gConId = Application.GlobalInfo.ContactIdToView
ClearAllData
LoadContactData gConID
'added by DS
LoadExtensionData gExtID
'end of added
LoadaccountData gAccID
LoadHistoryData gConID
LoadOwnerData gSecID
LoadAddData gAddID
txtHistoryCount.Text = CStr(grdHistory.Recordset.RecordCount)
End Sub
'----------------------------------------------------------------------------------------------------------
'Loads the basic contact info
'----------------------------------------------------------------------------------------------------------
Sub LoadContactData(gConID)
Dim Sql
Dim ConRS
sql = "select ContactID, AddressID,LastName, FirstName, Account, AccountID,SecCodeID," _
& "Title, Assistant, LastName_UC, WorkPhone, Mobile, Fax, HomePhone," _
& "OtherPhone, Preferred_Contact, IsPrimary, IsServiceAuthorized,DonotSolicit," _
& "Type, Email, Webaddress, Status, AccountManagerID, CreateUser, CreateDate,"_
& "ModifyUser, ModifyDate from Contact where "_
& "ContactID = '" & gConID &"'" 'DNL
set ConRS = objSLXDB.GetNewRecordSet
ConRS.Open sql, objSLXDB.Connection
with conRS
txtContact.Text = "" & .Fields("FirstName").Value +" "+ "" & .Fields("LastName").value 'DNL
frmContactInfo.Caption = Application.Translator.Localize("Contact: ") + txtContact.Text
txtAccount.Text = "" & .Fields("Account").Value 'DNL
txtTitle.Text = "" & .Fields("Title").Value 'DNL
txtAsst.Text = "" & .Fields("Assistant").Value 'DNL
txtWorkPhone.Text = "" & .Fields("WorkPhone").Value 'DNL
txtMobile.Text = "" & .Fields("Mobile").Value 'DNL
txtFax.Text = "" & .Fields("Fax").Value 'DNL
txtHome.Text = "" & .Fields("HomePhone").Value 'DNL
txtPreferred.Text = "" & .Fields("Preferred_Contact").Value 'DNL
If .Fields("IsPrimary").value = "T" then 'DNL
chkPrimary.Checked = True
Else
chkPrimary.Checked = False
End If
If .Fields("IsServiceAuthorized").value = "T" then 'DNL
chkServiceContact.Checked = true
Else
chkServiceContact.Checked = false
End If
If .Fields("DoNotSolicit").value = "T" then 'DNL
chkDonotsolicit.Checked = true
Else
chkDonotsolicit.Checked = false
End If
txtEmail.Text = "" & .Fields("Email").value 'DNL
txtWeb.Text = "" & .Fields("WebAddress").value 'DNL
txtContype.Text = "" & .Fields("Type").value 'DNL
txtConStatus.Text = "" & .Fields("Status").value 'DNL
txtContactID.Text = "" & .Fields("ContactID").value 'DNL
txtCreateUser.Text = GetUserName("" & .Fields("CreateUser").value) 'DNL
txtCreateDate.Text = "" & .Fields("CreateDate").value 'DNL
txtModifyUser.Text = GetUserName("" & .Fields("ModifyUser").value) 'DNL
txtAcctMgr.Text = GetUserName("" & .Fields("AccountManagerID").value) 'DNL
txtModifyDate.Text = "" & .Fields("ModifyDate").value 'DNL
gAccID = "" & .Fields("AccountId").value 'DNL
gsecID = "" & .Fields("SecCodeID").value 'DNL
gAddID = "" & .Fields("AddressID").value 'DNL
End With
ConRs.Close
Set ConRs = nothing
End Sub
'added by DS
'----------------------------------------------------------------------------------------------------------
'Loads the extension info
'----------------------------------------------------------------------------------------------------------
Sub LoadExtensionData(gExtID)
Dim Sql
Dim ExtRS
sql = "select ContactID, EXTENSION, DIRECTDIAL, ONLINEACCOUNT, ONLINEPASSWORD," _
& "MAILINGCODE, DECISIONMAKER, MATERIALS, APPLICATIONS from LOGITECHACCOUNTEXT where " _
& "ContactID = '" & gExtID &"'" 'DNL
set ExtRS = objSLXDB.GetNewRecordSet
ExtRS.Open sql, objSLXDB.Connection
with ExtRS
txtEXTENSION.Text = "" & .Fields("EXTENSION").Value 'DNL
End With
ExtRs.Close
Set ExtRs = nothing
End Sub
'end of added
I have released the form and changed the default contact form in the administrator to the one I have customised. When I load the client the new field I have added to the form (txtEXTENSION) does not appear.
Can anyone point me in the right direction or help me out?
Thanks,
Darren |
|
|
|
Re: Modify ContactInfoView form
Posted: 21 Jun 06 4:59 AM
|
fiogf49gjkf0d Darren,
I am suspecting that you have been looking at the wrong form. The Form you named is for displaying of potential matches (at point of of entry).
If it is the Contact Detail view you want to change the form is in the System family and called Contact Detail. This is a data form so you will be able to bind your fields.
James |
|
|
|
Re: Modify ContactInfoView form
Posted: 21 Jun 06 5:15 AM
|
fiogf49gjkf0d Hi James,
Congratulations on making me feel like a tw*t! Thanks for pointing me in the right direction.
Darren walks away humbly........ |
|
|
|
You can
subscribe to receive a daily forum digest in your
user profile. View the site code
of conduct for posting guidelines.
 Forum RSS Feed - Subscribe to the forum RSS feed to keep on top of the latest forum activity!
|
|
|
|
|
|
|
|