Заказы на доработку 1С (сервис удаленной работы)

Хранилище

База знаний
Неназначенных незавершенных заказов: 1
Бесплатные отчеты, обработки, конфигурации, внешние компоненты для 1С Статьи, описание работы, методики по работе с 1С

Здравствуйте, гость ( Войти | Зарегистрироваться )



3 страниц V   1 2 3 >

>  И снова запрос!
ReDll
Отправлено: 19.11.09, 12:30


Говорящий
***

Группа: Пользователи
Сообщений: 68
Регистрация: 27.07.09
Пользователь №: 1204


Это не ПУб, это бухгалтерия на которую дописали торговлю... Наверно ничего так не выйдет...

Но такой вопрос, если отбирать по регистру документы по признаку то получается, что по этой выборке начальное сальдо я не получу никак?
То есть сальдо документов с этим признаком на нужную дату...?
  Форум: Программирование в 1С Предприятие 7.7 · Просмотр сообщения: #6594 · Ответов: 6 · Просмотров: 6165
 

>  Не могу понять суть задания
ReDll
Отправлено: 19.11.09, 10:46


Говорящий
***

Группа: Пользователи
Сообщений: 68
Регистрация: 27.07.09
Пользователь №: 1204


Нууу, незнаю, возможно имеется ввиду, что человек должен знать что такое комиссионная продажа...
Вот ссылка
http://www.dtkt.com.ua/show/4cid1292.html
тут расписано все про комиссионную продажу, правда, для бухгалтерии...

Апдейт

Есть еще тут
http://1c.abbyy.ua/content/view/391/86/

но тут мало...
  Форум: Программирование в 1С Предприятие 7.7 · Просмотр сообщения: #6587 · Ответов: 21 · Просмотров: 16185
 

>  И снова запрос!
ReDll
Отправлено: 19.11.09, 10:37


Говорящий
***

Группа: Пользователи
Сообщений: 68
Регистрация: 27.07.09
Пользователь №: 1204


Хм, без условий работает.....
Я так понимаю, условия теперь вручную перебирать? sad.gif

Просто дело в том, что мне позарез нужно условие
|Условие(Докум.ВидУчета=Перечисление.ВидыУчета.Торговля);
И мне нужно начальное сальдо....

Или, может, кто нибудь подскажет как в комплексной конфигурации получить сальдо на дату, если:
- документы проводятся по бухгалтерии(счета) по торговле(регистры) и совместный (счета+регистры)

Получается сумма совместных документов попадает и в регистры и в счета...
  Форум: Программирование в 1С Предприятие 7.7 · Просмотр сообщения: #6586 · Ответов: 6 · Просмотров: 6165
 

>  И снова запрос!
ReDll
Отправлено: 18.11.09, 19:01


Говорящий
***

Группа: Пользователи
Сообщений: 68
Регистрация: 27.07.09
Пользователь №: 1204


Господа! И дамы! Имеем запрос:



Запрос = СоздатьОбъект("Запрос");
ТекстЗапроса =
"//{{ЗАПРОС(Взаиморасчеты)
|Период с ВыбНачПериода по ВыбКонПериода;
|Клиент = Регистр.Взаиморасчеты.Клиент;
|Баз_сум = Регистр.Взаиморасчеты.СуммаОсн;
|Докум = Регистр.Взаиморасчеты.ТекущийДокумент;
|Вал_сум = Регистр.Взаиморасчеты.СуммаВал;
|Функция КонБаз = КонОст(Баз_сум);
|Функция КонВал = КонОст(Вал_сум);
|Функция НачБаз = НачОст(Баз_сум);
|Функция НачВал = НачОст(Вал_сум);
|Функция ПрихВал = Приход(Вал_сум);
|Функция РасхВал = Расход(Вал_сум);
|Функция ПрихБаз = Приход(Баз_сум);
|Функция РасхБаз = Расход(Баз_сум);
|Группировка Клиент упорядочить по Клиент.Наименование;
|Группировка Докум;
//|Условие(Докум.ВидУчета=Перечисление.ВидыУчета.Торговля);
|Условие(Докум.Фирма=выбФирма);
|Условие(Клиент=выбКлиент);
|"//}}ЗАПРОС
;
// Если ошибка в запросе, то выход из процедуры
Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
Возврат;
КонецЕсли;



Выводит все, но не выводит начальный и конечный остаток... Хоть тресни...

З.Ы. 1С 7.7 Бух+Оперативный учет (комплексная)
  Форум: Программирование в 1С Предприятие 7.7 · Просмотр сообщения: #6578 · Ответов: 6 · Просмотров: 6165
 

>  Не могу понять суть задания
ReDll
Отправлено: 18.11.09, 18:53


Говорящий
***

Группа: Пользователи
Сообщений: 68
Регистрация: 27.07.09
Пользователь №: 1204


Тут все дело в том, что это комиссионная продажа.
В данном случае Вы продаете то, чего у Вас как бы еще нет. А в конце месяца, будет сформирована приходная накладная за первое число и перемещение товара в отдел. Вроде так.
Вам нужно почитать правила комиссионной продажи, там есть свои нюансы.
  Форум: Программирование в 1С Предприятие 7.7 · Просмотр сообщения: #6576 · Ответов: 21 · Просмотров: 16185
 

>  Запросы
ReDll
Отправлено: 15.10.09, 9:30


Говорящий
***

Группа: Пользователи
Сообщений: 68
Регистрация: 27.07.09
Пользователь №: 1204


Далее следовал второой вопрос по другому запросу, на который дали ответ.
Или мне на каждую проблему с запросом создавать отдельную тему? (учитывая, что проблема может быть на 1 ответ...)
  Форум: Программирование в 1С Предприятие 7.7 · Просмотр сообщения: #5831 · Ответов: 15 · Просмотров: 9932
 

>  Запросы
ReDll
Отправлено: 14.10.09, 16:33


Говорящий
***

Группа: Пользователи
Сообщений: 68
Регистрация: 27.07.09
Пользователь №: 1204


Спасибо огромное, все заработало!!! smile.gif icon_beer17.gif

А вот другой запрос...
Не отбирает ни по товару ни по фирме... 19000000.gif



Запрос = СоздатьОбъект("Запрос");
ТекстЗапроса =
"//{{ЗАПРОС(ПродВсегоСклад)
|Период с ВыбНачПериода по ВыбКонПериода;
|Товар = Регистр.ОстаткиТоваров.Товар;
|Док = Регистр.ОстаткиТоваров.ТекущийДокумент;
|Фирма = Регистр.ОстаткиТоваров.Предприятие;
|Кол = Регистр.ОстаткиТоваров.Количество;
|БазСто = Регистр.ОстаткиТоваров.СуммаСНДСЗак;
|Функция ПрихКол = Приход(Кол);
|Функция РасхКол = Расход(Кол);
|Функция ПрихСто = Приход(БазСто);
|Функция РасхСто = Расход(БазСто);
|Группировка Товар;
|Группировка Док;
|"//}}ЗАПРОС
;

Если ВыбФирма.Выбран()=1 Тогда
ТекстЗап=ТекстЗап+"
|Условие (Фирма = ВыбФирма);
|"//}}ЗАПРОС
;
КонецЕсли;
Если ВыбТовар.Выбран()=1 Тогда
ТекстЗап=ТекстЗап+"
|Условие (Товар.ПринадлежитГруппе(ВыбТовар)=1);
|"//}}ЗАПРОС
;
КонецЕсли;

// Если ошибка в запросе, то выход из процедуры
Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
Возврат;
КонецЕсли;



Выдает все документы вне зависимости от выбранной фирмы и группы товаров... sad.gif

З.Ы. Есть ли толковая книга по тонкостям запросов?
  Форум: Программирование в 1С Предприятие 7.7 · Просмотр сообщения: #5825 · Ответов: 15 · Просмотров: 9932
 

>  Запросы
ReDll
Отправлено: 13.10.09, 17:04


Говорящий
***

Группа: Пользователи
Сообщений: 68
Регистрация: 27.07.09
Пользователь №: 1204


ТекстЗапроса =
"//{{ЗАПРОС(ТекстЗапроса)
|Период с ВыбНачПериода по ВыбКонПериода;
|Докум = Регистр.Касса.ТекущийДокумент;
|Сумма = Регистр.Касса.Сумма;
|Фирма = Регистр.Касса.Чек.Предприятие;
|Функция СуммаНачОст = НачОст(Сумма);
|Функция СуммаКонОст = КонОст(Сумма);
|Группировка Докум;
|"//}}ЗАПРОС
;

Документы не выводит совсем (в группировку не заходит)

Ладно, как выход, ставлю отбор по дате после запроса....
Правда запрос долго работает sad.gif
  Форум: Программирование в 1С Предприятие 7.7 · Просмотр сообщения: #5799 · Ответов: 15 · Просмотров: 9932
 

>  Запросы
ReDll
Отправлено: 13.10.09, 14:59


Говорящий
***

Группа: Пользователи
Сообщений: 68
Регистрация: 27.07.09
Пользователь №: 1204


Получается, что в регистрах за один день есть документы за все время существование базы?

упд.

Вроде дошло...
И как же тогда указать, что б по регистрам выбрало одокументы за нужный период, если первая строка указывает период для регистров....?
  Форум: Программирование в 1С Предприятие 7.7 · Просмотр сообщения: #5795 · Ответов: 15 · Просмотров: 9932
 

>  Запросы
ReDll
Отправлено: 13.10.09, 14:45


Говорящий
***

Группа: Пользователи
Сообщений: 68
Регистрация: 27.07.09
Пользователь №: 1204


Если я правильно поняла, то Вы имете ввиду так:

Запрос = СоздатьОбъект("Запрос");
ТекстЗапроса =
"//{{ЗАПРОС(ТекстЗапроса)
|Период с ВыбНачПериода по ВыбКонПериода;
|Докум = Регистр.Касса.ТекущийДокумент.Чек.ТекущийДокумент;
|Сумма = Регистр.Касса.Сумма;
|Фирма = Регистр.Касса.Чек.Предприятие;
|Функция СуммаНачОст = НачОст(Сумма);
|Функция СуммаКонОст = КонОст(Сумма);
|Группировка Докум;
|"//}}ЗАПРОС
;

Но в данном случае мне не вывелись документы вообще....
  Форум: Программирование в 1С Предприятие 7.7 · Просмотр сообщения: #5793 · Ответов: 15 · Просмотров: 9932
 

>  Запросы
ReDll
Отправлено: 13.10.09, 14:25


Говорящий
***

Группа: Пользователи
Сообщений: 68
Регистрация: 27.07.09
Пользователь №: 1204


Задание вроде бы проще некуда, выбрать документы по регистрам за определенный период...

У меня получается код:


Процедура ТекстЗапроса()
Перем Запрос, ТекстЗапроса, Таб;
//Создание объекта типа Запрос
Запрос = СоздатьОбъект("Запрос");
ТекстЗапроса =
"//{{ЗАПРОС(ТекстЗапроса)
|Период с ВыбНачПериода по ВыбКонПериода;
|Докум = Регистр.Касса.Чек;
|Сумма = Регистр.Касса.Сумма;
|Фирма = Регистр.Касса.Чек.Предприятие;
|Функция СуммаНачОст = НачОст(Сумма);
|Функция СуммаКонОст = КонОст(Сумма);
|Группировка Докум;
|"//}}ЗАПРОС
;
// Если ошибка в запросе, то выход из процедуры
Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
Возврат;
КонецЕсли;

// Подготовка к заполнению выходных форм данными запроса
Таб = СоздатьОбъект("Таблица");
Таб.ИсходнаяТаблица("ТекстЗапроса");
// Заполнение полей "Заголовок"
Таб.ВывестиСекцию("Заголовок");
Состояние("Заполнение выходной таблицы...");
Таб.Опции(0, 0, Таб.ВысотаТаблицы(), 0);
Пока Запрос.Группировка(1) = 1 Цикл
// Заполнение полей Докум
Таб.ВывестиСекцию("Докум");
КонецЦикла;
// Заполнение полей "Итого"
Таб.ВывестиСекцию("Итого");
// Вывод заполненной формы
Таб.ТолькоПросмотр(1);
Таб.Показать("ТекстЗапроса", "");
КонецПроцедуры



Документы выбирает...
Но за весь период существования базы, а не за указанный период...
Конфигурация не стандартная... Но не могли же авторы поменять суть запросов... Или могли?
Помогите пожалуйста, подскажите в чем ошибка...
Спасибо.
  Форум: Программирование в 1С Предприятие 7.7 · Просмотр сообщения: #5791 · Ответов: 15 · Просмотров: 9932
 

>  Ассоциации
ReDll
Отправлено: 12.10.09, 14:41


Говорящий
***

Группа: Пользователи
Сообщений: 68
Регистрация: 27.07.09
Пользователь №: 1204


Пожар
  Форум: Офф-топик · Просмотр сообщения: #5752 · Ответов: 635 · Просмотров: 111655
 

>  Вопрос
ReDll
Отправлено: 09.10.09, 11:32


Говорящий
***

Группа: Пользователи
Сообщений: 68
Регистрация: 27.07.09
Пользователь №: 1204


Помогите пожалуйста...
Есть обработка "Оборотная ведомость" там присутствуют 2 запроса:

Запр №1



Запрос = СоздатьОбъект("Запрос");

ТекстЗап = "Период с ДатаНачала";
Если ДатаКонца>=ПолучитьДатуТА() Тогда
ДатаКонца=ПолучитьДатуТА();
ДатаКон=ДатаКонца;
ТекстЗап= ТекстЗап+";";
Иначе
ТекстЗап= ТекстЗап+" по ДатаКонца;";
КонецЕсли;
ТекстЗап = ТекстЗап +
"//{{ЗАПРОС(ПродВсего)
|ОбрабатыватьДокументы Проведенные;
|ТОВАР = Документ.ПрихНак.Товар,Документ.НаклВозврПост.Товар,Документ.РасходнаяНакл.Товар
,Документ.ОтчетОПродажах.Товар,Документ.Чек.Товар;
|Партия = Документ.РасходнаяНакл.Партия,Документ.НаклВозврПост.Партия,Документ.ОтчетОПрода
жах.Партия;
|ПартияДокПрих = Документ.РасходнаяНакл.Партия.ДокПрихода,Документ.НаклВозврПост.Партия.ДокПриход
а,Документ.ОтчетОПродажах.Партия.ДокПрихода;
|Фирма = Документ.РасходнаяНакл.Предприятие, Документ.НаклВозврПост.Предприятие,Документ.ОтчетОПродажах.Предприятие;
|КОЛВО = Документ.ПрихНак.Количество,Документ.НаклВозврПост.Количество,Документ.Расходная
Накл.Количество,Документ.ОтчетОПродажах.Количество,Документ.Чек.Количество;
|Сумм = Документ.ПрихНак.СуммаСНДСЗак,Документ.НаклВозврПост.СуммаЗакСНДС,Документ.Расхо
днаяНакл.СуммаОптСНДС,Документ.ОтчетОПродажах.СуммаФакт,Документ.Чек.Сумма;
|Коэфф = Документ.РасходнаяНакл.Коэффициент,Документ.ПрихНак.Коэффициент,Документ.НаклВоз
врПост.Коэффициент,Документ.ОтчетОПродажах.Коэффициент;
|Функция СуммаОбщ = Сумма(Сумм);
|Функция КолвоОбщ = Сумма(КОЛВО);
|Функция КоэффОбщ = Сумма(Коэфф);
|Условие(Фирма = выбФирма);
|Группировка ТОВАР упорядочить по Товар.Наименование Все ВошедшиеВЗапрос;
|"//}}ЗАПРОС
;

Если Режим1 ="Day" Тогда
ИмяГруппировки="День";
ИначеЕсли Режим1 ="Week" Тогда
ИмяГруппировки="Неделя";
ИначеЕсли Режим1 ="Month" Тогда
ИмяГруппировки="Месяц";
ИначеЕсли Режим1 ="Qw" Тогда
ИмяГруппировки="Квартал";
ИначеЕсли Режим1 ="Year" Тогда
ИмяГруппировки="Год";
КонецЕсли;

Если Режим1<>"Всего" Тогда
ТекстЗап = ТекстЗап + "Группировка "+ИмяГруппировки+" Все;";
КонецЕсли;

ТекстЗап = ТекстЗап + "Группировка Документ;";

Если ВыбТовар.Выбран() = 0 Тогда
Заг1 = Заг1 + "По всей номенклатуре. ";
ИначеЕсли ВыбТовар.ЭтоГруппа() = 1 Тогда
Заг1 = Заг1 + "По номенклатуре группы " + ВыбТовар.Наименование+". ";
ТекстЗап = ТекстЗап + "Условие (ТОВАР.ПринадлежитГруппе(ВыбТовар) = 1);";
Иначе
Заг1 = Заг1 + "По номенклатуре " + ВыбТовар.Наименование+". ";
ТекстЗап = ТекстЗап + "Условие (ТОВАР = ВыбТовар);";
КонецЕсли;

// Если ошибка в запросе, то выход из процедуры
Если Запрос.Выполнить(ТекстЗап) = 0 Тогда
Возврат;
КонецЕсли;


И №2




ЗапросД = СоздатьОбъект("Запрос");
ТекстЗап = "Период с ДатаНачала";
Если ДатаКонца>=ПолучитьДатуТА() Тогда
ДатаКонца = ПолучитьДатуТА();
ДатаКон=ДатаКонца;
ТекстЗап= ТекстЗап+";";
Иначе
ТекстЗап= ТекстЗап+" по ДатаКонца;";
КонецЕсли;
ТекстЗап = ТекстЗап +
"//{{ЗАПРОС(ПродВсегоСклад)
|Товар=Регистр.ОстаткиТоваров.Товар;
|Док=Регистр.ОстаткиТоваров.ТекущийДокумент;
|Фирма = Регистр.ОстаткиТоваров.Предприятие;
|Кол=Регистр.ОстаткиТоваров.Количество;
|БазСто=Регистр.ОстаткиТоваров.СуммаСНДСЗак;
|Группировка Товар;
|Группировка Док;
|Функция ПрихКол= Приход(Кол);
|Функция РасхКол= Расход(Кол);
|Функция ПрихСто= Приход(БазСто);
|Функция РасхСто= Расход(БазСто);
|Условие(Фирма = выбФирма);
|"//}}ЗАПРОС
;
// Если ошибка в запросе, то выход из процедуры
Если ЗапросД.Выполнить(ТекстЗап)=0 Тогда
Возврат;
КонецЕсли;



Но как я не пробовала условие по фирме не работает... Все равно возвращает по всем фирмам.

Подскажите пожалуйста где может быть ошибка....
  Форум: Офф-топик · Просмотр сообщения: #5693 · Ответов: 29 · Просмотров: 17283
 

>  Ассоциации
ReDll
Отправлено: 02.10.09, 11:56


Говорящий
***

Группа: Пользователи
Сообщений: 68
Регистрация: 27.07.09
Пользователь №: 1204


марафон
  Форум: Офф-топик · Просмотр сообщения: #5542 · Ответов: 635 · Просмотров: 111655
 

>  Ассоциации
ReDll
Отправлено: 30.09.09, 11:09


Говорящий
***

Группа: Пользователи
Сообщений: 68
Регистрация: 27.07.09
Пользователь №: 1204


Кот в сапогах
  Форум: Офф-топик · Просмотр сообщения: #5459 · Ответов: 635 · Просмотров: 111655
 

>  "Кава"
ReDll
Отправлено: 21.09.09, 15:14


Говорящий
***

Группа: Пользователи
Сообщений: 68
Регистрация: 27.07.09
Пользователь №: 1204


Вот мог бы и промолчать.

К написанному - классно, мне очень понравилось.
  Форум: Офф-топик · Просмотр сообщения: #5191 · Ответов: 7 · Просмотров: 6046
 

>  Ассоциации
ReDll
Отправлено: 21.09.09, 15:10


Говорящий
***

Группа: Пользователи
Сообщений: 68
Регистрация: 27.07.09
Пользователь №: 1204


Виталий
  Форум: Офф-топик · Просмотр сообщения: #5189 · Ответов: 635 · Просмотров: 111655
 

>  Ассоциации
ReDll
Отправлено: 02.09.09, 16:42


Говорящий
***

Группа: Пользователи
Сообщений: 68
Регистрация: 27.07.09
Пользователь №: 1204


Одиночество
  Форум: Офф-топик · Просмотр сообщения: #4597 · Ответов: 635 · Просмотров: 111655
 

>  Ассоциации
ReDll
Отправлено: 02.09.09, 12:21


Говорящий
***

Группа: Пользователи
Сообщений: 68
Регистрация: 27.07.09
Пользователь №: 1204


Девушка
  Форум: Офф-топик · Просмотр сообщения: #4566 · Ответов: 635 · Просмотров: 111655
 

>  Вопрос
ReDll
Отправлено: 29.08.09, 14:37


Говорящий
***

Группа: Пользователи
Сообщений: 68
Регистрация: 27.07.09
Пользователь №: 1204


Спасибо, это работает smile.gif
  Форум: Офф-топик · Просмотр сообщения: #4435 · Ответов: 29 · Просмотров: 17283
 

>  Вопрос
ReDll
Отправлено: 28.08.09, 16:49


Говорящий
***

Группа: Пользователи
Сообщений: 68
Регистрация: 27.07.09
Пользователь №: 1204


Excel.Cells.CurrentRegion.Rows.Count

Не работает, возвращает 1...
Как еще можно узнать количество строк в Эксель документе?
  Форум: Офф-топик · Просмотр сообщения: #4424 · Ответов: 29 · Просмотров: 17283
 

>  Ассоциации
ReDll
Отправлено: 28.08.09, 14:50


Говорящий
***

Группа: Пользователи
Сообщений: 68
Регистрация: 27.07.09
Пользователь №: 1204


Ghostbusters!!
  Форум: Офф-топик · Просмотр сообщения: #4421 · Ответов: 635 · Просмотров: 111655
 

>  Вопрос
ReDll
Отправлено: 28.08.09, 12:36


Говорящий
***

Группа: Пользователи
Сообщений: 68
Регистрация: 27.07.09
Пользователь №: 1204


Спасибо,
А может кто то дать ссылку где перечислены функции работы с Экселевскими файлами?

З.Ы. У меня правда не получается найти ничего (для 7.7)
  Форум: Офф-топик · Просмотр сообщения: #4410 · Ответов: 29 · Просмотров: 17283
 

>  Вопрос
ReDll
Отправлено: 26.08.09, 15:57


Говорящий
***

Группа: Пользователи
Сообщений: 68
Регистрация: 27.07.09
Пользователь №: 1204


Зачем? Лучше б сделали отдельную тему для вопросов, типа таких... И не засоряли форум темами с вопросами на 2 ответа.
  Форум: Офф-топик · Просмотр сообщения: #4318 · Ответов: 29 · Просмотров: 17283
 

>  Вопрос
ReDll
Отправлено: 26.08.09, 15:43


Говорящий
***

Группа: Пользователи
Сообщений: 68
Регистрация: 27.07.09
Пользователь №: 1204


Ну, если забудут написать, оно заглючит...
  Форум: Офф-топик · Просмотр сообщения: #4316 · Ответов: 29 · Просмотров: 17283
 

3 страниц V   1 2 3 >

Новые сообщения  Открытая тема (есть новые ответы)
Опрос  Опрос (есть новые голоса)
Нет новых сообщений  Открытая тема (нет новых ответов)
Нет новых голосов  Опрос (нет новых голосов)
Популярная тема  Горячая тема (есть новые ответы)
Закрыта  Закрытая тема
Нет новых  Горячая тема (нет новых ответов) Перемещена  Тема перемещена
 

RSS Текстовая версия Сейчас: 03.05.24, 9:52
1С Предприятие 8.3, 1С Предприятие 8.2, 1С Предприятие 8.1, 1С Предприятие 8.0, 1С Предприятие 7.7, Литература 1С, Общие вопросы по администрированию 1С, Методическая поддержка 1С - всё в одном месте: на Украинском 1С форуме!