mvD.Test2

Test the w3mvD PropertyChange and InsertEmpty API calls.

include wbp w3Include

call w3mvDInit("","")

w3ProfileId = "---w3ProfileId---"

call w3mvDPropertyChange("ObjectName1", "PropertyName1", "PValue1")

call w3mvDPropertyChange("ObjectName2", "PropertyName2", "PValue2")

call w3mvDPropertyChange("ObjectName3", "PropertyName3", "PValue3")

call w3mvDPropertyChange("ObjectName3", "PropertyName3", "PValue3a")

call w3mvDPropertyChange("ObjectName2", "PropertyName2", "") ;* remove

call w3mvDInsert("Column1", "CValue1", "")

call w3mvDInsert("Column2", "CValue2-1", p_UCV_FOCUS)

call w3mvDInsert("Column2", "CValue2-2", 0)

call w3mvDInsert("Column3", "CValue3-1", p_UCV_FOCUS + p_UCV_SELECTED)

call w3mvDInsert("Column3", "CValue3-2" ,p_UCV_SELECTED)

call w3mvDInsert("Column4", "CValue4-1", 0)

call w3mvDInsertEmpty("Column2")           ;* remove Column2

call w3mvDInsertEmpty("Column4")           ;* remove Column4

                                             * override remove Column4

call w3mvDInsert("Column4", "CValue4-1a", p_UCV_FOCUS)

call w3mvDInput(err, 0, "")

* Bring the results into a Web browser, then

* use mvDDecode to check results

* should have:

*

* FORMNAME      =

* Username      = USERNAME

* Password      = PASSWORD

* w3Debug       = 0

* CookieName    = w3ProfileId

* CookieExpDate = Today

* CookieExpTime = 11:59:59 pm

* CookieValue   = ---w3ProfileId---

*

* Columns

* Column1       = CValue1

* Column3       = CValue3-1, focus & selected

*               = CValue3-2, selected

* Column4       = CValue4-1a, focus

* Column2       does not have a value

*

* PropertyChanges:                                                     

*    ObjectName1.PropertyName1   PValue1

*    ObjectName3.PropertyName13  PValue3a    

*

* Application   = mvD.test2

*

return