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

Выпуск № 387
от 26.12.2006, 14:05

Вопрос № 67.860

Доброго времени суток господа эксперты, вопрос: после обновления Бухгалтерии 7.7 релиз 483 на релиз 484, конфигурация перестала списывать суммы при прямом списании со склада по счёту 10 и его субсчетам, хотя количественно списывает. И вообще может ли быть такое списание (они его называют прямым) это значит, с кредита счета 10.3 в дебит счета 10.3, хотя раньше у них это делалось, в чем здесь заморочка и с чем её едят? Доброго времени суток господа эксперты, вопрос таков: после обновления Бухгалтерии 7.7 релиз 483 на релиз 484, конфигурация перестала списывать суммы при прямом списани со склада по счету 10 и его субсчетам, хотя по количеству списывает нормально. И вообще может ли быть такое списание (они его называют "Прямым") и выглядит это так в опирации проводки: с кредита счета 10.3 в дебит счета 10.3, хотя раньше такой случай у них прокатывал и всё списывалось, в чем здесь заморочка и с чем её едят? И как выглядит нормальные процедуры списания?

Отправлен: 20.12.2006, 17:33 Вопрос задал: Ryzhov A.N. (статус: 3-ий класс) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: vcv Здравствуйте, Ryzhov A.N.! Типовая бухгалтерия ведет суммовой учет в целом по предприятию, а не в разрезе складов. Это означает, что при складском перемещении будет перемещено только количество, а не сумма. И будет проводка дебет 10.3 в кредит 10.3 одна и та же номенклатура, но разные склады по дебету и кредиту с количеством, но без суммы. Вероятно именно складское перемещение ваши бухгалтера называют "прямым списанием". Оно делается документом "Перемещение материалов" с видом перемещения "Складское перемещение". Раньше, вероятно, у вас программа была доработана, по субконто "Места хранения" на счете 10 был включен суммовой учет и доработаны некоторые документы. После обновления эти изменения исчезли.

Ответ отправил: vcv (статус: 5-ый класс) Ответ отправлен: 21.12.2006, 05:56 Оценка за ответ: 4 Комментарий оценки: Спасибо, буду сравнивать релизы, да возможно кто-то еще до меня дорабатывал конфигурацию.

Отвечает: Гребиников Павел Генадьевич Здравствуйте, Ryzhov A.N.! Насколько я помню, там есть константа, отвечающая за то, списывать суммы при прямом списании или нет, посмотрите константы, также посмотрите, какие проводки формирует документ, может сумма списывается совсем по другому счету Нормальные процедуры списывают то, что надо списать с его счета на отдельный счет списания. --------- Плох тот юзер, который не мечтает стать админом...

Ответ отправил: Гребиников Павел Генадьевич (статус: Студент) Ответ отправлен: 21.12.2006, 06:36

Вопрос № 67.938

Здравствуйте! С наступающим праздником!!! Уважаемые эксперты, мне надо загрузить в таблицу 1с из ворда, а я даже не знаю, в какую сторону рыть. Помогите, плиз, скиньте небольшой примерчик загрузки из ворда.

Отправлен: 21.12.2006, 07:36 Вопрос задал: Гребиников Павел Генадьевич (статус: Студент) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: IUnknown Здравствуйте, Гребиников Павел Генадьевич! http://www.yandex.ru/yandsearch?rpt=rad&text=word.application+table http://www.delphimaster.ru/cgi-bin/forum.pl?id=1148459999&n=8 http://www.sql.ru/forum/actualthread.aspx?tid=268627 http://www.delphimaster.ru/cgi-bin/forum.pl?id=1155787788&n=8 --------- я не специалист

Ответ отправил: IUnknown (статус: 8-ой класс) Ответ отправлен: 21.12.2006, 08:13

Вопрос № 67.946

Спасибо за ответы на вопрос №67773 , но может я неправильно сформулировала вопрос, мне надо так, допустим по цеху2, цеху4, по цеху оборот каждого материала, а потом посчитать общее колво материала и сумму по этим цехам. При этом названия цеха в отчете должны располагаться по горизонтали а материалы по вертикали и на пересечении цеха и материала должно стоять их колво. Вот так выдает все вперемешку. Приложение: Процедура Сформировать()  Таб = СоздатьОбъект("Таблица");  Таб.ИсходнаяТаблица("Таблица");  Ит = СоздатьОбъект("БухгалтерскиеИтоги");  Ит.ИспользоватьПланСчетов(ПланыСчетов.основной);  Ит.ИспользоватьРазделительУчета(Константа.ОснФирма);  Ит.ИспользоватьКорСубконто(ВидыСубконто.МестаХранения,,1);  Ит.ИспользоватьКорСубконто(ВидыСубконто.Материалы,,1);  Таб.ВывестиСекцию("Шапка");  Ит.ВыполнитьЗапрос(датаС,датаПо,"20","10.2",,2);  Ит.ВыбратьКорСубконто();  Пока Ит.ПолучитьКорСубконто()=1 Цикл   Цех1=ит.КорСубконто();   Если Цех1.ПринадлежитГруппе(группа)=1 Тогда    гр=группа;    Таб.Вывестисекцию("группа");       КонецЕсли;   Ит.ВыбратьКорСубконто(2) ;   Пока Ит.ПолучитьКорСубконто(2)=1 Цикл    Матер=Ит.КорСубконто(2);        Обк=Ит.Кордо(3);       КонецЦикла;

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

Отвечает: Решитько Иван Олегович Здравствуйте, Fifina! Примерно так. Если что-то не понятно пишите ivan@riodonetsk.com Приложение: Таб = СоздатьОбъект("Таблица"); Таб.ВывестиСекцию("ШапкаСтрока|ШапкаВерх"); Т = СоздатьОбъект("ТаблицаЗначений"); Т.НоваяКолонка("Цех"); Т.НоваяКолонка("Материал"); Т.НоваяКолонка("Колво"); СпЦеха = СоздатьОбъект("СписокЗначений"); // здесь должно быть заполнение таблицы // ... // Т.Свернуть("Цех,Материал","Колво"); Т.Сортировать("Материал+,Цех+"); Т.Выгрузить(СпЦеха,,,"Цех"); Для пер = 1 по СпЦеха.Рамерсписка(); цикл Цех = СпЦеха.ПолучитьЗначение(пер); Таб.ПрисоединитьСекцию("ШапкаСтрока|ЦехВерх"); КонецЦикла; Если Т.КоличествоСтрок() = 0 тогда Сообщить("Нечего выводить в таблицу"); Возврат; КонецЕсли; Материал = Т.ПолучитьЗначение(1,"Материал"); ТекНомерЦеха = 1; ИтоговоеКолвоПоМатериалу = 0; Таб.ВывестиСекцию("СтрокаМатериалы|ШапкаВерх"); Т.ВыбратьСтроки(); Пока Т.Получитьстроку() = 1 Цикл ТекЦех = Т.Цех; ТекКолво = Т.Колво; ТекМатериал = Т.Материал; Если Материал <> ТекМатериал Тогда ТекНомерЦеха = 1; // выводим итог по материалу ИтогоКолво = ИтоговоеКолвоПоМатериалу; Таб.ПрисоединитьСекцию("СтрокаМатериалы|ИтогоМатериалВерх"); ИтоговоеКолвоПоМатериалу = 0; Материал = ТекМатериал; КонецЕсли; // Найдём цех в списке цехов ПозицияВСписке = СпЦеха.НайтиЗначение(ТекЦех); Если ПозицияВСписке = 0 тогда // странно. такого не может быть Иначе Если ПозицияВсписке <> ТекНомерЦеха Тогда // позиция в списке не может быть меньше текущего номера цеха, потому-что всё идёт по алфавиту // поэтому если позиция в списке больше текущего номера цеха, то количество по всем цехам между // ними равно 0 Для пер = ТекНомерЦеха по ПозицияВСписке-1 цикл Колво = 0; Таб.ПрисоединитьСекцию("СтрокаМатериалы|ЦехВерх"); ТекНомерЦеха = ТекНомерЦеха + 1; КонецЦикла; КонецЕсли; Цех = ТекЦех; Колво = ТекКолво; ИтоговоеКолвоПоМатериалу = ИтоговоеКолвоПоМатериалу + ТекКолво; Таб.ПрисоединитьСекцию("СтрокаМатериалы|ЦехВерх"); ТекНомерЦеха = ТекНомерЦеха + 1; КонецЕсли; КонецЦикла; // надеюсь итог по цехам вывести у Вас получиться, если нет, то обращайтесь ICQ 293345675 Таб.Показать();

Ответ отправил: Решитько Иван Олегович (статус: 1-ый класс) Ответ отправлен: 21.12.2006, 19:16 Оценка за ответ: 5 Комментарий оценки: Спасибо за ответ ,но я меня уже плучилось

Вопрос № 67.988

Здравствуйте Уважаемые эксперты. С наступающим Вас. Пожайлуста помогите решить задачу. В документе ИмпортнаяПоставка с "реквизиты шапки" перенёс ТипПеревозки в "реквизиты табличной части". После чего Процедура УправлениеВидимостью() перестал выдавать результат. Что не так? Приложение: Процедура ВидимостьЭлемента(Значение,Элемент) Если (ПустоеЗначение(Значение)=1) Или (Проведен()=1) Тогда Элемент.Видимость(1); Иначе Элемент.Видимость(0); КонецЕсли; КонецПроцедуры //*********************************************** Процедура УправлениеВидимостью() Если ТипПеревозки=Перечисление.ТипПеревозки.Вагон Тогда Если УсловияПоставки=Перечисление.УсловияПоставки.DAF Тогда ВидимостьЭлемента(Тех,Форма.Тех); ВидимостьЭлемента(Экспертиза,Форма.Экспертиза); ВидимостьЭлемента(Карантин,Форма.Карантин); Если Пошлина1=1 Тогда ВидимостьЭлемента(Пошлина,Форма.Пошлина); Иначе Форма.Пошлина.Видимость(0); КонецЕсли; ВидимостьЭлемента(Деклар,Форма.Деклар); Форма.Коды.Видимость(0); Форма.Узтемир.Видимость(0); Форма.УслугиА.Видимость(0); Форма.Оплата.Видимость(0); КонецЕсли; и т.д. КонецПроцедуры //*********************************************** Процедура ПриОткрытии() УправлениеВидимостью(); ПриЗаписиПерепроводить(1); КонецПроцедуры //*********************************************** Процедура ПриЗаписи() УправлениеВидимостью(); КонецПроцедуры //***********************************************

Отправлен: 21.12.2006, 13:31 Вопрос задал: Рубик (статус: 1-ый класс) Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 2)

Отвечает: Гребиников Павел Генадьевич Здравствуйте, Рубик! У вас многострочная часть, поэтому вам надо определить по какой строке вам выбирать, чтобы было что-то видимым или нет. Используйте процедуру Выбратьстроки() Или же определяйте видимость по какой нибудь определенной строке Приложение: Процедура УправлениеВидимостью() Выбратьстроки(); пока получитьстроку()=1 цикл Если ТипПеревозки=Перечисление.ТипПеревозки.Вагон Тогда Если УсловияПоставки=Перечисление.УсловияПоставки.DAF Тогда ВидимостьЭлемента(Тех,Форма.Тех); ВидимостьЭлемента(Экспертиза,Форма.Экспертиза); ВидимостьЭлемента(Карантин,Форма.Карантин); Если Пошлина1=1 Тогда ВидимостьЭлемента(Пошлина,Форма.Пошлина); Иначе Форма.Пошлина.Видимость(0); КонецЕсли; ВидимостьЭлемента и т.д. конеццикла; КонецПроцедуры //*********************************************** --------- Плох тот юзер, который не мечтает стать админом...

Ответ отправил: Гребиников Павел Генадьевич (статус: Студент) Ответ отправлен: 21.12.2006, 14:14

Отвечает: Ovr1970 Здравствуйте, Рубик! У Вас не выбрана строка, соответственно ТипПеревозки всегда пустое значение. Если Вы хотите управлять реквизитами табличной части, то у Вас ничего не получится, т.к. можно скрыть или показать целый столбец. Вариант показать "Экспертиза" в одной строке и не показать в другой не возможен. Если Вы захотите управлять доступностью элементов, то там тот же вариант, но есть выход. Хотя Вы управляете доступность целого столбца Вы можете вызывать эту процедуру "ПриНачалеРедактированияСтроки" и при изменении реквизита "ТипПеревозки" - тогда получится , что доступность отдельных столбцов изменяется в зависимости от строки и значения реквизита "ТипПеревозки" Если реквищиты "Экспертиза", "Карантин" и т.д. не являются реквизитами табличной части, то тогда и "ТипПеревозки" должен быть реквизитом шапки

Ответ отправил: Ovr1970 (статус: Студент) Ответ отправлен: 22.12.2006, 13:28

Отвечает: Шахрайчук Владимир Анатольевич Здравствуйте, Рубик! Вы со своей видимостью настолько усложните работу девченкам бухгалтершам, что они плакать будут. Совет: играйтесь Доступность() а не Видимость() В Вашем коде ошибка такая: Вы, не перебирая строки документа, пытаетесь определить ТипПеревозки, что недопустимо. Ответьте мне на вопрос: какое значение ТипПеревозки При невыбранной строке? Если Вы к табличной части применяете метод Видимость или Доступность, то, как мне кажется, он действует на все строки одновременно. Вы должны проанализировать все строки, и если хотябы в одной нужно будет включить Видимость то нужно включать, для всех в целом.

Ответ отправил: Шахрайчук Владимир Анатольевич (статус: Студент) Ответ отправлен: 25.12.2006, 13:03

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