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

0

  1. 1
  2. 2
  3. 3
  4. 4
  5. 5
  6. 6
  7. 7
  8. 8
  9. 9
  10. 10
  11. 11
Функция ПреобразоватьМаленькиеБуквыВБольшиеБуквы(Слово)
    
    Слово = СтрЗаменить(Слово, "а", "А");
    Слово = СтрЗаменить(Слово, "б", "Б");
    //...
 
    Слово = СтрЗаменить(Слово, "я", "Я");
    
    Возврат Слово;
    
КонецФункции

Легкие пути для слабых))))

kirillsas kirillsas, (Updated )

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

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

0

  1. 1
  2. 2
тПодр	= Справочники.СотрудникиОрганизаций.НайтиПоКоду(Физлицо.Код).ПолучитьОбъект().ТекущееПодразделениеОрганизации;
тДолжн	= Справочники.СотрудникиОрганизаций.НайтиПоКоду(Физлицо.Код).ПолучитьОбъект().ТекущаяДолжность;

а может, только так и надо?

-ggorky -ggorky, (Updated )

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

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

0

  1. 1
  2. 2
  3. 3
  4. 4
  5. 5
  6. 6
  7. 7
  8. 8
  9. 9
  10. 10
  11. 11
Договор = Неопределено;

ВыборкаДоговоров = Справочники.ДоговорыКонтрагентов.Выбрать();

Пока ВыборкаДоговоров .Следующий() Цикл
      Если ВыборкаДоговоров.Ссылка = Документ.ДоговорКонтрагента Тогда
            Договор = ВыборкаДоговоров.Ссылка;
      КонецЕсли;
КонецЦикла

ТабДокумент.Параметры.Договор = Договор.Наименеование;

Попросили стажера сделать печатную форму.

A-tomic A-tomic, (Updated )

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

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

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
  68. 68
  69. 69
  70. 70
  71. 71
  72. 72
  73. 73
  74. 74
  75. 75
  76. 76
  77. 77
  78. 78
  79. 79
  80. 80
  81. 81
  82. 82
  83. 83
  84. 84
  85. 85
  86. 86
  87. 87
  88. 88
  89. 89
  90. 90
  91. 91
  92. 92
  93. 93
  94. 94
  95. 95
  96. 96
  97. 97
  98. 98
  99. 99
  100. 100
ВЫБРАТЬ
    МИНИМУМ(ЗапросСортировки.НомерСтроки)           КАК НомерСтроки,
    МИНИМУМ(ЗапросСортировки.НомерТЧ)               КАК НомерТЧ,
    ЗапросСоставаТЧ.Номенклатура.Артикул            КАК Артикул,
    ЗапросСоставаТЧ.Номенклатура                    КАК Номенклатура,
    ВЫРАЗИТЬ(ЗапросСоставаТЧ.Товар КАК Строка(100)) КАК Товар,
    МАКСИМУМ(ЗапросСоставаТЧ.Количество)            КАК Количество,
    ЗапросСоставаТЧ.ЕдиницаИзмерения.Представление  КАК ЕдиницаЦены,
    ЗапросСоставаТЧ.Цена                            КАК Цена,
    МАКСИМУМ(ЗапросСоставаТЧ.Сумма)                 КАК Сумма,
    МАКСИМУМ(ЗапросСоставаТЧ.СуммаНДС)              КАК СуммаНДС,
    ЗапросСоставаТЧ.Характеристика                  КАК Характеристика,
    NULL КАК Серия
ИЗ
(ВЫБРАТЬ
    ВложенныйЗапрос.Номенклатура     КАК Номенклатура,
    ВложенныйЗапрос.Номенклатура.НаименованиеПолное КАК Товар,
    ВложенныйЗапрос.Номенклатура.Код КАК КодАртикул,
    ВложенныйЗапрос.Количество       КАК Количество,
    ВложенныйЗапрос.ЕдиницаИзмерения КАК ЕдиницаИзмерения,
    ВложенныйЗапрос.Цена             КАК Цена,
    ВложенныйЗапрос.Сумма            КАК Сумма,
    ВложенныйЗапрос.СуммаНДС         КАК СуммаНДС,
    ВложенныйЗапрос.Характеристика   КАК Характеристика
ИЗ
    (
    ВЫБРАТЬ
        ЗаказПоставщику.Номенклатура,
        ЗаказПоставщику.ЕдиницаИзмерения,
        ЗаказПоставщику.Цена                        КАК Цена,
        СУММА(ЗаказПоставщику.Количество)           КАК Количество,
        СУММА(ЗаказПоставщику.Сумма     )           КАК Сумма,
        СУММА(ЗаказПоставщику.СуммаНДС  )           КАК СуммаНДС,
        ЗаказПоставщику.ХарактеристикаНоменклатуры  КАК Характеристика
    ИЗ
        Документ.ЗаказПоставщику.Товары КАК ЗаказПоставщику

    ГДЕ
        ЗаказПоставщику.Ссылка = &ТекущийДокумент

    СГРУППИРОВАТЬ ПО
        ЗаказПоставщику.Номенклатура,
        ЗаказПоставщику.ЕдиницаИзмерения,
        ЗаказПоставщику.Цена,
        ЗаказПоставщику.ХарактеристикаНоменклатуры
    ) КАК ВложенныйЗапрос

ОБЪЕДИНИТЬ ВСЕ

ВЫБРАТЬ
    ВложенныйЗапрос.Номенклатура     КАК Номенклатура,
    ВложенныйЗапрос.Номенклатура.НаименованиеПолное КАК Товар,
    ВложенныйЗапрос.Номенклатура.Код КАК КодАртикул,
    ВложенныйЗапрос.Количество       КАК Количество,
    ВложенныйЗапрос.ЕдиницаИзмерения КАК ЕдиницаИзмерения,
    ВложенныйЗапрос.Цена             КАК Цена,
    ВложенныйЗапрос.Сумма            КАК Сумма,
    ВложенныйЗапрос.СуммаНДС         КАК СуммаНДС,
    ВложенныйЗапрос.Характеристика   КАК Характеристика
ИЗ
    (
    ВЫБРАТЬ
        ЗаказПоставщику.Номенклатура,
        ЗаказПоставщику.ЕдиницаИзмерения,
        ЗаказПоставщику.Цена                        КАК Цена,
        СУММА(ЗаказПоставщику.Количество)           КАК Количество,
        СУММА(ЗаказПоставщику.Сумма     )           КАК Сумма,
        СУММА(ЗаказПоставщику.СуммаНДС  )           КАК СуммаНДС,
        ЗаказПоставщику.ХарактеристикаНоменклатуры  КАК Характеристика
    ИЗ
        Документ.ЗаказПоставщику.Оборудование КАК ЗаказПоставщику

    ГДЕ
        ЗаказПоставщику.Ссылка = &ТекущийДокумент

    СГРУППИРОВАТЬ ПО
        ЗаказПоставщику.Номенклатура,
        ЗаказПоставщику.ЕдиницаИзмерения,
        ЗаказПоставщику.Цена,
        ЗаказПоставщику.ХарактеристикаНоменклатуры
    ) КАК ВложенныйЗапрос

ОБЪЕДИНИТЬ ВСЕ    

ВЫБРАТЬ
    ЗаказПоставщику.Номенклатура,
    ЗаказПоставщику.Содержание КАК Товар,
    ЗаказПоставщику.Номенклатура.Код КАК КодАртикул,
    ЗаказПоставщику.Количество,
    ЗаказПоставщику.Номенклатура.ЕдиницаХраненияОстатков,
    ЗаказПоставщику.Цена,
    ЗаказПоставщику.Сумма,
    ЗаказПоставщику.СуммаНДС,
    NULL
    
ИЗ
    Документ.ЗаказПоставщику.Услуги КАК ЗаказПоставщику

ГДЕ
    ЗаказПоставщику.Ссылка = &ТекущийДокумент) КАК ЗапросСоставаТЧ

получи фашист гранату... вытянул запрос и функции печать уникального автора

drhihi drhihi, (Updated )

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

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

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
"ВЫБРАТЬ РАЗРЕШЕННЫЕ ПЕРВЫЕ " + ПериодАнализаВРабочихДнях + "
|    РегламентированныйПроизводственныйКалендарь.ДатаКалендаря
|ИЗ
|    РегистрСведений.РегламентированныйПроизводственныйКалендарь КАК РегламентированныйПроизводственныйКалендарь
|ГДЕ
|    РегламентированныйПроизводственныйКалендарь.ДатаКалендаря <     &ДатаНач
|    И (РегламентированныйПроизводственныйКалендарь.ВидДня = &РабочийДень
|            ИЛИ РегламентированныйПроизводственныйКалендарь.ВидДня = &ПредпраздничныйДень)
|
|УПОРЯДОЧИТЬ ПО
|    РегламентированныйПроизводственныйКалендарь.ДатаКалендаря УБЫВ";
датаначала = Неопределено;
Выборка = запрос.выполнить().выбрать();
пока выборка.следующий() цикл
датаначала = выборка.ДатаКалендаря;
конеццикла;
возврат датаначала;

и почему я не могу додуматься взять минимальное значение??

drhihi drhihi, (Updated )

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

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

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
"ВЫБРАТЬ
|	ТоварыНаСкладахОстатки.Номенклатура КАК Номенклатура,
|	СУММА(ТоварыНаСкладахОстатки.КоличествоОстаток) КАК КоличествоОстатокНаСкладах
|ИЗ
|	РегистрНакопления.ТоварыОрганизаций.Остатки(
|			,
|			Номенклатура В (&НоменклатураПоОтбору)
|				И Склад В (&СписокСкладов)
|				И Организация = (&Организация)) КАК ТоварыНаСкладахОстатки
|ГДЕ
|	ТоварыНаСкладахОстатки.Склад В(&СписокСкладов)
|
|СГРУППИРОВАТЬ ПО
|	ТоварыНаСкладахОстатки.Номенклатура

1с никогда меня не может понять, что мне нужны свернутые остатки....
1с загоняется... если я в виртуальной таблице отобрал по складам, то мне вновь приходится отбирать по складам

drhihi drhihi, (Updated )

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

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

0

  1. 1
  2. 2
  3. 3
  4. 4
  5. 5
  6. 6
  7. 7
  8. 8
  9. 9
"ВЫБРАТЬ РАЗРЕШЕННЫЕ
|	Номенклатура.Ссылка КАК Номенклатура
|ИЗ
|	Справочник.Номенклатура КАК Номенклатура
|ГДЕ
|	Номенклатура.Ссылка В(&НоменклатураПоОтбору)
|
|СГРУППИРОВАТЬ ПО
|	Номенклатура.Ссылка

Пусть 1с раздупляется, что тебе не нужны одинаковые элементы справочника "номенклатура"

drhihi drhihi, (Updated )

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

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

0

  1. 1
  2. 2
  3. 3
  4. 4
  5. 5
  6. 6
  7. 7
//ВИНМАНИЕ Деление на 0
Если СтрокаЗаказа.КоличествоДнейНаличияНаСкладеЗаПериод = 0 Тогда
	СтрокаЗаказа.КоличествоСделокВДень = 0;
Иначе
	СтрокаЗаказа.КоличествоСделокВДень = СтрокаЗаказа.КоличествоСделокЗаПериод
		/ ?( СтрокаЗаказа.КоличествоДнейНаличияНаСкладеЗаПериод = 0, 1, СтрокаЗаказа.КоличествоДнейНаличияНаСкладеЗаПериод );
КонецЕсли;

по условию 1с не догнала, что там 0...

drhihi drhihi, (Updated )

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