FOLD
Advanced Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
mrFiX
Цитата:Да простую как 5 копеек.По крайней мере по тем условиям что заданы. Если позволишь -лиричиское отступление.
Я не программист ,а предприниматель и с 1С познакомился несколько лет назад купив оффициально у франчайзи ТиС и Бух, отвалив не мало денег,и ,наивный, расчитывал
что за такую сумму я могу расчитывать на нормальную поддержку,но как гриться ,не тут –то было.Сколько я потом франчам отвалил ,надо расказывать отдельно и в др.месте
Вспомнить только настройку переноса доков из ТиС в Бух . Или свертку базы в ТиС
Прислали мальчика- он запустил свертку и сел пить чай.
Просидел полный рабочий день,выпил чаю немерянно, сожрал батон колбасы
и в конце рабочего дня, сказал –Ничего не трогать,комп не выключать ,завтра приду.
На завтра история повторилась. А час работы прога стоил тогда в районе 400руб
В итоге база свернулась некорректно., и он сказал -Надо править доки
ручками и по новой запускать свертку
Вообщем я его послал нах и остался один на один с 1С. Открыл СП и стал читать ,
а дальше писать. Конечно щас глянешь на свою писанину, и стыдно и смешно.
Впрочем если проффесионалу глянуть на мою сегодняшние наработки,-
наверно он тоже найдет что-то .Ну и хсн.Просто к чему все это, а ну –да,
что отчетик простой на самом деле ,надо не боятся а начать что-то делать.
Ведь в принципе встроенный язык 1С и расчитан на конечного пользователя
Добавлено:
Да,ну а если не хочешь чего-то делать,или,это кажется пока не по зубам
надо пригласить спеца
Добавлено:
один из вариантов
Процедура Сформировать()
ТЗ=СоздатьОбъект("ТаблицаЗначений");
ТЗ.НоваяКолонка("Номенклатура");
ТЗ.НоваяКолонка("Количество");
ТЗ.НоваяКолонка("Цена");
ТЗ.НоваяКолонка("Сумма");
//создать нужные колонки
ДокНал= СоздатьОбъект("Документ.налоговыйдокумент"); //что за налоговый не знаю
ДокНал.Новый();
ДокНал.ДатаДок=ДатаК;
ДокНал.Фирма = глЗначениеПоУмолчанию("ОсновнаяФирма");
//остальные реквизиты заполняем
Док= СоздатьОбъект("Документ");
Док.ВыбратьДокументы(ДатаН,ДатаК);
Пока Док.ПолучитьДокумент()=1 Цикл
ДокИсх = Док.ТекущийДокумент();
Если ДокИсх.Проведен()=1 Тогда
Если (ДокИсх.Вид()="РеализацияРозница") или
(ДокИсх.Вид()="Реализация") или
(ДокИсх.Вид()="ОтчетККМ") Тогда
ДокИсх.ВыбратьСтроки();
Пока ДокИсх.ПолучитьСтроку()=1 Цикл
НС =0;
нашли =0;
одцена=0;
Если ТЗ.НайтиЗначение(ДокИсх.Номенклатура,НС,)=1 Тогда
нашли=1;
ТЗ.ПолучитьСтрокуПоНомеру(НС);
Если ТЗ.Цена=ДокИсх.Цена Тогда
одцена=1;
ТЗ.Количество = ТЗ.Количество + ДокИсх.Количество;
ТЗ.Сумма = ТЗ.Сумма + ДокИсх.Сумма;
КонецЕсли;
КонецЕсли;
Если (нашли=0)или (одцена=0) Тогда
ТЗ.НоваяСтрока();
ТЗ.Номенклатура= ДокИсх. Номенклатура;
ТЗ.Количество = ДокИсх. Количество;
ТЗ.Цена = ДокИсх.Цена;
ТЗ.Сумма = ДокИсх.Сумма;
КонецЕсли;
КонецЦикла;
КонецЕсли;
КонецЕсли;
КонецЦикла;
ТЗ.Сортировать("+Номенклатура");
ДокНал.ЗагрузитьТабличнуюЧасть(ТЗ);
ДокНал.Записать();
КонецПроцедуры |
Всего записей: 1238 | Зарегистр. 26-01-2004 | Отправлено: 11:05 09-12-2005 | Исправлено: FOLD, 12:15 09-12-2005 |
|
а вообще лучше все это посмотреть онлайн, есть "Клуб профессионалов 1с" (hццp://1c.proclub.ru/). а также есть chm-архивы сайта hare.ru в них тоже много всяких разработок. 
