Покажите пример программы 1С, в виде программного кода. интересно посмотреть..

Question

Покажите пример программы 1С, в виде программного кода. интересно посмотреть..

ruru Гуру (3265), закрыт 13 лет назад

Answer 1

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

Answer 2

Процедура ЗагрузкаИзТХТФайла ()
Спр=СоздатьОбъект ("Справочник. Номенклатура");
ИМФ="D:\номенклатура. txt";
Док=СоздатьОбъект ("Текст");
Док. Открыть (ИМФ) ;
Если Док. КоличествоСтрок ()=0 Тогда
Предупреждение ("Загружаемый справочник пустой! ");
Возврат;
КонецЕсли;
Для я=1 по Док. КоличествоСтрок () Цикл
Стр=Док. ПолучитьСтроку (я) ;
Эл=Лев (стр, 1);
Если Эл="0" Тогда
Спр. ИспользоватьРодителя (0);
Спр. НоваяГруппа ();
Спр. Наименование=Сред (стр, 3);
Спр. Записать ();
ЭтаГр=Спр. ТекущийЭлемент ();
Спр. ИспользоватьРодителя (ЭтаГР) ;
иначе
Спр. Новый ();
Спр. ИспользоватьРодителя (ЭтаГР) ;
Спр. Наименование=Лев (стр, 10);
Спр. Записать ();
КонецЕсли;
КонецЦикла;
КонецПроцедуры

Answer 3

Процедура ОбработкаПроведения ()

Сч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.ДобавитьЗначение (ВидыНачислений. ТекущийЭлемент ());
КонецЕсли;
КонецЕсли;
КонецЦикла;

СписокСотрудников = СоздатьОбъект ("СписокЗначений");
ВыгрузитьТабличнуюЧасть (СписокСотрудников, "Сотрудник");

ТаблицаСотрудников = СоздатьОбъект ("ТаблицаЗначений");
ВыгрузитьТабличнуюЧасть (ТаблицаСотрудников, "Сотрудник");
ТаблицаСотрудников. Свернуть ("Сотрудник",);
ТаблицаСотрудников. НоваяКолонка ("Доход","Число");
ТаблицаСотрудников. НоваяКолонка ("Налог","Число");
ТаблицаСотрудников. НоваяКолонка ("Вычет","Число"

Answer 4

Vic Оракул (73588) 14 лет назад

А я раньше не верил что 1С - это бейсик переведенный промтом...

ruruГуру (3265) 14 лет назад

А оказалось что так?

Answer 5

James Lukash Мудрец (13017) 14 лет назад

бугага! быдлокод =)