Version 4.50 Changes

Notes on the new SeedCode Complete template for FileMaker 13
SeedCode Staff
SeedCode Staff
Posts: 691
Joined: Mon Feb 28, 2011 2:47 pm
PostPosted: Tue Dec 15, 2015 1:16 pm
Hi!

This post describes the changes made between versions 4.37 and 4.50. These are small bug fixes to scripts, mostly introduced by refresh changes in FM14.

4.50 also includes an integrated version of the DayBack calendar. For instructions for adding Dayback please click here.

Script Changes

If you have an existing copy, please contact us for a new build as the easiest way to make these updates will be by copying and pasting the script contents of the specified scripts into your build. If you've made changes to these scripts, then please see the specifics below. It's important to copy and paste the script contents not the scripts themselves. Deleting a script and creating or pasting a new one with the same name breaks the references from buttons and other scripts. By just pasting the contents, the script references themselves stay intact.

We used Inspector Pro 5 to display these script changes.
Remove the steps in Red
Add the steps in Green
Change the text in Orange

SeedCodeComplete

Edit Contact Note [ NoteID ]
...
#==============================================
...
#Connect To Notes Via InterFace
Set Field [ Selector::SelectNotesKeyGlob; $sc_noteID ]
#4.39 Add Refresh Step for 14
Perform Script [ “Refresh Connector” ]

#Load Attachment Info and first Attachment into globals
Set Field [ Selector::ContainerDisplayGlob; SelectedNotesMediaJoinMedia::Container ]

Populate Related Contact Info Tables [ NoteID ]
...
#==============================================
...
Set Variable [ $$sc_triggersOff; Value:1 ]
Loop
If [ IsEmpty ( ContactAssociationsCompaniesEdit::id ) and not IsEmpty (Contact::id_Company) ]
#only add this if we have a company id

Set Field [ ContactAssociations_ParentsEdit::Type; "Company" ]

Navigate Note Attachment Portal [ Direction ]
...
#==============================================
...
Else If [ $sc_direction = "Down" ]
Set Variable [ $$sc_currentImage; Value:$$sc_currentImage - 1 ]
End If
Perform Script [ “Refresh Connector” ]
Set Field [ Selector::ContainerDisplayGlob; If ( GetNthRecord ( SelectedNotesMediaJoinMedia::IsImage ; $$sc_currentImage ) ; GetThumbnail ( GetNthRecord ( SelectedNotesMediaJoinMedia::Container ; $$sc_currentImage ) ; $sc_containerSize ;

Go To Contacts [ Contactid ]
...
#==============================================
...
Go to Layout [ “Contact” (Contact) ]
End If
Select Window [ Current Window ]

OK Company Selector Invoices
...
#==============================================
...
Go to Object [ Object Name: "panel_EditMain" ]
Set Field [ Invoices::id_Company; $$sc_selectedCompanyID ]
Set Field [ Invoices::CompanyName; $$sc_selectedCompanyName ]
#Clear Globals
Set Field [ Selector::SelectCompanyKeyGlob; "" ]

On Validate Contact Selector
...
#==============================================
...
Perform Script [ “Get Contact IDs” ]
Exit Script [ ]
// Exit Script [ Result: False ]


On Validate Company Selector
...
#==============================================
...
Perform Script [ “Get Company IDs ” ]
Go to Field [ ]
Exit Script [ Result: False ]


On Validate Project Selector
...
#==============================================
...
Perform Script [ “Get Project IDs ” ]
Exit Script [ Result: False ][/color]

On Validate Item Selector
...
#==============================================
...
Perform Script [ “Get Item IDs ” ]
Go to Field [ ]
Exit Script [ Result: False ]


Ok Company Selector Purchase Orders
...
#==============================================
...
#End Constrain for Contact Selector
Go to Object [ Object Name: "panel_EditMain" ]
Set Field [ PurchaseOrders::id_Company; $$sc_selectedCompanyID ]
Set Field [ PurchaseOrders::CompanyName; $$sc_selectedCompanyName ]
#Clear Globals

Edit Item Note [ NoteID]
...
#==============================================
...
#Connect To Notes Via InterFace
Set Field [ Selector::SelectNotesKeyGlob; $sc_noteID ]
#4.39 Add Refresh Step for 14
Perform Script [ “Refresh Connector” ]

#Load Attachment Info and first Attachment into globals

Edit Company Note [ NoteID]
...
#==============================================
...
#Connect To Notes Via InterFace
Set Field [ Selector::SelectNotesKeyGlob; $sc_noteID ]
#4.39 Add Refresh Step for 14
Perform Script [ “Refresh Connector” ]

#Load Attachment Info and first Attachment into globals

Edit Invoice Note [ NoteID]
...
#==============================================
...
#Connect To Notes Via InterFace
Set Field [ Selector::SelectNotesKeyGlob; $sc_noteID ]
#4.39 Add Refresh Step for 14
Perform Script [ “Refresh Connector” ]

#Load Attachment Info and first Attachment into globals

Edit Purchase Order Note [ NoteID]
...
#==============================================
...
#Connect To Notes Via InterFace
Set Field [ Selector::SelectNotesKeyGlob; $sc_noteID ]
#4.39 Add Refresh Step for 14
Perform Script [ “Refresh Connector” ]

#Load Attachment Info and first Attachment into globals

Edit Project Note [ NoteID]
...
#==============================================
...
#Connect To Notes Via InterFace
Set Field [ Selector::SelectNotesKeyGlob; $sc_noteID ]
#4.39 Add Refresh Step for 14
Perform Script [ “Refresh Connector” ]

If [ IsEmpty ( SelectedNotes::id_Project ) ]
Set Field [ SelectedNotes::id_Project; Project::id ]
End If
#Load Attachment Info and first Attachment into globals

Go To Settings [ NoteID]
...
#==============================================
Go to Layout [ “Settings” (Settings) ]
Select Window [ Current Window ]

Edit Event [ EventID]
...
#==============================================
...
Set Field [ Selector::SelectEventKeyGlob; Get ( ScriptParameter ) ]
#4.39 Add Refresh Step for 14
Perform Script [ “Refresh Connector” ]

Set Variable [ $$sc_originalEnd; Value:SelectedEvents::DateEnd ]
Set Variable [ $$sc_originalStart; Value:SelectedEvents::DateStart ]
#For New Events.

Get Contact IDs Home [ return ]
...
#==============================================
...
If [ Get ( ScriptParameter ) ]
Commit Records/Requests [ No dialog ]
Set Selection [ SelectorFilters::Selector_ContactSelectorFilterGlob; Start PositionLength ( SelectorFilters::Selector_ContactSelectorFilterGlob ) + 1; End PositionLength ( SelectorFilters::Selector_ContactSelectorFilterGlob ) + 1 ]
End If
#refresh target panel
Refresh Object [ Object Name: $$sc_homeTargetPanel ]


On Validate Contact Selector Home
...
#==============================================
...
Perform Script [ “Get Contact IDs Home [ return ]” ]
Exit Script [ Result: False ]
Go to Field [ ]

Clear Contact Filter Home
...
#==============================================
...
If [ not SelectorFilters::Selector_MyContactsGlob and not SelectorFilters::Selector_RecentContacts ]
Go to Field [ ]
Set Variable [ $$sc_contactIDList; Value:"" ]

Initialize Note Attachment Pop-Over
...
#==============================================
...
#Connect To Notes Via InterFace
Set Field [ Selector::SelectNotesKeyGlob; $sc_noteID ]
Perform Script [ “Refresh Connector” ]
#Load Attachment Info and first Attachment into globals

Edit Contact Event [ EventID ]
...
#==============================================
...
#Set Project ID in case we need to update milestones Case 31096
Set Field [ Selector::SelectProjectKeyGlob; SelectedEvents::id_Project ]
#4.39 Add Refresh Step for 14
Perform Script [ “Refresh Connector” ]

Set Variable [ $$sc_originalEnd; Value:SelectedEvents::DateEnd ]
Set Variable [ $$sc_originalStart; Value:SelectedEvents::DateStart ]
#For New Events.

On Validate Company Selector Home
...
#==============================================
...
Perform Script [ “Get Company IDs Home [return]” ]
Exit Script [ Result: False ]
Go to Field [ ]

Get Company IDs Home [ return ]
...
#==============================================
...
Commit Records/Requests [ No dialog ]
Set Selection [ SelectorFilters::Selector_CompanySelectorFilterGlob; Start PositionLength ( SelectorFilters::Selector_CompanySelectorFilterGlob ) + 1; End PositionLength ( SelectorFilters::Selector_CompanySelectorFilterGlob ) + 1 ]
End If
#refresh target panel
Refresh Object [ Object Name: $$sc_homeTargetPanel ]


On Validate Project Selector Home
...
#==============================================
...
Perform Script [ “Get Project IDs Home [return]” ]
Exit Script [ Result: False ]
Go to Field [ ]

Get Project IDs Home [ return ]
...
#==============================================
...
#return to filter field
Commit Records/Requests [ No dialog ]
Set Selection [ SelectorFilters::Selector_ProjectSelectorFilterGlob; Start PositionLength ( SelectorFilters::Selector_ProjectSelectorFilterGlob ) + 1; End PositionLength ( SelectorFilters::Selector_ProjectSelectorFilterGlob ) + 1 ]
End If
#refresh target panel
Refresh Object [ Object Name: $$sc_homeTargetPanel ]


Get Invoice IDs Home [ return ]
...
#==============================================
...
#return to filter field
Commit Records/Requests [ No dialog ]
Set Selection [ SelectorFilters::Selector_InvoiceSelectorFilterGlob; Start PositionLength ( SelectorFilters::Selector_InvoiceSelectorFilterGlob ) + 1; End PositionLength ( SelectorFilters::Selector_InvoiceSelectorFilterGlob ) + 1 ]
End If
#refresh target panel
Refresh Object [ Object Name: $$sc_homeTargetPanel ]


Get Purchase Order IDs Home [ return ]
...
#==============================================
...
#return to filter field
Commit Records/Requests [ No dialog ]
Set Selection [ SelectorFilters::Selector_PurchaseOrderSelectorFilterGlob; Start PositionLength ( SelectorFilters::Selector_PurchaseOrderSelectorFilterGlob ) + 1; End PositionLength ( SelectorFilters::Selector_PurchaseOrderSelectorFilterGlob ) + 1 ]
End If
#refresh target panel
Refresh Object [ Object Name: $$sc_homeTargetPanel ]


Get Event IDs Home [ return ]
...
#==============================================
...
#return to filter field
Commit Records/Requests [ No dialog ]
Set Selection [ SelectorFilters::Selector_EventSelectorFilterGlob; Start PositionLength ( SelectorFilters::Selector_EventSelectorFilterGlob ) + 1; End PositionLength ( SelectorFilters::Selector_EventSelectorFilterGlob ) + 1 ]
End If
#refresh target panel
Refresh Object [ Object Name: $$sc_homeTargetPanel ]


Get Item IDs Home [ return ]
...
#==============================================
...
#return to filter field
Commit Records/Requests [ No dialog ]
Set Selection [ SelectorFilters::Selector_ItemSelectorFilterGlob; Start PositionLength ( SelectorFilters::Selector_ItemSelectorFilterGlob ) + 1; End PositionLength ( SelectorFilters::Selector_ItemSelectorFilterGlob ) + 1 ]
End If
#refresh target panel
Refresh Object [ Object Name: $$sc_homeTargetPanel ]


That's it, Thanks!!
-Jason 8)

Return to SeedCode Complete 13

Who is online

Users browsing this forum: No registered users and 4 guests

(855) SEEDCODE
[email protected]
Follow us: