PBMiner

$PBExportHeader$pwd_ds_base.sru
$PBExportComments$Contact List and Detail Base Class
forward
global type pwd_ds_base from n_ds_cgibase
end type
end forward

global type pwd_ds_base from n_ds_cgibase
end type
global pwd_ds_base pwd_ds_base

type variables

end variables

on pwd_ds_base.create
call super::create
end on

on pwd_ds_base.destroy
call super::destroy
end on

event pbw_setdetailwebproperties;call super::pbw_setdetailwebproperties;string ls_browser
This.Object.DataWindow.HTMLDW='yes'
This.Object.DataWindow.HTMLGen.ObjectName= #detaildataobject
This.Object.DataWindow.HTMLGen.ResourceBase = JSRESOURCEPATH

ls_browser = cgienv.of_getenv( 'HTTP_USER_AGENT')
if Len ( ls_browser ) > 0 then 
   This.Modify("DataWindow.HTMLGen.Browser = '" +ls_browser +"'")
else
   This.Modify("DataWindow.HTMLGen.Browser = 'Mozilla/4.0 (compatible; MSIE 5.x;) : Microsoft Internet Explorer 5.0'")
end if
This.Modify('DataWindow.HTMLGen.HTMLVersion = "4.0"')

// Set Selflink to the Detail
This.Modify("DataWindow.HTMLGen.SelfLink='of_detaildata'")

// The JavaScript Class Files
This.Object.DataWindow.HTMLGen.CommonJSFile  = 'CommonClass.js'
This.Object.DataWindow.HTMLGen.DateJSFile    = 'DateTimeMgmt.js'
This.Object.DataWindow.HTMLGen.NumberJSFile  = 'NumberFormat.js'
This.Object.DataWindow.HTMLGen.StringJSFile  = 'StringFormat.js'

This.Object.DataWindow.HTMLGen.ClientEvents='1'
This.Object.DataWindow.HTMLGen.ClientValidation='1'
This.Object.DataWindow.HTMLGen.ClientComputedFields='1'
This.Object.DataWindow.HTMLGen.ClientFormatting='1'
This.Object.DataWindow.HTMLGen.ClientScriptable='1'
This.Object.DataWindow.HTMLGen.GenerateJavaScript='1'
// PB 9
// This.Object.DataWindow.HTMLGen.GenerateDDDWFrames  ='1'

end event

event pbw_setlistwebproperties;call super::pbw_setlistwebproperties;string ls_browser
This.Object.DataWindow.HTMLDW='yes'
This.Object.DataWindow.HTMLGen.ObjectName= #listdataobject
This.Object.DataWindow.HTMLGen.ResourceBase = JSRESOURCEPATH

//ls_browser = cgienv.of_getenv( 'HTTP_USER_AGENT')
if Len ( ls_browser ) > 0 then 
   This.Modify("DataWindow.HTMLGen.Browser = '" +ls_browser +"'")
else
   This.Modify("DataWindow.HTMLGen.Browser = 'Mozilla/4.0 (compatible; MSIE 5.x;) : Microsoft Internet Explorer 5.0'")
end if
This.Modify("DataWindow.HTMLGen.Browser = 'Mozilla/4.0 (compatible; MSIE 5.x;) : Microsoft Internet Explorer 5.0'")

This.Modify('DataWindow.HTMLGen.HTMLVersion = "4.0"')

// Set Selflink to the List 
This.Modify("DataWindow.HTMLGen.SelfLink='of_listdata'")

// The JavaScript Class Files
This.Object.DataWindow.HTMLGen.CommonJSFile  = 'CommonClass.js'
This.Object.DataWindow.HTMLGen.DateJSFile    = 'DateTimeMgmt.js'
This.Object.DataWindow.HTMLGen.NumberJSFile  = 'NumberFormat.js'
This.Object.DataWindow.HTMLGen.StringJSFile  = 'StringFormat.js'

This.Object.DataWindow.HTMLGen.ClientEvents='1'
This.Object.DataWindow.HTMLGen.ClientValidation='1'
This.Object.DataWindow.HTMLGen.ClientComputedFields='1'
This.Object.DataWindow.HTMLGen.ClientFormatting='1'
This.Object.DataWindow.HTMLGen.ClientScriptable='1'
This.Object.DataWindow.HTMLGen.GenerateJavaScript='1'
// PB 9
//This.Object.DataWindow.HTMLGen.GenerateDDDWFrames   ='1'
end event