Hello
Nick_BartolesI need to have you send me an email so that I can send you my beta FullTableView utility.
To use the utility, put the following line on a Command Button (Full Table View?) in the OnEnter section
subSSTableViewMaximize()
And put the following SubRoutine into your Global Code:
SubRoutine subSSTableViewMaximize()
/* =================================================================
Purpose: Maximize Table View of the current database beneath the form
Developed by Bob Hansen, Sensible Solutions Inc., Salem, NH
Contact information: rmhansense@sensiblesolutions.org, 603-898-8223.
Version information: Last Modified on Apr 05, 2005.
Requirements:
1. This code is based on Sesame, version 1.1.2
2. Make folder "SensibleSolutions" under Sesame\Utilities folder and store SS.exe file there.
Installation:
1. This code should be installed in Global Code section for the form
2. On Element Entry::btnShowTableView needs one line: subSSTableViewMaximize() (Any name for button is OK).
Explanation of Process:
1. Table View is opened that is underneath the current form.
2. A temporary WSF file is created containing the contents necessary to execute the Sensible Solutions utility.
3. The utlity file is executed, and returns control back to Sesame.
4. The temporary WSF file is deleted.
*/ //=================================================================
//----------------------------------------------------------
//* lines to be modified by user
var vOK as Int //To accept result of various functions
var vSSPath as String //*Path of Sensible Solutions utilities and temp files
var vSSUtility as String //*Filename of Sensible Solutions utility
var vDatabase as String //Name of DATABASE, not the Form. Value is CaseSensitive
var vParameter1 as String //*Parameter 1 to be passed in Shell
var vParameter2 as String //*Parameter 2 to be passed in Shell
var vFileHandle1 as String //Handle to manage temp WSF file
var vWsfFile as String //*Filename of temp WSF file
var vJobID as String //WSF Job ID
var vLanguage as String //WSF Language ID
var vObjShell as String //WSF Shell contents
var vContent as String //*Contents of temp WSF file
vSSPath = "C:\Sesame\Utilities\SensibleSolutions\"
vSSUtility = "SesameTableViewMaximize.exe"
vDatabase = @Database
vParameter1 = "/DatabaseTableView=" + vDatabase
vParameter2 = "/MaximizeView=1"
vWsfFile = "TableViewMax.wsf"
vWsfFile = vSSPath + vWsfFile
vJobID = "<Job id='SesameTableViewMaximize'>"
vLanguage = "<script language='VBScript'>"
vObjShell = "Set objShell = WScript.CreateObject(" + @Chr(34) + "WScript.Shell" + @CHR(34) +")"
//vContent="C:\Sesame\Utilities\SensibleSolutions\SesameTableView.exe /DatabaseTableView=tblRooms /MaximizeView=1"
vContent = @CHR(34) + vSSPath + vSSUtility + " " + vParameter1 + " " + vParameter2 + @chr(34)
//Start Function Execution =======================================
// Activate Table View
vOK=@selectTreeitem ("Search Update Menu!Other Commands!Table View (Shift-F6)")
//Delete WSF file if it exists
If FileExists(vWsfFile) THEN {
FileDelete(vWsfFile)
}
//Create Temp WSF File =======================
vFileHandle1 = fileOpen(vWsfFile)
//Write to File =======================
//Write WSF file header block
FileWriteLn(vFileHandle1,"<package>")
FileWriteLn(vFileHandle1, vJobID)
FileWriteLn(vFileHandle1, vLanguage)
FileWriteLn(vFileHandle1, vObjShell)
//Write WSF file content
FileWriteLn(vFileHandle1,"objShell.Run " + vContent)
//Write WSF footer block
FileWriteLn(vFileHandle1,"</script>")
FileWriteLn(vFileHandle1,"</job>")
FileWriteLn(vFileHandle1,"</package>")
//Close WSF file
FileClose(vFileHandle1)
//Run Utility File
vOK=@AsynchShell(vWsfFile)
//Delete File =======================
Loiter(500) //*Need delay or file is deleted before WSF is executed.
If FileExists(vWsfFile) THEN {
FileDelete(vWsfFile)
}
End SubRoutine
================================
This subroutine creates a temp WSF file that calls a Utility Program that I created for the full view. It deletes the temp file when done. For this to work you will need the executable utility. If you will send me your emal address then I will send you the executable program and installation instructions.