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

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

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

ShIvADeSt (06-02-2008 02:31): продолжаем тут http://forum.ru-board.com/topic.cgi?forum=33&topic=9226  Версия для печати • Подписаться • Добавить в закладки
Страницы: 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 102 103 104

   

farsesoft



Advanced Member		Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
TOPEugeni
Не уверен на счет бюджетки, в типовой бухгалтерии есть константа ДатаЗапретаРедактирования
Можно вручную каждый месяц переводить эту константу, можно обработку внешнюю написать и никаких изменений в конфигурации

----------
"Благословение Господне - оно обогащает и печали с собою не приносит" (Пр. 10:22)
Всего записей: 697 | Зарегистр. 27-02-2006 | Отправлено: 13:21 28-11-2007
Horex



Advanced Member		Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
8ка УПП.
 
Почему этот код выдаёт все записи по три раза?
 

Код:
ВЫБРАТЬ
    ОсновныеНачисленияРаботниковОрганизаций.ФизЛицо.Наименование КАК ФизЛицоНаименование,
    ОсновныеНачисленияРаботниковОрганизаций.Результат,
    ОсновныеНачисленияРаботниковОрганизаций.ПериодРегистрации
ИЗ
    РегистрРасчета.ОсновныеНачисленияРаботниковОрганизаций КАК ОсновныеНачисленияРаботниковОрганизаций
        ВНУТРЕННЕЕ СОЕДИНЕНИЕ ПланВидовРасчета.СреднийЗаработок КАК СреднийЗаработок
        ПО ОсновныеНачисленияРаботниковОрганизаций.ВидРасчета = СреднийЗаработок.БазовыеВидыРасчета.ВидРасчета
ГДЕ
    ОсновныеНачисленияРаботниковОрганизаций.ПериодДействияНачало = &ПериодДействияНачало
 
УПОРЯДОЧИТЬ ПО
    ФизЛицоНаименование
 
Всего записей: 1547 | Зарегистр. 27-02-2002 | Отправлено: 15:29 28-11-2007
vadver

Junior Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Horex
Добавь в список полей выборки ВидРасчета. Скорее всего, по каждому сотру несколько записей в регистре "ОсновныеНачисления".
Всего записей: 80 | Зарегистр. 10-05-2005 | Отправлено: 17:08 28-11-2007
Fantom 14



Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
звиняйте если такой вопрос был но найти не могу: есть 1с предприятие база бюджетка 615 релиз. при открытии оной пишет "ошибка блокировки данных..." комп не в сети, перезагружали  его уже не раз
Всего записей: 322 | Зарегистр. 23-10-2004 | Отправлено: 17:41 29-11-2007
akifjevda

Junior Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Может кто встречал отдельно реализацию телефонного справочника с возможностью поиска по всем полям. Или может встроено в какой-нить большой конфе. Очень хочется посмотреть эту штуку. Подскажите где рыть!
Всего записей: 45 | Зарегистр. 31-05-2007 | Отправлено: 19:35 29-11-2007
farsesoft



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

Цитата:
при открытии оной пишет "ошибка блокировки данных..."

может у файликов стоит признак "только для чтения"?

----------
"Благословение Господне - оно обогащает и печали с собою не приносит" (Пр. 10:22)
Всего записей: 697 | Зарегистр. 27-02-2006 | Отправлено: 14:08 30-11-2007
ASergey



Junior Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Доброго времени суток! Помогите, дайте совет.  Дело в том что я не очень соображаю в 1С программировании, но сейчас передомной руководство поставило задачу помочь буху. Бух хочет (из письма):
Очень хочется (!!!) добавить в 1с такой вид аналитического учета, как «по артикулам товаров».
 
Для этого необходимо, чтобы  на 41 и 43 счетах был  вид субконто «АртикулТовара» – это первое.
 
И второе – нужно, чтобы программа понимала «АртикулТовара»  - как реквизит справочника…  (может я не совсем правильно говорю, потому что … как реквизит справочника «АртикулТовара»  есть….. но программа не использует его при формировании документов). В документах (накладных, например) пусть не использует…. может, в 1с это и не предусмотрено…. НО!!! в аналитическом учете использовать этот реквизит справочника НАДО «заставить» программу использовать. Например, в таких отчетах, как «оборотно-сальдовая ведомость по счету» или «карточка счета» и т.д.
 
 
А с чего начать я не знаю.  
У нас 1С предприятие 7.7, конфигурация Бух учет ред 4.5 (493)
Вот такая проблема … помогите!!!!!!!!
Всего записей: 62 | Зарегистр. 19-09-2006 | Отправлено: 19:18 30-11-2007 | Исправлено: ASergey, 19:32 30-11-2007
fol



Advanced Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
ASergey
Начнем по порядку. У меня 491 бухгалтерия стоИт (новее нет под рукой), реквизита АртикулТовара я там не заметил, значит конфига дописаная. По поводу субконто на 41 и 43 счете: оно там не нужно!. Объясню почему. Субконто - это разрез учета, например, на 43 счете есть субконто Номенклатура и МестаХранения. Это значит что у нас разная номенклатура может храниться на разных складах, при этом связи между ними однозначной нет. А артикул товара, как ты верно заметил, это реквизит справочника Номенклатура, т.е. между ним и товаром есть однозначная сявзь: АртикулТовара = Номенклатура.АртикулТовара. Т.е. добавление субконто Артикул будет избыточным, т.к. имея номенклатуру мы можем легко получить ее артикул. Невозможна ведь такая ситуация чтобы значение субконто "Артикул" отличалось от значения Номенклатура.Артикул, верно? Надеюсь убедил.
Теперь по поводу отчетов: лезем в макет и в тех местах где выводится номенклатура добавляем колонку "Артикул "(а отчеты ты перечислил универсальные, так что придется добавить в несколько строк). Потом лезем в код и добавляем проверку: если вид субконто у нас номенклатура, то Артикул = Номенклатура.Артикул, иначе Артикул = "".
Дописка не очень сложная, для специалиста занимает минут 10, ты может потратишь чуть больше времени. Успехов!
 
Добавлено:
akifjevda
На itland.ru как-то видел то что ты ищешь, там правда код закрытый. Попробуй, вдруг подойдет.
Всего записей: 805 | Зарегистр. 02-11-2002 | Отправлено: 22:18 30-11-2007
levnev



Junior Member		Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
ASergey больше того, дополню ответ уважаемого fol - раз конфа типовая, то твои "исправления" типовых отчетов могут "потеряться" при обновлении на очередной релиз, поэтому рекомендую не "исправлять", а скопировать, "обозвать" такой отчет(ы) по-своему (отличному от типового названия) и перенастроить интерфейс этому бухгалтеру на "свои" отчеты! Если этого не сделать. то будет "мартышкин" труд после каждого обновления типовой конфы - об этом тоже надо помнить...
 
Добавлено:
Fantom 14, либо стоит "только чтение", как справедливо заметил farsesoft, либо в каталоге базы или подкаталогам пользователей (смотри, что назначено в качестве рабочих каталогов пользователям в конфигураторе) есть файлик 1Cv7.LCK, - это есть блокировка при работе кого-то в базе!
 
Всего записей: 199 | Зарегистр. 23-04-2005 | Отправлено: 00:23 01-12-2007
akifjevda

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

Цитата:
На itland.ru как-то видел то что ты ищешь, там правда код закрытый. Попробуй, вдруг подойдет.

 
Там все разделы в разработке, не смог найти телефонного справочника. На форуме тоже поиск не помог. К тому же там все под 8, а мне надо бы под 7.7. Может еще есть какие варианты?
Всего записей: 45 | Зарегистр. 31-05-2007 | Отправлено: 11:42 01-12-2007 | Исправлено: akifjevda, 11:45 01-12-2007
sktroman



Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Народ ау. Кто-нибудь знает в чем дело?
Поставил обновление Комплексной 475 на давно не обновленную.
Но вот это не понял:
В процедуре ПодготовитьТаблИтогов строки
    Пока ТаблИтогов.ПолучитьСтроку() = 1 Цикл
        Если Константа.КонтрольОтрицательныхОстатков = Перечисление.СпособыКонтроляОстатковТМЦ.ПоКомпании Тогда  
            ТаблИтогов.Фирма = ПустаяФирма;  
        иначе        
            Если ТаблИтогов.Фирма <> Фирма Тогда
                ТаблИтогов.Фирма = ПустаяФирма;
            ИначеЕсли ТаблИтогов.Количество < 0 Тогда
                ТаблИтогов.Фирма = ПустаяФирма;
            КонецЕсли;
        КонецЕсли;
    КонецЦикла;
По правильному надо же сначала списывать с фирмы из документа, затем с других.
При этом если по компании, то получается фирма пофигу, чушь какая-то - 1 товар, 2 фирмы, расчет себест. по среднему. Приход на 1 фирму (себест 1) затем на вторую (себест 2), продадим со 2 фирмы. Дык она берет и списывает партию с 1 фирмы (Себест 1).
Всего записей: 223 | Зарегистр. 16-01-2003 | Отправлено: 07:54 02-12-2007 | Исправлено: sktroman, 12:48 05-12-2007
m16

Junior Member		Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Помогите, pls. Может кто сталкивался.
Нужно реализовать в инвентаризации выборку по группам или категориям товара.
Предприятие 7.7(7.70.027), Торговля и склад для Украины 7.70.004.
Спасибо.
Всего записей: 53 | Зарегистр. 11-12-2003 | Отправлено: 11:58 03-12-2007
bvsbvs



Newbie		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
При переходе с бухгалтерии 1.5.20 (8.0) на бух 1.6.3 после обновления выскакивает ошибка:
 
{ОбщийМодуль.РаботаСДиалогами(4485,36)}: Переменная не определена (АвтонумерацияВФорме)
    Если ФормаОбъекта.Автонумерация = <<?>>АвтонумерацияВФорме.Авто Тогда
 
Что делать?, я особо не силен в программировании
Всего записей: 20 | Зарегистр. 17-01-2007 | Отправлено: 12:37 03-12-2007
Fantom 14



Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
можно ли так сделать:            
            Док=ВыбПриходная;
    Док.ВыбратьСтроки();
    Пока Док.ПолучитьСтроку()=1 Цикл
           Если Док.Количество=0 Тогда
        Док.СделатьНеПроведенным();
        Док.Количество=Док.СуммаПоставщика/Док.ЦенаПоставщика;
                           Док.Записать();
         Док.Провести(0);
         Сообщить(Док.НомерДок);
            КонецЕсли;
    КонецЦикла;
?????
 
получится ли в накладной количество присвоить именно так?
Всего записей: 322 | Зарегистр. 23-10-2004 | Отправлено: 17:06 03-12-2007
vadver

Junior Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Fantom 14
Это ты после каждой строки будешь заново перепроводить???
Уж лучше так:

Код:
 
    Док=ВыбПриходная;
    Док.ВыбратьСтроки();
    Надоперепровести = 0;
    Пока Док.ПолучитьСтроку()=1 Цикл
           Если Док.Количество=0 Тогда
             НадоПерепровести = 1;
             Док.Количество=Док.СуммаПоставщика/Док.ЦенаПоставщика;
           КонецЕсли;
    КонецЦикла;  
    Если НадоПерепровести = 1 Тогда
         Док.записать();
         Док.Провести();
         Сообщить(Док.НомерДок);
    Конецесли;
 

 
Можно и короче, и проверок еще всяких понаставить...
Всего записей: 80 | Зарегистр. 10-05-2005 | Отправлено: 17:23 03-12-2007
Fantom 14



Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
логично...
что я хочу: хочу посмотреть в накладной строку и уточнить количество товара в ней. если по какой-то причине кол-во равно 0 то, используя сумму поставки и цену поставки, установить кол-во насильно. при этом распровести накладную, а затем провести обратно после изменений кол-ва.

Код:
 
    Док=СоздатьОбъект("Документ.Приходная");
    Док.ВыбратьДокументы(ВыбНачПериода,ВыбКонПериода);
    
    Пока Док.ПолучитьДокумент()=1 Цикл
        Док.ВыбратьСтроки();  
        Надоперепровести = 0;  
            Пока Док.ПолучитьСтроку()=1 Цикл
        кол=Док.Количество;
                Если кол=0 Тогда
              Если Док.Проведен()=1 Тогда
             Док.СделатьНеПроведенным();
              КонецЕсли;
                     НадоПерепровести = 1;  
                     Док.Количество=Док.СуммаПоставщика/Док.ЦенаПоставщика;  
        КонецЕсли;  
            КонецЦикла;  
            Если НадоПерепровести = 1 Тогда  
                       Док.записать();  
                       Док.Провести();  
                 Сообщить(Док.НомерДок);  
            Конецесли;
    КонецЦикла;
 

 
но он сцуко не хочет заходить вот сюда....

Код:
 
        Если Док.Проведен()=1 Тогда
      Док.СделатьНеПроведенным();
        КонецЕсли;
          НадоПерепровести = 1;  
             Док.Количество=Док.СуммаПоставщика/Док.ЦенаПоставщика;  
 

что можно придумать еще?
Всего записей: 322 | Зарегистр. 23-10-2004 | Отправлено: 18:03 03-12-2007
vadver

Junior Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Fantom 14
Вот не вижу смысла так делать. Зачем распроводить, если документ потом все равно перепроведется.
Или надо полностью условия задачи приводить.
 
Добавлено:
Fantom 14
Количество в документе у тебя какую разрядность имеет?
Всего записей: 80 | Зарегистр. 10-05-2005 | Отправлено: 18:21 03-12-2007
Roman_Nikolaevich

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

Цитата:
но он сцуко не хочет заходить вот сюда....  

Я бы проверку на проведенность повыше поставил.
 
Пока (Док.ПолучитьДокумент()=1) и (Док.Проведен()=1) Цикл  
 
а отмену проведения пониже и добавить очистку движений
 
Если НадоПерепровести = 1 Тогда  
    Док.СделатьНеПроведенным();  
    Док.ОчиститьДвижения();
    Док.Записать();  
    Док.Провести();  
    Сообщить(Док.НомерДок);  
Конецесли;  
 
Если не получится тогда "Док.Записать();" перенеси после "Док.Количество=Док.СуммаПоставщика/Док.ЦенаПоставщика;"
будет ОЧЕНЬ долго работать, но может сработать.
Всего записей: 188 | Зарегистр. 23-03-2005 | Отправлено: 20:21 03-12-2007
Fantom 14



Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
в конфигурации еФарма на остатках есть товар А. с некоторых пор он перестал отпускаться покупателям. в тех накладных в которых он приходил количество на этот товар стоит 0 штук. хотя количество товара приходило явно не меньше 1... может ктонить подскажет как вернуть нужное количество в строку?
 
вот моя проблема.  я и весь отдел одминов и прогеров не всасывает с чего все это началось... накладная есть в ней есть приход товара, а количество этого товара нет
вот я и ищу способы вручную задать количество такого товара....
Всего записей: 322 | Зарегистр. 23-10-2004 | Отправлено: 20:37 03-12-2007
Xakepua

Newbie		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
есть вот такой запрос:
ИтВЗ = СоздатьОбъект("БухгалтерскиеИтоги");
ИтВЗ.ИспользоватьРазделительУчета(ВыбраннаяФирма);
ИтВЗ.ИспользоватьСубконто(ВидыСубконто.Контрагенты);  
ИтВЗ.ВключатьСубсчета(-1,-1);
ИтВЗ.ВыполнитьЗапрос(НачДата,КонДата,"36,ВЗ",спСчетаВЗ,,3,,);
П0213=0;          
П0223=0;    
ИтВЗ.ВыбратьСчета();
Пока ИтВЗ.ПолучитьСчет()=1 Цикл
    ИтВЗ.ВыбратьСубконто();
    Пока ИтВЗ.ПолучитьСубконто()=1 Цикл
        КатКонтр=СоздатьОбъект("Справочник.КатегорииКонтрагентов");
            КатКонтр.ИспользоватьВладельца(ИтВЗ.Субконто());
            КатКонтр.ВыбратьЭлементы();
            Пока КатКонтр.ПолучитьЭлемент()=1 Цикл
                Если КатКонтр.ТекущийЭлемент().ПометкаУдаления() = 0 Тогда
                    Если КатКонтр.ТекущийЭлемент().Категория = ВЗОтеч Тогда
                        ИтВЗ.ВыбратьКорСчета();
                        Пока ИтВЗ.ПолучитьКорСчет()=1 Цикл
                            //    резидентам
                            Если спСчетаВЗ.Принадлежит(ИтВЗ.КорСчет)=1 Тогда
                                    П0213=П0213+ИтВЗ.КО();
                            КонецЕсли;
                        КонецЦикла;                                                                              
                        Прервать;                  
                    ИначеЕсли КатКонтр.ТекущийЭлемент().Категория = ВЗИнос Тогда
                        //    на экспорт
                        ИтВЗ.ВыбратьКорСчета();
                        Пока ИтВЗ.ПолучитьКорСчет()=1 Цикл
                            //    резидентам
                            Если спСчетаВЗ.Принадлежит(ИтВЗ.КорСчет)=1 Тогда
                                П0223=П0223+ИтВЗ.КО();
                            КонецЕсли;
                        КонецЦикла;    
                        Прервать;
                    КонецЕсли;    
                КонецЕсли;  
            КонецЦикла;  
        КонецЦикла;  
КонецЦикла;
при его выполнении ничего не выводит, при попытке пройти его в отладчике происходит следущая ошибка "Нарушена синхронизация между 1С:Предприятием и Отладчиком." и
1С:Предприятием слетает
может кто сталкивался? никогда раньше такого не видел, поиск ничего не дал ((.
Конфа ПУБ для Украины - 7.70.016, 1С - 7.70.027
пробовал на 7.70.025 - те же грабли
Всего записей: 2 | Зарегистр. 27-02-2007 | Отправлено: 11:57 04-12-2007
   

Страницы: 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 102 103 104

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


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

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

LiteCoin: LgY72v35StJhV2xbt8CpxbQ9gFY6jwZ67r

Рейтинг.ru