/ КОМПЬЮТЕРЫ И ПО / Языки программирования / 1С для программиста

Выпуск № 442
от 15.03.2007, 07:05

Вопрос № 77.608

Здравсмтвуйте. Хочу научиться создавать отчет в 1с 7.7 бух. произвольной формы. С чего начать?

Отправлен: 09.03.2007, 08:59 Вопрос задал: BBJack (статус: Посетитель) Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Яна Здравствуйте, BBJack! С чтения типовых отчетов и документации. А еще лучше - пойти на курсы. В любом случае нужно прочитать главы про ПланСчетов и про запросы. Но этого может оказаться мало. Зависит от начального уровня.

Ответ отправила: Яна (статус: Студент) Ответ отправлен: 09.03.2007, 09:05

Отвечает: svsrus Здравствуйте, BBJack! Нужны хотя бы базовые знания программирования в 1С. Поэтому начать необходимо с изучения языка программирования. Если нет книги вперед на www.mista.ru. Также хорошие уроки (ДЛЯ НАЧИНАЮЩИХ) на сайте http://www.firststeps.ru/. Кстати на этом сайте уже на 17 шагому вы будете делать первый отчет(карточка счета).

Ответ отправил: svsrus (статус: 3-ий класс) Ответ отправлен: 09.03.2007, 10:53

Отвечает: BigHard Здравствуйте, BBJack! Все начинают по-разному, одни идут на курсы, сидят там по три месяца, плотят деньги и в итоге уходят ни с чем. Другие берут книги и учаться по ним, кстати самый трудный, но и самый эффективный способ. В программировании теория очень тесно сопряжена с практикой, поэтому, на мой взгляд, самый эффективный способ-вооружится хорошей книгой по 1с, файлом справки и вперед.... --------- Чем отличается чайник от программиста: У чайника в одном килобайте 1000 байт, а у программиста в одном километре 1024 метра

Ответ отправил: BigHard (статус: 5-ый класс) Ответ отправлен: 11.03.2007, 06:26

Вопрос № 77.617

имеется 1с Бухгалтерия 7.7. Необходимо проследить за изменением реквизитов документа пользователем, который уже был проведен. Может подскажете как это лучше сделать?

Отправлен: 09.03.2007, 09:49 Вопрос задала: Оксана/kasy (статус: Посетитель) Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Strawberry Здравствуйте, Оксана/kasy! Как вариант приоткрытии документа запоминать значения реквизитов например в список значений (таблицу значений) при записи сравнивать чего поменялось и в лог файл записывать изменения --------- Мальчик-извращенец прочел деду Морозу с табуретки всего Пастернака!

Ответ отправил: Strawberry (статус: 4-ый класс) Ответ отправлен: 09.03.2007, 09:55 Оценка за ответ: 5

Отвечает: Starhan Здравствуйте, Оксана/kasy! Определи в модуле формы документа переменные (например СтарыйКонтрагент) При открытии документа приравняй переменную к реквизиту СтарыйКонтрагент=Контрагент А в процедуре Процедура ПриИзмененииКонтрагента() Если (Контрагент<>СтарыйКонтрагент И ТекущийДокумент().Проведен()=1)Тогда Сообщить("изменять реквезит проведенного документа нехорошо"); КонецПроцедуры; А еще наблюдать за действими пользователя (если в друг отменят проведение) можно в мониторе --------- Победа не должна приводить к зазнайству, а поражение к малодушию.

Ответ отправил: Starhan (статус: 6-ой класс) Ответ отправлен: 09.03.2007, 10:04

Отвечает: Яна Здравствуйте, Оксана/kasy! В 8.0 для этого можно использовать РегистрыСведений, в 7.7 их нет. В качестве аналога можно попытаться использовать ПериодическиеРеквизиты. Записываете в периодический реквизит значение нужного Вам реквизита документа при каждом его изменении у проведенного документа. А затем отслеживаете состояния.

Ответ отправила: Яна (статус: Студент) Ответ отправлен: 09.03.2007, 10:08

Вопрос № 77.647

Здравствуйте! Есть документ, в котором табл.часть заполняется при нажатии на кпопку Заполнить, где в формуле: УдалитьСтроки();ЗаполнитьТабЧасть();ЗаполнитьТабЧасть1(); Итоги();Итог();Остаток();РассчитатьОстаток(). Помогите пожалуйста эти процедуры скомпоновать в одну (или две). Приложение: Процедура ЗаполнитьТабЧасть() Док = СоздатьОбЪект("Документ.ПоступлениеТовара"); ТЗ = СоздатьОбЪект("ТаблицаЗначений"); ВыгрузитьТабличнуюЧасть(ТЗ); Док.ВыбратьДокументы(ДатаНачала,ДатаКонца); Пока (Док.ПолучитьДокумент()=1) Цикл Док.ВыбратьСтроки(); Пока (Док.ПолучитьСтроку()=1) Цикл ТЗ.НоваяСтрока(); ТЗ.Товар=Док.Товар; ТЗ.Количество=Док.Количество; ТЗ.Цена=Док.Цена; ТЗ.Сумма=Док.Сумма; ТЗ.СуммаНДС=Док.СуммаНДС; КонецЦикла; КонецЦикла; ТЗ.Свернуть("Товар,Цена,Цена1","Количество,Сумма,Количество1,Сумма1,СуммаНДС,СуммаНДС1"); ТЗ.Сортировать("Товар+"); ЗагрузитьТабличнуюЧасть(ТЗ); КонецПроцедуры //------------------------------------------------------- Процедура ЗаполнитьТабЧасть1() Док1=СоздатьОбъект("Документ.РасходнаяНакл"); ТЗ = СоздатьОбЪект("ТаблицаЗначений"); ВыгрузитьТабличнуюЧасть(ТЗ); Док1.ВыбратьДокументы(ДатаНачала,ДатаКонца); Пока Док1.ПолучитьДокумент()=1 Цикл Док1.ВыбратьСтроки(); Пока (Док1.ПолучитьСтроку()=1) Цикл ТЗ.НоваяСтрока(); ТЗ.Товар=Док1.Товар; ТЗ.Количество1=Док1.Количество; ТЗ.Цена1=Док1.Цена; ТЗ.Сумма1=Док1.Сумма; ТЗ.СуммаНДС1=Док1.СуммаНДС; КонецЦикла; КонецЦикла; ТЗ.Свернуть("Товар,Цена,Цена1","Количество,Сумма,Количество1,Сумма1,СуммаНДС,СуммаНДС1"); ТЗ.Сортировать("Товар+"); ЗагрузитьТабличнуюЧасть(ТЗ); КонецПроцедуры //------------------------------------------------------- Процедура Итоги() ТЗ1 = СоздатьОбЪект("ТаблицаЗначений"); ТЗ.Сортировать("Товар+"); ТЗ1.НоваяКолонка("Товар","Справочник.Номенклатура",,,,25,,); ТЗ1.НоваяКолонка("Количество","Число",3,0,"Кол-во",8,,); ТЗ1.НоваяКолонка("Сумма","Число",3,0,,8,,); ТЗ1.НоваяКолонка("СуммаНДС","Число",3,0,,8,,); ТЗ1.НоваяКолонка("Количество1","Число",3,0,"Кол-во",8,,); ТЗ1.НоваяКолонка("Сумма1","Число",3,0,,8,,); ТЗ1.НоваяКолонка("СуммаНДС1","Число",3,0,,8,,); ТЗ.Выгрузить(ТЗ1); ТЗ.Свернуть("Товар","Количество,Сумма,СуммаНДС,Количество1,Сумма1,СуммаНДС1"); ТЗ1.Загрузить(ТЗ); СортироватьСтроки("Товар+"); КонецПроцедуры //------------------------------------------------------- Процедура Итог() ТЗ1.ВыбратьСтроки(); Пока ТЗ1.ПолучитьСтроку()=1 Цикл НоваяСтрока(); Товар=ТЗ1.Товар; ВсегоПриход=ТЗ1.Количество; ВсегоРасход=ТЗ1.Количество1; Сумма=ТЗ1.Сумма; Сумма1=ТЗ1.Сумма1; СуммаНДС=ТЗ1.СуммаНДС; СуммаНДС1=ТЗ1.СуммаНДС1; КонецЦикла; СортироватьСтроки("Товар+"); КонецПроцедуры //------------------------------------------------------- Процедура РассчитатьОстаток() БИ=СоздатьОбъект("БухгалтерскиеИтоги"); БИ.Рассчитать(,ДатаНачала,СчетПоКоду("002.2")); ВыбратьСтроки(); Пока ПолучитьСтроку()=1 Цикл Если (ВсегоПриход>0) или (ВсегоРасход>0) Тогда ОстНач= БИ.СКД("002.2",3,,Товар,); ОстКон= ОстНач+ВсегоПриход-ВсегоРасход; КонецЕсли; КонецЦикла; КонецПроцедуры Процедура Остаток() БИ=СоздатьОбъект("БухгалтерскиеИтоги"); БИ.Рассчитать(ДатаНачала,ДатаКонца,СчетПоКоду("002.2")); Спр=СоздатьОбъект("Справочник.Номенклатура"); Спр.ВыбратьЭлементы(); Пока Спр.ПолучитьЭлемент()=1 Цикл ВыбратьСтроки(); Пока ПолучитьСтроку()=1 Цикл Если (Товар=Спр.ТекущийЭлемент()) Тогда Возврат; Иначе Если ( (БИ.СНД("002.2",3,,Спр.ТекущийЭлемент())>0) или (БИ.СНК("002.2",3,,Спр.ТекущийЭлемент())>0) ) Тогда НоваяСтрока(); Товар=Спр.ТекущийЭлемент(); ОстНач= БИ.СКД("002.2",3,,Товар,); ОстКон= ОстНач+ВсегоПриход-ВсегоРасход; КонецЕсли; КонецЕсли; КонецЦикла; КонецЦикла; КонецПроцедуры

Отправлен: 09.03.2007, 13:10 Вопрос задала: Darina (статус: Посетитель) Всего ответов: 4 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Яна Здравствуйте, Darina! Создайте процедуру, которая вызывает по очереди в нужном порядке вышеуказанные процедуры (как в формуле). И вызывайте в формуле ее. Процедура Зап() УдалитьСтроки(); ЗаполнитьТабЧасть(); ЗаполнитьТабЧасть1(); Итоги(); Итог(); Остаток(); РассчитатьОстаток() КонецПроцедуры Теперь в формуле можно написать только Зап()

Ответ отправила: Яна (статус: Студент) Ответ отправлен: 09.03.2007, 13:20 Оценка за ответ: 2 Комментарий оценки: Это всё понятно! Я хотела вот именно всё описать в одной

Отвечает: BigHard Здравствуйте, Darina! Вы зря поставили такую оценку эксперту Яна, потому что врядли есть другой способ, чем она предложила, по другому никак --------- Чем отличается чайник от программиста: У чайника в одном килобайте 1000 байт, а у программиста в одном километре 1024 метра

Ответ отправил: BigHard (статус: 5-ый класс) Ответ отправлен: 11.03.2007, 06:27

Отвечает: Centaur Здравствуйте, Darina! Есть 2 способа: 1. На кнопке в строке формула перчечислить через ; все процедуры 2. Просто записать все процедуры подряд в одной процедуре Если незнаеш как то обьясняю удаляй в первой процедуре КонецПроцедуры в следующих процедурах Процедура .... () и КонецПроцедуры в последней токо Процедура .... () и зделай их подряд. Вот и все все в 1 процедуре останиться токо минимезировать если выполнение процедуры будет занимать много времени.

Ответ отправил: Centaur (статус: 1-ый класс) Ответ отправлен: 12.03.2007, 09:03

Отвечает: Elric Здравствуйте, Darina! Вы уверены, что Ваша кнопка работала в том виде, в котором Вы показали модуль? 1) В начале модуля не хватает объявления переменных ТЗ, ТЗ1 2) Плюс еще несколько деталей Я переработал, свел все в одну процедуру (см. Приложение), разумеется с учетом того что у меня нет конфигурации и я не вижу структуры документа и логических связок :) Удачи! Приложение: //------------------------------------------------------- Процедура ЗаполнитьТабЧастьНов() УдалитьСтроки(); //ЗаполнитьТабЧасть() Док = СоздатьОбъект("Документ.ПоступлениеТовара"); ТЗ = СоздатьОбъект("ТаблицаЗначений"); ВыгрузитьТабличнуюЧасть(ТЗ); Док.ВыбратьДокументы(ДатаНачала,ДатаКонца); Пока (Док.ПолучитьДокумент()=1) Цикл Док.ВыбратьСтроки(); Пока (Док.ПолучитьСтроку()=1) Цикл ТЗ.НоваяСтрока(); ТЗ.Товар=Док.Товар; ТЗ.Количество=Док.Количество; ТЗ.Цена=Док.Цена; ТЗ.Сумма=Док.Сумма; ТЗ.СуммаНДС=Док.СуммаНДС; КонецЦикла; КонецЦикла; //ЗаполнитьТабЧасть1() Док1=СоздатьОбъект("Документ.РасходнаяНакл"); Док1.ВыбратьДокументы(ДатаНачала,ДатаКонца); Пока Док1.ПолучитьДокумент()=1 Цикл Док1.ВыбратьСтроки(); Пока (Док1.ПолучитьСтроку()=1) Цикл ТЗ.НоваяСтрока(); ТЗ.Товар=Док1.Товар; ТЗ.Количество1=Док1.Количество; ТЗ.Цена1=Док1.Цена; ТЗ.Сумма1=Док1.Сумма; ТЗ.СуммаНДС1=Док1.СуммаНДС; КонецЦикла; КонецЦикла; ТЗ.Свернуть("Товар,Цена,Цена1","Количество,Сумма,Количество1,Сумма1,СуммаНДС,СуммаНДС1"); ТЗ.Сортировать("Товар+"); //Итоги() ТЗ1 = СоздатьОбъект("ТаблицаЗначений"); ТЗ.Сортировать("Товар+"); ТЗ1.НоваяКолонка("Товар","Справочник.Номенклатура",,,,25,,); ТЗ1.НоваяКолонка("Количество","Число",3,0,"Кол-во",8,,); ТЗ1.НоваяКолонка("Сумма","Число",3,0,,8,,); ТЗ1.НоваяКолонка("СуммаНДС","Число",3,0,,8,,); ТЗ1.НоваяКолонка("Количество1","Число",3,0,"Кол-во",8,,); ТЗ1.НоваяКолонка("Сумма1","Число",3,0,,8,,); ТЗ1.НоваяКолонка("СуммаНДС1","Число",3,0,,8,,); ТЗ.Выгрузить(ТЗ1); ТЗ.Свернуть("Товар","Количество,Сумма,СуммаНДС,Количество1,Сумма1,СуммаНДС1"); ТЗ1.Загрузить(ТЗ); ТЗ1.СортироватьСтроки("Товар+"); //Итог() ТЗ1.ВыбратьСтроки(); Пока ТЗ1.ПолучитьСтроку()=1 Цикл НоваяСтрока(); Товар=ТЗ1.Товар; ВсегоПриход=ТЗ1.Количество; ВсегоРасход=ТЗ1.Количество1; Сумма=ТЗ1.Сумма; Сумма1=ТЗ1.Сумма1; СуммаНДС=ТЗ1.СуммаНДС; СуммаНДС1=ТЗ1.СуммаНДС1; КонецЦикла; СортироватьСтроки("Товар+"); //Остаток() БИ=СоздатьОбъект("БухгалтерскиеИтоги"); БИ.Рассчитать(ДатаНачала,ДатаКонца,СчетПоКоду("002.2")); Спр=СоздатьОбъект("Справочник.Номенклатура"); Спр.ВыбратьЭлементы(); Пока Спр.ПолучитьЭлемент()=1 Цикл ВыбратьСтроки(); Пока ПолучитьСтроку()=1 Цикл Если (Товар=Спр.ТекущийЭлемент()) Тогда Продолжить; Иначе Если ((БИ.СНД("002.2",3,,Спр.ТекущийЭлемент())>0) или (БИ.СНК("002.2",3,,Спр.ТекущийЭлемент())>0) ) Тогда НоваяСтрока(); Товар=Спр.ТекущийЭлемент(); ОстНач= БИ.СКД("002.2",3,,Товар,); ОстКон= ОстНач+ВсегоПриход-ВсегоРасход; КонецЕсли; КонецЕсли; КонецЦикла; КонецЦикла; //РассчитатьОстаток() БИ=СоздатьОбъект("БухгалтерскиеИтоги"); БИ.Рассчитать(,ДатаНачала,СчетПоКоду("002.2")); ВыбратьСтроки(); Пока ПолучитьСтроку()=1 Цикл Если (ВсегоПриход>0) или (ВсегоРасход>0) Тогда ОстНач= БИ.СКД("002.2",3,,Товар,); ОстКон= ОстНач+ВсегоПриход-ВсегоРасход; КонецЕсли; КонецЦикла; КонецПроцедуры --------- Мирный атом в КАЖДЫЙ дом!

Ответ отправил: Elric (статус: Специалист) Ответ отправлен: 12.03.2007, 12:26

© 2001-2007, Портал RusFAQ.ru, Россия, Москва. Идея, дизайн, программирование: Калашников О.А. Email: adm@rusfaq.ru, Тел.: +7 (926) 535-23-31 ООО "Мастер-Эксперт Про", Москва, 2007 Авторские права | Реклама на портале Версия системы: 4.45 beta от 20.02.2007