Include (UConstStrings, UConstGlobal, UPageConst, wwwConst)

Class Dilers.Test Extends %ZEN.Component.page
{

Parameter APPLICATION = "Dilers.Dilers";

Parameter PAGENAME;

Parameter DOMAIN = "Dilers";

XData Style
{
<style type="text/css">
</style>
}

/// This XML block defines the contents of this page.
XData Contents [ XMLNamespace = "http://www.intersystems.com/zen" ]
{
<page xmlns="http://www.intersystems.com/zen" title="">
<hgroup enclosingStyle="padding: 50 50">
<combobox id="regionsCmb" name="regionsCmb" size="25" onchange="zenPage.GetTowns(zenThis.value);"/>
<combobox id="townsCmb"   name="townsCmb"   size="25" onchange="zenPage.GetStreets(zenThis.value);"/>
<combobox id="streetsCmb" name="streetsCmb" size="25" onchange="zenPage.GetHouses(zenThis.value);"/>
<combobox id="housesCmb"  name="housesCmb"  size="25" />
</hgroup>
<button caption="OK" onclick="zenPage.BtnClick2()"/>
</page>
}

Method BtnClick2() [ ZenMethod ]
{
	d ..GetTowns( 1 )
	d ..GetStreets( 1 )
	d ..GetHouses( 404 )
	q $$$OK
}



Method GetTowns(pIDdistrict) [ ZenMethod ]
{
	s $zt = "Error"
	s DB = ##class(common.ucDB).%New()
	s InData("DISTRICT") = pIDdistrict
	k OutData
	i DB.Execute( 519 , .InData, .OutData) = $$$False
	{
		s $EC = OutData($$$MyERROR)
	}
	k ^PILIGRIM("TEST","Address","GetTowns")
	m ^PILIGRIM("TEST","Address","GetTowns") = OutData
	d ..FillOptions("townsCmb",.OutData)
	q $$$OK
Error
	&js<alert('Error in Server method:\n#($ZCVT($EC,"O","JS"))#')>
	s $EC = ""
	q $$$False
}

Method GetStreets(pIDtown) [ ZenMethod ]
{
	s $zt = "Error"
	s DB = ##class(common.ucDB).%New()
	s InData("TOWN") = pIDtown
	k OutData
	i DB.Execute( 520 , .InData, .OutData) = $$$False
	{
		s $EC = OutData($$$MyERROR)
	}
	k ^PILIGRIM("TEST","Address","GetTowns")
	m ^PILIGRIM("TEST","Address","GetTowns") = OutData
	d ..FillOptions("streetsCmb",.OutData)
	q $$$OK
Error
	&js<alert('Error in Server method:\n#($ZCVT($EC,"O","JS"))#')>
	s $EC = ""
	q $$$False
}

Method GetHouses(pIDstreet) [ ZenMethod ]
{
	s $zt = "Error"
	s DB = ##class(common.ucDB).%New()
	s InData("STREET") = pIDstreet
	k OutData
	i DB.Execute( 521 , .InData, .OutData) = $$$False
	{
		s $EC = OutData($$$MyERROR)
	}
	k ^PILIGRIM("TEST","Address","GetHouses")
	m ^PILIGRIM("TEST","Address","GetHouses") = OutData
	d ..FillOptions("housesCmb",.OutData)
	q $$$OK
Error
	&js<alert('Error in Server method:\n#($ZCVT($EC,"O","JS"))#')>
	s $EC = ""
	q $$$False
}

ClassMethod FillOptions(pCmbxID As %String, ByRef pData As %String) [ ZenMethod ]
{
	s cmbx = %page.%GetComponentById(pCmbxID)
	s cmbx.valueList = "", cmbx.displayList = "", cmbx.value = ""
	s idx = ""
	f {
		s idx = $o(pData(idx)) q:idx=""
		s cmbx.valueList = cmbx.valueList_","_pData(idx)
		s cmbx.displayList = cmbx.displayList_","_idx
	}
	q $$$OK
}

Method %OnAfterCreatePage() As %Status
{
	s DB = ##class(common.ucDB).%New()
	k OutData
	i DB.Execute( 518 , .InData, .OutData) = $$$False
	{
		s $EC = OutData($$$MyERROR)
	}
	k ^PILIGRIM("TEST","Address","GetRegions")
	m ^PILIGRIM("TEST","Address","GetRegions") = OutData
	d ..FillOptions("regionsCmb",.OutData)
	q $$$OK
}

}