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

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в 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

   

Gluzer

Gold Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
1С 8.0 Версия для обучения програмированию
Подробнее...

Всего записей: 8765 | Зарегистр. 31-03-2003 | Отправлено: 15:08 19-08-2007
VladZetRu

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

Цитата:
 
//******************************************************************************
// глБанковскаяДата(НачДата,КолвоДней)
//
// Параметры:  
//  НачДата   - дата, от которой считаем,  
//  КолвоДней - количество дней, котрое надо отсчитать
//
// Возвращаемое значение:  
//  Дата, через заданное кол-во дней
//
// Описание:  
//  Функция возвращает дату через заданное количество рабочих дней, т.е.
//  без суббот и воскресений.
//
Функция глБанковскаяДата(НачДата,КолвоДней)  Экспорт
    Перем БанковскихДней, ОбычныхДней, ДеньНедели;
 
    БанковскихДней = 0;
    ОбычныхДней    = 0;
    Пока БанковскихДней < КолвоДней Цикл  
        ОбычныхДней = ОбычныхДней+ 1;
        
        // определим день недели
        ДеньНедели=НомерДняНедели(НачДата+ОбычныхДней);
        
        // если не выходной, то прошел еще один банковский день
        Если ДеньНедели < 6 Тогда
            БанковскихДней=БанковскихДней+1;
        КонецЕсли;
    КонецЦикла;
    
    Возврат (НачДата + ОбычныхДней);
 
КонецФункции // глБанковскаяДата()
 

 

Всего записей: 467 | Зарегистр. 14-03-2005 | Отправлено: 23:45 19-08-2007
783334



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

Цитата:
В торговле есть такое возьми за основу:

 
skip
 
спасибо. я подглядел как сделанов ЗиК, после чего добавил пятидневный календарь в стандартную Бухгалтерию и для вычисления рабочих дней между двумя датами использую стандартную функцию  
 

Код:
КолРабочихДней = Календарь.Дней(НачальнаяДата,КонечнаяДата)

 
на самом деле, это количество "ненулевых" дней, т.е. календарь необходимо заполнить перед использованием. но это очень быстро и не напряжно.

Всего записей: 91 | Зарегистр. 18-01-2007 | Отправлено: 02:36 20-08-2007
BlackVetal



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

Всего записей: 1094 | Зарегистр. 13-11-2005 | Отправлено: 06:56 20-08-2007
Diadema



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Подскажите, пожалуйста, как через DDE в 1c 7.7 связаться с другим приложением? Никак не могу найти информацию по этому вопросу.

Всего записей: 185 | Зарегистр. 17-01-2006 | Отправлено: 09:03 20-08-2007
4Life



Advanced Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Возникла проблема в комплексной версии 7.7:
Необходимо, при формировании расходной накладной подставлять цену из приходной накладной.  
Ни как не получается.

----------
▓▓▓Made in Ukraine▓▓▓

Всего записей: 766 | Зарегистр. 05-06-2003 | Отправлено: 16:35 20-08-2007
fol



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
4Life В регистре партии хранится себестоимость товара (цена*количество). Берешь остатки по партиям, в зависимости от стратегии (фифо/лифо/по среднему) получаешь цену. Или я чего-то не понимаю?

Всего записей: 805 | Зарегистр. 02-11-2002 | Отправлено: 19:44 20-08-2007
4Life



Advanced Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
fol постараюсь более обширнее описать задачу.
 
Есть фирма, она покупает, например, доски по 2$ (допустим, это ее закупочная цена) и по этой же цене они их перепродают другой фирме - без накрутки. Дело в том, что цену нужно брать именно из приходной накладной и при выборе товара в расходной накладной цена должна автоматом подставляться из приходной накладной, когда оприходован товар.
 
Стратегия фифо стоит.  
Т.е. необходимо изменить сам документ РасходнаяНакладная. Затруднение вызывает имеено каким способом (программный код) вытащить из ПриходнойНакладной цену, а не из Партии.
 
Вызвало затруднение именно то, как найти нужную Приходную накладную именно с этим товаром.


----------
▓▓▓Made in Ukraine▓▓▓

Всего записей: 766 | Зарегистр. 05-06-2003 | Отправлено: 10:09 21-08-2007 | Исправлено: 4Life, 10:19 21-08-2007
Alex_vk_47

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
в документе есть процедура "ПриНачалеРедактированияСтроки" там обработка выбора партии  
Партия    = Параметр.Получить("Партия");
можно добавить что-то типа
Цена = Партия.ЗакупочнаяЦена;
глПересчетТаблЧасти(Контекст,Форма.ТекущаяКолонка());
 
только партию должент указывать пользователь.

Всего записей: 75 | Зарегистр. 21-08-2007 | Отправлено: 10:32 21-08-2007
4Life



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

Цитата:
только партию должент указывать пользователь.

мне нужно брать именно из приходной накладной. Не из партии
 

Цитата:
в документе есть процедура "ПриНачалеРедактированияСтроки" там обработка выбора партии  

Спасибо, все процедуры я уже нашел. Загвоздка в том, как вытащить из приходной накладной цену для товара. Из партии не подходит
 
 
 
 
Добавлено:

Цитата:
только партию должент указывать пользователь.

так тоже не подходит.
От пользователя необходимо только то, чтобы он выбрал товар. Цена сама должна вытягиваться из приходной накладной и вставляться в поле "Цена" в расходную накладную
 
Добавлено:
В Приходной накладной в табличных частях есть поля ТМЦ, Цена...
Вот как, я могу найти по известному ТМЦ цену в приходной накладной?

----------
▓▓▓Made in Ukraine▓▓▓

Всего записей: 766 | Зарегистр. 05-06-2003 | Отправлено: 10:51 21-08-2007
Alex_vk_47

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
а то делать в случае если будут 2 партии с разными ценами в режиме авто партий это не прокатит

Всего записей: 75 | Зарегистр. 21-08-2007 | Отправлено: 11:04 21-08-2007
4Life



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

Цитата:
а то делать в случае если будут 2 партии с разными ценами в режиме авто партий это не прокатит

Нужно брать последнюю цену этого товара из приходной накладной.

----------
▓▓▓Made in Ukraine▓▓▓

Всего записей: 766 | Зарегистр. 05-06-2003 | Отправлено: 11:06 21-08-2007
pavlika2



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Нужно получить список с контрагентом, остатком по счету и ЮрАдресом организации. Пробую так:  

Цитата:
ВЫБРАТЬ
    ХозрасчетныйОстатки.Субконто1 КАК Контрагент,
    ХозрасчетныйОстатки.Счет,
    ХозрасчетныйОстатки.СуммаОстатокДт КАК ОстатокДт,
    ХозрасчетныйОстатки.СуммаОстатокКт КАК ОстатокКт,
    КонтактнаяИнформация.Представление
ИЗ
    РегистрБухгалтерии.Хозрасчетный.Остатки(&Дата, Счет В ИЕРАРХИИ (&Счет), , ) КАК ХозрасчетныйОстатки
        ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.КонтактнаяИнформация КАК КонтактнаяИнформация
        ПО ХозрасчетныйОстатки.Субконто1 = КонтактнаяИнформация.Объект
ГДЕ
    КонтактнаяИнформация.Вид = &Вид

Как сделать чтобы в выборку также попадали те контрагенты, у которых не забит ЮрАдрес? Спасибо.

Всего записей: 626 | Зарегистр. 08-10-2004 | Отправлено: 11:06 21-08-2007 | Исправлено: pavlika2, 11:06 21-08-2007
4Life



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

----------
▓▓▓Made in Ukraine▓▓▓

Всего записей: 766 | Зарегистр. 05-06-2003 | Отправлено: 11:08 21-08-2007
783334



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

Цитата:
От пользователя необходимо только то, чтобы он выбрал товар. Цена сама должна вытягиваться из приходной накладной и вставляться в поле "Цена" в расходную накладную

 
кончатся доски по 2 у.е. и привезут доски по 3 у.е. а пользователь по-прежнему будет выбирать старую накладную? имхо, отказываться от "Партий" не есть хорошо.
 
но если настаиваешь, можно использовать  
 

Код:
Если ВвестиЗначение(ВыбранныйДокумент, "Укажите приходную накладную",  "Документ.ПриходнаяНакладная") = 1 Тогда
//для начала проверь что документ проведен и его дата меньше чем сейчас
//затем найди нужную строчку и вытащи цену, стомость и т.д.
//тут же можешь и Партии проверить, вдруг уже все доски кончились
Иначе
//пользователь не выбрал документ.
//можно оставить предупреждение или отформатировать винт
КонецЕсли

Всего записей: 91 | Зарегистр. 18-01-2007 | Отправлено: 11:14 21-08-2007
Alex_vk_47

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
чем не устраивает цена из карточки партии ?
документ "ПоступлениеТМЦ" делает "глОприходованиеПартийТМЦ(Контекст,ТаблицаДокумента,СписокПараметров);"
там вызывается "глЗаполнитьПартию"
где прописывается "СпрПартии.ЗакупочнаяЦена     = Цена;"

Всего записей: 75 | Зарегистр. 21-08-2007 | Отправлено: 11:15 21-08-2007
4Life



Advanced Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Так, прислушаюсь к Вам. Я так понимаю:
При проведении товара через приходную накладную товар должен заносится в Партию ТМЦ?
Если да, тогда по шагам, если можно, где и как все правильно сделать

----------
▓▓▓Made in Ukraine▓▓▓

Всего записей: 766 | Зарегистр. 05-06-2003 | Отправлено: 11:20 21-08-2007
RRRomb

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Цена из партии кг, шт и т.д. должна соответствовать, а не из приходной.
Когда ты формируеш приход на определенное количество товара по определенной цене формируется партия общей стоимотью.
И если ты расходуеш часть а не все то цена будет равна СуммаПартии/Кво * расход
Пойми умные люди не зря придумали партию.
Так как твоих досок может быть много и по разной цене покупали в разное время.
Сегодня по 2 бакса завтра по три и т.д. , а усреднять не нужно.
А в расходной методом подбора по партиям где партия будет твоя приходная выбирать и не мучайся.

Всего записей: 22 | Зарегистр. 02-03-2007 | Отправлено: 11:21 21-08-2007
4Life



Advanced Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Еще возник вопрос.  
Мучаю Демку Комплексной, там все даты за 2005 год. При попытке провести документ текущем числом вылетает ошибка "Период не открыт".
Где этот период открыть?

----------
▓▓▓Made in Ukraine▓▓▓

Всего записей: 766 | Зарегистр. 05-06-2003 | Отправлено: 11:22 21-08-2007
783334



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

Цитата:
Нужно брать последнюю цену этого товара из приходной накладной.

 
ужос. а если приходных накладных несколько тысяч и в любой из них может быть сотня строчек, среди которых, возможно, упоминаются доски по 2 у.е.
 
конечно, можно выбрать все приходные накладные и найти все цены и выбрать самую большую (маленькую, последнюю, первую) но это будет долго и не всегда верно.
 
возможно, бухгалтер завтра одумается и не будет "изобретать велосипед" там, где уже все изобетено?
 
вернемся к первоисточнику:

Цитата:
Есть фирма, она покупает, например, доски по 2$ (допустим, это ее закупочная цена) и по этой же цене они их перепродают другой фирме - без накрутки.

 
я предполагаю, что другим фирмам доски продаются с некоторой накруткой ХХ%. тогда можно ничего не переделывать, а для "нужной" фирмы сделать скидку ХХ% именно на доски. заведи новую "Цену" под названием "Цена досок" и попробуй. главное - ничего писать не придется.

Всего записей: 91 | Зарегистр. 18-01-2007 | Отправлено: 11:22 21-08-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-2024

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru