/// Загрузка справочника улиц
ClassMethod COPYSTREETS() As %Integer [ SqlName = COPYSTREETS, SqlProc ]
{
	s Connection=##class(%SQLGatewayConnection).%New()
	d Connection.Connect("GHU3","","")
	  s SQLDEL="SELECT street_code,street_name FROM INFORMIX.streets"
	  s rsd=##class(%Library.ScrollableResultSet).%New("%DynamicQueryGW:SQLGW")
	  s okd=rsd.Prepare(SQLDEL,,Connection)
	  //s okd=rsd.Execute()
	  s ^A=rsd.Execute()
	  while rsd.Next()
	  {
		  s scode=rsd.GetData( 1 )
		  s sname=rsd.GetData( 2 )
		  &sql(INSERT INTO Streets (scode,sname)
		  values (:scode,:sname))	
		
	  }
	d Connection.Disconnect()
	q  1 
}