Пример кода 1с
Автор Ruru задал вопрос в разделе Другие языки и технологии
Покажите пример программы 1С, в виде программного кода. интересно посмотреть.. и получил лучший ответ
Ответ от Ѐафаэль Даутов[новичек]
Функция ОстатокТовара (Товар, ДатаПо, Магазин, ТекДок) ЭкспортЗапрос = СоздатьОбъект ("Запрос");ТекстЗапроса = "//{{ЗАПРОС|Период с {Константа. ДатаУчетаОстатков} по {ДатаПо}; |ОбрабатыватьДокументы Все; |Наименование = Документ. ПриходТовара. Наименование;|Склад = Документ. ПриходТовара. Магазин; |Кол = Документ. ПриходТовара. Кол;|Группировка документ;|Функция Остаток = Сумма (Кол) ;|Условие (Склад=Магазин) ;|Условие (Наименование=Товар) ;|";//}}ЗАПРОС док = СоздатьОбъект ("Документ. КассовыйЧек");док. ВыбратьДокументы (ДатаПо, ДатаПо) ;Расход = 0;Пока док. ПолучитьДокумент ()=1 ЦиклЕсли (док. Магазин=Магазин) и (док. ТекущийДокумент ()<>ТекДок) Тогдадок. ВыбратьСтроки ();Пока док. ПолучитьСтроку ()=1 ЦиклЕсли СокрЛП (док. БарКод) =СокрЛП (Товар. Код) ТогдаРасход = Расход + док. Кол;КонецЕсли;КонецЦикла;КонецЕсли;КонецЦикла;Если Запрос. Выполнить (ТекстЗапроса) =0 ТогдаСообщить ("Произошла ошибка при выборке остатков, повторите ввод кол-ва! ", "!");Возврат 0;КонецЕсли;Приход = 0;Пока Запрос. Группировка (1)=1 ЦиклПриход = Приход + Запрос. Остаток;КонецЦикла; Возврат Приход - Расход;КонецФункции
Процедура ЗагрузкаИзТХТФайла ()
Спр=СоздатьОбъект ("Справочник. Номенклатура");
ИМФ="D:номенклатура. txt";
Док=СоздатьОбъект ("Текст");
Док. Открыть (ИМФ) ;
Если Док. КоличествоСтрок ()=0 Тогда
Предупреждение ("Загружаемый справочник пустой! ");
Возврат;
КонецЕсли;
Для я=1 по Док. КоличествоСтрок () Цикл
Стр=Док. ПолучитьСтроку (я) ;
Эл=Лев (стр, 1);
Если Эл="0" Тогда
Спр. ИспользоватьРодителя (0);
Спр. НоваяГруппа ();
Спр. Наименование=Сред (стр, 3);
Спр. Записать ();
ЭтаГр=Спр. ТекущийЭлемент ();
Спр. ИспользоватьРодителя (ЭтаГР) ;
иначе
Спр. Новый ();
Спр. ИспользоватьРодителя (ЭтаГР) ;
Спр. Наименование=Лев (стр, 10);
Спр. Записать ();
КонецЕсли;
КонецЦикла;
КонецПроцедуры
Процедура ОбработкаПроведения ()
Сч00 = СчетПоКоду ("00");
Сч68_1 = СчетПоКоду ("68.1");
Сч69_1 = СчетПоКоду ("69.1");
Сч69_11 = СчетПоКоду ("69.11");
Сч70 = СчетПоКоду ("70");
СчДФЛ = СчетПоКоду ("ДФЛ");
КонецМесяцаДокумента = КонМесяца (ДатаДок) ;
РазмерВычета=?(ДатаДок >= '01.01.2006', 4000, 2000);
НДФЛ_13 = глПолучитьНалог ("НДФЛ");
Ставка13 = НДФЛ_13.Ставка. Получить (КонецМесяцаДокумента) ;
СписокВидовНачисленийОблПо13 = СоздатьОбъект ("СписокЗначений");
СписокВидовНачисленийОблПо13.ДобавитьЗначение (ПолучитьПустоеЗначение ("Справочник. ВидыНачислений"));
ВидыНачислений = СоздатьОбъект ("Справочник. ВидыНачислений");
ВидыНачислений. ВыбратьЭлементы ();
Пока ВидыНачислений. ПолучитьЭлемент () = 1 Цикл
Если ВидыНачислений. ЭтоГруппа () = 0 Тогда
Если глСтавкаНДФЛ (ВидыНачислений. ТекущийЭлемент ()) = Ставка13 Тогда
СписокВидовНачисленийОблПо13.ДобавитьЗначение (ВидыНачислений. ТекущийЭлемент ());
КонецЕсли;
КонецЕсли;
КонецЦикла;
СписокСотрудников = СоздатьОбъект ("СписокЗначений");
ВыгрузитьТабличнуюЧасть (СписокСотрудников, "Сотрудник");
ТаблицаСотрудников = СоздатьОбъект ("ТаблицаЗначений");
ВыгрузитьТабличнуюЧасть (ТаблицаСотрудников, "Сотрудник");
ТаблицаСотрудников. Свернуть ("Сотрудник",);
ТаблицаСотрудников. НоваяКолонка ("Доход","Число");
ТаблицаСотрудников. НоваяКолонка ("Налог","Число");
ТаблицаСотрудников. НоваяКолонка ("Вычет","Число"
А я раньше не верил что 1С - это бейсик переведенный промтом...
бугага! быдлокод =)
Импорт файла Excel в 1С Предприятие 8.0
A) Без всякого кода:
1. в 1С8 (реж Предприятие) - Файл, > создать > табличный
подробнее...
Программирование на 1с, работа с сайтом
Новый HTTPСоединение (<Сервер>, <Порт>, <ИмяПользователя>, <Пароль>,
подробнее...
Скажите, а что язык программирования 1С намного легче других языков программирования? Почему все так плюются на 1С?
Это высокоуровневый язык, ориентированный на бухгалтерские задачи. А вот если писать на нем
подробнее...
Как в 1с отразить премию?
На закладке «Расчет зарплаты» Рабочего стола программы «Зарплата и управление персоналом» нажимаем
подробнее...
Как работает функция Остатки для регистра накопления в 1с Предприятие?
Во - первых, есть синтаксис помощник, там очень подробно расписано про "Остатки".
Во - вторых,
подробнее...
Что такое bitrix??
Забытая богом система управления сайтов от 1с
1C Битрикс
Унылая платная
подробнее...
Какую функцию EXCEL применить
а вот мои 5 копеек:
#yaimg183987#
формула в текстовом виде:
=СУММ (СМЕЩ
подробнее...
Каких видов бывают электронные подписи и каки документы необходимы для формирования разных видов ЭЦП?
Квалифицированные электронные подписи бывают трех видов - для физических лиц, для индивидуальных
подробнее...
Что такое электронная подпись и как это работает?
Электронно-цифровая подпись (ЭЦП) — аналог собственноручной подписи — для придания электронному
подробнее...
Что такое электронный ключ Hardlock?
Hardlock - это мощнейшая инструментальная система для защиты программного обеспечения и файлов
подробнее...
Программист 1 С- это ??
Хороший вопрос Павел. Давайте пойдем от начала - программист тот кто программирует. Создает или
подробнее...
Мобильный телефон - основное средство???
Все для чего срок полезного использования больше года ОС. Телефон тоже. Когда документ поступления,
подробнее...
Подскажите, где можно взять описание создание БД в Делфи 7 на каком либо примере!
вообще в дельфи делается интерфейс к БД, а для бд нужен либо внешний движек, либо компоненты ео
подробнее...