Код

Текст = "create FUNCTION  sp_tohex(@val int, @len1 int) RETURNS varchar(9)
|AS
|begin
|declare @v int;
|declare @tval varchar(9);
|set @v = @val;
|set @tval = '';
|
|while (@v > 0)
|begin
|   set @tval = SUBSTRING('0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ',1+@v%36,1)+@tval;
|   set @v = @v/36;
|end;
|
|if @tval='' set @tval='0';
|
|while (len(@tval) < @len1)
|begin
|set @tval = ' '+@tval;
|end;
|RETURN(@tval);
|end
|";
RecordSet.Открыть(Текст);
 

Код

Текст = "
|SELECT
|     dbo.sp_tohex(Жур.IDDocDef, 4) + Жур.IDDoc [Док $Документ]
|FROM
|    _1SJourn Жур
|";
 

Код

Текст = "
|SELECT
|     dbo.sp_tohex(Рег.IDDocDef, 4) + Рег.IDDoc [Док $Документ]
|FROM
|    $Регистр.Партии Рег
|";
 

Код

Текст = "
|SELECT
|     dbo.sp_tohex(Жур.IDDocDef, 4) + Рег.IDDoc [Док $Документ]
|FROM
|    $Регистр.Партии Рег
|LEFT JOIN _1SJourn Жур ON Жур.IDDoc = Рег.IDDoc
|";
 

Код

SELECT
$ВидДокумента36.ПКО + ДокП.IDDoc [Док $Документ]
FROM $Документ.ПКО ДокП

UNION ALL

SELECT
$ВидДокумента36.РКО + ДокР.IDDoc [Док $Документ]
FROM $Документ.РКО ДокР
 

Код

Мета=СоздатьОбъект("MetaDataWork");
Элемент = ПолучитьПустоеЗначение("Справочник.Фирмы");
СтрЭлемент=Мета.ЗначениеВСтрокуБД(Элемент); //Именно так в действительности выглядит пустое значение в базе данных

Запрос.УстановитьТекстовыйПараметр("ПустаяФирма",СтрЭлемент);
 

Код

ник.Фирмы"));
 

Код

SELECT
Рег.КоличествоОстаток
FROM $РегистрОстатки.Партии(:ВыбДата~, , Фирма = $ПустойИД AND МПЗ = $ПустойИД13,,)
 

Код

База=СоздатьОбъект("ODBCDatabase");

Запрос=СоздатьОбъект("ODBCRecordset");
Запрос.УстановитьТекстовыйПараметр("НачДата",НачДата);
Запрос.УстановитьТекстовыйПараметр("КонДата",КонДата);

ТЗ=Запрос.ВыполнитьИнструкцию("
|select
| iddoc [Документ $Документ],
| iddocdef Документ_вид
|from _1sjourn j (nolock)
|where j.date_time_iddoc between :НачДата and :КонДата~
| and closed = 1
|order by j.date_time_iddoc
|");

ДоковВСеансе=5;
Сч=ДоковВСеансе;
ДокОбъект=СоздатьОбъект("Документ");

ТЗ.ВыбратьСтроки();
Пока ТЗ.ПолучитьСтроку()=1 Цикл

ДокОбъект.НайтиДокумент(ТЗ.Документ);
Сообщить(ТЗ.Документ);
ДокОбъект.Провести();

Сч=Сч-1;

Если Сч=0 Тогда
 Сообщить("============================ Реконнект ================================");
 База.ReconnectNative();
 Сч=ДоковВСеансе;
КонецЕсли;

КонецЦикла;
 

Код

|Товар = Регистр.ОстаткиТоваров.Товар;
|Склад = Регистр.ОстаткиТоваров.Склад;
|ОстатокТовара = Регистр.ОстаткиТоваров.ОстатокТовара;
|Функция ОстатокТовараКонОст = КонОст(ОстатокТовара);
|Группировка Товар;
|Условие(Товар в ВыбТовар);
|Условие(Склад в ВыбСклад);
 

Код

ТекстЗапроса = "
  |Select
  |    Товар [Товар $Справочник.Товары],
  |    Склад [Склад $Справочник.Склады],
  |    ОстатокТовараОстаток ОстатокТовара
  |FROM
  |    $РегистрОстатки.ОстаткиТовара(
  |	,
  |	,
  |	Товар in (Select val from #ВыбТовар)
  |				   And
  |	Склад in (Select val from #ВыбСклад),
  |	(Товар, Склад),
  |	ОстатокТовара
  |	) остатки
  |";
  Запрос = СоздатьОбъект("ODBCRecordSet");
  Запрос.УложитьСписокОбъектов(ВыбСклад,"#ВыбСклад","Склады");
  Запрос.УложитьСписокОбъектов(ВыбТовар,"#ВыбТовар","Товары");
  ТЗ = Запрос.ВыполнитьИнструкцию(ТекстЗапроса);
  ТЗ.ВыбратьСтроку();
 

Код

|Collating Sequence=RUSSIAN; 

Код

|Collating Sequence=MACHINE;  

Код

СтрокаСодинния = "
	|Provider=VFPOLEDB.1;
	|Deleted=-1;
	|Null = Yes;
	|Exclusive = No;
	|SourceType = DBF;
	|Data Source=" + КаталогИБ() + ";
	|Mode=ReadWrite;
	|Extended Properties="""";
	|User ID="""";
	|Password="""";
	|Mask Password=False;
	|Collating Sequence=MACHINE;
	|DSN="""""; 

Код

SELECT Реализация.IDDOC [Ссылка $Документ.Реализация]
	,  (Подзапрос.Кол) Кол
FROM _1SJOURN AS Журнал With (NOLOCK)
	INNER JOIN $Документ.Реализация AS Реализация With (NOLOCK) ON Журнал.IDDOC = Реализация.IDDOC
	CROSS JOIN (SELECT
			  (Подзапрос.Кол) Кол
		FROM _1SCRDOC AS Отбор With (NOLOCK)
			CROSS JOIN (SELECT
					  (CASE WHEN Журнал.IDDOCDEF = $ВидДокумента.РасходСоСклада THEN Подзапрос.СуммаКоличество ELSE Подзапрос1.СуммаКоличество END) Кол
					,Журнал.IDDOC Документ
					FROM _1SJOURN AS Журнал With (NOLOCK)
					LEFT OUTER JOIN (SELECT РасходСоСкладаСтроки.IDDOC Ссылка
							, Sum($РасходСоСкладаСтроки.Количество) СуммаКоличество
						FROM $ДокументСтроки.РасходСоСклада AS РасходСоСкладаСтроки With (NOLOCK)
						GROUP BY РасходСоСкладаСтроки.IDDOC) AS Подзапрос ON Журнал.IDDOC = Подзапрос.Ссылка
					LEFT OUTER JOIN (SELECT СторноРасходаСоСкладаСтроки.IDDOC Ссылка
							, Sum($СторноРасходаСоСкладаСтроки.Количество) СуммаКоличество
						FROM $ДокументСтроки.СторноРасходаСоСклада AS СторноРасходаСоСкладаСтроки With (NOLOCK)
						GROUP BY СторноРасходаСоСкладаСтроки.IDDOC) AS Подзапрос1 ON Журнал.IDDOC = Подзапрос1.Ссылка
				WHERE (Журнал.IDDOCDEF = $ВидДокумента.РасходСоСклада)
					OR (Журнал.IDDOCDEF = $ВидДокумента.СторноРасходаСоСклада)))  AS Подзапрос ON Отбор.CHILDID = Подзапрос.Документ
		WHERE (Отбор.PARENTVAL = Реализация.IDDOC) AS Подзапрос
WHERE (Журнал.IDDOC = :ТекДок)