Перейти из форума на сайт.

Новости • Файловые архивы
Поиск • Активные темы • Топ лист
Правила • Кто в on-line?
Вход • Забыли пароль? • Первый раз на этом сайте? • Регистрация
Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » 1C Программирование и поддержка

Модерирует : ShIvADeSt

ShIvADeSt (30-10-2009 09:51): http://forum.ru-board.com/topic.cgi?forum=33&topic=10715  Версия для печати • Подписаться • Добавить в закладки
Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101

   

ShIvADeSt



Moderator		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Тема для программирования 1С!!!
Это продолжение темы, предыдущие части доступны тут

ПРОГРАММЫ  1С:Предприятие 1C - 1C: Вопросы по конфигурациям
ВАРЕЗНИК   1C:Предприятие 7.7 - 1С:Предприятие v.8.x - 1C Диск ИТС - 1С: Совместимо 8.х
Топик 1C Ebooks
ЗДЕСЬ  (обновлено 17.10.2009) - небольшая библиотечка (книги, документация, видео, утилиты) по 1С, финансам, бухучету и т.п.
Все рассортировано по версиям...

Для заблудившихся в трех соснах >>> FAQ по форуму RU.Board
 
Предыдущие темы были здесь часть 4 | часть 3 | часть 1
 
Как убить рекламу при обновлении отчетности | конфигурации (ИБ)?
Всего записей: 3956 | Зарегистр. 29-07-2003 | Отправлено: 02:02 03-04-2009 | Исправлено: vkramnik, 12:06 23-10-2009
mdid

Advanced Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
неа...это навождение какое то...группировка не работает ни по одному из значений измерений...но за то упорно выдает правильные числовые данные
Всего записей: 1298 | Зарегистр. 13-02-2006 | Отправлено: 14:50 03-07-2009
vizlipuzli

Silver Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
mdid
Точно не твозможности выложит MD? Он же данных не содержит, только метаданные, а rar-ом еще раза в три ужимается...
Всего записей: 4038 | Зарегистр. 17-08-2005 | Отправлено: 14:56 03-07-2009
mdid

Advanced Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
сорри есть...задергали сегодня та не на ту бд глянул
http://rapidshare.com/files/251398800/1cv7.rar
там 2 метра+внешний отчет для выборки из регистра...хз...может я упускаю какую то мелочь
Всего записей: 1298 | Зарегистр. 13-02-2006 | Отправлено: 15:08 03-07-2009
octoberfest



Junior Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Видимо были проблемы со структурой базы.
chdbfl.exe помог.
Спасибо всем.
 
Добавлено:
 
mdid
Я скачал ваш md.
 
Простите, но вот этот код прекрасно работает
 
ДатаН=НачМесяца(РабочаяДата());
НаДату=ПолучитьДатуТА();
 
Т=СоздатьОбъект("Таблица");
Запрос = СоздатьОбъект("Запрос");
    
ТекстЗапроса="
|Период С ДатаН По НаДату;
|Докум1     = Регистр.Валюта.Док;  
|Группа     = Регистр.Валюта.Группа;
|Количество     = Регистр.Валюта.Количество;
|Курс         = Регистр.Валюта.Курс;
|Валюта     = Регистр.Валюта.Валюта;    
|Сум                 = Регистр.Валюта.Сумма;
|Функция КолОст = КонОст(Количество);  
|Группировка Валюта;
|Группировка Докум1;
|";  
            
Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
    Сообщить("Запрос не выполнился!");
    Возврат;
КонецЕсли;    
        
Пока Запрос.Группировка(1)=1 Цикл
    
    Пока Запрос.Группировка(2)=1 Цикл
        Т.ВывестиСекцию("Строка");     
    КонецЦикла;
    
КонецЦикла;
           
Т.Показать();
 
Добавлено:
Даже если всместо Докум1 написать Докум, а вместо Запрос.Группировка(1) - написать Запрос.Группировка("Валюта"), тоже все работает
Всего записей: 92 | Зарегистр. 27-02-2008 | Отправлено: 18:32 03-07-2009 | Исправлено: octoberfest, 19:04 03-07-2009
vizlipuzli

Silver Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
octoberfest

Цитата:
тоже все работает

Подтверждаю, работает.  
mdid
Какая платформа 1C?
Всего записей: 4038 | Зарегистр. 17-08-2005 | Отправлено: 19:41 03-07-2009 | Исправлено: vizlipuzli, 19:44 03-07-2009
mdid

Advanced Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
1c предприятие 7,7 025..релиз там старючий....блин я хз...завтра на выходных попробую все заново сделать...отчет то я уже сделал вот только выбор доков у меня в запросе не из регистра ибо гибло а через Документ...хз...попробую новую стянуть
Всего записей: 1298 | Зарегистр. 13-02-2006 | Отправлено: 20:07 03-07-2009 | Исправлено: mdid, 20:10 03-07-2009
vizlipuzli

Silver Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
mdid
ну 025 релиз вроде без глюков... попробуйте сделать, как octoberfest сказал, только отпишитесь, получилось ли ...
Всего записей: 4038 | Зарегистр. 17-08-2005 | Отправлено: 20:13 03-07-2009
mdid

Advanced Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
хм...попробовал сделать как советовали сделать первую группировку по валюте вторую по доку...пошло...все вывело...может кто то пояснить почему срабатывает именно так?
ПС
спасибо за наводку...сам бы наверно не попробовал так как до сих пор считаю это бредом
Всего записей: 1298 | Зарегистр. 13-02-2006 | Отправлено: 22:06 03-07-2009
octoberfest



Junior Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
А зачем было документ вставлять в качесве измерения регистра?
Всего записей: 92 | Зарегистр. 27-02-2008 | Отправлено: 11:34 04-07-2009
mdid

Advanced Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
я не самый большой спец в 1с...самоучка...но я думал что измерения это как бы для того что бы вести по ним группировку..что то вроде основных данных...вот и сделал...другой вопрос что может быть тут фишка какая то что нельзя первым документ ставить...я хз
Всего записей: 1298 | Зарегистр. 13-02-2006 | Отправлено: 13:28 04-07-2009
egerLESHIK



Advanced Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Привет всем гуру. Новый вопросец возник, не знаю с какой стороны подойти, чтобы найти ответ на него. Нужно сформировать такой своего рода отчетец под 1С 7.7 Торговля и склад (переписанная). Чтобы выводило контрагента, определяло по нему долг и выводило под ним перечень накладных с по которому висит долг, но не должен включаться долг по расходной накладной с глубиной кредита в 1 день. То есть, если накладная выписана сегодняшним днем, она в этот отчет попадать не должна.
 
И еще есть такой вопрос при открытии одного отчета, выдает сообщение такого плана: "ошибка при выполнении команды". Каким образом можно отловить и ликвидировать данный баг? Отчет то открывается, формируется.  
 
Спасибо.
Всего записей: 950 | Зарегистр. 24-03-2004 | Отправлено: 13:29 04-07-2009
octoberfest



Junior Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
В регистрах документ движения всегда можно получить, даже если по нему группировка не ведется.
Для этого в запросах есть предопределенная группировка Документ ( есть еще  СтрокаДокумента - для детализации до строки).
А также предопределенные группировки по дате: День, Неделя, Месяц, Квартал, Год.
 
А в вашем случает по-моему просто нельзя период в один день указывать.
Всего записей: 92 | Зарегистр. 27-02-2008 | Отправлено: 13:45 04-07-2009
vizlipuzli

Silver Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
egerLESHIK
Посмотрите в веткеКЛУБ ПРОФЕССИОНАЛОВ 1С включите режим "Версия для печати", там вроде бы пробегали отчеты по дебиторке для ТиС 7.7  
Ну а "бажный" отчет выложите посмотреть...
Всего записей: 4038 | Зарегистр. 17-08-2005 | Отправлено: 19:47 04-07-2009
egerLESHIK



Advanced Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
octoberfest

Цитата:
А в вашем случает по-моему просто нельзя период в один день указывать.

Может я что-то не так выразился. Я имел в виду следующее: открывается документ Доставка в нем есть перечень всех клиентам по которым сформированы расходные накладные на текущую дату, из него я хочу сформировать и вывести на печать своего рода отчетец по долгам вышеперечисленных клиентов, но все накладные, которые в этом документе Доставка сидят в этот отчет по долгам не должны попадать, поскольку они и есть те накладные, которые попали в глубину кредита - один день.
 
Добавлено:
vizlipuzli

Цитата:
Ну а "бажный" отчет выложите посмотреть...

 
http://upload.com.ua/get/900941399/
Всего записей: 950 | Зарегистр. 24-03-2004 | Отправлено: 23:15 04-07-2009
vizlipuzli

Silver Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
egerLESHIK
Пришлось закомментировать кусок кода в процедуре ПриОткрытии()

Код:
 
Если глПраваНаОтчет("УнивесальныйЖурнал") = 0 Тогда
   СтатусВозврата(0);
   Возврат;
КонецЕсли;
т.к. естественно у меня нет дописок и нет функции глПраваНаОтчет.
 
У меня на трех конфигурация ошибок нет. Думаю надо смотреть в сторону прав на файлы/папки которые обрабатываются при открытии отчета вот этим кодом

Код:
РасположениеФайла(гСтрПуть, гИмяФайла);
ФС.УстТекКаталог(гСтрПуть);
Если ФС.СуществуетФайл("DPRList.txt") = 1 Тогда  
    Текст = СоздатьОбъект("Текст");
    Текст.Открыть(гСтрПуть + "DPRList.txt");
    Для Сч = 1 По Текст.КоличествоСтрок() Цикл
        Стр = Текст.ПолучитьСтроку(Сч);
        Стр = СокрЛП(Стр);
        Если (ПустаяСтрока(Стр) = 1) Или (Найти(Стр, "//") > 0) Тогда  
            Продолжить;                        
        КонецЕсли;        
        Если Найти(Стр, ".ert") > 0 Тогда  
            ПозРазделителя = Найти(Стр, ";");
            Если (ПозРазделителя = 0) И (ФС.СуществуетФайл(СокрЛП(Стр)) = 1) Тогда  
                ФормСписОбработок.ДобавитьЗначение(СокрЛП(Стр));
                Продолжить;
            ИначеЕсли (ПозРазделителя > 0) И (ФС.СуществуетФайл(Лев(Стр, ПозРазделителя-1)) = 1) Тогда
                ФормСписОбработок.ДобавитьЗначение(СокрЛП(Лев(Стр, ПозРазделителя-1)), СокрЛП(Прав(Стр, СтрДлина(Стр)-ПозРазделителя)));
            КонецЕсли;            
        КонецЕсли;        
    КонецЦикла;    
КонецЕсли;

проверьте под отладчиком, что куда пишется/загружается
 
или же измените код на вот такой в процедуре ПриОткрытии():
 

Код:
    Попытка
        Если ВосстановитьПараметрыФормы() <> 0 Тогда
            ВосстановитьВариант("СписокЖурналов");
        Иначе
            Для Сч = 1 По Метаданные.Журнал() Цикл
                ИденМД = Метаданные.Журнал(Сч).Идентификатор;
                ПредМД = Метаданные.Журнал(Сч).Представление();
                ФормВидЖурнала.ДобавитьЗначение(ИденМД, ПредМД);
            КонецЦикла;        
            ФормВидЖурнала.ТекущаяСтрока(1);
        КонецЕсли;
        Попытка        
            ПриВыбореВидаЖурнала();
        Исключение
        КонецПопытки;
        
    Исключение
        Сообщить("возможно файловая ошибка");
    КонецПопытки;

 
и при инициализации модуля добавьте такой код:
 

Код:
 
Попытка
    РасположениеФайла(гСтрПуть, гИмяФайла);
    ФС.УстТекКаталог(гСтрПуть);
    Если ФС.СуществуетФайл("DPRList.txt") = 1 Тогда  
        Текст = СоздатьОбъект("Текст");
        Текст.Открыть(гСтрПуть + "DPRList.txt");
        Для Сч = 1 По Текст.КоличествоСтрок() Цикл
            Стр = Текст.ПолучитьСтроку(Сч);
            Стр = СокрЛП(Стр);
            Если (ПустаяСтрока(Стр) = 1) Или (Найти(Стр, "//") > 0) Тогда  
                Продолжить;                        
            КонецЕсли;        
            Если Найти(Стр, ".ert") > 0 Тогда  
                ПозРазделителя = Найти(Стр, ";");
                Если (ПозРазделителя = 0) И (ФС.СуществуетФайл(СокрЛП(Стр)) = 1) Тогда  
                    ФормСписОбработок.ДобавитьЗначение(СокрЛП(Стр));
                    Продолжить;
                ИначеЕсли (ПозРазделителя > 0) И (ФС.СуществуетФайл(Лев(Стр, ПозРазделителя-1)) = 1) Тогда
                    ФормСписОбработок.ДобавитьЗначение(СокрЛП(Лев(Стр, ПозРазделителя-1)), СокрЛП(Прав(Стр, СтрДлина(Стр)-ПозРазделителя)));
                КонецЕсли;            
            КонецЕсли;        
        КонецЦикла;    
    КонецЕсли;    
Исключение
    Сообщить("возможно файловая ошибка");
КонецПопытки;

 
Отпишитесь, пжста, по результатам
Всего записей: 4038 | Зарегистр. 17-08-2005 | Отправлено: 09:32 05-07-2009
egerLESHIK



Advanced Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Походу у меня возник вопрос: что означает
Цитата:
гСтрПуть
. Пытался найти расшифровку в какой каталог файл
Цитата:
DPRList.txt
должен ложиться, так и не понял, то есть не нашел
 
Всего записей: 950 | Зарегистр. 24-03-2004 | Отправлено: 11:57 05-07-2009 | Исправлено: egerLESHIK, 11:58 05-07-2009
vizlipuzli

Silver Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
egerLESHIK
гСтрПуть путь к файлу отчета, т.е. откуда он открывается  
 
ну а с внесенными изменениями есть ошибка?
Всего записей: 4038 | Зарегистр. 17-08-2005 | Отправлено: 12:14 05-07-2009
egerLESHIK



Advanced Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
vizlipuzli

Цитата:
ну а с внесенными изменениями есть ошибка?  

 
Увы и после внесения изменений наблюдается это сообщение "Ошибка при выполнении команды"
Всего записей: 950 | Зарегистр. 24-03-2004 | Отправлено: 12:23 05-07-2009
St01en

Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Господа, кто-нить сталкивался с такой ахинеей? Бухгалтер экспортирует зарплату из ЗиК, а потом вручную корректирует проводки. Т.е. - в ЗиК вся зарплата ложится на 81-82 группы счетов. А в Бухгалтерии она их разносит на 91-92 группу. Я в бухгалтерии не силен, мне покажут, что и как, я и сделаю. Но этот бухгалтер новый. Собственно, это нормально, или у нее моск не так работает? Ибо посмотрел ЗиК, там 9 группы счетов вообще нет. Конечно, можно переделать кучу проводок в обработке экспорта, но надо ли?
Кто что скажет или посоветует?
 
Добавлено:
egerLESHIK
 ФС.УстТекКаталог(гСтрПуть);
 
Но зачем так заморачиваться? Я так понял, у вас уже есть готовая обработка, только выводит на печать все даты, включая сегодняшнюю? А вам надо все даты ДО сегодняшней. Добавьте кнопку, продублируйте ф-цию печати и повесьте на эту кнопку. А в процедуру добавьте, там где цикл выборки начинается
Если ДатаДок = ТекущаяДата() Тогда
Продолжить;
КонецЕсли;
Ну или как там у вас дата документа называется.
Всего записей: 292 | Зарегистр. 10-04-2006 | Отправлено: 12:41 05-07-2009
egerLESHIK



Advanced Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
St01en
 
Судя по тексту учет ведется в Украине. А может даже и в России (в данном случае не в курсе я, может и в России учет потерпел трансформацию, поскольку на введение нового плана счетов в Украине, в России еще использовался доставшийся в наследство от СССР). В этом вся и загвоздка, в том, что в ЗиК отсутствуют счета 9 класса. Объясняю. 8 класс счетов это промежуточный аналитический счет затрат. То есть в конце месяца (отчетного периода) этот класс счетов закрывается (распределяется) на другие счета - 23, 91,92, 93 и др. счета расходов. Учетная политика затрат может быть поставлена либо с ведением 8 класса счетов затрат, либо 9 класса счетов затрат, либо с применением 8 и 9 класса счетов. Судя по тому что она правит вручную, то у нее в учетной политике задействован только 9 класс счетов, походу ей не хочется заморачиваться с промежуточными счетами. В принципе это нормально, можно переделать проводки в экспорте, дабы снять рутинную работу по правке счетов вручную, если она этого захочет. Так что, в принципе моск у бухгалтера на месте.
 
 
Добавлено:

Цитата:
 ФС.УстТекКаталог(гСтрПуть);
 
Но зачем так заморачиваться? Я так понял, у вас уже есть готовая обработка, только выводит на печать все даты, включая сегодняшнюю?  

 
нет, в данном случае вопрос в поиске бага на сообщение об ошибке ведется.
Всего записей: 950 | Зарегистр. 24-03-2004 | Отправлено: 12:55 05-07-2009
   

Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » 1C Программирование и поддержка
ShIvADeSt (30-10-2009 09:51): http://forum.ru-board.com/topic.cgi?forum=33&topic=10715


Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2024

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru