Правила обмена в 1С:Бухг8.1
Показывать по
10
20
40
сообщений
- 1
- 2
20.05.2010
11:25
#11
Для того, чтобы воспользоваться обработкой нужны две идентичные конфигурации. Для двух разных конфигураций нужно создавать правила переноса и тогда можно будет воспользоваться указанной обработкой.
В указанных Вами конфигурациями нет уже готового обмена между ними? Если есть - пользуйтесь им.
В указанных Вами конфигурациями нет уже готового обмена между ними? Если есть - пользуйтесь им.
20.05.2010
20:16
#12
спасибо! я уже перевела данные в базу УТП. пользовалась стандартной обработкой Выгрузка_БК_УТП.epf
20.05.2010
21:20
#13
"теперь у меня другая проблема. я конечно еще толком не умею программировать. т.е. я не АС своего дела. Но пожалуйста проверьте мой код. Я хочу в БД бухгалтерии т.е. в справочнике номенклатуры автоматически заполнить артикулы.
Процедура КнопкаВыполнитьНажатие(Кнопка)
список = справочники.Номенклатура.Выбрать();
НОМЕР=1;
пока список.Следующий() цикл
если не список.ЭтоГруппа тогда
список.Артикул=НОМЕР;
НОМЕР=НОМЕР+1;
конецесли;
конеццикла;
КонецПроцедуры
"
Процедура КнопкаВыполнитьНажатие(Кнопка)
список = справочники.Номенклатура.Выбрать();
НОМЕР=1;
пока список.Следующий() цикл
если не список.ЭтоГруппа тогда
список.Артикул=НОМЕР;
НОМЕР=НОМЕР+1;
конецесли;
конеццикла;
КонецПроцедуры
"
20.05.2010
21:27
#14
"а нет получилось только код вот такой:
Процедура КнопкаВыполнитьНажатие(Кнопка)
список = справочники.Номенклатура.Выбрать();
номер=1;
пока список.Следующий() цикл
если не список.ЭтоГруппа тогда
ОбъектСписка = Список.ПолучитьОбъект();
ОбъектСписка.Артикул = "00001";
ОбъектСписка.Записать();
конецесли;
конеццикла;
КонецПроцедуры
теперь нужен цикл а возможно ли это на ОбъектСписка.Артикул = "00001";? даже незнаю...."
Процедура КнопкаВыполнитьНажатие(Кнопка)
список = справочники.Номенклатура.Выбрать();
номер=1;
пока список.Следующий() цикл
если не список.ЭтоГруппа тогда
ОбъектСписка = Список.ПолучитьОбъект();
ОбъектСписка.Артикул = "00001";
ОбъектСписка.Записать();
конецесли;
конеццикла;
КонецПроцедуры
теперь нужен цикл а возможно ли это на ОбъектСписка.Артикул = "00001";? даже незнаю...."
21.05.2010
08:48
#15
"Я вот чего не понял: НОМЕР - у вас больше не используется, и что за странный вопрос в конце:
> теперь нужен цикл а возможно ли это на ОбъектСписка.Артикул = "00001";?
Цикл по чему вам нужен? Вы уже в цикле.
Если вам нужно чтобы артикул был строка вида ХХХХХ, тогда так:
ОбъектСписка.Артикул = СтрЗаменить(Формат (НОМЕР,"ЧЦ=5; ЧРГ=!; ЧВН="),"!","""");
НОМЕР=НОМЕР+1;
(к сожалению функция формат при преобразовании числа вставляет разделитель групп, даже если её не просят. Приходиться делать замену их символа на свой, для большей понятности, а потом менять это символ на пустоту="""")"
> теперь нужен цикл а возможно ли это на ОбъектСписка.Артикул = "00001";?
Цикл по чему вам нужен? Вы уже в цикле.
Если вам нужно чтобы артикул был строка вида ХХХХХ, тогда так:
ОбъектСписка.Артикул = СтрЗаменить(Формат (НОМЕР,"ЧЦ=5; ЧРГ=!; ЧВН="),"!","""");
НОМЕР=НОМЕР+1;
(к сожалению функция формат при преобразовании числа вставляет разделитель групп, даже если её не просят. Приходиться делать замену их символа на свой, для большей понятности, а потом менять это символ на пустоту="""")"
22.05.2010
21:58
#16
"спасибо огромное!!!! вот что у меня получилось:
Процедура КнопкаВыполнитьНажатие(Кнопка)
список = справочники.Номенклатура.Выбрать();
номер=1;
пока список.Следующий() цикл
если не список.ЭтоГруппа тогда
если список.Услуга=Истина
тогда
ОбъектСписка = Список.ПолучитьОбъект();
// ОбъектСписка.Артикул = "У00001";
ОбъектСписка.Артикул = "У"+СтрЗаменить(Формат (НОМЕР,"ЧЦ=5; ЧРГ=!; ЧВН="),"!","""");
НОМЕР=НОМЕР+1;
ОбъектСписка.Записать();
иначе
ОбъектСписка = Список.ПолучитьОбъект();
ОбъектСписка.Артикул = "Т00001";
ОбъектСписка.Артикул ="Т"+ СтрЗаменить(Формат (НОМЕР,"ЧЦ=5; ЧРГ=!; ЧВН="),"!","""");
НОМЕР=НОМЕР+1;
ОбъектСписка.Записать();
конецесли;
конецесли;
конеццикла;
конецпроцедуры
"
Процедура КнопкаВыполнитьНажатие(Кнопка)
список = справочники.Номенклатура.Выбрать();
номер=1;
пока список.Следующий() цикл
если не список.ЭтоГруппа тогда
если список.Услуга=Истина
тогда
ОбъектСписка = Список.ПолучитьОбъект();
// ОбъектСписка.Артикул = "У00001";
ОбъектСписка.Артикул = "У"+СтрЗаменить(Формат (НОМЕР,"ЧЦ=5; ЧРГ=!; ЧВН="),"!","""");
НОМЕР=НОМЕР+1;
ОбъектСписка.Записать();
иначе
ОбъектСписка = Список.ПолучитьОбъект();
ОбъектСписка.Артикул = "Т00001";
ОбъектСписка.Артикул ="Т"+ СтрЗаменить(Формат (НОМЕР,"ЧЦ=5; ЧРГ=!; ЧВН="),"!","""");
НОМЕР=НОМЕР+1;
ОбъектСписка.Записать();
конецесли;
конецесли;
конеццикла;
конецпроцедуры
"
27.05.2010
11:44
#17
Здравствуйте, у нас типовая кофиг. Бухгалтерия для Казахстана. но шеф не доволен тем что при реализации товара уходит много бумаги и очень много валакиды с ними. и попросил сделать при реализации товаров счета фактуру и накладную на 1 листе чтобы распечатывались. Я знаю это возможно. пж помогите мне не знаю как начать вообще то я занимаюсь 1с недавно так себе пишу обработки. но никогда в 1с8.1 не занималась документами очень бы хотелось начать.... как можно начать хотябы пример можете написать помогите...
27.05.2010
15:20
#18
Все что вам надо - это создать внешнюю печатную форму.
Посмотрите меню - сервис - Дополнительные внешние отчеты и обработки - Печатные формы. Там нажмите вопрос, и почитайте справку, особенно то что касается "Внешней печатной формы".
И делаете свою печатную форму. Никаких изменений в конфигурации - все довольны.
Посмотрите меню - сервис - Дополнительные внешние отчеты и обработки - Печатные формы. Там нажмите вопрос, и почитайте справку, особенно то что касается "Внешней печатной формы".
И делаете свою печатную форму. Никаких изменений в конфигурации - все довольны.
04.06.2010
01:02
#19
"Добрый день! в общем у меня версия 1С:Предприятие 8.2 (8.2.10.82) ("обновили недавно") проблема в том что у меня заполнен документ "ПлатежныйОрдерСписаниеДенежныхСредств" есть контрагент "один" нужно узнать все коммисии по нему а коммисии мы в тот же документ вводим только под контрагентом "казкомерцбанк".Т.е. у меня идет так контрагент и его сумма а в следующем документе следом его комиссия той же датой и временем. теперь помогите пж. как можно сделать по контрагенту "один" выборку его комисии.
кодом я ниписала так. но тут он выводит мне только в общем коммисию "казкомерцбанка". пожлуйста может как нибудь подправите. плиз помогите это очень срочно...
Процедура КнопкаВыполнитьНажатие(Кнопка)
запрос=новый запрос;
запрос.Текст= "ВЫБРАТЬ
| ПлатежныйОрдерСписаниеДенежныхСредств.Дата КАК дата,
| ПлатежныйОрдерСписаниеДенежныхСредств.Дата КАК дата1,
| ПлатежныйОрдерСписаниеДенежныхСредств.Контрагент,
| ПлатежныйОрдерСписаниеДенежныхСредств.СуммаДокумента
|ИЗ
| Документ.ПлатежныйОрдерСписаниеДенежныхСредств КАК ПлатежныйОрдерСписаниеДенежныхСредств
|ГДЕ
| ПлатежныйОрдерСписаниеДенежныхСредств.Контрагент.Ссылка = &контрагент";
Запрос.УстановитьПараметр("контрагент", контрагент);
запрос=новый запрос;
запрос.Текст= "ВЫБРАТЬ
| ПлатежныйОрдерСписаниеДенежныхСредств.Дата КАК дата1,
| ПлатежныйОрдерСписаниеДенежныхСредств.Контрагент,
| ПлатежныйОрдерСписаниеДенежныхСредств.СуммаДокумента
|ИЗ
| Документ.ПлатежныйОрдерСписаниеДенежныхСредств КАК ПлатежныйОрдерСписаниеДенежныхСредств
|ГДЕ
| ПлатежныйОрдерСписаниеДенежныхСредств.контрагент.Ссылка = &банк";
Запрос.УстановитьПараметр("банк", банк);
Выборка=запрос.Выполнить();
Т=Новый ТабличныйДокумент;
Макет=ПолучитьМакет("Макет");
Областьшапка=Макет.ПолучитьОбласть("Шапка");
Областьстрока=Макет.ПолучитьОбласть("Строка");
Т.Вывести(Областьшапка);
нс=0;
Выборка1=Выборка.Выбрать();
Пока выборка1.Следующий() Цикл
нс=нс+1;
Областьстрока.Параметры.нс=нс;
ОбластьСтрока.Параметры.Заполнить(выборка1);
Т.Вывести(Областьстрока);
КонецЦикла;
Т.Показать();
КонецПроцедуры
////////////////////////////// ////////////////////////////////////
////реквизиты контрагент и банк по ссылке справочник. контрагенты////
///////////////////////////////////////// /////////////////////////"
кодом я ниписала так. но тут он выводит мне только в общем коммисию "казкомерцбанка". пожлуйста может как нибудь подправите. плиз помогите это очень срочно...
Процедура КнопкаВыполнитьНажатие(Кнопка)
запрос=новый запрос;
запрос.Текст= "ВЫБРАТЬ
| ПлатежныйОрдерСписаниеДенежныхСредств.Дата КАК дата,
| ПлатежныйОрдерСписаниеДенежныхСредств.Дата КАК дата1,
| ПлатежныйОрдерСписаниеДенежныхСредств.Контрагент,
| ПлатежныйОрдерСписаниеДенежныхСредств.СуммаДокумента
|ИЗ
| Документ.ПлатежныйОрдерСписаниеДенежныхСредств КАК ПлатежныйОрдерСписаниеДенежныхСредств
|ГДЕ
| ПлатежныйОрдерСписаниеДенежныхСредств.Контрагент.Ссылка = &контрагент";
Запрос.УстановитьПараметр("контрагент", контрагент);
запрос=новый запрос;
запрос.Текст= "ВЫБРАТЬ
| ПлатежныйОрдерСписаниеДенежныхСредств.Дата КАК дата1,
| ПлатежныйОрдерСписаниеДенежныхСредств.Контрагент,
| ПлатежныйОрдерСписаниеДенежныхСредств.СуммаДокумента
|ИЗ
| Документ.ПлатежныйОрдерСписаниеДенежныхСредств КАК ПлатежныйОрдерСписаниеДенежныхСредств
|ГДЕ
| ПлатежныйОрдерСписаниеДенежныхСредств.контрагент.Ссылка = &банк";
Запрос.УстановитьПараметр("банк", банк);
Выборка=запрос.Выполнить();
Т=Новый ТабличныйДокумент;
Макет=ПолучитьМакет("Макет");
Областьшапка=Макет.ПолучитьОбласть("Шапка");
Областьстрока=Макет.ПолучитьОбласть("Строка");
Т.Вывести(Областьшапка);
нс=0;
Выборка1=Выборка.Выбрать();
Пока выборка1.Следующий() Цикл
нс=нс+1;
Областьстрока.Параметры.нс=нс;
ОбластьСтрока.Параметры.Заполнить(выборка1);
Т.Вывести(Областьстрока);
КонецЦикла;
Т.Показать();
КонецПроцедуры
//////////////////////////////
////реквизиты контрагент и банк по ссылке справочник. контрагенты////
/////////////////////////////////////////
- 1
- 2
Читают тему
(гостей: 1)