1. 1C / Говнокод #16833

    −127

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    теСтрокаТЗ_двухТЧ=ТЗ_двухТЧ_РТиУ.Найти(СокрЛП(ЗначениеВСтрокуВнутр(теСтрокаТЧ.Номенклатура))+"++"+Строка(ё)+"++"+Строка(теСтрокаТЧ.НомерСтроки),"Ид");
		 теСтрокаТЗ_НДС_БезТекРТиУ=ТЗ_НДС_БезТекРТиУ.Найти(теСтрокаТЧ.Номенклатура);
	 	 ТЗостНмЗаказаБезТекРТиУ=ПолучитьТЗ_НоменклатурыЗаказа(текущСделка, РТиУобъ.Ссылка, ТекДата, ТекДата, ДокиЗаказаПлан, теСтрокаТЧ.Номенклатура);
	Если ТЗостНмЗаказаБезТекРТиУ.Количество()>0 И ТЗостНмЗаказаБезТекРТиУ.Итог("СуммаКолвоПоНм")=ТЗотбора1.Итог("КолвоВ_ЕдХр") Тогда	
             РазностьСум=ТЗостНмЗаказаБезТекРТиУ.Итог("СуммаСуммВзаиморасчПоНм")-(ТЗотбора1.Итог("Сумма")+?(текущСуммаВключаетНДС,0,ТЗотбора1.Итог("СуммаНДС")));
		Если РазностьСум<>0 И ПолучитьМодульЧисла(РазностьСум)<=Константы.опмМаксимальноеКорректируемоеВторымСпособомОтклонениеСуммОтгрузкиОтЗаказа.Получить() Тогда 
	    теСтрокаТЧ.Сумма=теСтрокаТЧ.Сумма+РазностьСум*ЗнакТипаДок;    теСтрокаТЗ_двухТЧ.Сумма=теСтрокаТЗ_двухТЧ.Сумма+РазностьСум;
	    КонецЕсли;
		Если ВсеОтгрузкиВВалютеЗаказа И НЕ теСтрокаТЗ_НДС_БезТекРТиУ=Неопределено Тогда
			     РазностьСумНДС=теСтрокаТЗ_НДС_БезТекРТиУ.СуммаНДС-ТЗотбора1.Итог("СуммаНДС");
		    Если РазностьСумНДС<>0 И ПолучитьМодульЧисла(РазностьСумНДС)<=Константы.опмМаксимальноеКорректируемоеВторымСпособомОтклонениеСуммОтгрузкиОтЗаказа.Получить() Тогда 
	    теСтрокаТЧ.СуммаНДС=теСтрокаТЧ.СуммаНДС+РазностьСумНДС*ЗнакТипаДок;    теСтрокаТЗ_двухТЧ.СуммаНДС=теСтрокаТЗ_двухТЧ.СуммаНДС+РазностьСумНДС;
	            Если НЕ текущСуммаВключаетНДС Тогда
	    теСтрокаТЧ.Сумма=теСтрокаТЧ.Сумма      -РазностьСумНДС*ЗнакТипаДок;    теСтрокаТЗ_двухТЧ.Сумма=теСтрокаТЗ_двухТЧ.Сумма      -РазностьСумНДС;
                КонецЕсли;
	        КонецЕсли;
	    КонецЕсли;
		Если ЗаказПокВыполненПолностью Тогда СтрокаТЗпоНм=ТЗ_НепоставленнойНмЗаказа.Найти(теСтрокаТЧ.Номенклатура);
			Если                          НЕ СтрокаТЗпоНм=Неопределено Тогда
		   ТЗ_НепоставленнойНмЗаказа.Удалить(СтрокаТЗпоНм);
	        КонецЕсли;
	    КонецЕсли;
    Иначе ЗаказПокВыполненПолностью=Ложь;
    КонецЕсли;

    Запостил: HomoAlbus, 10 Октября 2014

    Комментарии (10) RSS

    • ava alexinzaz 10.10.2014 11:18 # +3

      охренеть просто. Админы, сделайте кнопку "Развидеть".
      Ответить

      • ava laMer007 10.10.2014 11:19 # 0

        sage
        Ответить

        • ava bormand 10.10.2014 13:13 # +3

          Не в то поле sage пишешь ;)
          Ответить

          • ava 3.14159265 10.10.2014 13:16 # +5

            >Не в то поле sage пишешь ;)
            Так у него обычный бесплатный аккаунт, там вроде нельзя написать пост, чтобы он не поднимал тред в стоке.
            Ответить

    • ava 3.14159265 10.10.2014 13:15 # 0

      Ответить

    • ava guest 10.10.2014 16:40 # 0

      BUMP!!!
      Ответить

    • ava Mortum 10.10.2014 16:54 # 0

      На кол его за оскорбление буквы "ё" и непонятное название переменной!
      Ответить

    • ava istem 10.10.2014 20:58 # +1

      Новый формат рекомендаций минфина по заполнению налоговой отчётности.
      Ответить

    • ava Vince 14.10.2014 20:15 # 0

      Нуачо. Имена переменных и процедур имени DirectX.
      Ответить

    • ava guest 03.03.2015 13:35 # +1

      Константы.опмМаксимальноеКорректируемоеВ торымСпособомОтклонениеСуммОтгрузкиОтЗак аза.Получить() - Нушно бооольше букофф....
      Ответить

    Добавить комментарий