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

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

   

St01en

Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
День добрый, господа. Возникла необходимость освоить 1С. Нашел в сети пособие "1С Бухгалтерия шаг за шагом", автор Каев А. Там описывается версия 7.5. У меня 7.7 Естественно, надо бы учить по книге про 7.7, но уж очень все доходчиво и понятно у Каева написано. Но. ЗАвис на 16 странице. Код проводки.
 
Процедура ОбработкаПроведения()
    Пока ПолучитьСтроку() = 1 Цикл  
        Операция.НоваяПроводка();
        Операция.Кредит.Счет = СчетПоКоду("60.1");
        Операция.Дебет.Счет = СчетПоКоду("08.4");
        Операция.СодержаниеПроводки = "Поступление ОС";
        Операция.Сумма = Сумма;  
        Операция.НомерЖурнала="OC";
    КонецЦикла;
    Операция.Записать();
КонецПроцедуры
 
Не буду спрашивать, почему не работает. Насколько я понял, язык сильно поменялся. Если кому не трудно - дайте рабочий код, а я попробую сам разобраться. И посоветуйте книгу по 7.7, чтоб с нуля, но доходчиво.

Всего записей: 292 | Зарегистр. 10-04-2006 | Отправлено: 13:53 21-01-2008
G789

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
AndyCaramba
Все правильно.(что-то я тормажу )
Тип фильтра - 3 - не использовать в запросе указанный ВидСубконто (1 параметр, 2-ой не учитывается вообще)

Всего записей: 83 | Зарегистр. 16-05-2007 | Отправлено: 13:54 21-01-2008 | Исправлено: G789, 14:12 21-01-2008
4Life



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

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

Всего записей: 766 | Зарегистр. 05-06-2003 | Отправлено: 13:55 21-01-2008
BlackVetal



Advanced Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
SturmLS
а в сомом регистре есть склад - ну имеется ввиду реквизит "Склад" заполнен?

Всего записей: 1094 | Зарегистр. 13-11-2005 | Отправлено: 13:56 21-01-2008
FOLD

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

Цитата:
СокрЛП  не помогают
СокрЛП - это для строки . Нужно чтобы типы данных совпадали.

Всего записей: 1238 | Зарегистр. 26-01-2004 | Отправлено: 14:09 21-01-2008
AndyCaramba

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

Цитата:
Все правильно.(что-то я тормажу  )  
Тип фильтра - 3 - не использовать в запросе указанный ВидСубконто (1 параметр, 2-ой не учитывается вооюще)

Так то-то и оно, что в результат запроса по итогам всё равно попадают суммы по субконто, для которого я ставлю ТипФильтра 3, то есть попадают вообще все субконто, а я так понял из хелпа, что должны попадать все субконто, кроме этого указанного.
Или же я не так понял хелп? Тогда как ещё можно исключить конкретный субконто из запроса по Бухгалтерским итогам (точнее из сумм итогов, возвращаемых этим запросом)? То бишь мне надо, чтобы при Ит.ВыполнитьЗапрос() мне вернулся например Ит.ДО() за минусом суммы оборотов по одному конкретному субконто.

Всего записей: 154 | Зарегистр. 20-01-2004 | Отправлено: 14:12 21-01-2008 | Исправлено: AndyCaramba, 14:16 21-01-2008
4Life



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

Всего записей: 766 | Зарегистр. 05-06-2003 | Отправлено: 14:19 21-01-2008
St01en

Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
AndyCaramba
Может я и не прав, но исходя из логики любого языка, здесь нужно использовать конструкцию if -> else. Т.е., сначала выбрать субконто, потом, "если субконто = запрошлый период, то исключить". Сорь, синтаксис 1С я не знаю, но логика, думаю понятна.

Всего записей: 292 | Зарегистр. 10-04-2006 | Отправлено: 14:25 21-01-2008
FOLD

Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
4Life
Если ты делаешь документ тогда в этом документе естьреквизит "Контраген",
размещаешь на форме полеввода с типом значения справочник контрагенты Буквально выглядит так
в конфигураторе открываешь форму документа - меню "вставить - реквизиты -контрагент"
и фсе - никакого кода не нужно.
 
 

Цитата:
Тогда какой тип получается когда я вытягиваю наименование из справочника Контрагент

А здесть такой пример
Спр = СоздатьОбъект("Справочник.Контрагенты");
Если Спр.НайтиПоНаименованию("Петров") Тогда
Контрагент = Спр.ТекущийЭлемент()

Всего записей: 1238 | Зарегистр. 26-01-2004 | Отправлено: 14:32 21-01-2008
G789

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
AndyCaramba
ВидСубконто - 1-ый параметр
КонкретноеСУбконто(элемент справочника) - 2-ой параметр, имеет смысл, только если ТипФильтра = 2;
Можно попробывать примерно так
СписокДоговоров = СоздатьОбъект("СписокЗначений");
Договора = СоздатьОбъект("Справочник.Договора");
Договора.ВыбратьЭлементы();
Пока Договора.ПолучитьЭлемент()=1 Цикл
    //Проверяем нужен или нет
    Если Договора.ТекущийЭлемент()=.... Тогда
        СписокДоговоров.ДобавитьЗначение(Договора.ТекущийЭлемент());
    КонецЕсли;
КонецЦикла;
Ит = СоздатьОбъект("БухгалтерскиеИтоги");
Ит.ИспользоватьСубконто(ВидыСубконто.Договора,СписокДоговоров,2);
.....

Всего записей: 83 | Зарегистр. 16-05-2007 | Отправлено: 14:32 21-01-2008
AndyCaramba

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
St01en
Так то-то и оно, что даже if..else не срабатывает. Ибо если я указываю ТипФильтра 1 или 2, то он возвращает результаты только в разрезе этого конкретного субконто и не включает в результат итоги по другим субконто, а если я указываю ТипФильтра 3, то результат вообще не возвращается ни по одному субконто, а тока в разрезе периодов. Так что в обеих случаях даже сравнивать не с чем по условию.
 
Добавлено:
G789
Вооооот!!! Блин, точно же, и как сам до такого простого способа не допёр? Вот, что значит лажануться.
Огромнейшее спасибо, жму руку.

Всего записей: 154 | Зарегистр. 20-01-2004 | Отправлено: 14:39 21-01-2008
SturmLS

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
BlackVetal
Реквизит склад есть.  
 
Это отчет по неликвидам товаров, создается запрос, к примеру, за 3 месяца, если в эти три месяца не было движения товара, то считается что товар, неликвид, выводится остаток, и ищутся последние Приходные накладные, количество, цена и все это выводится в отчет. Понадобилось к этим позициям дополнительно указать текущий склад хранения и я сел в лужу =)

Всего записей: 137 | Зарегистр. 23-02-2002 | Отправлено: 15:01 21-01-2008
FOLD

Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
SturmLS
Повторяю тебе методом сводныеостатки ты не определишь склад ,этот метод предназначен для другого  
Если бы ты в и СводныеОстатки(<Измерен1>, <Измерен2>...)  в измерение ,определили конкретныйсклад,
 тогда бы этот метод показал тебе значение ресурса"количество" .

Цитата:
Метод СводныеОстатки извлекает по переданным в качестве параметров измерениям все ресурсы по регистру.

 
Если тебе так нравится сводныеостатки перебирай склады в цикле, и подставляй в  нужное "измерение"
 
Но вот  простой пример как узнать на каком складе сколько  
 Вданном случае ТЗ - ЭТО таблицазначений на форме(для наглядности)
 Товар - элемент справочника номенклатура
 
    ОстаткиТМЦ = СоздатьОбъект("Регистр.ОстаткиТМЦ");
   ОстаткиТМЦ.УстановитьЗначениеФильтра("Номенклатура",Товар, 1);            
   ОстаткиТМЦ.ВыгрузитьИтоги(ТЗ,1,1);
 
 или так за минуту сляпано конструктором
 
 
    
    Запрос = СоздатьОбъект("Запрос");
    ТекстЗапроса =  
    "//{{ЗАПРОС(Сформировать)
    |Номенклатура = Регистр.ОстаткиТМЦ.Номенклатура;
    |Склад = Регистр.ОстаткиТМЦ.Склад;
    |Количество = Регистр.ОстаткиТМЦ.Количество;
    |Функция КоличествоКонОст = КонОст(Количество);
    |Группировка Склад;
    |Условие(Номенклатура =Товар);
    |"//}}ЗАПРОС
    ;
    // Если ошибка в запросе, то выход из процедуры
    Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
        Возврат;
    КонецЕсли;
 
    // Подготовка к заполнению выходных форм данными запроса
 
    // Заполнение полей "Заголовок"
 
//    Пока Запрос.Группировка(1) = 1 Цикл
//        // Заполнение полей Склад
//
//    КонецЦикла;
    // Заполнение полей "Итого"
 
    // Вывод заполненной формы  
    
    
    Запрос.Выгрузить(ТЗ);
 
 
 
 

Всего записей: 1238 | Зарегистр. 26-01-2004 | Отправлено: 15:24 21-01-2008 | Исправлено: FOLD, 15:37 21-01-2008
SturmLS

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
FOLD
Спасибо, попробую через СписокЗначений получить все склады, на которых лежал товар, далее циклом пройтись и найти где он сейчас.

Всего записей: 137 | Зарегистр. 23-02-2002 | Отправлено: 17:11 21-01-2008
4Life



Advanced Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
G789
Смотри, мне нужно для каждого Контрагента создать "платежку". Я делаю цикл, и циклом всех перебираю. Наименование контрагента я вытягиваю без проблем, но в поле Контрагент он не добавляет
 
Добавлено:
Спс, нужно было ТекущийЭлемент()  
тормознул

Всего записей: 766 | Зарегистр. 05-06-2003 | Отправлено: 18:19 21-01-2008
Litr1

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Добрый день!
Я наверное не в тему, но может кто поможет совместить рабочее место кассира в УТ 10.3.2.11 и Сyberplat для приема платежей. Здесь что то описано http://www.cyberplat.ru/tech/cashdesk/ но я в этом вобще не секу...
P.S. ногами тока не пинайте...

Всего записей: 11 | Зарегистр. 03-12-2006 | Отправлено: 19:58 22-01-2008
KevIX

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Sarancha75
BlackVetal
Спасибо большое за совет, помогло)
 
Уважаемые эксперты.
Вопрос теперь такого характера, мне необходимо синхронизирвать две одинаковые базы данных, т.е. задача в том чтобы наложить измененные данные старой базы, в новую, в которой продолжался вестись учет.
так вот, вопрос в следующем:
если я буду изменять только файлы DBF, а другие не трогать, то я все правильно сделаю? не будет ли каких глюков в системе, и т.п. Как я понимаю данные хранятся толоько в DBF файлах?
 
Буду премного благодарен если не оставите мой вопрос без ответа

Всего записей: 8 | Зарегистр. 18-01-2008 | Отправлено: 23:42 22-01-2008
BlackVetal



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

Всего записей: 1094 | Зарегистр. 13-11-2005 | Отправлено: 06:25 23-01-2008
Sacronocturn

Junior Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Приветствую всех.
Помогите пожалуйста с одной проблемой. Наши бухи хотят отключить в "Накладной" проводку "41.4 - 90.2" при проведении "Отгрузки Товара", что бы потом её сделать вручную. Я пробовал через конфигуратор просто закомментировать эти счета и операции с ними, но результатом стало только "утеря" товара. Программа попросту его не видит. Если вернуть обратно, то все Ок. Пробовал изменять проводки непосредственно, через 1с  - получилось, но бухи посчитали сей процесс слишком муторным с учетом того, что отгрузок очень много.
Что еще можно придумать или поменять в модуле, что бы эта проводка не проводилась автоматически?  Заранее премного благодарен.
Программа: 1с Бухгалтерия 7.7 База 483  

Всего записей: 71 | Зарегистр. 09-11-2005 | Отправлено: 11:07 23-01-2008
4Life



Advanced Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Можно ли программно отпечать "платежку"?
т.е. без нажатия ctrl+P ?
7.7

Всего записей: 766 | Зарегистр. 05-06-2003 | Отправлено: 14:03 23-01-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 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

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru