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

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

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

ShIvADeSt (03-04-2009 02:03): Продолжение тут
http://forum.ru-board.com/topic.cgi?forum=33&topic=10256#1
 Версия для печати • ПодписатьсяДобавить в закладки
Страницы: 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

   

ShIvADeSt



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


ПРОГРАММЫ  1С:Предприятие 1C - 1C: Вопросы по конфигурациям

ВАРЕЗНИК   1C:Предприятие 7.7 - 1С:Предприятие v.8.x - 1C Диск ИТС - 1С: Совместимо 8.х

Топик 1C Ebooks
ЗДЕСЬ (обновлено 27.03.2009) - небольшая библиотечка (книги, документация, видео, утилиты) по 1С, финансам, бухучету и т.п.
Все рассортировано по версиям...

Для заблудившихся в трех соснах >>> FAQ по форуму RU.Board

Всего записей: 3956 | Зарегистр. 29-07-2003 | Отправлено: 02:30 06-02-2008 | Исправлено: vkramnik, 21:26 27-03-2009
ToppeaDop

Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Lihonosov
понятно, что не получается - форма открывается НЕ модально.
 
надо открывать форму модально, тогда она будет возвращать результат своей отработки.
 
Иначе - в переменной просто результат, смогла 1С-ка форму открыть или нет (произошла ошибка).

----------
Делаю древесный уголь. Прессую так, что мама не узнает.

Всего записей: 466 | Зарегистр. 24-08-2003 | Отправлено: 18:28 26-03-2008
Lihonosov

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

Код:
МояПерем=ОткрытьФормуМодально(СпрТМЦ.ТекущийЭлемент());
Сообщить(МояПерем);

У меня всегда возвращает 0 (какие бы кнопки я не нажимал)
Есть пример кода, где форма возвращает свой результат (с учетом что в все должно быть во внешнем модуле, т.е. в конфигурации нет никаких изменений)?

Всего записей: 540 | Зарегистр. 05-07-2007 | Отправлено: 18:46 26-03-2008
ToppeaDop

Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Lihonosov
 
я делал перенос накладных из бух в торг.
 
могу дать обработку.

----------
Делаю древесный уголь. Прессую так, что мама не узнает.

Всего записей: 466 | Зарегистр. 24-08-2003 | Отправлено: 18:52 26-03-2008
farsesoft



Advanced Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
В 1С:Бухгалтерии 7.7 в рег.отчетности за 4 кв (4003) в декларации по налогу на прибыль в разделе 1.2 не пойму откуда берутся сроки уплаты (строки 020, 030, 040; что-то в одной фирме они автоматом не проставились, пришлось ставить галку "отменить авторасчет ячеек" и вбивать в ручную)
Может кто знает откуда они берутся
Заранее благодарю за ответ

----------
"Благословение Господне - оно обогащает и печали с собою не приносит" (Пр. 10:22)

Всего записей: 697 | Зарегистр. 27-02-2006 | Отправлено: 18:54 26-03-2008
polimorff

Newbie
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Добрый день!
 
Никак не могу загуглить и заяндексить адекватную следующую информацию, помогите... сам не в теме, родственники очень попросили срочно узнать, как "разбирающегося в ИТ" (правда, в совсем других вопросах, но кто понимает..)...
 
Подскажите пожалуйста, насколько сложна и затратна миграция:  
из версии 1С Предприятия 7.7 (7.70.027) "Производство+услуги+бухгалтерия" редакции 2.8 (7.70.305)
в последнюю версию 1С Предприятия 8.1?
Есть ли готовые решения по теме (импорт старой БД, конвертация, передача через SQL и т.д.)? И если нет - сколько это может стоить для 2 оказывающих услуги (где-то около 10 в день) компаний с балансом около 200-250 млн.руб. 2007-2008 гг. (ориентировочно, чтобы прикинуть порядок цифр - 500$? 1000$? 5000$? 10000$?)
И к кому лучше обращаться? К 1С или к сторонним компаниям? Еесть ли где-нибудь список последних?
 
Заранее огромное спасибо!!!

Всего записей: 3 | Зарегистр. 18-10-2004 | Отправлено: 18:56 26-03-2008 | Исправлено: polimorff, 19:20 26-03-2008
ToppeaDop

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

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

 
Обработка - внешняя опирается на параметры, которыми оперирует стандартная конфигурация 1С Торговля 7.7
 
То есть, при обновлении стандартной конфигурации, проблем не возникнет, если 1С-овцы не переколбасят код справочника Номенклатура.
 
Недостаток: кажется, не дает вводить новый товар (нет кнопки новый), но это, теоретически, тоже решаемо - открыть форму справочника и программно ей распихать значения по полям.  
Может,  я и решил это, уже не помню, потому что у меня номенклатура не обширная, и новые позиции появляются раз в год.

----------
Делаю древесный уголь. Прессую так, что мама не узнает.

Всего записей: 466 | Зарегистр. 24-08-2003 | Отправлено: 20:15 26-03-2008
FOLD

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

Цитата:
Недостаток: кажется, не дает вводить новый товар (нет кнопки новый), но это, теоретически, тоже решаемо - открыть форму справочника и программно ей распихать значения по полям.  
Вот именно что, теоритечиски ..  
Как открыть форму нового элемента (те не записанного), заполнив реквизиты нужными значениями , не внося изменений в конфу.

Всего записей: 1238 | Зарегистр. 26-01-2004 | Отправлено: 20:29 26-03-2008 | Исправлено: FOLD, 20:41 26-03-2008
valerka78



Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
polimorff
Если память не изменяет, есть стандартные средства 1С для выполнения таких операций (вроде конфигурация "Конвертация данных"). Обращаться надо к человеку, разбирающемся в этих вопросах, лучше, если это будет человек, оказывающий оффициальные услуги по обслуживанию продуктов 1С. За цену ничего сказать не могу, живу в другой стране
FOLD
ОткрытьФорму(<?>,,,,)
Синтаксис:
ОткрытьФорму(<ОписательОбъекта>,<КонтекстФормы>,<ГруппаРодитель>,<ФлагГруппы>,<ЭлементВладелец>)
Назначение:
Открывает визуальную форму ввода нового элемента справочника
Возвращает:  
1 - если действие выполнено, 0 - иначе.
Хотя да, без изменений конфы не получиться прочитать необходимые значения из контекста.
 
Lihonosov

Цитата:
1. Как "перейти" к поиску следующего артикула (в 3 пункте).  
2. Как получить остаток определенного артикула.

Делаешь простой перебор:
СпрТМЦ.ВыбратьЭлементы();
Пока СпрТМЦ.ПолучитьЭлемент() = 1 Цикл
    Если СпрТМЦ.Артикул = МойАртикул Тогда // тут не забыть про соответствия типов
        // собственно это и есть ответ на вопрос 3 или я что-то не так понял?
        // остатки без проблем с помощью объекта "БухгалтерскиеИтоги"
        // можно даже с помощью глобальной переменной БухИтоги
        ОстатокАртикула = БухИтоги.СКД(бла-бла-бла);
        Если ОстатокАртикула = НужныйОстаток Тогда
            Прервать;
        КонецЕсли;
    КонецЕсли;
КонецЦикла;

Всего записей: 248 | Зарегистр. 16-01-2006 | Отправлено: 22:01 26-03-2008 | Исправлено: valerka78, 22:26 26-03-2008
FOLD

Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
valerka78
http://forum.ru-board.com/topic.cgi?forum=33&topic=9226&start=200#8
 

Цитата:
СпрТМЦ.ВыбратьЭлементы();  
Пока СпрТМЦ.ПолучитьЭлемент() = 1 Цикл  
    Если СпрТМЦ.Артикул = МойАртикул Тогда  

Если справочник большой это пипец будет.. если уж так нравится пербор выбрать запрсом ВСЕ элементты справочника  с условием Артикул =МойАртикул, выгрузить результат запроса в ТЗ, и  работать с  ТЗ  

Всего записей: 1238 | Зарегистр. 26-01-2004 | Отправлено: 22:58 26-03-2008
valerka78



Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
FOLD
Ну да, все правильно, сзаду не читал просто

Цитата:
Если справочник большой это пипец будет..

Если большой, то и запросом будет пипец
Суть не в том, что нравится, просто по себе знаю, когда начинал - запросы можно оставить на потом, суть работы одинакова что у запроса, что у цикла, вникнет человек в суть, перейдет сам к запросам

Всего записей: 248 | Зарегистр. 16-01-2006 | Отправлено: 23:28 26-03-2008
farsesoft



Advanced Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
еще вопрос знатокам: почему может быть в реестре стоимости товаров, списанных в отчетном периоде операции без цены единицы и стоимости, но с количеством, причем только некоторые
1С:Бухгалтерия 7.7 дописанная
Заранее благодарю

----------
"Благословение Господне - оно обогащает и печали с собою не приносит" (Пр. 10:22)

Всего записей: 697 | Зарегистр. 27-02-2006 | Отправлено: 10:20 27-03-2008
Lihonosov

Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
ToppeaDop
FOLD
valerka78
Спасибо за Ваши ответы!
Перехожу к другому этапу: Вывод результатов в таблицу.
Например:
Таб = СоздатьОбъект("Таблица");
Таб.ИсходнаяТаблица("Название моей таблицы");
Таб.ВывестиСекцию("Шапка");
Таб.Опции(0,0,Таб.ВысотаТаблицы(),0);
 
СпрТМЦ.ВыбратьЭлементы();
Пока СпрТМЦ.ПолучитьЭлемент() = 1 Цикл
    Если (СпрТМЦ.Артикул = МойАртикул) И (СпрТМЦ.Наименование=МоеНаименование) Тогда
        // Нужно в первую колонку таблицы занести значения Артикула
         //а во вторую значение Наименования

    КонецЕсли;
КонецЦикла;
 
Таб.ТолькоПросмотр(1);
Таб.Показать("Название моей таблицы","");
 
Добавлено:

Цитата:
Если большой, то и запросом будет пипец

Примерно 1,5 тысячи

Всего записей: 540 | Зарегистр. 05-07-2007 | Отправлено: 11:25 27-03-2008 | Исправлено: Lihonosov, 11:30 27-03-2008
S4astliff4ik



Advanced Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Всем привет!!! Ребят нужна помощь!!! У пользователей слетают их настройки!!! Они настраивают их под себя-там отчёты,продажи,контрагенты... Целый день работают нормально... на следующий день приходят,а настройки сбиты,и заново настраивают... раньше такого не было... Имеем 1С 8... SQL..

----------
S4astliff4ik - он такой один ...

Всего записей: 858 | Зарегистр. 20-01-2008 | Отправлено: 12:10 27-03-2008
anatoljevich

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

Цитата:
Доброго времени суток.  
 
Может кто-нить знает можно ли как-нить в 8-ке из числа сформировать родительный падеж (кажется так называется) . например вместо 5 - "пяти", 125 - "ста двадцати пяти", и т.д.  
 
Заранее благодарен


Цитата:
anatoljevich  
смотри на проклабе!  

 
 
на проклабе не нашел

Всего записей: 7 | Зарегистр. 28-02-2008 | Отправлено: 13:56 27-03-2008
polimorff

Newbie
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
valerka78
Спасибо!!! Странно, что сам не вышел на эту конвертацию.. По описанию - то что надо) Буду копать дальше))

Всего записей: 3 | Зарегистр. 18-10-2004 | Отправлено: 16:21 27-03-2008
Lihonosov

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

Код:
Остаток=СоздатьОбъект("БухгалтерскиеИтоги");  
Остаток.ИспользоватьРазделительУчета(глВосстановитьЗначение(,"БазФирма"));
МойОстаток=Остаток.СКД(СчетПоКоду("201"),3,,СпрМестоХранения.ТекущийЭлемент(),СпрТМЦ.ТекущийЭлемент(),);

Выводит остаток на 31 января текущего года.
Нужно выводить остаток на определенное число, КАК?

Всего записей: 540 | Зарегистр. 05-07-2007 | Отправлено: 16:42 27-03-2008
Lihonosov

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

Цитата:
Выводит остаток на 31 января текущего года.
Нужно выводить остаток на определенное число, КАК?  

Остаток.ПериодД(НачДата,КонДата);

Всего записей: 540 | Зарегистр. 05-07-2007 | Отправлено: 19:04 27-03-2008
valerka78



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

Цитата:
// Нужно в первую колонку таблицы занести значения Артикула  
         //а во вторую значение Наименования

 
В таблице пишешь в первой колонке - СпрТМЦ.Артикул, а во второй - СпрТМЦ.Наименование там и там тип поля (в свойствах - "Выражение")
Внутри цикла - Таб.ВывестиСекцию("Секциясвыражением") фсе
 
 
 
Добавлено:
anatoljevich

Цитата:
на проклабе не нашел

Плохо искал.
_http://1c.proclub.ru/modules/mydownloads/personal.php?cid=1&lid=1545

Всего записей: 248 | Зарегистр. 16-01-2006 | Отправлено: 12:49 28-03-2008
Lihonosov

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

Цитата:
там тип поля (в свойствах - "Выражение")  

Спасибо получилось.
Делаю:

Код:
...
Если Остаток=МойОстаток Тогда
    цвЯч=Таб.Область("R4C5");
    цвЯч.ЦветФона(111,111,111);
    Теб.ВывестиСекцию("Строка");
КонецЕсли;
...

Данный код выводит вначале одну пустую строку с закрашенной ячейкой.
Но нужно в зависимости от значения закрасить цветом ячейку.

Всего записей: 540 | Зарегистр. 05-07-2007 | Отправлено: 13:08 28-03-2008
valerka78



Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Lihonosov
Я тебе рекомендую сделать пару секций где выделить строки разным цветом и в зависимости от значения выводить ту или иную секцию так будет гораздо проще.

Всего записей: 248 | Зарегистр. 16-01-2006 | Отправлено: 13:24 28-03-2008
   

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

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


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

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

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru