procedure get_PrebivanieTB(
   cur_viborka out t_cursor
   ,xdate in date
 )
 is
  CURSOR cr IS
   SELECT * 
   FROM (
    SELECT 
      TRIM(obv.numopzn) numopzn
     ,slv.namvrr namvrr  
     ,jdk.numdoc numdoc
     ,obj.ABBROBJR  mesto
     ,SUBSTR(loc.coord, 1, 7) lat
     ,SUBSTR(loc.coord, 8, 8) lng
     ,obv.dateizm dateizm
    FROM
     . . .
     ,( SELECT . . .  FROM . . .   WHERE . . .) pv
     ,( SELECT . . .  FROM . . .   WHERE . . .) svyaz
     ,( SELECT . . .  FROM . . .   WHERE . . .  AND jdc.codformuv = sfu.codformuv (+) ) jdk
    WHERE 
      obv.DEL IS NULL
     AND obv.coddoc = jdk.coddoc (+)
      . . . 
     AND TRUNC(obv.dateizm) <= xdate
    ORDER BY
      obv.numopzn
     ,obv.dateizm DESC
  );
  
  xstr varchar2(30);

 BEGIN
   execute immediate 'TRUNCATE TABLE tbl_tmp_gis'; 
   -- DELETE FROM  tbl_tmp_gis;
   -- COMMIT;

  xstr := '  ';
 
  --//-- Выборка первых строк в группах
  FOR row IN cr LOOP
   IF row.numopzn <> xstr THEN
    INSERT INTO tbl_tmp_gis VALUES (
      row.numopzn
     ,row.namvrr
     ,row.numdoc
     ,row.mesto
     ,row.lat
     ,row.lng
     ,row.dateizm 
    );
    xstr := row.numopzn;
   END IF; 
  END LOOP;
  
  -- COMMIT;
  
  open cur_viborka for 
  SELECT *
  FROM  tbl_tmp_gis;
 
  --  execute immediate 'TRUNCATE TABLE tbl_tmp_gis'; 
  -- DELETE FROM  tbl_tmp_gis;
  -- COMMIT;

 end get_PrebivanieTB; 

    //-- Готовим данные по местам пребывания ТБ
    //-----------------------------------------
    void f_Выборка() {
      гп.оПребываниеТБ.lst_ПребываниеТБ = null;
      гп.оПребываниеТБ.lst_ПребываниеТБ = new List<row_ПребываниеТБ>();
      using (OracleConnection conOra = new OracleConnection(гп.oradb)) {
        using (OracleCommand cmdOra = new OracleCommand()) {
          cmdOra.Connection = conOra;
          cmdOra.CommandType = CommandType.StoredProcedure;
          cmdOra.CommandText = "NCUYAO_GIS.get_PrebivanieTB";
          cmdOra.Parameters.Clear();
          cmdOra.Parameters.Add("cur_viborka", OracleDbType.Cursor).Direction = ParameterDirection.Output;
          cmdOra.Parameters.Add("xdate", OracleDbType.Date, ParameterDirection.Input).Value = dtp_Пребывание.Value;
          try {
            conOra.Open();
            odr = cmdOra.ExecuteReader();
            while (odr.Read()) {
              DbToRow();
              гп.оПребываниеТБ.lst_ПребываниеТБ.Add(xrow);
            }
          }
          catch (Exception ex) {
            MessageBox.Show("Ошибка Oracle: {0}", ex.ToString());
            гп.оПребываниеТБ.lst_ПребываниеТБ = null;
          }
        }
      }
    }

 procedure get_PrebivanieTB(
   cur_viborka out t_cursor
   ,xdate in date
 )
 is
  sql_sel varchar2(2000) := '
    SELECT 
      obv.numopzn numopzn
     ,FIRST_VALUE(slv.NAMVRR) 
       OVER(PARTITION BY obv.numopzn,obv.dateizm ORDER BY obv.numopzn, obv.dateizm DESC) namvrr
     ,FIRST_VALUE(jdk.numdoc) 
       OVER(PARTITION BY obv.numopzn,obv.dateizm ORDER BY obv.numopzn, obv.dateizm DESC)numdoc
     ,FIRST_VALUE(obj.ABBROBJR)
       OVER(PARTITION BY obv.numopzn,obv.dateizm ORDER BY obv.numopzn, obv.dateizm DESC) mesto
     ,FIRST_VALUE(SUBSTR(loc.coord, 1, 7))
       OVER(PARTITION BY obv.numopzn,obv.dateizm ORDER BY obv.numopzn, obv.dateizm DESC) lat
     ,FIRST_VALUE(SUBSTR(loc.coord, 8, 8))
       OVER(PARTITION BY obv.numopzn,obv.dateizm ORDER BY obv.numopzn, obv.dateizm DESC) lng
     ,obv.dateizm dateizm
    FROM
     . . .
     ,( SELECT . . .  FROM . . .   WHERE . . .) pv
     ,( SELECT . . .  FROM . . .   WHERE . . .) svyaz
     ,( SELECT . . .  FROM . . .   WHERE . . .  AND jdc.codformuv = sfu.codformuv (+) ) jdk
    WHERE 
      obv.DEL IS NULL
     AND obv.coddoc = jdk.coddoc (+)
      . . . 
     AND TRUNC(obv.dateizm) <= xdate
    ORDER BY
      obv.numopzn
     ,obv.dateizm DESC
  ';
  
  BEGIN
   open cur_viborka for sql_sel;

 end get_PrebivanieTB; 

      lst_МестаСНВ3 = (
        from row in lst_СНВ3
        group row by new {glat = row.ilat, glng = row.ilng }
        into g
        select new row_МестоСНВ3() {
          blm = g.Count() > 1,   //--blm <- true, если несколько объектов в одном месте
          lat = g.First().ilat,
          lng = g.First().ilng,
          тип = g.First().tipobj
        }
      ).ToList();

 procedure get_PrebivanieTB(
   cur_viborka out t_cursor
   ,xdate in date
 )
 is
  sql_sel varchar2(2000) := '
    SELECT DISTINCT 
      obv.numopzn numopzn
     ,FIRST_VALUE(slv.NAMVRR) 
       OVER(PARTITION BY obv.numopzn ORDER BY  obv.dateizm DESC) namvrr
     ,FIRST_VALUE(jdk.numdoc) 
       OVER(PARTITION BY obv.numopzn ORDER BY  obv.dateizm DESC)numdoc
     ,FIRST_VALUE(obj.ABBROBJR)
       OVER(PARTITION BY obv.numopzn ORDER BY  obv.dateizm DESC) mesto
     ,FIRST_VALUE(SUBSTR(loc.coord, 1, 7))
       OVER(PARTITION BY obv.numopzn ORDER BY  obv.dateizm DESC) lat
     ,FIRST_VALUE(SUBSTR(loc.coord, 8, 8))
       OVER(PARTITION BY obv.numopzn ORDER BY  obv.dateizm DESC) lng
     ,MAX(obv.dateizm)
       OVER(PARTITION BY obv.numopzn) dateizm
    FROM
     . . .
     ,( SELECT . . .  FROM . . .   WHERE . . .) pv
     ,( SELECT . . .  FROM . . .   WHERE . . .) svyaz
     ,( SELECT . . .  FROM . . .   WHERE . . .  AND jdc.codformuv = sfu.codformuv (+) ) jdk
    WHERE 
      obv.DEL IS NULL
     AND obv.coddoc = jdk.coddoc (+)
      . . . 
     AND TRUNC(obv.dateizm) <= xdate
    ORDER BY
      obv.numopzn
  ';
  
  BEGIN
   open cur_viborka for sql_sel;

 end get_PrebivanieTB; 

 
     . . .
     AND TRUNC(obv.dateizm) <= 
       to_date(' || '''' || TO_CHAR(xdate, 'dd.mm.yyyy') || '''' || ')
    ORDER BY 
      obv.numopzn
     . . .