а вот и Киря подъехал

Как ты собирался фотаться на мобилу без камеры?

сфоткайся токо как в прошлый раз с сердечком

из 27 голосов никто не угадал правильный ответ

70-75 (0 голосов [0.00%])

ну вы и лашары) идите делать мне сасай

сасай обещал сасай наебал

от твоих фоток зависит въебу ли я курсец или нет

сегодня приседал 200 на 10 как пустую

у тебя в бошке ничего нету просто, тебе легче приседать

дурашка с то ли?)) я программист и книжки читаю))

пожал 160х6 без экипы сегодня)

пожал 160х6 без экипы сегодня)

дурашка с то ли?)) я программист и книжки читаю))

1с))))программист)))0

)))00

))))))))))))))

))))))))))))))))))))))

дурашка с то ли?)) я программист и книжки читаю))

1с))))программист)))0

)))00

))))))))))))))

))))))))))))))))))))))

В конторе знакомого 1с програсист на х6 ездит.

ну и пускай ездит

Функция ОстатокТовара (Товар, ДатаПо, Магазин, ТекДок) Экспорт
Запрос = СоздатьОбъект ("Запрос");
ТекстЗапроса =
"//{{ЗАПРОС
|Период с {Константа. ДатаУчетаОстатков} по {ДатаПо};
|ОбрабатыватьДокументы Все;
|Наименование = Документ. ПриходТовара. Наименование;
|Склад = Документ. ПриходТовара. Магазин;
|Кол = Документ. ПриходТовара. Кол;
|Группировка документ;
|Функция Остаток = Сумма (Кол) ;
|Условие (Склад=Магазин) ;
|Условие (Наименование=Товар) ;
|";//}}ЗАПРОС
док = СоздатьОбъект ("Документ. КассовыйЧек");
док. ВыбратьДокументы (ДатаПо, ДатаПо) ;
Расход = 0;
Пока док. ПолучитьДокумент ()=1 Цикл
Если (док. Магазин=Магазин) и (док. ТекущийДокумент ()<>ТекДок) Тогда
док. ВыбратьСтроки ();
Пока док. ПолучитьСтроку ()=1 Цикл
Если СокрЛП (док. БарКод) =СокрЛП (Товар. Код) Тогда
Расход = Расход + док. Кол;
КонецЕсли;
КонецЦикла;
КонецЕсли;
КонецЦикла;
Если Запрос. Выполнить (ТекстЗапроса) =0 Тогда
Сообщить ("Произошла ошибка при выборке остатков, повторите ввод кол-ва! ", "!");
Возврат 0;
КонецЕсли;
Приход = 0;
Пока Запрос. Группировка (1)=1 Цикл
Приход = Приход + Запрос. Остаток;
КонецЦикла;
Возврат Приход - Расход;
КонецФункции

:pray:

дурашка, опять завонился)) это код 1с7 15летней давности.

Все таки я охуенный очень))) один факт моего существования и изучения 1с разрывает пуканы всяких быдлокодеров типа елмандера или лингами)) даже тралить не надо

Конструктор = Новый("КонструкторЗапроса");
   ГраницыЗапросаНайдены = ПозицияОткрывающейКавычки <> 0 И ПозицияЗакрывающейКавычки <> 0;
   Если НЕ ГраницыЗапросаНайдены Тогда
    Сообщение = "ЗАПРОС НЕ ОБНАРУЖЕН, БУДЕТ СОЗДАН НОВЫЙ ЗАПРОС";
    ПоказатьОповещениеПользователя(Сообщение, , Сообщение);
    ТекстДоНачалаЗапроса = ТекстДоКурсора + Кавычка;
    ТекстПослеКонцаЗапроса = Кавычка + ТекстПослеКурсора ;
   Иначе
    ТекстДоНачалаЗапроса = Лев(ТекстДоКурсора, ПозицияОткрывающейКавычки);
    ТекстПослеКонцаЗапроса = Сред(ТекстПослеКурсора, ПозицияЗакрывающейКавычки);
    ТекстЗапросаССимвовамиВертикальнойЧерты = Сред(ТекстДоКурсора, ПозицияОткрывающейКавычки + 1)
		    + Лев(ТекстПослеКурсора, ПозицияЗакрывающейКавычки -1);
    //для конструктора запроса вместо двойной кавычки будем подставлять одинарную
    ТекстЗапросаССимвовамиВертикальнойЧерты =
		    СтрЗаменить(ТекстЗапросаССимвовамиВертикальнойЧерты, ЗаменаДляДвойнойКавычки, Кавычка);
    КоличествоСтрокВТексте = СтрЧислоСтрок(ТекстЗапросаССимвовамиВертикальнойЧерты);
    ТекстЗапроса = "";
    Для К = 1 To КоличествоСтрокВТексте Цикл
	    СтрокаИзТекстаЗапроса = СокрЛП(СтрПолучитьСтроку(ТекстЗапросаССимвовамиВертикальнойЧерты, К));
	    Если Лев(СтрокаИзТекстаЗапроса, 1) = "|" Тогда
		    //для конструктора запроса убираем вертикальную черту в начале строки
		    СтрокаИзТекстаЗапроса = Сред(СтрокаИзТекстаЗапроса, 2);
	    КонецЕсли;
	    ТекстЗапроса = ТекстЗапроса + СтрокаИзТекстаЗапроса + Символы.LF;
    КонецЦикла;
    Конструктор.Текст = ТекстЗапроса;
   КонецЕсли;
   //возвращаем двойные кавычки
   ТекстДоНачалаЗапроса = СтрЗаменить(ТекстДоНачалаЗапроса, ЗаменаДляДвойнойКавычки, ДвойнаяКавычка);
   ТекстПослеКонцаЗапроса = СтрЗаменить(ТекстПослеКонцаЗапроса, ЗаменаДляДвойнойКавычки, ДвойнаяКавычка);

Конструктор = Новый("КонструкторЗапроса");
ГраницыЗапросаНайдены = ПозицияОткрывающейКавычки <> 0 И ПозицияЗакрывающейКавычки <> 0;
Если НЕ ГраницыЗапросаНайдены Тогда
	Сообщение = "ЗАПРОС НЕ ОБНАРУЖЕН, БУДЕТ СОЗДАН НОВЫЙ ЗАПРОС";
	ПоказатьОповещениеПользователя(Сообщение, , Сообщение);
	ТекстДоНачалаЗапроса = ТекстДоКурсора + Кавычка;
	ТекстПослеКонцаЗапроса = Кавычка + ТекстПослеКурсора ;
Иначе
	ТекстДоНачалаЗапроса = Лев(ТекстДоКурсора, ПозицияОткрывающейКавычки);
	ТекстПослеКонцаЗапроса = Сред(ТекстПослеКурсора, ПозицияЗакрывающейКавычки);
	ТекстЗапросаССимвовамиВертикальнойЧерты = Сред(ТекстДоКурсора, ПозицияОткрывающейКавычки + 1)
			+ Лев(ТекстПослеКурсора, ПозицияЗакрывающейКавычки -1);
	//для конструктора запроса вместо двойной кавычки будем подставлять одинарную
	ТекстЗапросаССимвовамиВертикальнойЧерты =
			СтрЗаменить(ТекстЗапросаССимвовамиВертикальнойЧерты, ЗаменаДляДвойнойКавычки, Кавычка);
	КоличествоСтрокВТексте = СтрЧислоСтрок(ТекстЗапросаССимвовамиВертикальнойЧерты);
	ТекстЗапроса = "";
	Для К = 1 To КоличествоСтрокВТексте Цикл
		СтрокаИзТекстаЗапроса = СокрЛП(СтрПолучитьСтроку(ТекстЗапросаССимвовамиВертикальнойЧерты, К));
		Если Лев(СтрокаИзТекстаЗапроса, 1) = "|" Тогда
			//для конструктора запроса убираем вертикальную черту в начале строки
			СтрокаИзТекстаЗапроса = Сред(СтрокаИзТекстаЗапроса, 2);
		КонецЕсли;
		ТекстЗапроса = ТекстЗапроса + СтрокаИзТекстаЗапроса + Символы.LF;
	КонецЦикла;
	Конструктор.Текст = ТекстЗапроса;
КонецЕсли;
//возвращаем двойные кавычки
ТекстДоНачалаЗапроса = СтрЗаменить(ТекстДоНачалаЗапроса, ЗаменаДляДвойнойКавычки, ДвойнаяКавычка);
ТекстПослеКонцаЗапроса = СтрЗаменить(ТекстПослеКонцаЗапроса, ЗаменаДляДвойнойКавычки, ДвойнаяКавычка);

Конструктор = Новый("КонструкторЗапроса");
ГраницыЗапросаНайдены = ПозицияОткрывающейКавычки <> 0 И ПозицияЗакрывающейКавычки <> 0;
Если НЕ ГраницыЗапросаНайдены Тогда
	Сообщение = "ЗАПРОС НЕ ОБНАРУЖЕН, БУДЕТ СОЗДАН НОВЫЙ ЗАПРОС";
	ПоказатьОповещениеПользователя(Сообщение, , Сообщение);
	ТекстДоНачалаЗапроса = ТекстДоКурсора + Кавычка;
	ТекстПослеКонцаЗапроса = Кавычка + ТекстПослеКурсора ;
Иначе
	ТекстДоНачалаЗапроса = Лев(ТекстДоКурсора, ПозицияОткрывающейКавычки);
	ТекстПослеКонцаЗапроса = Сред(ТекстПослеКурсора, ПозицияЗакрывающейКавычки);
	ТекстЗапросаССимвовамиВертикальнойЧерты = Сред(ТекстДоКурсора, ПозицияОткрывающейКавычки + 1)
			+ Лев(ТекстПослеКурсора, ПозицияЗакрывающейКавычки -1);
	//для конструктора запроса вместо двойной кавычки будем подставлять одинарную
	ТекстЗапросаССимвовамиВертикальнойЧерты =
			СтрЗаменить(ТекстЗапросаССимвовамиВертикальнойЧерты, ЗаменаДляДвойнойКавычки, Кавычка);
	КоличествоСтрокВТексте = СтрЧислоСтрок(ТекстЗапросаССимвовамиВертикальнойЧерты);
	ТекстЗапроса = "";
	Для К = 1 To КоличествоСтрокВТексте Цикл
		СтрокаИзТекстаЗапроса = СокрЛП(СтрПолучитьСтроку(ТекстЗапросаССимвовамиВертикальнойЧерты, К));
		Если Лев(СтрокаИзТекстаЗапроса, 1) = "|" Тогда
			//для конструктора запроса убираем вертикальную черту в начале строки
			СтрокаИзТекстаЗапроса = Сред(СтрокаИзТекстаЗапроса, 2);
		КонецЕсли;
		ТекстЗапроса = ТекстЗапроса + СтрокаИзТекстаЗапроса + Символы.LF;
	КонецЦикла;
	Конструктор.Текст = ТекстЗапроса;
КонецЕсли;
//возвращаем двойные кавычки
ТекстДоНачалаЗапроса = СтрЗаменить(ТекстДоНачалаЗапроса, ЗаменаДляДвойнойКавычки, ДвойнаяКавычка);
ТекстПослеКонцаЗапроса = СтрЗаменить(ТекстПослеКонцаЗапроса, ЗаменаДляДвойнойКавычки, ДвойнаяКавычка);

 

клоун, а что тебя раздражает в коде 1с? то что он на кириллице, а прикинь большинство языков программирования на латинице и для какого то американца, например, то что ты видишь в коде 1с все читается так же как для тебя код 1с, все же относительно, да и потом весь код 1с написанный на кириллице имеет аналоги на латинице, можно весь этот код при желании переписать на латиницу и он будет работать в 1с, в общем забавно смотреть как недоучка пытается лезть туда о чем ничего не знает

вот ржака)) норм бомбануло у лалки

ахахахахахх блять с подливой