Version 4.37

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: Sun Mar 15, 2015 2:45 pm
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
Posts: 35
Joined: Tue Nov 25, 2008 11:49 am
PostPosted: Sun Mar 22, 2015 5:59 am
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.
SeedCode Staff
SeedCode Staff
Posts: 475
Joined: Wed Jan 02, 2013 11:47 am
PostPosted: Sun Mar 22, 2015 10:00 pm
Just change the calculated value in the Home::BuildNumber field in the SeedCode Complete file. HTH -Jeff

Return to SeedCode Complete 13

Who is online

Users browsing this forum: No registered users and 2 guests

cron
(855) SEEDCODE
[email protected]
Follow us: