SeedCode Support Forum

Hi!

This post describes the changes made between versions 4.35 and 4.37. These are small bug fixes.

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. This is new, so let us know what you think!

Remove the steps in Red
Add the steps in Green
Change the text in Orange

SeedCodeComplete

Go To Contact Selector [ Current Value ]
...
#==============================================
#
Set Variable [ $sc_currentValue; Value:Get ( ScriptParameter ) ]
#
Set Field [ Selector::SelectContactsKeyGlob; "" ]
Perform Script [ “Refresh Connector” ]
#

Add Secondary Company
...
#==============================================
...
#
#Call Company Selector
Perform Script [ “Go To Company Selector [ CurrentValue ]”; Parameter: "" ]
Perform Script [ “Refresh Connector” ]

Update Association
...
#==============================================
...
#
#Call Company Selector
Perform Script [ “Go To Contact Selector [ CurrentValue ]”; Parameter: $sc_contactName ]
Perform Script [ “Refresh Connector” ]
#

Update Company Association
...
#==============================================
...
#
#Call Company Selector
Perform Script [ “Go To Contact Selector [ CurrentValue ]”; Parameter: $sc_contactName ]
Perform Script [ “Refresh Connector” ]

New Stock Item For Invoice
...
#==============================================
...
#
#Go To Selector
Perform Script [ “Go To Item Selector [ CurrentValue ]”; Parameter: "" ]
Perform Script [ “Refresh Connector” ]

New Stock Item For Purchase Order
...
#==============================================
...
#
#Go To Selector
Perform Script [ “Go To Item Selector [ CurrentValue ]”; Parameter: "" ]
Perform Script [ “Refresh Connector” ]

Ok New Company Invoices
...
#==============================================
...
Go to Field [ ]
Go to Field [ SelectedContacts::NameFirst ]
Go to Portal Row [ Last ]

Ok New Company Purchase Orders
...
#==============================================
...
Go to Field [ ]
Go to Field [ SelectedContacts::NameFirst ]
Go to Portal Row [ Last ]

Ok New Company Project
...
#==============================================
...
Go to Field [ ]
Go to Field [ SelectedContacts::NameFirst ]
Go to Portal Row [ Last ]

Ok New Company Contact
...
#==============================================
...
Go to Field [ ]
Go to Field [ SelectedContacts::NameFirst ]
Go to Portal Row [ Last ]

Ok New Contact Contacts
...
#==============================================
...
Go to Field [ ]
Go to Field [ SelectedContacts::NameFirst ]
Go to Portal Row [ Last ]

Ok New Contact Companies
...
#==============================================
...
Go to Field [ ]
Go to Field [ SelectedContacts::NameFirst ]
Go to Portal Row [ Last ]

Ok New Contact Invoices
...
#==============================================
...
Go to Field [ ]
Go to Field [ SelectedContacts::NameFirst ]
Go to Portal Row [ Last ]

Ok New Contact Purchase Orders
...
#==============================================
...
Go to Field [ ]
Go to Field [ SelectedContacts::NameFirst ]
Go to Portal Row [ Last ]

Ok New Contact Projects
...
#==============================================
...
Go to Field [ ]
Go to Field [ SelectedContacts::NameFirst ]
Go to Portal Row [ Last ]

Ok New Contact Staff
...
#==============================================
...
Go to Field [ ]
Go to Field [ SelectedContacts::NameFirst ]
Go to Portal Row [ Last ]

Ok New Project Invoices
...
#==============================================
...
Go to Field [ ]
Go to Field [ SelectedContacts::NameFirst ]
Go to Portal Row [ Last ]

Ok New Project Purchase Orders
...
#==============================================
...
Go to Field [ ]
Go to Field [ SelectedContacts::NameFirst ]
Go to Portal Row [ Last ]

Ok New Item Invoices
...
#==============================================
...
Go to Field [ ]
Go to Field [ SelectedContacts::NameFirst ]
Go to Portal Row [ Last ]

Ok New Item Purchase Orders
...
#==============================================
...
Go to Field [ ]
Go to Field [ SelectedContacts::NameFirst ]
Go to Portal Row [ Last ]

Populate Related Contact Info Tables
...
#==============================================
...
Set Variable [ $$sc_triggersOff; Value:1 ]
Loop
If [ IsEmpty ( ContactAssociationsCompaniesEdit::id ) ]
Set Field [ ContactAssociations_ParentsEdit::Type; "Company" ]
Set Field [ ContactAssociations_ParentsEdit::id_EntityParent; Contact::id_Company ]
Set Field [ ContactAssociations_ParentsEdit::Primary; 1 ]
End If
Perform Script [ “Populate Related Contact Info from Primaries” ]
Go to Record/Request/Page [ Next; Exit after last ]
End Loop

Contact On Record Load
...
#==============================================
...
#Default Starting Tabs
If [ IsEmpty ( $$sc_contactTargetPanel ) ]
Set Variable [ $$sc_contactTargetPanel; Value:"panel_NotesAscending" ]
Else If [ not GetLayoutObjectAttribute ( $$sc_ContactTargetPanel ; "IsFrontTabPanel" ) ]
Else
...

Company On Record Load
...
#==============================================
...
#Default Starting Tabs
If [ IsEmpty ( $$sc_contactTargetPanel ) ]
Set Variable [ $$sc_contactTargetPanel; Value:"panel_NotesAscending" ]
Else If [ not GetLayoutObjectAttribute ( $$sc_ContactTargetPanel ; "IsFrontTabPanel" ) ]
Else
...

Inventory On Record Load
...
#==============================================
...
#Default Starting Tabs
If [ IsEmpty ( $$sc_contactTargetPanel ) ]
Set Variable [ $$sc_contactTargetPanel; Value:"panel_NotesAscending" ]
Else If [ not GetLayoutObjectAttribute ( $$sc_ContactTargetPanel ; "IsFrontTabPanel" ) ]
Else
...

Project On Record Load
...
#==============================================
...
#Default Starting Tabs
If [ IsEmpty ( $$sc_contactTargetPanel ) ]
Set Variable [ $$sc_contactTargetPanel; Value:"panel_NotesAscending" ]
Else If [ not GetLayoutObjectAttribute ( $$sc_ContactTargetPanel ; "IsFrontTabPanel" ) ]
Else
...

Invoice On Record Load
...
#==============================================
...
#Default Starting Tabs
If [ IsEmpty ( $$sc_contactTargetPanel ) ]
Set Variable [ $$sc_contactTargetPanel; Value:"panel_NotesAscending" ]
Else If [ not GetLayoutObjectAttribute ( $$sc_ContactTargetPanel ; "IsFrontTabPanel" ) ]
Else
...

Purchase Orders On Record Load
...
#==============================================
...
#Default Starting Tabs
If [ IsEmpty ( $$sc_contactTargetPanel ) ]
Set Variable [ $$sc_contactTargetPanel; Value:"panel_NotesAscending" ]
Else If [ not GetLayoutObjectAttribute ( $$sc_ContactTargetPanel ; "IsFrontTabPanel" ) ]
Else
...

Edit Project Note [ NoteID ]
...
#==============================================
...
#Load Attachment Info and first Attachment into globals
Set Field [ Selector::ContainerDisplayGlob; If ( SelectedNotesMediaJoinMedia::IsImage ; GetThumbnail ( SelectedNotesMediaJoinMedia::Container ; 204 ; 204 ) ; SelectedNotesMediaJoinMedia::Container ) ]

PDF Queued Estimates
...
#==============================================
...
#
Set Error Capture [ On ]
Enter Find Mode [ ]
Go to Layout [ “EstimatePrint” (ProjectEstimateLines) ]

SeedCodeCompleteCalendar

OK Project Selector Events
...
#==============================================
...
#Update Current Invoice Contact
Set Script Animation [ On ]
Set Field [ CalendarInterface::Preview_SelectedID; CalendarInterface::Preview_SelectedID ]
Set Field [ Events::id_Project; $$sc_selectedProjectID ]

Go To Contact Selector [ CurrentValue ]
...
#==============================================
...
Set Variable [ $sc_currentValue; Value:Get ( ScriptParameter ) ]
#
Set Field [ Selector::SelectContactsKeyGlob; "" ]
#
#If there is an existing Company, then find it.
If [ not IsEmpty ( $sc_currentValue ) ]
Set Field [ SelectorFilters::Selector_ContactSelectorFilterGlob; $sc_currentValue ]

Build Filter ( SourceNo )
...
#==============================================
...
Set Variable [ $sc_thisFilterField; Value:GetCalue ( $$sc_FilterField[$c] ; $cf )]
#
#
Set Variable [ $sc_string; Value:If ( $$sc_FilterOmit[$c] and ValueCount ( $sc_FilterContent > 1 )
; // ---------- Multiple Values with omit selected ---------------
"Upper ( " &
$sc_Alias & "." & Quote ( Substitute ( $sc_thisFilterField ; $sc_Table & "::" ; "" ) ) & SeedCodeCompleteCalendar.fmp12 - Build Filter ( SourceNo ) -2-
") Not LIKE " &
If ( $sc_FieldType = "Number" ; "" ; "Upper ( '" )
...

Create Calendar Records [ CurrentValue ]
...
#==============================================
...
Set Variable [ $$sc_Drag; Value:"" ]
#
Set Error Capture [ On ]
#Create a calendar interface record
Enter Browse Mode
If [ Get ( LayoutTableName ) ≠ "CalendarInterface" ]
Go to Layout [ “Calendar Splash” (CalendarInterface) ]

SeedCodeCompleteControl

Check For Server, WD and WAN
...
#==============================================
...
Set Variable [ $sc_subnet; Value:FilterValues ( $sc_hostIP ; $sc_localIP ) ]
#
If [ not IsEmpty ( $sc_hostIP ) ]
If [ ValueCount ( $sc_subNet ) = ( ValueCount ( $sc_hostIP ) - 1 ) or ( $sc_localIP = $sc_hostIP ) or ( GetValue ( $sc_localIP = "127.0.0.1" )

Layout Changes

SeedCodeComplete

We've added a simple Web Viewer to the Home page to check the version number and notify you if a new version has been released. You can just copy and paste this web viewer into your copy from 4.37 or you can add it your self manually, using this calculation for the URL:

Code: Select all

"http://seedcode.com/about/complete13.php?pg=buildnumber&version=pro&build=" & Home::BuildNumber

SeedCodeCompleteCalendar

We had broken help links/buttons in the Calendar. These were the "i" buttons on the main Calendar pages and the "Learn More" buttons in the Filter and Source Pop-Ups. Contact us to get a new Calendar file to paste the OpenURL script and the buttons into the Calendar file to correct these broken links.

The "i" buttons should be linking to: http://www.seedcode.com/pmwiki/index.ph ... figuration

The learn more about Filters button should be linking to: http://www.seedcode.com/pmwiki/index.ph ... e3.Filters

The learn more button for sources should be linking to: http://www.seedcode.com/pmwiki/index.ph ... pleSources

The learn more button for Resources should be linking to: http://www.seedcode.com/pmwiki/index.ph ... .Resources

That's it! Please let us know if you have any questions!
-Jason

Updating from 4.35 to 4.37 was easy with these excellent instructions. We had already made many modifications to the code, so these incremental changes were perfect.

Just one question: How do I indicate that our code is now up to 4.37 so the web viewer on the bottom doesn't say that I'm out of date? It thinks I still have 4.35.

Just change the calculated value in the Home::BuildNumber field in the SeedCode Complete file. HTH -Jeff