#!/bin/env groovy

import java.util.concurrent.Executors
import groovy.sql.Sql
import com.sun.net.httpserver.*

if (System.getProperty("os.name")=="Linux"){
  jdbcURL="jdbc:mysql://localhost:3306/airs"
  jasperDir= "/var/www/html/jasper/"
} else {
  jdbcURL="jdbc:mysql://ec2-54-208-78-75.compute-1.amazonaws.com:3306/airs"
  jasperDir= "r:/DROPBOX/amazonaws/jasper/"
}

oldStdOut=System.out

def server = HttpServer.create(new InetSocketAddress(8000),0)
server.with{
  createContext("/", new info(oldStdOut:oldStdOut, jasperDir:jasperDir,jdbcURL:jdbcURL))
  createContext("/kill", new Kill(server:server,oldStdOut:oldStdOut))

  new File(jasperDir).eachFileMatch(~/.*.groovy/) { file->
    def fname=file.getName()[0..-8]
    println  "/${fname}.php"
    createContext("/${fname}.php", new groovy2xml(jasperDir:jasperDir,oldStdOut:oldStdOut,jasperScript:fname))
  }

  setExecutor(null)
  start()
  println "\nGroovy-xmlServer startded:"
}

class Kill implements HttpHandler {
  def server
  def oldStdOut
  public void handle(HttpExchange exchange) throws IOException {
    System.out=oldStdOut
    exchange.responseHeaders['Content-Type'] = 'text/html; charset='+CharsetToolkit.defaultSystemCharset
    exchange.sendResponseHeaders(200, 0)
    def out = new PrintWriter(exchange.getResponseBody())
    out.println "

Groovy-xmlServer killed.

"
    out.close()
    exchange.close()
    server.stop(3)
    println "\nGroovy-xmlServer killed.\n-------------------------------"
    if (System.properties['sun.desktop']) return
    System.exit(0)
  }
}

class info implements HttpHandler {
  def oldStdOut
  def jasperDir
  def jdbcURL
  public void handle(HttpExchange exchange) throws IOException {
    System.out=oldStdOut
    def out = new PrintWriter(exchange.getResponseBody())
    def path = exchange.getRequestURI().getPath()
    def method = exchange.getRequestMethod()
    print "\n==> $method(${path}): "
    if(path in ["/sql2xml.php","/sql2json.php"]){
      def mysql
      try{ mysql=  Sql.newInstance("${jdbcURL}?useUnicode=true&characterEncoding=UTF-8",
        'userairs', 'userairs', 'com.mysql.jdbc.Driver')
      }
      catch(Exception ex) { ex.printStackTrace() }
      //
      def getquery = exchange.getRequestURI().getQuery()//from GET
      def query, body
      if (getquery) query = URLDecoder.decode(getquery)
      println "getQuery()==>$query"
      try{
        def isr = new InputStreamReader(exchange.getRequestBody(),"utf-8")
        def br = new BufferedReader(isr)
        body = br.readLine()
        println "getRequestBody()==>$body"
        if(body)  if (!query) query=body
      } 
      catch(Exception ex) {println ex.getMessage()}
      //
      if (!query) query='select 1 one'
      println "$query\n-------------------------------"
      if(path=="/sql2xml.php"){
        exchange.responseHeaders['Content-Type'] = 'text/xml; charset=UTF-8'
        exchange.sendResponseHeaders(200, 0)
        out.println ""
        out.println "$query"
        try{
          mysql.rows(query).each{row->
            out.println ""
            row.each {out.println "<$it.key></$it.key>"}
            out.println ""
          }
        } catch(Exception ex) {
          out.println ""
          println "sql2xml: $query\n ${ex.getMessage()}"
        }
        out.println ""      
      } else {//"/sql2json.php"
        exchange.responseHeaders['Content-Type'] = 'application/json; charset=UTF-8'
        exchange.sendResponseHeaders(200, 0)
        out.print "[{\"autor\":\"is09-20\", \"jdbcURL\":\"${jdbcURL}\", \"SQL\":\"$query\"},\n["
        def rr=0
        try {
          mysql.rows(query).each{row->
            if(rr>0) out.print ",{" else out.print "{"; rr=1
            row.each {
              if(rr>1) out.print ","; rr=2
              out.print "\"${it.key}\": \"${it.value}\""
            }
            out.println "}"
          }
          out.println "]]"
        } catch(Exception ex) {
          out.println "], {\"error\":\"${ex.getMessage()}\"}]"
          println "sql2json: $query\n ${ex.getMessage()}"
        }      
      }
    } 
    else {
      exchange.responseHeaders['Content-Type'] = 'text/html; charset=UTF-8'
      exchange.sendResponseHeaders(200, 0)
      out.println """

Groovy XML server (25-01-2014)

You can afford the following:

"""
      println "Groovy-xmlServer is ready!"
    }
    out.close()
    exchange.close()    
  }
}


class groovy2xml implements HttpHandler {
  def jasperDir
  def oldStdOut
  def jasperScript
  public void handle(HttpExchange exchange) throws IOException {
    System.out = oldStdOut
    def path = exchange.getRequestURI().getPath()//.tokenize("/")
    def method = exchange.getRequestMethod()
    print "\n==> $method(${path[1..-1]}): "
    def getquery = exchange.getRequestURI().getQuery()//from GET
    
    def query, body
    if (getquery) query = URLDecoder.decode(getquery)
    println "getQuery()==>$query"
    try{
      def isr = new InputStreamReader(exchange.getRequestBody(),"utf-8")
      def br = new BufferedReader(isr)
      body = br.readLine()
      println "getRequestBody()==>$body"
      if(body)  if (!query) query=body
    } 
    catch(Exception ex) {println ex.getMessage()}
    if (!query) query=''    
    
    exchange.responseHeaders['Content-Type'] = 'text/xml; charset=UTF-8'
    exchange.sendResponseHeaders(200, 0)
    def out = new PrintWriter(exchange.getResponseBody())
    def groovyFile="${jasperDir}${jasperScript}.groovy"
    def bufStr = new ByteArrayOutputStream()
    println "run(new File('$groovyFile') '${URLDecoder.decode(query)}')"
    System.out = new PrintStream(bufStr)
    def shell = new GroovyShell()
    shell.run(new File(groovyFile), URLDecoder.decode(query))
    System.out = oldStdOut
    def xml= bufStr.toString()
    out.println xml
    println "'${groovyFile}' finished.\n-------------------------------"
    out.close()
    exchange.close()
  }
}

if (System.properties['sun.desktop']){
  java.awt.Desktop.getDesktop().browse(new URI("http://localhost:8000/"))
}

#!/bin/env groovy

import java.util.concurrent.Executors
import groovy.sql.Sql
import com.sun.net.httpserver.*

if (System.getProperty("os.name")=="Linux"){
  jdbcURL="jdbc:mysql://localhost:3306/airs"
  jasperDir= "/var/www/html/jasper/"
} else {
  jdbcURL="jdbc:mysql://*******:3306/*******"
  jasperDir= "r:/DROPBOX/amazonaws/jasper/"
}

Object.metaClass.mysqlconnection= {->
  Sql.newInstance("${jdbcURL}?"+
    "useUnicode=true&characterEncoding=UTF-8",
    '*******', '*******', 'com.mysql.jdbc.Driver')
}

oldStdOut=System.out

def server = HttpServer.create(new InetSocketAddress(8000),0)
server.with{
  createContext("/", new info(oldStdOut:oldStdOut, jasperDir:jasperDir))
  createContext("/kill", new Kill(server:server,oldStdOut:oldStdOut))
  createContext("/sql2xml", new sql2xml(jdbcURL:jdbcURL))
  createContext("/sql2json", new sql2json(jdbcURL:jdbcURL))

  new File(jasperDir).eachFileMatch(~/.*.groovy/) { file->
    def fname=file.getName()[0..-8]
    println  fname
    createContext("/${fname}", new groovy2xml(jasperDir:jasperDir,oldStdOut:oldStdOut,jasperScript:fname))
  }

  //
  setExecutor(null)
  //setExecutor(Executors.newCachedThreadPool())
  start()
  println "\nGroovy-xmlServer startded:"
}

class info implements HttpHandler {
  def oldStdOut
  def jasperDir
  public void handle(HttpExchange exchange) throws IOException {
    System.out=oldStdOut
    exchange.responseHeaders['Content-Type'] = 'text/html; charset=UTF-8'
    exchange.sendResponseHeaders(200, 0)
    def out = new PrintWriter(exchange.getResponseBody())
    out.println """

Groovy XML server (25-01-2014)

You can afford the following:

"""
    println "Groovy-xmlServer is ready!\n"
    out.close()
    exchange.close()
  }
}

class Kill implements HttpHandler {
  def server
  def oldStdOut
  public void handle(HttpExchange exchange) throws IOException {
    System.out=oldStdOut
    exchange.responseHeaders['Content-Type'] = 'text/html; charset='+CharsetToolkit.defaultSystemCharset
    exchange.sendResponseHeaders(200, 0)
    def out = new PrintWriter(exchange.getResponseBody())
    out.println "

Groovy-xmlServer killed.

"
    out.close()
    exchange.close()
    server.stop(3)
    println "Groovy-xmlServer killed.\n\n"
    if (System.properties['sun.desktop']) return
    System.exit(0)
  }
}

class sql2xml implements HttpHandler {
  def sql
  def jdbcURL
  public void handle(HttpExchange exchange) throws IOException {
    try{sql=mysqlconnection()} catch(Exception ex) { ex.printStackTrace() }
    def query = exchange.getRequestURI().getQuery()
    if (!query) query="select 1 one;"
    println "==> sql2xml:\n$query\n"
    exchange.responseHeaders['Content-Type'] = 'text/xml; charset=UTF-8'
    exchange.sendResponseHeaders(200, 0)
    def out = new PrintWriter(exchange.getResponseBody())
    out.println ""
    out.println "$query"
    try{
      sql.rows(query).each{row->
        out.println ""
        row.each {out.println "<$it.key></$it.key>"}
        out.println ""
      }
    } catch(Exception ex) {
      out.println ""
      println "sql2xml: $query\n ${ex.getMessage()}"
    }
    out.println ""
    out.close()
    exchange.close()
  }
}

class sql2json implements HttpHandler {
  def sql
  def jdbcURL
  public void handle(HttpExchange exchange) throws IOException {
    try{sql=mysqlconnection()} catch(Exception ex) { ex.printStackTrace() }

    def query = exchange.getRequestURI().getQuery()
    if (!query) query="select 1 one;"
    println "==> sql2json:\n$query\n"
    exchange.responseHeaders['Content-Type'] = 'application/json; charset=UTF-8'
    exchange.sendResponseHeaders(200, 0)
    def out = new PrintWriter(exchange.getResponseBody())
    out.print "[{\"autor\":\"is09-20\", \"jdbcURL\":\"${jdbcURL}\", \"SQL\":\"$query\"},\n["
    def rr=0
    try {
      sql.rows(query).each{row->
        if(rr>0) out.print ",{" else out.print "{"; rr=1
        row.each {
          if(rr>1) out.print ","; rr=2
          out.print "\"${it.key}\": \"${it.value}\""
        }
        out.println "}"
      }
      out.println "]]"
    } catch(Exception ex) {
      out.println "], {\"error\":\"${ex.getMessage()}\"}]"
      println "sql2json: $query\n ${ex.getMessage()}"
    }
    out.close()
    exchange.close()
  }
}

class groovy2xml implements HttpHandler {
  def jasperDir
  def oldStdOut
  def jasperScript
  public void handle(HttpExchange exchange) throws IOException {
    System.out = oldStdOut
    def query = exchange.getRequestURI().getQuery() ?: ""
    println "==> ${jasperScript} '${query}'"
    exchange.responseHeaders['Content-Type'] = 'text/xml; charset=UTF-8'
    exchange.sendResponseHeaders(200, 0)
    def out = new PrintWriter(exchange.getResponseBody())
    def groovyFile="${jasperDir}${jasperScript}.groovy"
    def bufStr = new ByteArrayOutputStream()
    println "run(new File('$groovyFile') '${URLDecoder.decode(query)}')"
    System.out = new PrintStream(bufStr)
    def shell = new GroovyShell()
    shell.run(new File(groovyFile), URLDecoder.decode(query))
    System.out = oldStdOut
    def xml= bufStr.toString()
    out.println xml
    println "'${groovyFile}' finished.\n"
    out.close()
    exchange.close()
  }
}

if (System.properties['sun.desktop']){
  java.awt.Desktop.getDesktop().browse(new URI("http://localhost:8000/"))
}

 array('400 Плохой запрос', 'Запрос не может быть обработан из-за синтаксической ошибки.'),
       403 => array('403 Запрещено', 'Сервер отказывает в выполнении вашего запроса.'),
       404 => array('404 Не найдено', 'Запрашиваемая страница не найдена на сервере.'),
       405 => array('405 Метод не допускается', 'Указанный в запросе метод не допускается для заданного ресурса.'),
       408 => array('408 Время ожидания истекло', 'Ваш браузер не отправил информацию на сервер за отведенное время.'),
       500 => array('500 Внутренняя ошибка сервера', 'Запрос не может быть обработан из-за внутренней ошибки сервера.'),
       502 => array('502 Плохой шлюз', 'Сервер получил неправильный ответ при попытке передачи запроса.'),
       504 => array('504 Истекло время ожидания шлюза', 'Вышестоящий сервер не ответил за установленное время.'),
);
 
$title = $codes[$status][0];
$message = $codes[$status][1];
if ($title == false || strlen($status) != 3) {
       $message = 'Код ошибки HTTP не правильный.';
}
 
echo '

Внимание! Обнаружена ошибка '.$title.'!

'.$message.'

';
?>

Процедура ПолучитьСписокПользователей()
        СписокПользователей =ПользователиИнформационнойБазы.ПолучитьПользователей();
        ТабСписокПользователей.Очистить();
        Для Каждого Пользователь  из СписокПольЗователей цикл
                ТекПользователь=ПользователиИнформационнойБазы.НайтиПоИмени(Пользователь.Имя);
                Если ТекПользователь.ПоказыватьВСпискеВыбора = Истина  Тогда
                        Стр = ТабСписокПользователей.Добавить();
                        Стр.Пользователь = ТекПользователь.Имя;
                        Стр.Статус = "ОФФ";
                КонецЕсли;
        КонецЦикла;
        СоединенияИнформационнойБазы = ПолучитьСоединенияИнформационнойБазы();
        НомерТекущегоСоединения = НомерСоединенияИнформационнойБазы();
        Для Каждого Соединение Из СоединенияИнформационнойБазы Цикл
                Для Каждого Польз Из ТабСписокПользователей Цикл
                        Если Польз.Пользователь = Соединение.Пользователь.Имя Тогда
                                Если Соединение.НомерСоединения = НомерТекущегоСоединения Тогда
                                        Польз.Статус = "Я";
                                        ТекЮзер = Польз.Пользователь;
                                Иначе
                                        Польз.Статус = "О/Л";
                                КонецЕсли;
                        КонецЕсли;
                КонецЦикла;
        КонецЦикла;
        ВводПервого = Истина;
        Чат.Обновить();
        ЕСли ВводДоступен() Тогда
                Прочитанных = Всего;
                ПервыйЗапуск = Ложь;
        КонецЕсли;
        ЭлементыФормы.Чат.НачальноеОтображениеСписка = НачальноеОтображениеСписка.Конец;
        
КонецПроцедуры

    public static int GetAge(DateTime birthday)
    {
        DateTime now = DateTime.Today;
        int age = now.Year - birthday.Year;
        if (now < birthday.AddYears(age)) age--;

        return age;
    }

<?
/*

DROP TABLE IF EXISTS shop;
CREATE TABLE shop (
  id INT(11) NOT NULL AUTO_INCREMENT,
  name VARCHAR(255) DEFAULT NULL,
  PRIMARY KEY (id)
)
ENGINE = INNODB
AUTO_INCREMENT = 4
AVG_ROW_LENGTH = 5461
CHARACTER SET cp1251
COLLATE cp1251_general_ci;

DROP TABLE IF EXISTS goods;
CREATE TABLE goods (
  id INT(11) NOT NULL AUTO_INCREMENT,
  id_shop INT(11) DEFAULT NULL,
  name VARCHAR(50) DEFAULT NULL,
  PRIMARY KEY (id),
  CONSTRAINT FK_goods_shop_id FOREIGN KEY (id_shop)
    REFERENCES shop(id) ON DELETE RESTRICT ON UPDATE RESTRICT
)
ENGINE = INNODB
AUTO_INCREMENT = 6
AVG_ROW_LENGTH = 3276
CHARACTER SET cp1251
COLLATE cp1251_general_ci;

INSERT INTO shop VALUES
(1, 'Shop A'),
(2, 'Shop B'),
(3, 'Shop C');

INSERT INTO goods VALUES
(1, 1, 'Goods 1 - A'),
(2, 1, 'Goods 2 - A'),
(3, 2, 'Goods 1 - B'),
(4, 2, 'Goods 2 - B'),
(5, 3, 'Goods 1 - C');

*/
  
require_once "composer/vendor/autoload.php";

use Doctrine\ORM\Tools\Setup;
use Doctrine\ORM\EntityManager;

$paths = array("/");
$isDevMode = false;

// the connection configuration
$dbParams = array (
    'driver'   => 'pdo_mysql',
    'user'     => 'root',
    'password' => 'test',
    'dbname'   => 'test',
);

$config = Setup::createAnnotationMetadataConfiguration($paths, $isDevMode);
$logger = new \Doctrine\DBAL\Logging\DebugStack();
$config->setSQLLogger($logger);
$entityManager = EntityManager::create($dbParams, $config);


/**
 * @Entity
 * @Table(name="shop")
 */
class Shop {

  /** @Id @GeneratedValue @Column(type="integer") */
  public $id;

  /** @Column(type="string") */
  public $name;

  /**
   * @OneToMany(targetEntity="Goods", mappedBy="shop")
   */
  public $goods;


  public function __construct() {
  }
}

/**
 * @Entity
 * @Table(name="goods")
 */
class Goods {

  /** @Id @GeneratedValue @Column(type="integer") */
  public $id;

  /** @Column(name="id_shop")*/
  public $idShop;

  /**
   * @ManyToOne(targetEntity="Shop", inversedBy="goods", fetch="EAGER")
   * @JoinColumn(name="id_shop", referencedColumnName="id")
   **/
  public $shop;

  /** @Column */
  public $name;

}

$shopRepository = $entityManager->getRepository('\Shop');
$shops = $shopRepository->findAll();

echo "

\n";
//print_r($shops);

foreach ($shops as $shop) {
  //$shop->goods = null;
  //print_r($shop);


  echo $shop->id."-";
  echo count($shop->goods)."\n";
  foreach ($shop->goods as $goods) {
    echo $goods->name.";";
  }
  echo "\n";

}

foreach ($logger->queries as $q) {
  echo SqlFormatter::format($q['sql'])."
\r\n";
}

?>

//event_description_counter - counter text
//event_description - textarea

$(document).ready(function() {
    var text_max = 100;
    $('#event_description_counter').html(text_max + ' characters remaining');
  
    $('#event_description').keyup(function() {
        var text_length = $('#event_description').val().length;
        var text_remaining = text_max - text_length;

        $('#event_description_counter').html(text_remaining + ' characters remaining');
    });
});

$_POST = json_decode(file_get_contents('php://input'), true);

$source_path = $_SERVER['DOCUMENT_ROOT'] . 'content/videos/my_video.mp4';
$dest_path = $_SERVER['DOCUMENT_ROOT'] . 'content/videos/my_video.jpg';

//"-10" means offset of 10 seconds from start
exec("ffmpeg  -itsoffset -10  -i $source_path -s 320x240 $dest_path");

select field1,field2,field3, count(*)
  from table_name
  group by field1,field2,field3
  having count(*) > 1

DELETE FROM [tbCode] WHERE [CodeID] IN (SELECT TOP N [CodeID] FROM [tbCode] order by [CodeID] desc)

$mois=array('janvier','février','mars','avril','mai','juin','juillet','août','septembre','octobre','novembre','décembre');

function PasswordStrength($password, $return_as_number = true) {
    if (strlen($password) == 0) {
        return 1;
    }

    $strength = 0;

    /* Get the length of the password */
    $length = strlen($password);

    /* Check if password is not all lower case */
    if (strtolower($password) != $password) {
        $strength += 1;
    }

    /* Check if password is not all upper case */
    if (strtoupper($password) == $password) {
        $strength += 1;
    }

    /* Check string length is 8-15 chars */
    if ($length >= 8 && $length <= 15) {
        $strength += 1;
    }

    /* Check if lenth is 16 - 35 chars */
    if ($length >= 16 && $length <= 35) {
        $strength += 2;
    }

    /* Check if length >35 chars */
    if ($length > 35) {
        $strength += 3;
    }

    /* Get the numbers in the password */
    preg_match_all('/[0-9]/', $password, $numbers);
    $strength += count($numbers[0]);

    /* Check for special chars */
    preg_match_all('/[|!@#$%&*\/=?,;.:\-_+~^\\\]/', $password, $specialchars);
    $strength += sizeof($specialchars[0]);

    /* Get the number of unique chars */
    $chars = str_split($password);
    $num_unique_chars = sizeof(array_unique($chars));
    $strength += $num_unique_chars * 2;

    /* Strength is a number 1-10 */
    $strength = $strength > 99 ? 99 : $strength;
    $strength = floor($strength / 10 + 1);

    /* Return number OR word */
    if ($return_as_number) {
        return $strength;
    } else {
        if (($strength >= 1) && ($strength < 3))
            return 'Weak';
        if (($strength >= 3) && ($strength < 6))
            return 'Normal';
        if (($strength >= 6) && ($strength < 8))
            return 'Good';
        if (($strength >= 8) && ($strength <= 10))
            return 'Awesome';
    }
}

switch ($array['class']) {
        case 3:
                $class = 'Охотник';
                break;
        case 4:
                $class = 'Разбойник';
                break;
        case 1:
                $class = 'Воин';
                break;
        case 2:
                $class = 'Паладин';
                break;
        case 7:
                $class = 'Шаман';
                break;
        case 8:
                $class = 'Маг';
                break;
        case 5
                $class = 'Жрец';
                break;
        case 6:
                $class = 'Рыцарь смерти';
                break;
        case 11:
                $class = 'Друид';
                break;
        case 9:
                $class = 'Чернокнижник';
                break;
        case 10:
                $class = 'Монах';
                break;

        default:
                $class = 'Unknowkn';
                break;
}

switch ($array['race']) {
        case 1:
                $race = 'Человек';
                break;
        case 8:
                $race = 'Тролль';
                break;
        case 14:
                $race = 'Пандарен';
                break;
        case 11:
                $race = 'Дреней';
                break;
        case 22:
                $race = 'Ворген';
                break;
        case 10:
                $race = 'Эльф крови';
                break;
        case 4:
                $race = 'Ночной эльф';
                break;
        case 3:
                $race = 'Дворф';
                break;
        case 25:
                $race = 'Пандарен';
                break;
        case 26:
                $race = 'Пандарен';
                break;
        case 6:
                $race = 'Таурен';
                break;
        case 5:
                $race = 'Нежить';
                break;
        case 2:
                $race = 'Орк';
                break;
        case 7:
                $race = 'Гном';
                break;
        case 9:
                $race = 'Гоблин';
                break;
        default:
                $race = 'Unknown';
                break;
}

var unix_timestamp = Math.round((new Date()).getTime() / 1000);

function br2nl($str) {
    $str = preg_replace("/(\r\n|\n|\r)/", "", $str);
    return preg_replace("=
=i", "\n", $str);
}

.center {
    position: absolute;
    left: 50%;
    top: 50%;
    
    /*
    Nope =(
    margin-left: -25%;
    margin-top: -25%;
    */  
          /* 
    Yep!
    */
    transform: translate(-50%, -50%);
    
    /*
    Not even necessary really. 
    e.g. Height could be left out!
    */
    width: 40%;
    height: 50%;
}

Функция ПолучитьНазваниеМесяца(НомерМесяца=0)
        Если (НомерМесяца<=0) ИЛИ (НомерМесяца>12) тогда
                Возврат "";
        Иначе
                Возврат Формат(Дата(1980,НомерМесяца,1),"ДММММ");
        КонецЕсли;
КонецФункции //ПолучитьНазваниеМесяца

public static byte[] imageToByteArray(Image imageIn)
        {
            MemoryStream ms = new MemoryStream();
            imageIn.Save(ms, System.Drawing.Imaging.ImageFormat.Gif);
            return ms.ToArray();
        }

//******************************************************************************
Функция глМод(числ) Экспорт //возвращает значения числа "по модулю"
        Возврат ?(числ<0,-числ,числ);
КонецФункции     

//******************************************************************************
// глЭлементОчереди(Знач Очередь,Знач Разделитель, Знач Позиция)
Функция глЭлементОчереди(Знач Очередь, Знач Разделитель, Знач Позиция) Экспорт
        Если ПустаяСтрока(Очередь)=1 Тогда
                Возврат "";
        КонецЕсли;
        Если СтрЧислоВхождений(Очередь,Разделитель)<Позиция-1 Тогда
                Возврат "";
        КонецЕсли;
        ДлинаРазделителя = СтрДлина(Разделитель)-1;
        Пока Позиция>1 Цикл
                Позиция = Позиция-1;
                ПозицияРазделителя = Найти(Очередь,Разделитель);
                Очередь = Прав(Очередь,СтрДлина(Очередь)-ПозицияРазделителя-ДлинаРазделителя);
        КонецЦикла;
        Если СтрЧислоВхождений(Очередь,Разделитель)=0 Тогда
                Возврат Очередь;
        КонецЕсли;
        Возврат Лев(Очередь,Найти(Очередь,Разделитель)-1);
КонецФункции
        
//******************************************************************************
Функция глВнутреннийИдентификатор(Объект) Экспорт
        ТипОбъекта = ТипЗначенияСтр(Объект);
        Если Найти("Строка,Число,Дата",ТипОбъекта) > 0 Тогда
                Возврат СокрЛП(Строка(Объект));
        ИначеЕсли ТипОбъекта = "Справочник" Тогда
                ВнутреннееПредставление = ЗначениеВСтрокуВнутр(Объект.ТекущийЭлемент());
        ИначеЕсли ТипОбъекта = "Документ" Тогда
                ВнутреннееПредставление = ЗначениеВСтрокуВнутр(Объект.ТекущийДокумент());
        Иначе
                ВнутреннееПредставление = ЗначениеВСтрокуВнутр(Объект);
        КонецЕсли;
        ВнутреннееПредставление = СтрЗаменить(СтрЗаменить(ВнутреннееПредставление,"{",""),"}","");
        Идентификатор = СокрЛП(СтрЗаменить(глЭлементОчереди(ВнутреннееПредставление,",",7),"""",""));
        Если Найти(Идентификатор," ") > 0 Тогда
                // если идентификатор содержит в себе идентификатор вида,
                // то последний отсекается, нужен только идентификатор объекта
                Идентификатор = СокрЛП(Сред(Идентификатор,Найти(Идентификатор," ")));
        КонецЕсли;
        Возврат СокрЛП(_IdToStr(Идентификатор));
КонецФункции // глВнутреннийИдентификатор  

//******************************************************************************
Функция глИзТЗ(тз,СтрокаТЗ=0,КолонкаТЗ) Экспорт
        СтрокаТЗ = ?(СтрокаТЗ=0,тз.НомерСтроки,СтрокаТЗ);
        Попытка
                Возврат тз.ПолучитьЗначение(СтрокаТЗ,КолонкаТЗ);
        Исключение
                Сообщить(ОписаниеОшибки()+"; Строка: " + СтрокаТЗ + "/" + тз.КоличествоСтрок()+"; колонка: "+КолонкаТЗ,"!!");
                Возврат 0;
        КонецПопытки;
КонецФункции // ПолучитьЗначениеИзТЗ

//******************************************************************************
//Множитель: 0 - заменить значение, 1 - Прибавить к значению, -1 - вычесть из значения
Процедура глВТЗ(тз,СтрокаТЗ=0,КолонкаТЗ,ЗначениеТЗ,Множитель=0) Экспорт
        СтрокаТЗ = ?(СтрокаТЗ=0,тз.НомерСтроки,СтрокаТЗ);
        Попытка
                зн = ?(ТипЗначенияСтр(ЗначениеТЗ)="Число",?(Множитель=0,ЗначениеТЗ,глИзТЗ(тз,СтрокаТЗ,КолонкаТЗ)+ЗначениеТЗ*Множитель),ЗначениеТЗ);
                тз.УстановитьЗначение(СтрокаТЗ,КолонкаТЗ,зн);
        Исключение
                Сообщить(ОписаниеОшибки()+"; Строка: " + СтрокаТЗ + "/" + тз.КоличествоСтрок()+"; колонка: "+КолонкаТЗ+"; ("+ЗначениеТЗ+"*["+Множитель+"])","!!");
        КонецПопытки;
КонецПроцедуры // УстановитьВТЗ

//******************************************************************************
Функция глПечатьТЗ(тз,Показать=0) Экспорт
        Т = СоздатьОбъект("Таблица");
        Т.ИсходнаяТаблица("ТЗ");
        зн = "";
        Т.ВывестиСекцию("Заголовок|Начало");
        Для а = 1 По тз.КоличествоКолонок() Цикл
                зн = тз.ПолучитьПараметрыКолонки(а);
                Т.ПрисоединитьСекцию("Заголовок|Колонка");
        КонецЦикла;
        тз.ВыбратьСтроки();
        Пока тз.ПолучитьСтроку() = 1 Цикл
                Т.ВывестиСекцию("Строка|Начало");
                Для а = 1 По тз.КоличествоКолонок() Цикл
                        зн = глИзТЗ(тз,,тз.ПолучитьПараметрыКолонки(а));
                        Если СокрЛП(Строка(Число(зн))) = СокрЛП(Строка(зн)) Тогда
                                зн = Формат(зн,"Ч0.,");
                        ИначеЕсли ТипЗначенияСтр(зн) = "Справочник" Тогда
                                Если зн.Вид() = "ГотоваяПродукция" Тогда
                                        зн = зн.Код + " " + зн.Наименование;
                                КонецЕсли;
                        КонецЕсли;
                        Т.ПрисоединитьСекцию("Строка|Колонка");
                КонецЦикла;
        КонецЦикла;
        Т.ТолькоПросмотр(1);
        Если Показать = 1 Тогда
                Т.Показать();
        КонецЕсли;
        Возврат Т;
КонецФункции // глПечатьТЗ

//******************************************************************************
// Заполняет значения параметров приёмника значениями источника, определяя по имени
// Параметры:
//              -Приемник - ТаблицаЗначений,СписокЗначений,ГрупповойКонтекст,Документ или Справочник, значения которого нужно заполнить
//              -Источник - ТаблицаЗначений,СписокЗначений,ГрупповойКонтекст,Документ или Справочник, откуда значения нужно взять
//              -ТолькоСвойства - строка с именами свойств через запятую. Если задана, то заполняются только указанные свойства
//                                              Возможно переопределение имен свойств используя знак равенства, например: "Клиент=Контрагент"
//                                              Слева от знака "=" имя свойства получателя, справа - источника
//              -ИсключаяСвойства - строка с именами свойств через запятую. Если задана, то указанные свойства заполнятся не будут
//                                              Если в предидущем параметре было задано переопределение имен, то указывается свойство Приемника
Процедура глЗаполнитьЗначения(Приемник,Источник,Знач ТолькоСвойства="",Знач ИсключаяСвойства="") Экспорт
        ДопустимыеТипы = "ТаблицаЗначений,СписокЗначений,ГрупповойКонтекст,Документ,Справочник";
        
        ТипИсточника = ТипЗначенияСтр(Источник);
        ТипПриемника = ТипЗначенияСтр(Приемник);
        
        Если Найти(ДопустимыеТипы,ТипИсточника) = 0 Тогда
                Сообщить("глЗаполнитьЗначения::Недопустимый тип источника");
                Возврат;
        ИначеЕсли Найти(ДопустимыеТипы,ТипПриемника) = 0 Тогда
                Сообщить("глЗаполнитьЗначения::Недопустимый тип приемника");
                Возврат;
        КонецЕсли;
        
        // обрамление фильтров запятыми, чтобы имя "Сумма" не обнаруживалось в именах типа "СуммаНДС, СуммаСписать или СуммаНачисления"
        ТолькоСвойства   = ?(ПустаяСтрока(ТолькоСвойства)  =1,"",","+СтрЗаменить(ТолькоСвойства  ," ","")+",");
        ИсключаяСвойства = ?(ПустаяСтрока(ИсключаяСвойства)=1,"",","+СтрЗаменить(ИсключаяСвойства," ","")+",");
        
        //{ Для простоты дальнейшей обработки конвертация источника в список значений
        сзИсточник = СоздатьОбъект("СписокЗначений");
        Если ТипИсточника = "СписокЗначений" Тогда
                Для а = 1 По Источник.РазмерСписка() Цикл
                        ИмяСвойства = "";
                        ЗначениеСвойства = Источник.ПолучитьЗначение(а,ИмяСвойства);
                        ИмяСвойства = ?(ПустаяСтрока(ИмяСвойства)=1,"Значение"+а,ИмяСвойства);
                        сзИсточник.Установить(ИмяСвойства,ЗначениеСвойства);
                КонецЦикла;
        ИначеЕсли ТипИсточника = "ТаблицаЗначений" Тогда
                Если Источник.НомерСтроки = 0 Тогда
                        Сообщить("глЗаполнитьЗначения::Нет позиционирования на строку в источнике");
                        Возврат;
                КонецЕсли;
                Для а = 1 По Источник.КоличествоКолонок() Цикл
                        ИмяСвойства = Источник.ПолучитьПараметрыКолонки(а);
                        сзИсточник.Установить(ИмяСвойства,Источник.ПолучитьЗначение(Источник.НомерСтроки,ИмяСвойства));
                КонецЦикла;
        Иначе // Документ, Справочник или ГрупповойКонтекст, который тоже может быть справочником или документов
                ВидИсточника = Источник.Вид();
                Если Метаданные.Документ(ВидИсточника).Выбран() = 1 Тогда
                        Для а = 1 По Метаданные.Документ(ВидИсточника).РеквизитШапки() Цикл
                                ИмяСвойства = Метаданные.Документ(ВидИсточника).РеквизитШапки(а).Идентификатор;
                                сзИсточник.Установить(ИмяСвойства,Источник.ПолучитьАтрибут(ИмяСвойства));
                        КонецЦикла;
                        Для а = 1 По Метаданные.ОбщийРеквизитДокумента() Цикл
                                ИмяСвойства = Метаданные.ОбщийРеквизитДокумента(а).Идентификатор;
                                сзИсточник.Установить(ИмяСвойства,Источник.ПолучитьАтрибут(ИмяСвойства));
                        КонецЦикла;
                        Для а = 1 По Метаданные.Документ(ВидИсточника).РеквизитТабличнойЧасти() Цикл
                                ИмяСвойства = Метаданные.Документ(ВидИсточника).РеквизитТабличнойЧасти(а).Идентификатор;
                                сзИсточник.Установить(ИмяСвойства,Источник.ПолучитьАтрибут(ИмяСвойства));
                        КонецЦикла;
                ИначеЕсли Метаданные.Справочник(ВидИсточника).Выбран() = 1 Тогда
                        Для а = 1 По Метаданные.Справочник(ВидИсточника).Реквизит() Цикл
                                ИмяСвойства  = Метаданные.Справочник(ВидИсточника).Реквизит(а).Идентификатор;
                                сзИсточник.Установить(ИмяСвойства,Источник.ПолучитьАтрибут(ИмяСвойства));
                        КонецЦикла;
                Иначе
                        Сообщить("глЗаполнитьЗначения::Недопустимый вид источника");
                КонецЕсли;
        КонецЕсли;
        //}
        
        //{ Заполнение списка значений приемника полученными значениями, попутно фильтруя и конвертируя
        Если (ПустаяСтрока(ТолькоСвойства)=0) или (ПустаяСтрока(ИсключаяСвойства)=0) Тогда
                сзПриемник = СоздатьОбъект("СписокЗначений");
                Если ПустаяСтрока(ТолькоСвойства)=0 Тогда
                        Если Найти(ТолькоСвойства,"=")=0 Тогда
                                Для а = 1 По сзИсточник.РазмерСписка() Цикл
                                        ИмяСвойства = "";
                                        ЗначениеСвойства = сзИсточник.ПолучитьЗначение(а,ИмяСвойства);
                                        Если Найти(ТолькоСвойства,","+ИмяСвойства+",") > 0 Тогда
                                                Если Найти(ИсключаяСвойства,","+ИмяСвойства+",") = 0 Тогда
                                                        сзПриемник.Установить(ИмяСвойства,ЗначениеСвойства);
                                                КонецЕсли;
                                        КонецЕсли;
                                КонецЦикла;
                        Иначе // Имеется переопределение имен свойств, обработка более сложная
                                КоличествоЗначений = СтрЧислоВхождений(ТолькоСвойства,",")-1; // Строка обрамлена запятыми
                                Для а = 2 По КоличествоЗначений Цикл
                                        ИмяСвойства = глЭлементОчереди(ТолькоСвойства,",",а);
                                        Если Найти(ИмяСвойства,"=") = 0 Тогда
                                                Если Найти(ИсключаяСвойства,","+ИмяСвойства+",")=0 Тогда
                                                        сзПриемник.Установить(ИмяСвойства,сзИсточник.Получить(ИмяСвойства));
                                                КонецЕсли;
                                        Иначе
                                                Если Найти(ИсключаяСвойства,","+глЭлементОчереди(ИмяСвойства,"=",1)+",")=0 Тогда
                                                        сзПриемник.Установить(глЭлементОчереди(ИмяСвойства,"=",1),сзИсточник.Получить(глЭлементОчереди(ИмяСвойства,"=",2)));
                                                КонецЕсли;
                                        КонецЕсли;
                                КонецЦикла;
                        КонецЕсли;
                Иначе
                        Для а = 1 По сзИсточник.РазмерСписка() Цикл
                                ИмяСвойства = "";
                                ЗначениеСвойства = сзИсточник.ПолучитьЗначение(а,ИмяСвойства);
                                Если Найти(ИсключаяСвойства,","+ИмяСвойства+",") = 0 Тогда
                                        сзПриемник.Установить(ИмяСвойства,ЗначениеСвойства);
                                КонецЕсли;
                        КонецЦикла;
                КонецЕсли;
        Иначе // Нет никаких фильтров, приемник равен источнику
                сзПриемник = сзИсточник;
        КонецЕсли;
        //}
        
        //{ Конвертация списка значений в указанный тип
        Если ТипПриемника = "СписокЗначений" Тогда
                Для а = 1 По сзПриемник.РазмерСписка() Цикл
                        ИмяСвойства = "";
                        ЗначениеСвойства = сзПриемник.ПолучитьЗначение(а,ИмяСвойства);
                        Приемник.Установить(ИмяСвойства,ЗначениеСвойства);
                КонецЦикла;
        ИначеЕсли ТипПриемника = "ТаблицаЗначений" Тогда
                Если Приемник.НомерСтроки = 0 Тогда
                        Сообщить("глЗаполнитьЗначения::Нет позиционирования на строку в приемнике");
                        Возврат;
                КонецЕсли;
                Для а = 1 По сзПриемник.РазмерСписка() Цикл
                        ИмяСвойства = "";
                        ЗначениеСвойства = сзПриемник.ПолучитьЗначение(а,ИмяСвойства);
                        Если Приемник.ВидимостьКолонки(ИмяСвойства) > -1 Тогда
                                Приемник.УстановитьЗначение(Приемник.НомерСтроки,ИмяСвойства,ЗначениеСвойства);
                        КонецЕсли;
                КонецЦикла;
        Иначе
                Попытка
                        Для а = 1 По сзПриемник.РазмерСписка() Цикл
                                ИмяСвойства = "";
                                ЗначениеСвойства = сзПриемник.ПолучитьЗначение(а,ИмяСвойства);
                                Приемник.УстановитьАтрибут(ИмяСвойства,ЗначениеСвойства);
                        КонецЦикла;
                Исключение
                        Сообщить("глЗаполнитьЗначения::Ошибка при попытке установки значения в атрибут """+ИмяСвойства+"""::"+ОписаниеОшибки());
                        Возврат;
                КонецПопытки;
        КонецЕсли;
        //}
        
КонецПроцедуры // глЗаполнитьЗначения

//******************************************************************************
// метод сделан на скорую руку и предполагает, что в ИмяРеквизита могут подать максимум формулу,
// а не кашу из спец. символолов в разных кодировках. Кроме того, метод пока не умеет корректно
// отрабатывать строки состоящие только из цифр и пустые строки, потому, что в таком случае нужно
// придумывать альтернативное уникальное имя, что на данном этапе разработки невозможно
Функция глКорректноеИмяРеквизита(Знач ИмяРеквизита,Знач НедопустимыеСимволы=".[]()/*-+%") Экспорт
        Для а = 1 По СтрДлина(НедопустимыеСимволы) Цикл
                ИмяРеквизита = СтрЗаменить(ИмяРеквизита,Сред(НедопустимыеСимволы,а,1),"");
        КонецЦикла;
        Возврат ИмяРеквизита;
КонецФункции // глКорректноеИмяРеквизита

//******************************************************************************
// Функкция предназначена для добавления колонки в переданную таблицу значений и заполнения значением
// Значение можно передавать формулой, но к формуле довольно жёсткие требования:
//              1. Формула должна быть заключена в квадратные кавычки, т.к. для её вычисления используется функция Шаблон
//              2. В формуле можно использовать только примитивные типы или значения самой таблицы
//              3. К значениям таблицы обращаться только через имя "тз"
//              4. Результат функции всегда строка, поэтому для неявного преобразования к другому примитивному типу нужно указывать Тип
// Значение можно передавать как реквизит другого значения таблицы, требования:
//              1. Значение передается без квадратных кавычек
//              2. Значение указывается через точку и без имени таблицы (Например: ГП.Код)
//              3. Значение должно быть только одно, формула не сработает
Процедура глДобавитьКолонкуВТаблицу(тз,Знач ИмяКолонки,Тип="",Длина="",Точность="",ЗначениеКолонки="") Экспорт
        Перем зн;
        Если ТипЗначенияСтр(тз) <> "ТаблицаЗначений" Тогда
                Сообщить("глДобавитьКолонкуВТаблицу::не задана таблица значений::Параметры:ИмяКолонки="+ИмяКолонки+",Тип="""+Тип+""",Длина="+Число(Длина)+",Точность="+Число(Точность)+",Значение="+ЗначениеКолонки,"!!");
                Возврат;
        КонецЕсли;
        Если СтрЧислоВхождений(ИмяКолонки,",") > 0 Тогда
                Для а = 1 По СтрЧислоВхождений(ИмяКолонки,",")+1 Цикл
                        глДобавитьКолонкуВТаблицу(тз,глЭлементОчереди(ИмяКолонки,",",а),Тип,Длина,Точность,ЗначениеКолонки);
                КонецЦикла;
                Возврат;
        КонецЕсли;
        ИмяКолонки = глКорректноеИмяРеквизита(ИмяКолонки);
        Если тз.ВидимостьКолонки(ИмяКолонки) < 0 Тогда
                Попытка
                        тз.НоваяКолонка(ИмяКолонки,Тип,Длина,Точность);
                Исключение
                        Сообщить("глДобавитьКолонкуВТаблицу::Ошибка добавления колонки ("+ИмяКолонки+")::"+ОписаниеОшибки(),"!!");
                        Возврат;
                КонецПопытки;
        КонецЕсли;
        Если тз.КоличествоСтрок() > 0 Тогда
                Если ПустоеЗначение(ЗначениеКолонки) = 0 Тогда
                        Если ТипЗначенияСтр(ЗначениеКолонки)="Строка" Тогда
                                Если СтрЧислоВхождений(ЗначениеКолонки,"[") > 0 Тогда
                                        тз.ВыбратьСтроки();
                                        Пока тз.ПолучитьСтроку() = 1 Цикл
                                                глВТЗ(тз,,ИмяКолонки,Шаблон(ЗначениеКолонки));
                                        КонецЦикла;
                                ИначеЕсли СтрЧислоВхождений(ЗначениеКолонки,".") > 0 Тогда
                                        тз.ВыбратьСтроки();
                                        Пока тз.ПолучитьСтроку() = 1 Цикл
                                                зн = "";
                                                Шаблон("[глПрисвоить(зн,"+?(Лев(ЗначениеКолонки,3)="тз.","","тз.")+ЗначениеКолонки+")]");
                                                глВТЗ(тз,,ИмяКолонки,зн);
                                        КонецЦикла;
                                ИначеЕсли тз.ВидимостьКолонки(ЗначениеКолонки) <> -1 Тогда
                                        тз.ВыбратьСтроки();
                                        Пока тз.ПолучитьСтроку() = 1 Цикл
                                                зн = "";
                                                Шаблон("[глПрисвоить(зн,тз."+ЗначениеКолонки+")]");
                                                глВТЗ(тз,,ИмяКолонки,зн);
                                        КонецЦикла;
                                Иначе
                                        тз.Заполнить(ЗначениеКолонки,,,ИмяКолонки);
                                КонецЕсли;
                        Иначе
                                тз.Заполнить(ЗначениеКолонки,,,ИмяКолонки);
                        КонецЕсли;
                КонецЕсли;
        КонецЕсли;
КонецПроцедуры // глДобавитьКолонкуВТаблицу

//******************************************************************************
// Функция позволяет получить таблицу значений из документа, запроса или другой таблицы значений
// Параметры:
//              Источник - Документ, Запрос или ТаблицаЗначений
//              
//              СписокКолонок - Строка с именами колонок через запятую. Разрешается:
//                      - Использовать идентификатор реквизита табличной части документа или колонки таблицы значений
//                              Например: тз = глВзятьТаблицу(СсылкаНаДокумент,"ГП,Сумма")
//                      - Использовать идентификатор реквизита шапки документа
//                              Например: тз = глВзятьТаблицу(СсылкаНаДокумент,"Контрагент,ГП,Сумма")
//                      - Обращаться к свойствам других колонок через точку, имя колонки сгенерируется автоматически
//                              Например: тз = глВзятьТаблицу(СсылкаНаДокумент,"ГП,тз.ГП.Код") // имя второй колонки = "тзГПКод"
//                        обращение к таблице значений ("тз.") можно не указывать
//                              Например: тз = глВзятьТаблицу(СсылкаНаДокумент,"ГП,ГП.Код")    // имя второй колонки = "ГПКод"
//                      - Вызывать стандартные методы значений таблицы
//                              Например: тз = глВзятьТаблицу(СсылкаНаДокумент,"ГП,ГП.Вид()")  // имя второй колонки = "ГПВид"
//                      - Явно указывать имя колонки таблицы
//                              Например: тз = глВзятьТаблицу(СсылкаНаДокумент,"ГП,Вид=ГП.Вид()")
//                                                тз = глВзятьТаблицу(СсылкаНаДокумент,"ГП,Цена=ОтпускнаяЦена")
//                      Зарезервированные имена:
//                              - ДатаДок     - Дата переданного документа
//                              - НомерДок    - Номер переданного документа
//                              - Ссылка      - Ссылка на переданный документ
//                              - НомерСтроки - Номер строки табличной части переданного документа
//                      
//              Фильтр - Список значений, где:
//                                      Представление - имя колонки
//                                      Значение - Значение в этой колонке
//
Функция глВзятьТаблицу(Знач Источник,Знач СписокКолонок="",Знач Фильтр="") Экспорт
        Тип = ТипЗначенияСтр(Источник);
        Если ПустаяСтрока(СписокКолонок) = 0 Тогда
                СписокКолонок = СтрЗаменить(СписокКолонок," ","");
        КонецЕсли;
        Если Тип = "ТаблицаЗначений" Тогда
                Результат = СоздатьОбъект("ТаблицаЗначений");
                Результат.Загрузить(Источник);
                Если ПустаяСтрока(СписокКолонок) = 0 Тогда
                        ЧислоКолонок = СтрЧислоВхождений(СписокКолонок,",")+1;
                        Для а = 1 По ЧислоКолонок Цикл
                                ИмяКолонки = глЭлементОчереди(СписокКолонок,",",а);
                                Если Результат.ВидимостьКолонки(ИмяКолонки) < 0 Тогда
                                        Если Найти(ИмяКолонки,"=") = 0 Тогда
                                                Если (СтрЧислоВхождений(ИмяКолонки,".")=0) и (СтрЧислоВхождений(ИмяКолонки,"[")=0) Тогда
                                                        глДобавитьКолонкуВТаблицу(Результат,ИмяКолонки);
                                                Иначе
                                                        глДобавитьКолонкуВТаблицу(Результат,ИмяКолонки,,,,ИмяКолонки);
                                                КонецЕсли;
                                        Иначе // Например: ВидГП=ГП.Вид()
                                                глДобавитьКолонкуВТаблицу(Результат,глЭлементОчереди(ИмяКолонки,"=",1),,,,глЭлементОчереди(ИмяКолонки,"=",2));
                                                СписокКолонок=СтрЗаменить(СписокКолонок,ИмяКолонки,глЭлементОчереди(ИмяКолонки,"=",1));
                                        КонецЕсли;
                                КонецЕсли;
                        КонецЦикла;
                        // Удаление лишних колонок + упорядочивание
                        тзВрем = СоздатьОбъект("ТаблицаЗначений");
                        Результат.Выгрузить(тзВрем,,,глКорректноеИмяРеквизита(СписокКолонок));
                        Результат = тзВрем;
                КонецЕсли;
                Если ТипЗначенияСтр(Фильтр) = "СписокЗначений" Тогда
                        ОтсутствующиеКолонки = "";
                        Для а = 1 По Фильтр.РазмерСписка() Цикл
                                ИмяКолонки = "";
                                Значение = Фильтр.ПолучитьЗначение(а,ИмяКолонки);
                                Если Результат.ВидимостьКолонки(ИмяКолонки) < 0 Тогда
                                        ОтсутствующиеКолонки = ОтсутствующиеКолонки + ","+ИмяКолонки;
                                КонецЕсли;
                        КонецЦикла;
                        Если ПустаяСтрока(ОтсутствующиеКолонки) = 0 Тогда
                                Сообщить("глВзятьТаблицу::Ошибка применения фильтра::Отсутствуют колонки: "+Сред(ОтсутствующиеКолонки,2),"!!");
                                Результат = "";
                        Иначе
                                КоличествоСтрок = Результат.КоличествоСтрок();
                                Для а = 1 По КоличествоСтрок Цикл
                                        ТекСтрока = КоличествоСтрок - а + 1;
                                        Для аа = 1 По Фильтр.РазмерСписка() Цикл
                                                ИмяКолонки = "";
                                                Значение = Фильтр.ПолучитьЗначение(аа,ИмяКолонки);
                                                Если глИзТЗ(Результат,ТекСтрока,ИмяКолонки) <> Значение Тогда
                                                        Результат.УдалитьСтроку(ТекСтрока);
                                                        Прервать;
                                                КонецЕсли;
                                        КонецЦикла;
                                КонецЦикла;
                        КонецЕсли;
                КонецЕсли;
        ИначеЕсли Тип = "Запрос" Тогда
                Попытка
                        Результат = СоздатьОбъект("ТаблицаЗначений");
                        Источник.Выгрузить(Результат,1,0);
                        Результат = глВзятьТаблицу(Результат,СписокКолонок,Фильтр);
                Исключение
                        Сообщить("глВзятьТаблицу::Ошибка выгрузки результата запроса ("+СписокКолонок+")::"+ОписаниеОшибки(),"!!");
                        Результат = "";
                КонецПопытки;
        ИначеЕсли (Тип = "Документ") или (Тип = "ГрупповойКонтекст") Тогда
                Если Источник.Вид() = "СБ03_СчетФактура" Тогда
                        // у него нет своей табличной части, нужно использовать таблицу из основания - счета
                        ИсточникТаблицы = Источник.осн;
                Иначе
                        ИсточникТаблицы = Источник;
                КонецЕсли;
                МетаданныеДокумента = Метаданные.Документ(ИсточникТаблицы.Вид());
                Если МетаданныеДокумента.РеквизитТабличнойЧасти() = 0 Тогда
                        Сообщить("глВзятьТаблицу::Документ "+ИсточникТаблицы.ПредставлениеВида()+" не имеет табличной части","!!");
                        Результат = "";
                Иначе
                        Попытка
                                Результат = СоздатьОбъект("ТаблицаЗначений");
                                Если ПустаяСтрока(СписокКолонок) = 0 Тогда
                                        РеквизитыТаблицы = "";
                                        ЧислоКолонок = СтрЧислоВхождений(СписокКолонок,",")+1;
                                        Для а = 1 По ЧислоКолонок Цикл
                                                ИмяРеквизита = глЭлементОчереди(СписокКолонок,",",а);
                                                ИмяРеквизита = ?(Найти(ИмяРеквизита,"=")=0,ИмяРеквизита,глЭлементОчереди(ИмяРеквизита,"=",2));
                                                Если МетаданныеДокумента.РеквизитТабличнойЧасти(ИмяРеквизита).Выбран() = 1 Тогда
                                                        РеквизитыТаблицы = РеквизитыТаблицы + "," + ИмяРеквизита;
                                                ИначеЕсли ИмяРеквизита = "НомерСтроки" Тогда
                                                        РеквизитыТаблицы = РеквизитыТаблицы + "," + ИмяРеквизита;
                                                КонецЕсли;
                                        КонецЦикла;
                                        Если ПустаяСтрока(РеквизитыТаблицы) = 0 Тогда
                                                РеквизитыТаблицы = Сред(РеквизитыТаблицы,2);
                                                ИсточникТаблицы.ВыгрузитьТабличнуюЧасть(Результат,РеквизитыТаблицы);
                                        Иначе
                                                // Не сказали что грузить, грузим все колонки
                                                ИсточникТаблицы.ВыгрузитьТабличнуюЧасть(Результат);
                                        КонецЕсли;
                                        
                                        МетаданныеДокумента = Метаданные.Документ(Источник.Вид()); // Реквизиты Шапки всегда источника, а не источника таблицы
                                        Для а = 1 По ЧислоКолонок Цикл
                                                ИмяРеквизита = глЭлементОчереди(СписокКолонок,",",а);
                                                ИмяРеквизита = ?(Найти(ИмяРеквизита,"=")=0,ИмяРеквизита,глЭлементОчереди(ИмяРеквизита,"=",2));
                                                Если МетаданныеДокумента.РеквизитШапки(ИмяРеквизита).Выбран() = 1 Тогда
                                                        глДобавитьКолонкуВТаблицу(Результат,ИмяРеквизита,,,,Источник.ПолучитьАтрибут(ИмяРеквизита));
                                                ИначеЕсли Найти("номердок,датадок",НРег(ИмяРеквизита)) > 0 Тогда
                                                        глДобавитьКолонкуВТаблицу(Результат,ИмяРеквизита,,,,Источник.ПолучитьАтрибут(ИмяРеквизита));
                                                ИначеЕсли НРег(ИмяРеквизита) = "ссылка" Тогда
                                                        глДобавитьКолонкуВТаблицу(Результат,"Ссылка","Документ."+Источник.Вид(),,,Источник.ТекущийДокумент());
                                                КонецЕсли;
                                        КонецЦикла;
                                Иначе
                                        ИсточникТаблицы.ВыгрузитьТабличнуюЧасть(Результат);
                                КонецЕсли;
                                Результат = глВзятьТаблицу(Результат,СписокКолонок,Фильтр);
                        Исключение
                                Сообщить("глВзятьТаблицу::Ошибка получения таблицы из документа ("+СписокКолонок+")::"+ОписаниеОшибки());
                                Результат = "";
                        КонецПопытки;
                КонецЕсли;
        Иначе
                Результат = "";
        КонецЕсли;
        Если ТипЗначенияСтр(Результат) <> "ТаблицаЗначений" Тогда
                // Функция должна вернуть таблицу значений указанной структуры в любом случае
                // если информации нет, то нужно создать пустую таблицу
                Результат = СоздатьОбъект("ТаблицаЗначений");
                Если ПустаяСтрока(СписокКолонок) = 0 Тогда
                        ЧислоКолонок = СтрЧислоВхождений(СписокКолонок,",")+1;
                        Если ЧислоКолонок > 0 Тогда
                                Для а = 1 По ЧислоКолонок Цикл
                                        глДобавитьКолонкуВТаблицу(Результат,глЭлементОчереди(СписокКолонок,",",а));
                                КонецЦикла;
                        КонецЕсли;
                КонецЕсли;
        КонецЕсли;
        Возврат Результат;
КонецФункции // глВзятьТаблицу

//******************************************************************************
Функция глСписокКолонок(Знач Источник,Исключения="") Экспорт
        Источник = глВзятьТаблицу(Источник);
        Результат = "";
        Для а = 1 По Источник.КоличествоКолонок() Цикл
                ИмяКолонки = Источник.ПолучитьПараметрыКолонки(а);
                Если Найти(","+СокрЛП(Исключения)+",",","+ИмяКолонки+",") = 0 Тогда
                        Результат = Результат + "," + ИмяКолонки;
                КонецЕсли;
        КонецЦикла;
        Возврат Сред(Результат,2);
КонецФункции // глКолонкиТаблицы

//******************************************************************************
Функция глИндексированнаяТаблица(тз,КлючевыеПоля,ИмяПоля="Индекс") Экспорт
        Если ТипЗначенияСтр(тз) <> "ТаблицаЗначений" Тогда
                Сообщить("глИндексированнаяТаблица::Ошибка при передаче параметров::Переданное значение не является таблицой значений");
                Возврат тз;
        КонецЕсли;
        Если ПустаяСтрока(КлючевыеПоля) = 1 Тогда
                Сообщить("глИндексированнаяТаблица::Ошибка при передаче параметров::Список индексируемых полей пуст");
                Возврат тз;
        КонецЕсли;
        Формула = "";
        Для а = 1 по СтрЧислоВхождений(КлючевыеПоля,",")+1 Цикл
                Имя = глЭлементОчереди(КлючевыеПоля,",",а);
                Если тз.ВидимостьКолонки(Имя) < 0 Тогда
                        Сообщить("глИндексированнаяТаблица::Ошибка при передаче параметров::Отсутствует поле '"+Имя+"'");
                        Возврат тз;
                КонецЕсли;
                Формула=Формула+"""#""+глВнутреннийИдентификатор(тз."+Имя+")";
        КонецЦикла;
        Результат = глВзятьТаблицу(тз);
        глДобавитьКолонкуВТаблицу(Результат,ИмяПоля,"Строка",,,"["+Сред(Формула,3)+"]");
        Возврат Результат;
КонецФункции // глТаблицаСИндексом

//******************************************************************************
Функция глСоединитьТаблицы(Знач тз1,тз2) Экспорт
        Если ТипЗначенияСтр(тз1) <> "ТаблицаЗначений" Тогда
                тз1 = СоздатьОбъект("ТаблицаЗначений");
        КонецЕсли;
        Если ТипЗначенияСтр(тз2) <> "ТаблицаЗначений" Тогда
                Возврат тз1;
        ИначеЕсли тз2.КоличествоКолонок() = 0 Тогда
                Возврат тз1;
        Иначе
                // Колонки могут быть в другом порядке, тогда возникает неприятность
                // Поэтому вторая таблица приводится к виду первой
                тз2 = глВзятьТаблицу(тз2,глСписокКолонок(тз1));
        КонецЕсли;
        тз1.КоличествоСтрок(тз1.КоличествоСтрок()+тз2.КоличествоСтрок());
        тз1.Заполнить(тз2,тз1.КоличествоСтрок()-тз2.КоличествоСтрок()+1);
        Возврат тз1;
КонецФункции // глСоединитьТаблицы

//******************************************************************************
// Результат функции - таблица значений с аналогичной структурой, дополненной числовой колонкой 
// КоэффициентУникальности, содержащей -1 или 1 - значения из тз1 и тз2 соответственно
// 
// КлючевыеПоля - Список колонок, по которым необходимо сравнить таблицы, если не указаны, то все
Функция глРазличияТаблиц(Знач тз1,Знач тз2,Знач КлючевыеПоля="") Экспорт
        тз1 = глВзятьТаблицу(тз1,КлючевыеПоля);
        тз2 = глВзятьТаблицу(тз2,КлючевыеПоля);
        Если ПустоеЗначение(КлючевыеПоля) = 1 Тогда
                КлючевыеПоля = глСписокКолонок(тз1,"НомерСтрокиДокумента");
        КонецЕсли;
        глДобавитьКолонкуВТаблицу(тз1,"КоэффициентУникальности","Число",,,-1);
        глДобавитьКолонкуВТаблицу(тз2,"КоэффициентУникальности","Число",,, 1);
        тз = глСоединитьТаблицы(тз1,тз2);
        тз.Свернуть(КлючевыеПоля,"КоэффициентУникальности");
        КоличествоСтрок = тз.КоличествоСтрок();
        Для а = 1 По КоличествоСтрок Цикл
                ТекСтрока = КоличествоСтрок-а+1;
                Если глИзТЗ(тз,ТекСтрока,"КоэффициентУникальности") = 0 Тогда
                        тз.УдалитьСтроку(ТекСтрока);
                КонецЕсли;
        КонецЦикла;
        Возврат тз;
КонецФункции // глРазличияТаблиц

//******************************************************************************
// тз                 - Таблица значений
// СуммаРаспределения - Сумма, которую необходимо распределить
// КолонкаБазы        - Название колонки, пропорционально чему распределять
// Колонка            - Название колонки, куда поместить результат распределения
// ВариантУчетаПогрешности - Число:
//                                      0 - в строку с наибольшим удельным весом в базе распределения
//                                      1 - в первую строку
//                                      2 - в последнюю строку
Процедура глРаспределитьПропорционально(тз,КолонкаБазы,Колонка,СуммаРаспределения,ВариантУчетаПогрешности=0,Длина="",Точность="") Экспорт
        Если тз.ВидимостьКолонки(Колонка) < 0 Тогда
                тз.НоваяКолонка(Колонка,"Число",Длина,Точность);
        КонецЕсли;
        Если СуммаРаспределения = 0 Тогда Возврат; КонецЕсли;
        БазаРаспределения = тз.Итог(КолонкаБазы);
        Если БазаРаспределения  = 0 Тогда Возврат; КонецЕсли;
        МаксСтрока = 0;
        МаксКоэффициент = 0;
        тз.ВыбратьСтроки();
        Пока тз.ПолучитьСтроку() = 1 Цикл
                Коэффициент = глИзТЗ(тз,,КолонкаБазы)/БазаРаспределения;
                Если Коэффициент <> 0 Тогда
                        глВТЗ(тз,,Колонка,СуммаРаспределения*Коэффициент);
                        Если ВариантУчетаПогрешности = 0 Тогда
                                Если глМод(Коэффициент) > глМод(МаксКоэффициент) Тогда
                                        МаксКоэффициент = Коэффициент;
                                        МаксСтрока = тз.НомерСтроки;
                                КонецЕсли;
                        КонецЕсли;
                КонецЕсли;
        КонецЦикла;
        Если тз.Итог(Колонка) <> СуммаРаспределения Тогда
                Если ВариантУчетаПогрешности <> 0 Тогда
                        МаксСтрока = ?(ВариантУчетаПогрешности=1,1,тз.КоличествоСтрок());
                КонецЕсли;
                глВТЗ(тз,МаксСтрока,Колонка,СуммаРаспределения-тз.Итог(Колонка),1);
        КонецЕсли;
КонецПроцедуры // РаспределитьПропорционально

//******************************************************************************
// Создает список значений, используется для быстрого создания списка параметров, необходимого для передачи между формами
// Параметры:
//              - ИменаПараметров - Строка с именами параметров через запятую
//              - Значение1,...,Значение10 - Значения параметров
Функция глПараметры(Знач ИменаПараметров,Значение1="",Значение2="",Значение3="",Значение4="",Значение5="",Значение6="",Значение7="",Значение8="",Значение9="",Значение10="") Экспорт
        Результат = СоздатьОбъект("СписокЗначений");
        ИменаПараметров = СтрЗаменить(ИменаПараметров," ","");
        Для а = 1 По СтрЧислоВхождений(ИменаПараметров,",")+1 Цикл
                зн = "";
                Если а < 11 Тогда
                        Шаблон("[глПрисвоить(зн,Значение"+а+")]");
                КонецЕсли;
                Результат.Установить(глЭлементОчереди(ИменаПараметров,",",а),зн);
        КонецЦикла;
        Возврат Результат;
КонецФункции // глПараметры

//******************************************************************************
// глВыбратьЗначение(СписокЗначений, СпособВыбора=1, ЗначениеПоУмолчанию="",Заголовок="") Экспорт
// Описание: Возвращает результат выбора из переданного списка значений.
//                       В отличии от типового выбора не открывает выбор из одного значения, а сразу возвращает единственный вариант
// Параметры: СписокЗначений      - из какого списка производится выбор
//            СпособВыбора        - соответствует значениям типовому методу списка значений,
//                                  однако, значение по-умолчанию - 1 (в виде меню)
//            ЗначениеПоУмолчанию - без комментариев
//            Заголовок           - что спросить в заголовке при способе выбора = 0
Функция глВыбратьЗначение(СписокЗначений, СпособВыбора=1, ЗначениеПоУмолчанию="",Заголовок="") Экспорт
        Перем Результат, зн;
        Результат = ЗначениеПоУмолчанию;
        Если СписокЗначений.РазмерСписка() > 0 Тогда
                Если СписокЗначений.РазмерСписка() = 1 Тогда
                        Результат = СписокЗначений.ПолучитьЗначение(1);
                ИначеЕсли СписокЗначений.ВыбратьЗначение(зн,Заголовок,,80,СпособВыбора) = 1 Тогда
                        Результат = зн;
                КонецЕсли;
        КонецЕсли;
        Возврат Результат;
КонецФункции // глВыбратьЗначение()

//******************************************************************************
Функция глТекущееЗначение(СписокЗначений,Позиция=0) Экспорт
        ТекЗначение = СписокЗначений.ПолучитьЗначение(СписокЗначений.ТекущаяСтрока());
        Если Позиция > 0 Тогда
                СписокЗначений.ТекущаяСтрока(Позиция);
        КонецЕсли;
        Возврат ТекЗначение;
КонецФункции // глТекущееЗначение

//******************************************************************************
Функция глПомеченныеЗначения(СписокСПометками) Экспорт
        Перем Представление;
        сзРезультат = СоздатьОбъект("СписокЗначений");
        Для а = 1 По СписокСПометками.РазмерСписка() Цикл
                Если СписокСПометками.Пометка(а) = 1 Тогда
                        зн = СписокСПометками.ПолучитьЗначение(а,Представление);
                        сзРезультат.ДобавитьЗначение(зн,Представление);
                КонецЕсли;
        КонецЦикла;
        Возврат сзРезультат;
КонецФункции // глПомеченныеЗначения

      public static class ImageExtentions
        {
                public static byte[] ToByteArray(this Image image, ImageFormat imageFormat)
                {
                        using (MemoryStream ms = new MemoryStream())
                        {
                                image.Save(ms, imageFormat);
                                return ms.ToArray();
                        }
                }
        }

// Loop all .fetchSize links
$('a.fetchSize').each(function(){
 
  // Issue an AJAX HEAD request for each one
    var link = this;
 
    $.ajax({
        type: 'HEAD',
        url: link.href,
        complete: function(xhr){
            var size = humanize(xhr.getResponseHeader('Content-Length'));
 
            // Append the filesize to each
            $(link).append(' (' + type + ')');
        }
    });
});
 
function humanize(size){
    var units = ['bytes','KB','MB','GB','TB','PB'];
 
    var ord = Math.floor( Math.log(size) / Math.log(1024) );
    ord = Math.min( Math.max(0,ord), units.length-1);
 
    var s = Math.round((size / Math.pow(1024,ord))*100)/100;
    return s + ' ' + units[ord];
}
 
// html
// First Trickshot
// This Trickshot
// Ball.png

$file_text = 'Some text here';

if (isset($_SERVER['HTTP_USER_AGENT']) and strpos($_SERVER['HTTP_USER_AGENT'], 'MSIE'))
    Header('Content-Type: application/force-download');
else
    Header('Content-Type: application/octet-stream');

Header('Accept-Ranges: bytes');
Header('Content-Length: ' . strlen($file_text));
Header('Content-disposition: attachment; filename="downloaded_file.txt"');

echo $file_text;
exit();

              String REGEX = "\"([^\"]*)\"";

                String sentence = "World \"Hello\" World!";
                
                Pattern pattern = Pattern.compile(REGEX);
            Matcher matcher = pattern.matcher(sentence);
                
            if(matcher.find()){
                String result = matcher.group(1);
                System.out.println(result);
            } else {
                        System.out.println("Nothing");
            }

public static class MonthExtensions
{
    ///
    /// Gets the first day of the month.
    /// 
    ///The given date.
    /// the first day of the month
    public static DateTime GetFirstDayOfMonth(DateTime givenDate)
    {
        return new DateTime(givenDate.Year, givenDate.Month, 1);
    }

    ///
    /// Gets the last day of month.
    /// 
    ///The given date.
    /// the last day of the month
    public static DateTime GetTheLastDayOfMonth(DateTime givenDate)
    {
        return GetFirstDayOfMonth(givenDate).AddMonths(1).Subtract(new TimeSpan(1, 0, 0, 0, 0));
    }
}

import java.io.File;
import java.io.FileInputStream;
import java.io.FileOutputStream;
import java.io.ObjectInputStream;
import java.io.ObjectOutputStream;
import java.util.ArrayList;
import java.util.List;

import android.content.Context;

import com.AllErrorsJSON;
import com.ErrorJSON;

public class CacheControllerImpl implements CacheController{

        private Context context;
        private final String CACHED_ERRORS_FILE_NAME = "cachedErrors.dat";
        
        public CacheControllerImpl(Context context) {
                this.context = context;
        }

        @Override
        public boolean putErrorsToCache(AllErrorsJSON allErrorsJSON) {
                
                File cacheDir = context.getCacheDir();
                File cachedDataFile = new File(cacheDir.getPath() + "/" + CACHED_ERRORS_FILE_NAME) ;
                FileOutputStream   fos  = null;
        ObjectOutputStream oos  = null;
        boolean            keep = true;

        try {
            fos = new FileOutputStream(cachedDataFile);
            fos.write((new String()).getBytes());
            oos = new ObjectOutputStream(fos);
            oos.writeObject(allErrorsJSON);
        } catch (Exception e) {
            keep = false;
        } finally {
            try {
                if (oos != null)   oos.close();
                if (fos != null)   fos.close();
                if (keep == false) cachedDataFile.delete();
        } catch (Exception e) 
        { /* do nothing */ }
        }

        return keep;

        }

        @Override
        public AllErrorsJSON getErrorsFromCache() {
                AllErrorsJSON allErrorsJSON= null;
        FileInputStream fis = null;
        ObjectInputStream ois = null;

        File cacheDir = context.getCacheDir();
                File cachedDataFile = new File(cacheDir.getPath() + "/" + CACHED_ERRORS_FILE_NAME) ;
        try {
            fis = new FileInputStream(cachedDataFile);
            ois = new ObjectInputStream(fis);
            allErrorsJSON = (AllErrorsJSON) ois.readObject();
        } catch(Exception e) {
            
        } finally {
            try {
                if (fis != null)   fis.close();
                if (ois != null)   ois.close();
            } catch (Exception e) { }
        }

        return allErrorsJSON;  
        }

Процедура ОтправитьФайл()
        Если флПоказыватьЛог=1 Тогда
                ПутьЛогФайла = "stdout";
        Иначе
                ПутьЛогФайла = ""+КаталогОбмена+"ftplog_put.txt";
        КонецЕсли;

        КомандаСистемы("ncftpput -S .tmp -d "+ПутьЛогФайла+" -o useFEAT=0,useCLNT=0,useMLST=0,usePASV=1 -u "+USER+" -p "+PASS+" "+FTP+" / "+ПутьКФайлуДляОтправки);

КонецПроцедуры;




Процедура ПолучитьФайл()
                Если флПоказыватьЛог=1 Тогда
                        ПутьЛогФайла = "stdout";
                Иначе
                        ПутьЛогФайла = ""+КаталогПриемник+"ftplog_get.txt";
                КонецЕсли;

                КомандаСистемы("ncftpget.exe -d "+ПутьЛогФайла+" -o useFEAT=0,useCLNT=0,useMLST=0,usePASV=1 -u "+USER+" -p "+PASS+" "+FTP+" "+КаталогПриемник+" /"+ИмяФайла);

КонецПроцедуры

Процедура ПриОткрытии()
        Попытка
                WSHShell = СоздатьОбъект("WScript.Shell");
                WSHShell.SendKeys("%");
                WSHShell.SendKeys("{LEFT}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{ENTER}");
        Исключение
      
    КонецПопытки;
КонецПроцедуры

private static void DeSerialize()
        {
            try
            {
                var testObject = new TestClass();
                var serializer = new XmlSerializer(testObject.GetType());
                var reader = new StreamReader(Filename);
                var deserialized = serializer.Deserialize(reader.BaseStream);
                testObject = (TestClass)deserialized;
                reader.Dispose();
            }
            catch (Exception ex)
            {
                throw new Exception(ex.Message);
            }
           
        }

Процедура ПолучитьСписокПринтеров()
     wshNetwork=createObject("WScript.Network");
     oPrinters=wshNetwork.EnumPrinterConnections();
     i=0;
     Пока i<oPrinters.count()-1 Цикл
          Сообщить("Порт "+oPrinters.item(i)+" = "+oPrinters.item(i+1));
          i=i+2;
     КонецЦикла;
КонецПроцедуры

public static class StringExtentions
{
        public static String Format(this String str, params Object[] args)
        {
                return String.Format(str, args);
        }

        public static String Format(this String str, IFormatProvider provider, params Object[] args)
        {
                return String.Format(provider, str, args);
        }
}

for(int a=0;a<120;a++)
{
        keybd_event(13,0,0,0);//down
        keybd_event(13,0,KEYEVENTF_KEYUP,0);//up
        Sleep(1000);
}

---------------------------DLL
extern "C" __declspec(dllexport) int *PushBack(int *x, int &N, int pb)
{
        N++;
        pb=1;
        int *tmp=new int[N];
        for(int i=0; i<N-1; i++)
        {
                tmp[i]=x[i];
        }
        tmp[N-1]=pb;
        delete []x;
    return tmp;
}

---------------------------EXE
#include
#include 
#include 
using namespace std;
typedef int*(*functionDll)( int *, int&, int );
int main()
{
        HMODULE hLib = LoadLibrary("DLL_Test.dll");
        if(hLib)
        {
        functionDll fpFunction = (functionDll)GetProcAddress(hLib,"PushBack");
                if(fpFunction)
                {
            cout << "Function load." << endl;
        
                        srand ( time(NULL) );
                        int N =rand() % 10 + 1;   //радномим длинны массивов
                        int *y;
                        int *x=new int [N];   //выделяем память для матрицы х

                        for(int i=0; i<N; i++)
                        {
                                x[i]=rand() % 100 + 1;
                        }

                        cout<<"mass X"<<endl;
                        for(int i=0; i<N; i++)
                        {
                                cout<<x[i]<<" ";
                        }

                        y=fpFunction(x,N,10);

                        cout<<endl<<"mass X"<<endl;
                        for(int i=0; i<N; i++)
                        {
                                cout<<y[i]<<" ";
                        }
                }
                else
                {
                        cout<<"don't load";
                }
        }
        else
        {
                cout<<"don't load";
        }
        getchar();
        getchar();
}

                      try
            {
                using (var context = new myEntities())
                {
                    var document = context.ORDERS.Single(parameter => parameter.ID_ORDER == idOrder);
                    document.ORDER_STATUS = status;
                    context.SaveChanges();
                }
            }
            catch (Exception ex)
            {

                Logger.TraceError(ex.Message);
            }

#include "Socket.h"
#include 
#include  // required for SHGetSpecialFolderPath()
#include 
#include 
#include