![]() |
![]() |
![]() |
|
комиссионеры. Документы не отабражаются в отчете. | ☑ | ||
---|---|---|---|---|
0
zaimon
19.02.07
✎
07:05
|
Вобщем есть у ментя возвраты от покупателя (комиссия), дак вот некоторые из них просто не отображаются в ведомости по комиссионерам. Во множ фильтре там выбираю 3 чуваков, в документах которые не отображаются шапка нормальная стоит правильный контрагент (100%) в движениях документа Учет отданных на реализацию ТМЦ. Стоит в поле контрагент ваще пустое поле(это как я понимаю движения по регистрам комиссионера.) ситуация нормализуется только после снятия с проведения документа и проведения его (причем только вручную).
|
|||
1
ТелепатБот
гуру
19.02.07
✎
07:05
|
||||
2
кто здесь
19.02.07
✎
07:08
|
(1) почти угадал
|
|||
3
zaimon
19.02.07
✎
07:11
|
(19) Ну и плюс к этому в отчете ведомость по комиссионерам вылазят посля этого минуса. Это нормально? Или это все из за минусов.
|
|||
4
zaimon
19.02.07
✎
07:12
|
Как быть то, нам сверка нужна, а она х..ню показывает.
|
|||
5
zaimon
19.02.07
✎
07:43
|
?
|
|||
6
zaimon
19.02.07
✎
08:14
|
С комиссионерами никто не работал?
|
|||
8
zaimon
19.02.07
✎
11:23
|
Ребят подскажите пожалуйста из за чего глюки.
|
|||
9
zaimon
19.02.07
✎
13:23
|
?
|
|||
10
zaimon
19.02.07
✎
13:34
|
?
|
|||
11
zaimon
19.02.07
✎
14:37
|
,
|
|||
12
Злопчинский
19.02.07
✎
14:40
|
Не, я конечно могу все бросить и резко начать смотреть.
А смысл? жди когда народ освободится... |
|||
13
DrShad
19.02.07
✎
14:45
|
я работал и что? я всеравно не понял что у тебя не так?
|
|||
14
zaimon
19.02.07
✎
14:50
|
Короче у меня в ведомости по комиссионерам не вылазиют некоторые возвраты от покупателей. Я во множественный фильтр 3 контрагентов забиваю и дак вот по ним не все документы вылазят. т.к. В тех документах которые не отображаются в движениях документа либо нет контрагента либо он какойто не тот сроду.
|
|||
15
zaimon
19.02.07
✎
14:50
|
Вобщем документ проводит регистр не со своими реквизитами собака!
|
|||
16
zaimon
19.02.07
✎
14:51
|
И исправляется это только снятием с проведения и проведением вручную, причем только ручками. Обработки не помогают.
|
|||
17
DrShad
19.02.07
✎
15:10
|
подробнее давай с реквизитами какого документа проводит?
|
|||
18
zaimon
19.02.07
✎
15:16
|
Вобщем движения документа:
Учет отданных на реализацию партий ТМЦ Фирма: Ахметгалин Марат Раисович Вид ТМЦ: Товар (купленный) Контрагент: Договор: ТМЦ: Поддон деревянный Док. передачи: Ввод остатков ТМЦ АМ00000001 (04.02.06) Партия: Поставка: Ввод остатков ТМЦ АМ00000001 (04.02.06) |
|||
19
zaimon
19.02.07
✎
15:17
|
И раз контрагент пустой соответственно и в отчете не вылазит!
|
|||
20
zaimon
19.02.07
✎
15:19
|
При восстановлении ГП помоему эти возвраты очень долго проводятся.
|
|||
21
DrShad
19.02.07
✎
15:25
|
ну так а чего ж ты хочешь? проставь контрагента
|
|||
22
zaimon
20.02.07
✎
07:03
|
Контрагент стоит!!!! и точно правильный!!!
|
|||
23
zaimon
20.02.07
✎
07:06
|
Объясните пожалуйста логигку проведения регистра комиссионера. Если нетрудно.
|
|||
24
zaimon
20.02.07
✎
11:56
|
Походу дела отсюда прет:
// *** ДОБАВИЛ Всяких А.П. ************************************************************ Если ОстПогКоличество>0 Тогда ОбщРег=СоздатьОбъект("Регистры"); РегП=ОбщРег.ПартииНаличие; Если (Конт.СравнитьТА()=-1) Тогда РегП.УстановитьЗначениеФильтра("МОЛ",МОЛ,1); РегП.УстановитьЗначениеФильтра("Номенклатура",Номенклатура,1); РегП.УстановитьЗначениеФильтра("Фирма",Фирма,1); РегП.ВременныйРасчет(); ОбщРег.РассчитатьРегистрыНа(Конт.ТекущийДокумент()); КонецЕсли; СпрП=СоздатьОбъект("Справочник.Партии"); СпрП.ИспользоватьВладельца(Номенклатура); Если МетодРасчетаСебестоимости=Перечисление.МетодыРасчетаСебестоимости.LIFO Тогда СпрП.ОбратныйПорядок(1); КонецЕсли; СпрП.ВыбратьЭлементы(); Пока СпрП.ПолучитьЭлемент()=1 Цикл ТекПартия=СпрП.ТекущийЭлемент(); Если Номенклатура.ВидНоменклатуры=Перечисление.ВидыНоменклатуры.Услуга Тогда ТекСтатусПартии=Перечисление.СтатусыПартии.Услуга; ИначеЕсли Номенклатура.ВидНоменклатуры=Перечисление.ВидыНоменклатуры.Работа Тогда ТекСтатусПартии=Перечисление.СтатусыПартии.Работа; ИначеЕсли Номенклатура.ВидНоменклатуры=Перечисление.ВидыНоменклатуры.Прочее Тогда ТекВидТМЦ=Перечисление.ВидыТМЦ.Товар; ТекСтатусПартии=глПолучитьСтатусПартииПрихода(ТекВидТМЦ,Номенклатура,КодОперации,Склад); ИначеЕсли Номенклатура.ВидНоменклатуры=Перечисление.ВидыНоменклатуры.Полуфабрикат Тогда ТекВидТМЦ=Перечисление.ВидыТМЦ.Полуфабрикат; ТекСтатусПартии=глПолучитьСтатусПартииПрихода(ТекВидТМЦ,Номенклатура,КодОперации,Склад); Иначе ТекВидТМЦ=Перечисление.ВидыТМЦ.Материал; ТекСтатусПартии=глПолучитьСтатусПартииПрихода(ТекВидТМЦ,Номенклатура,КодОперации,Склад); КонецЕсли; ТекКоличество=РегП.СводныйОстаток(Фирма,МОЛ,Номенклатура,,ТекПартия,,,"Количество"); ТекСуммаУпр=РегП.СводныйОстаток(Фирма,МОЛ,Номенклатура,,ТекПартия,,,"СуммаУпр"); ТекСуммаРуб=РегП.СводныйОстаток(Фирма,МОЛ,Номенклатура,,ТекПартия,,,"СуммаРуб"); ТекСуммаБезНДС=РегП.СводныйОстаток(Фирма,МОЛ,Номенклатура,,ТекПартия,,,"СуммаБезНДС"); Если (ТекКоличество>0) и (ОстПогКоличество>0) Тогда Если КодОперации=глКО.ВозвратКомитенту Тогда // возвращаем товары комитенту - только его товары! Если ТекПартия.ДоговорПоставщика<>Договор Тогда Продолжить; КонецЕсли; КонецЕсли; Если ТекКоличество>=ОстПогКоличество Тогда // остаток партии больше, чем нам надо списать КоэффСписания=ОстПогКоличество/ТекКоличество; Иначе КоэффСписания=1; КонецЕсли; //измерения РегПартии.Фирма = Фирма; РегПартии.Номенклатура = Номенклатура; РегПартии.СтатусПартии = ТекСтатусПартии; РегПартии.Партия = ТекПартия; Если РегистрУчета="ПартииНаличие" Тогда РегПартии.ДатаПартии = ТекПартия.ПриходныйДокумент.ДатаДок; РегПартии.МОЛ = МОЛ; РегПартии.ЦенаПрод = Цена; Иначе РегПартии.Договор = ТекПартия.ПриходныйДокумент.Договор; РегПартии.ДокументПередачи = ТекПартия.ПриходныйДокумент; КонецЕсли; //ресурсы РегПартии.Количество = Окр(ТекКоличество *КоэффСписания,5,1); РегПартии.СуммаУпр = Окр(ТекСуммаУпр *КоэффСписания,2,1); РегПартии.СуммаРуб = Окр(ТекСуммаРуб *КоэффСписания,2,1); РегПартии.СуммаБезНДС = Окр(ТекСуммаБезНДС*КоэффСписания,2,1); Если РегистрУчета="ПартииОтданные" Тогда РегПартии.ПродСтоимость = Окр(ОстПогСуммаПродРуб*КоэффСписания,2,1); КонецЕсли; //реквизиты РегПартии.КодОперации = КодОперации; Если ТекКоличество>=ОстПогКоличество Тогда КоэффПогашения=1; Иначе КоэффПогашения = ТекКоличество/ОстПогКоличество; КонецЕсли; // корректировка остатка продажной стоимости к списанию ОстПогКоличество=ОстПогКоличество-ТекКоличество; СписСуммаПрод = Окр(ОстПогСуммаПрод *КоэффПогашения,2,1); СписСуммаПродУпр= Окр(ОстПогСуммаПродУпр*КоэффПогашения,2,1); СписСуммаПродРуб= Окр(ОстПогСуммаПродРуб*КоэффПогашения,2,1); СписСуммаДокРуб = Окр(ОстПогСуммаДокРуб *КоэффПогашения,2,1); СписСкидкаРуб = Окр(ОстПогСкидкаРуб *КоэффПогашения,2,1); СписНДСПрод = Окр(ОстПогНДСПрод *КоэффПогашения,2,1); СписНППрод = Окр(ОстПогНППрод *КоэффПогашения,2,1); ОстПогСуммаПрод = ОстПогСуммаПрод - СписСуммаПрод; ОстПогСуммаПродУпр = ОстПогСуммаПродУпр- СписСуммаПродУпр; ОстПогСуммаПродРуб = ОстПогСуммаПродРуб- СписСуммаПродРуб; ОстПогСуммаДокРуб = ОстПогСуммаДокРуб - СписСуммаДокРуб; ОстПогСкидкаРуб = ОстПогСкидкаРуб - СписСкидкаРуб; ОстПогНДСПрод = ОстПогНДСПрод - СписНДСПрод; ОстПогНППрод = ОстПогНППрод - СписНППрод; СтавкаНДС = ТаблНоменклатуры.СтавкаНДС; СтавкаНП = ТаблНоменклатуры.СтавкаНП; Если РегистрУчета = "ПартииНаличие" Тогда РегПартии.ПродСтоимость = СписСуммаПродРуб; КонецЕсли; Если (КодОперации <> глКО.Перемещение) и (КодОперации <> глКО.ПередачаВРозницу) и (КодОперации <> глКО.ВозвратИзРозницы) и (КодОперации <> глКО.ВозвратПоставщикуИзРозницы) Тогда РегПартии.Выручка = Окр(СписСуммаПродРуб - СписНДСПрод - СписНППрод, 2, 1); ИначеЕсли КодОперации = глКО.ВозвратПоставщикуИзРозницы Тогда РегПартии.Выручка = Окр(СписСуммаДокРуб - СписНДСПрод - СписНППрод, 2, 1); Иначе РегПартии.Выручка = 0; КонецЕсли; ЗапомнитьСписаннуюПартию(РегПартии,ТаблСписПартий,СписСуммаПрод,СписСуммаПродУпр,СписСуммаПродРуб,СписНДСПрод,СписНППрод,СтавкаНДС,СтавкаНП, ТаблНоменклатуры.НомерСтрокиДокумента, СписСкидкаРуб, СписСуммаДокРуб); Если РегПартии.СтатусПартии=глСП.Т_Принятый Тогда ЗапомнитьСписаннуюПартию(РегПартии,ТаблСписПартийКом,СписСуммаПрод,СписСуммаПродУпр,СписСуммаПродРуб,СписНДСПрод,СписНППрод,СтавкаНДС,СтавкаНП, ТаблНоменклатуры.НомерСтрокиДокумента, СписСкидкаРуб, СписСуммаДокРуб); КонецЕсли; РегПартии.ПривязыватьСтроку(ТаблНоменклатуры.НомерСтрокиДокумента); РегПартии.ДвижениеРасходВыполнить(); КонецЕсли; КонецЦикла; КонецЕсли; // ==================================================================================== |
|||
25
zaimon
20.02.07
✎
11:57
|
Это в глСписаниеПартийТМЦ
|
|||
26
DrShad
20.02.07
✎
11:58
|
и кто все это читать будет?
|
|||
27
DrShad
20.02.07
✎
12:00
|
найди что именно тебе не нравится и тогда пости
|
|||
28
zaimon
20.02.07
✎
12:00
|
Ну можт кто нибудь заинтересуется, я вот просто без профессиональных навыков программирования. Работал конечно с регистрами, но вот разбираться в таком модульке....
|
|||
29
DrShad
20.02.07
✎
12:03
|
ну у меня нет времени думать что этот код делает и для чего
|
|||
30
zaimon
20.02.07
✎
12:36
|
Если РегистрУчета="ПартииНаличие" Тогда
РегПартии.ДатаПартии = ТекПартия.ПриходныйДокумент.ДатаДок; РегПартии.МОЛ = МОЛ; РегПартии.ЦенаПрод = Цена; Иначе РегПартии.Договор = ТекПартия.ПриходныйДокумент.Договор; РегПартии.ДокументПередачи = ТекПартия.ПриходныйДокумент; КонецЕсли; Помоему вот здесь он тупо присваивает в партию не того контрагента! |
|||
31
zaimon
20.02.07
✎
12:36
|
В регистр.ПартииОтданные!
|
|||
32
DrShad
20.02.07
✎
12:41
|
а тут где ты его видишь?
|
|||
33
zaimon
20.02.07
✎
12:47
|
//измерения
РегПартии.Фирма = Фирма; РегПартии.Номенклатура = Номенклатура; РегПартии.СтатусПартии = ТекСтатусПартии; РегПартии.Партия = ТекПартия; Если РегистрУчета="ПартииНаличие" Тогда РегПартии.ДатаПартии = ТекПартия.ПриходныйДокумент.ДатаДок; РегПартии.МОЛ = МОЛ; РегПартии.ЦенаПрод = Цена; Иначе РегПартии.Договор = ТекПартия.ПриходныйДокумент.Договор; РегПартии.ДокументПередачи = ТекПартия.ПриходныйДокумент; КонецЕсли; //ресурсы РегПартии.Количество = Окр(ТекКоличество *КоэффСписания,5,1); РегПартии.СуммаУпр = Окр(ТекСуммаУпр *КоэффСписания,2,1); РегПартии.СуммаРуб = Окр(ТекСуммаРуб *КоэффСписания,2,1); РегПартии.СуммаБезНДС |
|||
34
zaimon
20.02.07
✎
12:48
|
РегПартии.ДокументПередачи
Это кто такой, Типа кредитного догумента во Взаимозачетах???? |
|||
35
DrShad
20.02.07
✎
12:56
|
ну тебе видней должно быть
|
|||
36
zaimon
20.02.07
✎
13:15
|
Завтра предъявлю программеру.
|
|||
37
zaimon
20.02.07
✎
13:16
|
Модуль посути вообще чушь полная!!! Че он делает дак это кричи караул!
|
|||
38
DrShad
20.02.07
✎
13:19
|
а ты еще в Москву собираешься!
|
|||
39
DrShad
20.02.07
✎
13:20
|
+(38) че тут делать будешь?
|
|||
40
zaimon
20.02.07
✎
13:26
|
Буду править. Пробовать. А в Москву побаиваюсь! Копейки пока позарабатывываю.
|
|||
41
zaimon
20.02.07
✎
14:13
|
А чем отличается Проведение кнопкой ОК от Перепроведения (при восстановлении Границы последовательности)? Модули по другому выполняются?
|
|||
42
zaimon
20.02.07
✎
15:05
|
?
|
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |