...

A login is required to participate in the forum. Don't be shy - create your account today!

Image RemovedImage Added

Announcing the SmartFramework ERD Designer

...

SCL-2448 Fixed filtering of a SmartUpdateableBrowser linked to a SmartTempTableAdapter

Description:

There was an issue in the SmartTempTableAdapter which did not properly create the query prepare-string during the RetrieveData call when the query was opened multiple times. As a result, a SmartDataBrowser linked to the SmartTempTableAdapter might have shown no records after filtering multiple times. This issue is now resolved.

SCL-2450 Code-page issues with passwords in hybrid-realm implementation

Description:

Progress Technical Support Case - 00465891: When using Form based authentication with Hybrid Realm implementations, the password parameter is in UTF-8 codepage regardless of the AppServer's CPINTERNAL setting.

The SmartHybridRealm implementation of the SmartComponent Library is affected by this issue as well. We're working around that limitation when the convertPasswordFromUtf8InSmartHybridRealm setting (.restapplicationsettings) is set to true.

Progress Software has announced a fix for this issues in a future release of OpenEdge.

SCL-2467 DatasetAssert:HasValidationMessages did not verify substitutions parameters

Description:

We have fixed an issue in the DatasetAssert:HasValidationMessages () method. This method did not verify the passed in substitution values. This issue is now resolved.

SCL-2468 Fixed an issue in SmartUnit which cased that the TearDown method was not executed after a failed test method

Description:

We have resolved an issue where the @TearDown. method has not been executed after execution of a unit test method that raised an error. The @TearDown. method is now executed in any case.

SCL-2472 FIxed AppServer Startup issue when Business Entity R-Code moved to different directory

Description:

We have fixed an issue that might have occurred during the startup of the RestResourceService. Issues raised when loading the Business Entities such as conflicts between the file name or file location and the CLASS statement caused the service to throw and unhandled error during the startup of the AppServer. This error is now handled an the AppServer will be started.

Improvement

SCL-2463 Scenario Unit Test runner now provides ability to skip "MaxRuntime" tests/assertions

Description:

The SmartUnit Test runner now provides a new argument "testOptions" which can be defined as part of the SmartUnit ant macro:

    <macrodef name="ScenarioRunner">
      <attribute name="testSuite"       default=""/>
      <attribute name="tests"           default=""/>
      <attribute name="output"          default=""/>
      <attribute name="services"        default=""/>
      <attribute name="baseDirectory"   default=""/>
      <attribute name="haltOnError"     default="false"/>
      <attribute name="forceXmlXref"    default="false"/>  
      <attribute name="importClientLog" default="true"/>
      <attribute name="importStdOut"    default="true"/> 
      <attribute name="testOptions"     default=""/>        
      <element name="options"           optional="true" implicit="true"/>
      <sequential>
      	<SmartUnit
      		testSuite="@{testSuite}"                
      		tests="@{tests}"                    
      		output="@{output}"         
      		testrunner="Consultingwerk.SmartUnit.OERA.RetrieveDataScenario.ScenarioRunner"              
      		services="@{services}"              
      		baseDirectory="@{baseDirectory}"            
      		haltOnError="@{haltOnError}"            
      		forceXmlXref="@{forceXmlXref}"          
      		importClientLog="@{importClientLog}"        
      		importStdOut="@{importStdOut}">
            <options>
                <options/>
            </options>
      	</SmartUnit>
      </sequential>
    </macrodef>

The test options is expected to be a comma-delimited list of options passed to the actual test runner. When the list contains the entry *SkipMaxRuntimeTest*, then the assertions for max runtime will not be executed.

SCL-2473 Added a new method to BusinessEntity class that returns the DataAccessObject when already started or starts this

Description:

Added the following new method to the DataAccess class.

/**
 * Purpose: Returns the reference to the DataAccess Object
 * Notes:   If THIS-OBJECT:DataAccessObject is not valid, this
 *          method will invoice InitializeDataAccessObject before
 *          returning the reference
 * @return The reference to the Data Access obejct
 */
METHOD PROTECTED IDataAccess GetDataAccessObject ():

This method initializes the Data Access object when it was not initialized so far and returns the reference to the Data Access object.

New Feature

SCL-2282 Implemented API to Export Schema Elements relevant for schema translation from an .smfdia file

Description:

The following code demonstrates the export of selected schema properties from an .smfdia file to Excel in a format suited for translation:

BLOCK-LEVEL ON ERROR UNDO, THROW.

USING Consultingwerk.SmartFramework.Tools.ErdApi.* FROM PROPATH.
USING Consultingwerk.Utilities.Excel.*             FROM PROPATH.

DEFINE VARIABLE oExport AS TableAndFieldNamesExporter NO-UNDO .
DEFINE VARIABLE oExcel  AS ExcelWorksheetExporter     NO-UNDO .

{Consultingwerk/SmartFramework/Tools/ErdApi/ttTableAndFieldNames.i}

/* ***************************  Main Block  *************************** */

oExport = NEW TableAndFieldNamesExporter() .

oExport:GetTableAndFieldNames ("Test/SCL2283/DeltaX/DeltaX-neu.SMFDIA":U,
                               TRUE,
                               OUTPUT TABLE ttTableAndFieldNames) .

FOR EACH ttTableAndFieldNames:

    IF ttTableAndFieldNames.Type = "OpenEdge:Field" AND
       (ttTableAndFieldNames.Name = "User_Anlage" OR
        ttTableAndFieldNames.Name = "User_Aenderung" OR
        ttTableAndFieldNames.Name = "Datum_Anlage" OR
        ttTableAndFieldNames.Name = "Datum_Aenderung" OR
        ttTableAndFieldNames.Name = "SelfHdl" OR
        ttTableAndFieldNames.Name MATCHES "..._Nummer") THEN

        DELETE ttTableAndFieldNames .

    ELSE

        IF ttTableAndFieldNames.Type = "OpenEdge:Field" AND
           ttTableAndFieldNames.Name MATCHES "..._*" THEN

            ASSIGN ttTableAndFieldNames.Name = SUBSTRING (ttTableAndFieldNames.Name, 5) .
END.

oExcel = NEW ExcelWorksheetExporter () .

oExcel:ExportExcel (NEW ExportWorksheetArguments ("C:\Work_STREAM\SmartComponentLibrary\Develop\ABL\Test\SCL2282\DeltaX-neu.xlsx"),
                    TEMP-TABLE ttTableAndFieldNames:HANDLE) .

...

SCL-2283 Implemented API to create fields and Indexes in a SmartFramework ERD .smfdia file

Description:

Implemented a new Class Consultingwerk.SmartFramework.Tools.ErdApi.ZamolxisApi with methods that allow

- creation of Fields and Indexes
- creation of partitions
- moving of tables to partitions

SCL-2425 Implemented new API to enable RowSummaries in SmartDataBrowser and RenderedBrowseControl

Description:

We have implemented a new class UltraGridSummaryHelper which simplifies the creation of UltraGrod summaries at runtime through the use of a fluent style API:

USING Consultingwerk.Windows.Util.* FROM PROPATH.
USING Infragistics.Win.UltraWinGrid.* FROM ASSEMBLY.

...

UltraGridSummaryHelper:Clear(oGrid).

/* Define two summaries */
UltraGridSummaryHelper:ForColumn(oGrid, "Price")
        :SetDisplayFormat("Sum: &1", ">>9")
        :SetToolTipText("Die Summe des Preises") .

UltraGridSummaryHelper:ForColumn(oGrid, "Price")
        :SetDisplayFormat("Average: &1", ">>9.99")
        :SetType(SummaryType:Average)
        :SetToolTipText("Der Durchschnittspreis") .

/* Group by OrderLineStatus */
oGrid:DisplayLayout:Bands[0]:SortedColumns:Clear () .
oGrid:DisplayLayout:Bands[0]:SortedColumns:Add
        (oGrid:ColumnKeyFromFieldName ("OrderLine",
                                       "OrderLineStatus"),
         FALSE,
         TRUE) .

In cases where developers need to access additional methods or properties of the created SummarySettings instance, the instance can be accessed using the SummarySettings property of the chained method reference:

DEFINE VARIABLE oSummarySettings AS SummarySettings NO-UNDO.

oSummarySettings = UltraGridSummaryHelper:ForColumn(oGrid, "Price")
                        :SetDisplayFormat("Summe: &1", ">>9")
                        :SetToolTipText("Die Summe des Preises"):SummarySettings .

Related information::

- https://www.infragistics.com/help/winforms/wingrid-summaries
- https://www.infragistics.com/help/winforms/infragistics.win.ultrawingrid ~infragistics.win.ultrawingrid.summarysettings

SCL-2469 Added Button to Temp-Table properties view to validate the Source Default Query

Description:

We have added a new button in the Temp-Table properties view of the Business Entity Designer.

This button allows to validate the source default query.

    defaultHandler=OpenEdge.Web.CompatibilityHandler    handler1=Consultingwerk.OERA.JsdoGenericService.WebHandler.CatalogWebHandler: /Catalog/{EntityName}    handler2=Consultingwerk.OERA.JsdoGenericService.WebHandler.CatalogsWebHandler: /Catalogs/{PackageName}    handler3=Consultingwerk.OERA.JsdoGenericService.WebHandler.CountWebHandler: /Resource/{EntityName}/count    handler4=Consultingwerk.OERA.JsdoGenericService.WebHandler.ResourceSubmitWebHandler: /Resource/{EntityName}/SubmitData    handler5=Consultingwerk.OERA.JsdoGenericService.WebHandler.InvokeMethodWebHandler: /Resource/{EntityName}/{MethodName}    handler6=Consultingwerk.OERA.JsdoGenericService.WebHandler.ResourceWebHandler: /Resource/{EntityName}    handler7=Consultingwerk.OERA.JsdoGenericService.WebHandler.BusinessServicesWebHandler: /BusinessServices/{OutputFormat}/{PackageName}    handler8=Consultingwerk.Web2.WebHandler.SmartMenuWebHandler: /SmartMenu/{MenuStructureId}    handler9=Consultingwerk.Web2.WebHandler.SmartMenuStructureWebHandler: /SmartMenuStructure    handler10=Consultingwerk.Web2.WebHandler.SmartRoutesWebHandler: /SmartRoutes    handler11=Consultingwerk.Web2.Services.SmartViewsHandler.SmartGridWebHandler: /SmartViews/Grid/{EntityName}/{ViewName}/{DetailTemplate}    handler12=Consultingwerk.Web2.Services.SmartViewsHandler.SmartGridWebHandler: /SmartViews/Grid/{EntityName}/{ViewName}    handler13=Consultingwerk.Web2.Services.SmartViewsHandler.SmartGridWebHandler: /SmartViews/Grid/{CustomViewName}    handler14=Consultingwerk.Web2.Services.SmartViewsHandler.SmartViewerWebHandler: /SmartViewer/Viewer/{EntityName}/{ViewName}    handler15=Consultingwerk.Web2.Services.SmartViewsHandler.SmartViewerWebHandler: /SmartViewer/Viewer/{ObjectName}    handler16=Consultingwerk.Web2.Services.SmartViewsHandler.SmartFormWebHandler: /SmartForm/{FormTemplate}/{EntityName}/{ViewName}    handler17=Consultingwerk.Web2.Services.SmartViewsHandler.SmartFormWebHandler: /SmartForm/{FormTemplate}/{ObjectName}    handler18=Consultingwerk.Web2.WebHandler.SmartMessageWebHandler: /SmartMessage/{MessageGroup}/{MessageNumber}    handler19=Consultingwerk.Web2.WebHandler.GetImageWebHandler: /Image/{FileName}    handler20=Consultingwerk.Web2.WebHandler.SmartValueListWebHandler: /ValueList/{ValueList}    handler21=Consultingwerk.Web2.WebHandler.SmartAttachmentsWebHandler: /Attachments/{Table}/{KeyValues}    handler22=Consultingwerk.Web2.WebHandler.SmartAttachmentWebHandler: /Attachment/{Guid}    handler23=Consultingwerk.Web2.WebHandler.SessionContextWebHandler: /SessionContext    handler24=Consultingwerk.Web2.WebHandler.ContextPropertiesWebHandler: /ContextProperties/{PropertyName}    handler25=Consultingwerk.Web2.WebHandler.ContextPropertiesWebHandler: /ContextProperties    handler26=Consultingwerk.Web2.WebHandler.SessionInfoWebHandler: /SessionInfo    handler27=Consultingwerk.Web2.WebHandler.FileSearchWebHandler: /FileSearch/{FileName}    handler28=Consultingwerk.Web2.WebHandler.ExecuteAblWebHandler: /ExecuteAbl    handler29=Consultingwerk.Web2.WebHandler.SmartLanguagesWebHandler: /Languages    handler30=Consultingwerk.OERA.RestResource.RestEntitiesWebHandler: /Entities    handler31=Consultingwerk.OERA.Swagger.SwaggerWebHandler: /Swagger/{EntityName}    handler32=Consultingwerk.OERA.Swagger.SwaggerRestEntitiesWebHandler: /SwaggerEntities/{OutputType}    handler33=Consultingwerk.Web2.WebHandler.SmartTokenSecurityCheckWebHandler: /TokenSecurityCheck/{ObjectName}    handler34=Consultingwerk.Web2.WebHandler.SmartTokenSecurityCheckWebHandler: /TokenSecurityCheck    handler35=Consultingwerk.Web2.WebHandler.SmartEntityTableMappingHandler: /EntityTableMapping/{EntityName}/{TableName}/{UiTypeCodes}    handler36=Consultingwerk.Web2.WebHandler.SmartTreeRootNodeWebHandler: /SmartViews/TreeRootNode/{rootnodeid}    handler37=Consultingwerk.Web2.WebHandler.SmartTreeChildNodesWebHandler: /SmartViews/TreeChildNodes/{parentnodeid}    handler38=Consultingwerk.Web2.WebHandler.SmartSecurityCheckWebHandler: /IsRestricted/{SecurityRealmCode}/{SecurityItemGuid}    handler39=Consultingwerk.Web2.WebHandler.SmartFieldSecurityCheckWebHandler: /RestrictedFields/{TableName}    handler40=Consultingwerk.Web2.WebHandler.GetImageNamesHandler: /ImageNames