Имя: Пароль:
1C
 
комиссионеры. Документы не отабражаются в отчете.
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
?