Бухгалтерия / Говнокод #16408 Ссылка на оригинал

0

  1. 1
  2. 2
  3. 3
  4. 4
  5. 5
  6. 6
  7. 7
  8. 8
  9. 9
  10. 10
  11. 11
аа = регсв.Выгрузить();
	аа.Очистить();
	Для каждого стр из Комплектующие Цикл
		ввв  =аа.Добавить();
		ввв.Номенклатура = Номенклатура;
		ввв.характеристикаНоменклатуры = Характеристиканоменклатуры;
		ввв.Комплектующая               = стр.Номенклатура;
		ввв.ХарактеристикаКомплектующей = стр.ХарактеристикаНоменклатуры;
		ввв.количество                  = стр.КоэффициентКолво;
		ввв.единицаИзмерения            = стр.ЕдиницаИзмерения;
		ввв.ДоляСтоимости               = стр.ДоляСтоимости;

Как же сложно нормально назвать переменные((

Cascader Cascader, (Updated )

Комментарии (15, +15)

Бухгалтерия / Говнокод #16395 Ссылка на оригинал

0

  1. 1
  2. 2
  3. 3
  4. 4
  5. 5
  6. 6
  7. 7
  8. 8
  9. 9
  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
  25. 25
  26. 26
  27. 27
  28. 28
Пока ДокиДляЗагрузки.Количество()>0 Цикл
		СтрокаДоковЗагрузки = ДокиДляЗагрузки.Получить(0);
		НомерДок = СтрокаДоковЗагрузки.НомерДок;
		ДатаДок = СтрокаДоковЗагрузки.ДатаДок;
		Отбор = Новый Структура();
		Отбор.Вставить("НомерДок", НомерДок);
		//Отбор.Вставить("ДатаДок", ДатаДок);
		ДокиДляЗагрузкиФильтр = ДокиДляЗагрузки.НайтиСтроки(Отбор);
		ДатаНач = НачалоДня(Дата(ДатаДок));
		ДатаКон = КонецДня(Дата(ДатаДок));
		Запрос = Новый Запрос;
		Запрос.Текст = "ВЫБРАТЬ
		               |	РеализацияТоваровУслуг.Ссылка
		               |ИЗ
		               |	Документ.РеализацияТоваровУслуг КАК РеализацияТоваровУслуг
		               |ГДЕ
		               |	РеализацияТоваровУслуг.Дата МЕЖДУ &ДатаНач И &ДатаКон
		               |	И РеализацияТоваровУслуг.Номер = &Номер";
		Запрос.УстановитьПараметр("Номер", НомерДок);
		Запрос.УстановитьПараметр("ДатаНач", ДатаНач);
		Запрос.УстановитьПараметр("ДатаКон", ДатаКон);
		Результат = Запрос.Выполнить().Выбрать();
		Если Результат.Количество()=1 Тогда
			Результат.Следующий();
			СтрокаДок7 = ДокиДляЗагрузкиФильтр.Получить(0);
                        ...
                КонецЕсли;
КонецЦикла;

//Поиск документа по номеру
//Можно заменить одной строкой, но автор был истиный извращенец
СтрокаДок7 = Документы.РеализацияТоваровУслуг.НайтиПо Номеру(СтрокаДоковЗагрузки.НомерДок, СтрокаДоковЗагрузки.ДатаДок);

quickes quickes, (Updated )

Комментарии (18, +18)

Бухгалтерия / Говнокод #16392 Ссылка на оригинал

0

  1. 1
  2. 2
  3. 3
  4. 4
  5. 5
| КОНЕЦ) КАК ПросроченоПиздецКак,
| СУММА(ВложенныйЗапрос.СуммаОстаток) КАК ДебиторкаВся,
| ВложенныйЗапрос.Договор.СрокОплатыПоДоговору КАК СрокОплаты,
| ВложенныйЗапрос.Сделка.Ответственный КАК Менеджер
| ИЗ

Не говнокод, пример с лурки но все равно улыбает)

Cascader Cascader, (Updated )

Комментарии (0)

Бухгалтерия / Говнокод #16376 Ссылка на оригинал

0

  1. 1
Дата = Формат(День(Запись.Период),"ЧЦ=2; ЧРГ=; ЧВН=") + "/" + Формат(Месяц(Запись.Период),"ЧЦ=2; ЧРГ=; ЧВН=") + "/" + Формат(Год(Запись.Период),"ЧГ=");

О как можно еще получить дату в формате: день/месяц/год.
Хотя тот же результат будет, если: Дата = Формат(Запись.Период, "ДФ=dd/MM/yyyy");
И этот бред писал специалист крупной внедренческой компании.

Danik Danik, (Updated )

Комментарии (14, +14)

Бухгалтерия / Говнокод #16365 Ссылка на оригинал

0

  1. 1
  2. 2
  3. 3
  4. 4
  5. 5
  6. 6
  7. 7
  8. 8
  9. 9
  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
  25. 25
  26. 26
  27. 27
  28. 28
  29. 29
  30. 30
  31. 31
  32. 32
  33. 33
  34. 34
  35. 35
  36. 36
  37. 37
  38. 38
  39. 39
  40. 40
  41. 41
  42. 42
  43. 43
  44. 44
  45. 45
  46. 46
  47. 47
  48. 48
  49. 49
  50. 50
  51. 51
  52. 52
  53. 53
  54. 54
  55. 55
  56. 56
  57. 57
  58. 58
  59. 59
  60. 60
  61. 61
  62. 62
  63. 63
  64. 64
  65. 65
  66. 66
  67. 67
Процедура ПересчитатьстоимостьПлан()
	
	Если 1=1 тогда //ВидКомплектации = Перечисления.ВидыКомплектации.Сборка тогда
		Для каждого стр из комплектующие Цикл
			Если стр.ЦенаПлан = 0 тогда // заполнимЦену
				мНоменклатура = Новый массив;
				//Для каждого стр из Комплектующие Цикл
					мНоменклатура.Добавить(стр.Номенклатура);
				//Конеццикла;
				Запрос = новый Запрос;
				Запрос.Текст =  "ВЫБРАТЬ
				|	ЦеныНоменклатурыСрезПоследних.Номенклатура,
				|	ЦеныНоменклатурыСрезПоследних.Цена
				|ИЗ
				|	РегистрСведений.ЦеныНоменклатуры.СрезПоследних(&датаД, ) КАК ЦеныНоменклатурыСрезПоследних
				|ГДЕ
				|	ЦеныНоменклатурыСрезПоследних.ТипЦен = &ТипЦен
				|	И ЦеныНоменклатурыСрезПоследних.Номенклатура В ИЕРАРХИИ(&Номенклатура)";
				Запрос.УстановитьПараметр("ДатаД",дата);
				Запрос.УстановитьПараметр("типЦен",Склад.ТипЦенРозничнойТорговли);
				Запрос.УстановитьПараметр("ссылка",ссылка);
				Запрос.УстановитьПараметр("Номенклатура",стр.Номенклатура);
				аа =Запрос.Выполнить().Выгрузить();
				Если аа<> неопределено тогда
					стр.ЦенаПлан = аа[0].цена;
				КонецЕсли;
				
			Конецесли;
			
			стр.ЦенаПлан = стр.ЦенаПлан;
			стр.Суммаплан = стр.Количество*стр.ЦенаПлан;
		Конеццикла;
		// *******************************************************888
		
	иначе
		
		Если СуммаПлан = 0 тогда
			возврат;
		КонецЕсли;
		итСумма = 0;
		Для каждого стр из Комплектующие Цикл
			
			//стр.Суммаплан = глОкруглить(стр.ДоляСтоимости*СуммаПлан,0.5);
			стр.Суммаплан = Окр(стр.ДоляСтоимости*СуммаПлан,1);
			
			Если стр.Количество = 0 тогда
				стр.ЦенаПлан = 0;
			иначе
				стр.ЦенаПлан = стр.Суммаплан/стр.Количество;
			КонецЕсли;
			итсумма = итСумма + стр.Суммаплан;
			
		КонецЦикла;
		
		Если итСумма<>Суммаплан тогда
			стр.Суммаплан = стр.СуммаПлан - (СуммаПлан-итСумма);
			Если стр.Количество = 0 тогда
				стр.ЦенаПлан = 0;
			иначе
				стр.ЦенаПлан = стр.Суммаплан/стр.Количество;
			КонецЕсли;
			
		Конецесли;
	КонецЕсли;
	
	
конецпроцедуры

Cascader Cascader, (Updated )

Комментарии (29, +29)

Бухгалтерия / Говнокод #16361 Ссылка на оригинал

0

  1. 1
  2. 2
  3. 3
  4. 4
  5. 5
  6. 6
итСумма = 0;
иткол = 0;
Для каждого стр из комплектующие Цикл
	итсумма = итсумма + стр.Суммаплан;
	иткол = иткол + стр.КоличествоБезПотерь;
Конеццикла;

Зашел в базу, а там вот это... повторяется...раза 4

Cascader Cascader, (Updated )

Комментарии (9, +9)

Бухгалтерия / Говнокод #16337 Ссылка на оригинал

0

  1. 1
  2. 2
  3. 3
  4. 4
  5. 5
  6. 6
  7. 7
  8. 8
  9. 9
  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
  25. 25
  26. 26
  27. 27
  28. 28
  29. 29
  30. 30
  31. 31
  32. 32
  33. 33
  34. 34
  35. 35
  36. 36
  37. 37
  38. 38
  39. 39
  40. 40
  41. 41
  42. 42
  43. 43
  44. 44
  45. 45
  46. 46
  47. 47
  48. 48
  49. 49
  50. 50
  51. 51
  52. 52
  53. 53
  54. 54
  55. 55
  56. 56
  57. 57
  58. 58
Для А =0 по Значение.Количество()-1 Цикл
				Попытка	
					Табл.InsertAfter(Строка(Значение[А].поле1)+"*"+Строка(Значение[А].поле2)+"*"+Строка(Значение[А].поле3)+"*"+Строка(Значение[А].поле4)+"*"+Строка(Значение[А].поле5)+"*"+Строка(Значение[А].поле6)+"*"+Строка(Значение[А].поле7)+"*"+Строка(Значение[А].поле8)+"*"+Строка(Значение[А].поле9)+"*"+Строка(Значение[А].поле10));
					Табл.InsertParagraphAfter();
				Исключение	
					Попытка	
						Табл.InsertAfter(Строка(Значение[А].поле1)+"*"+Строка(Значение[А].поле2)+"*"+Строка(Значение[А].поле3)+"*"+Строка(Значение[А].поле4)+"*"+Строка(Значение[А].поле5)+"*"+Строка(Значение[А].поле6)+"*"+Строка(Значение[А].поле7)+"*"+Строка(Значение[А].поле8)+"*"+Строка(Значение[А].поле9));
						Табл.InsertParagraphAfter();
					Исключение
						Попытка	
							Табл.InsertAfter(Строка(Значение[А].поле1)+"*"+Строка(Значение[А].поле2)+"*"+Строка(Значение[А].поле3)+"*"+Строка(Значение[А].поле4)+"*"+Строка(Значение[А].поле5)+"*"+Строка(Значение[А].поле6)+"*"+Строка(Значение[А].поле7)+"*"+Строка(Значение[А].поле8));
							Табл.InsertParagraphAfter();
						Исключение
							
							Попытка	
								Табл.InsertAfter(Строка(Значение[А].поле1)+"*"+Строка(Значение[А].поле2)+"*"+Строка(Значение[А].поле3)+"*"+Строка(Значение[А].поле4)+"*"+Строка(Значение[А].поле5)+"*"+Строка(Значение[А].поле6)+"*"+Строка(Значение[А].поле7));
								Табл.InsertParagraphAfter();
							Исключение
								Попытка	
									Табл.InsertAfter(Строка(Значение[А].поле1)+"*"+Строка(Значение[А].поле2)+"*"+Строка(Значение[А].поле3)+"*"+Строка(Значение[А].поле4)+"*"+Строка(Значение[А].поле5)+"*"+Строка(Значение[А].поле6));
									Табл.InsertParagraphAfter();
								Исключение	
									Попытка	
										Табл.InsertAfter(Строка(Значение[А].поле1)+"*"+Строка(Значение[А].поле2)+"*"+Строка(Значение[А].поле3)+"*"+Строка(Значение[А].поле4)+"*"+Строка(Значение[А].поле5));
										Табл.InsertParagraphAfter();
									Исключение	
										Попытка	
											Табл.InsertAfter(Строка(Значение[А].поле1)+"*"+Строка(Значение[А].поле2)+"*"+Строка(Значение[А].поле3)+"*"+Строка(Значение[А].поле4));
											Табл.InsertParagraphAfter();
										Исключение
											Попытка	
												Табл.InsertAfter(Строка(Значение[А].поле1)+"*"+Строка(Значение[А].поле2)+"*"+Строка(Значение[А].поле3));
												Табл.InsertParagraphAfter();
											Исключение
												Попытка	
													Табл.InsertAfter(Строка(Значение[А].поле1)+"*"+(Строка(Значение[А].поле2)));
													Табл.InsertParagraphAfter();
												Исключение
													Попытка	
														Табл.InsertAfter(Строка(Значение[А].поле1));
														Табл.InsertParagraphAfter();
													Исключение
														Попытка	
															Табл.InsertAfter(Строка(Значение[А].поле0));
															Табл.InsertParagraphAfter();
														Исключение
														КонецПопытки;
													КонецПопытки;	
												КонецПопытки;
											КонецПопытки;	
										КонецПопытки;
									КонецПопытки;
								КонецПопытки;	
							КонецПопытки;	
						КонецПопытки;	
					КонецПопытки;
				КонецПопытки;
			КонецЦикла;

Ninomia Ninomia, (Updated )

Комментарии (62, +62)

Бухгалтерия / Говнокод #16235 Ссылка на оригинал

0

  1. 1
  2. 2
  3. 3
  4. 4
  5. 5
  6. 6
  7. 7
  8. 8
  9. 9
  10. 10
  11. 11
  12. 12
Процедура ОбработкаПроведения(Отказ, РежимПроведения)

........


	если ЭтотОбъект.Проведен тогда 
		Сообщить("Уже проведений, терміни не рухаємо");
	иначе    ЭтотОбъект.ПолучитьФорму().Открыть();
			     Сообщить("А тепер нажміть ОК");
        КонецЕсли;

КонецПроцедуры // ОбработкаПроведения()

омг...

alexinzaz alexinzaz, (Updated )

Комментарии (31, +31)

Бухгалтерия / Говнокод #16171 Ссылка на оригинал

0

  1. 1
  2. 2
  3. 3
Процедура глЗагрузитьЗаказы() Экспорт
	ОткрытьФорму("Отчет",,"\\SQLDSTR\1C\ExtERT\InvoiceLoader.ert");
КонецПроцедуры

Встретил в самописке в клюшках. Если поменяется имя сервера или каталога - всё рухнет).

zinkovskiy zinkovskiy, (Updated )

Комментарии (17, +17)