Версия для печати темы (https://pro1c.org.ua/index.php?showtopic=2204)
Нажмите сюда для просмотра этой темы в обычном формате
Украинский 1С форум: всё про 1С 8.3, 1С 8.2, 1С 8.1, 1С 8.0, 1С 7.7 _ Программирование в 1С Предприятие 7.7 _ БанковскаяВыписка дайте совет
Автор: denismi 24.11.10, 16:05
Добрый день
Подскажите пожалуйста, как сделать что бы при импорте банковской выписки в 1с устанавливалось значение ФИРМА и при этом ставился основной расчетный счет?
Автор: Batchir 24.11.10, 16:20
В обработке импорта данных необходимо реализовать это, или проверить - может всё это уже реализовано, но не установлены в учетной программе значения констант(или другие настройки) из которых должны браться эти данные.
Автор: denismi 24.11.10, 16:32
Цитата(Batchir @ 24.11.10, 17:20) 
В обработке импорта данных необходимо реализовать это, или проверить - может всё это уже реализовано, но не установлены в учетной программе значения констант(или другие настройки) из которых должны браться эти данные.
обработку пишу сам, посто немогу понять как это сделать.
Автор: MATEVI 24.11.10, 16:56
Цитата(denismi @ 24.11.10, 17:32)
обработку пишу сам, посто немогу понять как это сделать.
Фирма = глВосстановитьЗначение(,"БазФирма"); // берем из константы баз фирма
РСчет = Фирма.РС;
Либо вешаем реквизиты в обработку заполняем их ручками и подставляем
Автор: denismi 24.11.10, 18:04
Цитата(MATEVI @ 24.11.10, 17:56)
Фирма = глВосстановитьЗначение(,"БазФирма"); // берем из константы баз фирма
РСчет = Фирма.РС;
Либо вешаем реквизиты в обработку заполняем их ручками и подставляем
РСчет = Фирма.РС;
Либо вешаем реквизиты в обработку заполняем их ручками и подставляем
ваш прмер непонятен
пробую делать так
Выписка.Фирма=Справочник.Фирмы("наименование фирмы");
Автор: MATEVI 24.11.10, 18:32
Цитата(denismi @ 24.11.10, 19:04)
ваш прмер непонятен
пробую делать так
Выписка.Фирма=Справочник.Фирмы("наименование фирмы");
пробую делать так
Выписка.Фирма=Справочник.Фирмы("наименование фирмы");
И что получилось? Издеваться не буду. Если хотите найти по наименованию, то
Спр = СоздатьОбъект("Справочник.Фирмы");
Если Спр.НайтиПоНаименованию("наименование фирмы",0,1)=1 ТОгда
Выписка.Фирма=Спр.ТекущийЭлемент();
КонецЕсли;ЗЫ. Скачайте самоучитель по программированию в 1С77. Очень долго разъяснять
Автор: denismi 25.11.10, 9:21
Цитата(MATEVI @ 24.11.10, 19:32)
И что получилось? Издеваться не буду. Если хотите найти по наименованию, то
Спр = СоздатьОбъект("Справочник.Фирмы");
Если Спр.НайтиПоНаименованию("наименование фирмы",0,1)=1 ТОгда
Выписка.Фирма=Спр.ТекущийЭлемент();
КонецЕсли;ЗЫ. Скачайте самоучитель по программированию в 1С77. Очень долго разъяснять
самоучитель еесть, читаю
большое спасибо за помощь
Автор: igmig65 25.11.10, 9:27
Выписка.Фирма = Константа.БазФирма;
Автор: denismi 25.11.10, 11:05
Если выбираю вручную ВидДвижения в БанковскойВыписке, то автоматом заполняются поля -счет, вид ндс...
если использую
Если КлиентБанк.ВидДвижения =1 Тогда
Выписка.ВидДвижения = Перечисление.ВидиДвиженийПоРасчетномуСчету.Поступление;
ИначеЕсли КлиентБанк.ВидДвижения =0 Тогда
Выписка.ВидДвижения = Перечисление.ВидиДвиженийПоРасчетномуСчету.Списание;
КонецЕсли;
поле принимает значение, а все остальные поля остаются пустыми. приходится еще раз наимать на ВидДвижения.
Подскажите как можно решить?
Автор: Batchir 25.11.10, 11:18
Посмотеть процедуру которая выполняется при ручном редактировании вида движения и тоже самое сделать и при программном
Автор: MATEVI 25.11.10, 12:14
Ну и хоть скажите на какой конфе эксперементируете? Бухгалтерия для Украины?
Автор: denismi 25.11.10, 12:49
Цитата(MATEVI @ 25.11.10, 13:14)
Ну и хоть скажите на какой конфе эксперементируете? Бухгалтерия для Украины?
Бух торговля склад... для Украины
Автор: MATEVI 25.11.10, 13:00
Цитата(denismi @ 25.11.10, 12:05)
Если выбираю вручную ВидДвижения в БанковскойВыписке, то автоматом заполняются поля -счет, вид ндс...
если использую
Если КлиентБанк.ВидДвижения =1 Тогда
Выписка.ВидДвижения = Перечисление.ВидиДвиженийПоРасчетномуСчету.Поступление;
ИначеЕсли КлиентБанк.ВидДвижения =0 Тогда
Выписка.ВидДвижения = Перечисление.ВидиДвиженийПоРасчетномуСчету.Списание;
КонецЕсли;
поле принимает значение, а все остальные поля остаются пустыми. приходится еще раз наимать на ВидДвижения.
Подскажите как можно решить?
если использую
Если КлиентБанк.ВидДвижения =1 Тогда
Выписка.ВидДвижения = Перечисление.ВидиДвиженийПоРасчетномуСчету.Поступление;
ИначеЕсли КлиентБанк.ВидДвижения =0 Тогда
Выписка.ВидДвижения = Перечисление.ВидиДвиженийПоРасчетномуСчету.Списание;
КонецЕсли;
поле принимает значение, а все остальные поля остаются пустыми. приходится еще раз наимать на ВидДвижения.
Подскажите как можно решить?
Добавить еще
Выписка.ВидДвижения = Перечисление.ВидиДвиженийПоРасчетномуСчету.Поступление;
Выписка.НазначитьТип("ВидПриходаРасхода","Перечисление.ВидыПриходаДенег");
Выписка.ВидПриходаРасхода=Перечисление.ВидыПриходаДенег.ВыручкаОтРеализации;
//И соответственно
Выписка.ВидДвижения = Перечисление.ВидыДвиженийПоРасчетномуСчету.Списание;
Выписка.НазначитьТип("ВидПриходаРасхода","Перечисление.ВидыРасходаДенег");
Выписка.ВидПриходаРасхода=Перечисление.ВидыРасходаДенег.НаВедениеХозДеятельности
;ЗЫ Можно и +СПС нажать
Автор: denismi 25.11.10, 13:01
Цитата(denismi @ 25.11.10, 12:05)
Если выбираю вручную ВидДвижения в БанковскойВыписке, то автоматом заполняются поля -счет, вид ндс...
если использую
Если КлиентБанк.ВидДвижения =1 Тогда
Выписка.ВидДвижения = Перечисление.ВидиДвиженийПоРасчетномуСчету.Поступление;
ИначеЕсли КлиентБанк.ВидДвижения =0 Тогда
Выписка.ВидДвижения = Перечисление.ВидиДвиженийПоРасчетномуСчету.Списание;
КонецЕсли;
поле принимает значение, а все остальные поля остаются пустыми. приходится еще раз наимать на ВидДвижения.
Подскажите как можно решить?
если использую
Если КлиентБанк.ВидДвижения =1 Тогда
Выписка.ВидДвижения = Перечисление.ВидиДвиженийПоРасчетномуСчету.Поступление;
ИначеЕсли КлиентБанк.ВидДвижения =0 Тогда
Выписка.ВидДвижения = Перечисление.ВидиДвиженийПоРасчетномуСчету.Списание;
КонецЕсли;
поле принимает значение, а все остальные поля остаются пустыми. приходится еще раз наимать на ВидДвижения.
Подскажите как можно решить?
если я буду дальше продолжать указывать что
сечт = план счетов...
вид ндс =...
таким же способом
Если КлиентБанк.ВидДвижения =1 Тогда
Выписка.ВидДвижения = Перечисление.ВидиДвиженийПоРасчетномуСчету.Поступление;
ИначеЕсли КлиентБанк.ВидДвижения =0 Тогда
Выписка.ВидДвижения = Перечисление.ВидиДвиженийПоРасчетномуСчету.Списание;
КонецЕсли;
это будет считатся правильным?
Автор: denismi 25.11.10, 13:22
Цитата(MATEVI @ 25.11.10, 14:00)
Добавить еще
ЗЫ Можно и +СПС нажать
Выписка.ВидДвижения = Перечисление.ВидиДвиженийПоРасчетномуСчету.Поступление;
Выписка.НазначитьТип("ВидПриходаРасхода","Перечисление.ВидыПриходаДенег");
Выписка.ВидПриходаРасхода=Перечисление.ВидыПриходаДенег.ВыручкаОтРеализации;
//И соответственно
Выписка.ВидДвижения = Перечисление.ВидыДвиженийПоРасчетномуСчету.Списание;
Выписка.НазначитьТип("ВидПриходаРасхода","Перечисление.ВидыРасходаДенег");
Выписка.ВидПриходаРасхода=Перечисление.ВидыРасходаДенег.НаВедениеХозДеятельности
;ЗЫ Можно и +СПС нажать
если не трудно ответить, а что мне это даёт?
эти значения у меня ставятся сами при выборе(ручном) ВидДвижения
Выписка.ВидПриходаРасхода=Перечисление.ВидыПриходаДенег.ВыручкаОтРеализации;
Выписка.ВидПриходаРасхода=Перечисление.ВидыРасходаДенег.НаВедениеХозДеятельности
Автор: MATEVI 25.11.10, 13:41
Цитата(denismi @ 25.11.10, 14:22)
если не трудно ответить, а что мне это даёт?
эти значения у меня ставятся сами при выборе(ручном) ВидДвижения
Выписка.ВидПриходаРасхода=Перечисление.ВидыПриходаДенег.ВыручкаОтРеализации;
Выписка.ВидПриходаРасхода=Перечисление.ВидыРасходаДенег.НаВедениеХозДеятельности
эти значения у меня ставятся сами при выборе(ручном) ВидДвижения
Выписка.ВидПриходаРасхода=Перечисление.ВидыПриходаДенег.ВыручкаОтРеализации;
Выписка.ВидПриходаРасхода=Перечисление.ВидыРасходаДенег.НаВедениеХозДеятельности
Ну вы ведь пишите обработку по автоматическому заполнению
Не так ли? Когда Вы делаете руками выполняются формулы указанные в том или ином реквизите документа БВ, в обработке должны делать также. Иначе тогда проще колотить руками...
И дальше вот это тоже придется делать.
Если приход=0
Выписка.Счет=СчетПоКоду("631");
Выписка.СубконтоВалДохРасх = глВосстановитьЗначение(,"БазВаловыйРасход");//что собственно тоже что и Выписка.СубконтоВалДохРасх=Константа.БазВаловыйРасход;
Выписка.НазначитьТип("Субконто1","Справочник.Контрагенты"); //т.к. это неопределенные реквизиты.
Выписка.НазначитьТип("Субконто2",Выписка.Счет.ВидСубконто(2));
А вообще Вам правильно сказали открывайте отладчик и смотрите что делает БВ при изменении того или иного реквизита. Делайте тоже и подставляйте свои значения из выписки.
Автор: denismi 13.12.10, 18:00
решение на свой вопрос я ненашол
Автор: MATEVI 13.12.10, 18:19
Цитата(denismi @ 13.12.10, 19:00)
решение на свой вопрос я ненашол
На какой именно?
Автор: denismi 14.12.10, 18:30
Цитата(MATEVI @ 13.12.10, 19:19)
На какой именно?
проверил , в коде оставил только строки создание и сохранение пустой выписки.ддалее забил все руками-результат-проводится, но непопадает в журнал проводок.
из этого, при создании формы что то я недописал!?
Автор: Vofka 14.12.10, 18:35
Может быть, когда программно формируете, то не устанавливается какой-то реквизит (возможно невидимы на форме) из-за которого это происходит?
Посмотрите в отладчике все реквизиты у выписки созданной программно и выписки созданной руками.
Автор: alex1c 14.12.10, 19:47
Насколько я понял это комплексная конфа, а в ней у документов есть общие реквизиты: ТипУчета и ФинУчет.
ПроверьТЕ что у ВАС в них стоит и будет ВАМ счастье...
Автор: denismi 15.12.10, 9:57
Цитата(alex1c @ 14.12.10, 20:47)
Насколько я понял это комплексная конфа, а в ней у документов есть общие реквизиты: ТипУчета и ФинУчет.
ПроверьТЕ что у ВАС в них стоит и будет ВАМ счастье...
ПроверьТЕ что у ВАС в них стоит и будет ВАМ счастье...
похоже на это? 6-я строка
взял с конф. БанкВыписка
Процедура ВводНового(Признак)
Если Признак=1 тогда
глУстановитьНомер(Контекст);
Возврат;
КонецЕсли;
глУстановитьТипучета(Контекст);
глУстановитьФирму(Контекст);
РСчет=Фирма.РС;
ИспользоватьСчетНДС=глИспользоватьСчетНДС(ДатаДок);
ИзмРСчет();
КонецПроцедурыда только непонятно как она работает
Автор: Vofka 15.12.10, 10:15
denismi, ну? И какой результат?
Автор: denismi 15.12.10, 10:39
Цитата(Vofka @ 15.12.10, 11:15)
denismi, ну? И какой результат?
есть поле текст - УстановитьДоступность - пытаюсь с ним разобратся
Автор: igmig65 15.12.10, 16:09
Цитата
глУстановитьТипучета(Контекст)
Вот это срабатывает при вводе нового интерактивно, а вы вводите програмно, соответственно тип учета неустанавливается. Вставьте в обработку этот вызов, контекст БВ
Автор: denismi 15.12.10, 17:07
Цитата(igmig65 @ 15.12.10, 17:09)
Вот это срабатывает при вводе нового интерактивно, а вы вводите програмно, соответственно тип учета неустанавливается. Вставьте в обработку этот вызов, контекст БВ
ТипУчета=общ;
финучет=1;
если я все правильно сделал,то не катит
Автор: igmig65 15.12.10, 18:53
вставьте в обработку:
глУстановитьТипучета(БВ)
где БВ - переменная, что вы создали в обработке, если неошибаюсб у вас Выписка
Автор: igmig65 15.12.10, 19:03
Установите константу Выдавать сообщения - 3, и проведите документ заполненный обработкой, если будут сообщения напишите
И еще: что стоит в константе Участки учета.
Автор: denismi 16.12.10, 11:23
Цитата(igmig65 @ 15.12.10, 19:53)
вставьте в обработку:
глУстановитьТипучета(БВ)
где БВ - переменная, что вы создали в обработке, если неошибаюсб у вас Выписка
глУстановитьТипучета(БВ)
где БВ - переменная, что вы создали в обработке, если неошибаюсб у вас Выписка
Ура!!!
Большое ВАМ спасибо.
прокатило!!!
Украинский 1С форум: всё про 1С 8.3, 1С 8.2, 1С 8.1, 1С 8.0, 1С 7.7
https://pro1c.org.ua