Бухгалтерия – Страница 50

Бухгалтерия / Говнокод #6127

0

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33

Функция СравнитьЭлементыСправочника(Элемент1, Элемент2, фЗаписатьРазличия=0) Экспорт
	Перем Рез;
	Рез = 0;
	Если (Элемент1 <> Элемент2) и (фЗаписатьРазличия=0) Тогда
		Рез = 1;
		Перейти ~М1;
	КонецЕсли;
	
	// сначала проверим код и наименование 
	Если (Элемент1.Код <> Элемент2.Код) Тогда
		если фЗаписатьРазличия=1 Тогда
			ЗаписьЖурналаРегистрации("изменен код с '"+СокрЛП(Элемент1.Код)+"' на '"+СокрЛП(Элемент2.Код)+"'","Справочники","Изменен реквизит справочника",Элемент1,2);
		Иначе
			Рез = 1;
			Перейти ~М1;
		КонецЕсли;	
	КонецЕсли;
	
	Если Элемент1.Наименование <> Элемент2.Наименование Тогда
		если фЗаписатьРазличия=1 Тогда
			ЗаписьЖурналаРегистрации("изменено наименование с '"+СокрЛП(Элемент1.наименование)+"' на '"+СокрЛП(Элемент2.наименование)+"'","Справочники","Изменен реквизит справочника",Элемент1,2);
		Иначе
			Рез = 1;
			Перейти ~М1;
		КонецЕсли;	
	КонецЕсли;	

	// == тут было код который удалил автор поста	==

~М1:	
	Возврат Рез;
		
КонецФункции

Внезапно нашел такую функцию неизвестного автора :)

CYFiVE, 30.03.2011 (Updated 25.03.2018)

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

Бухгалтерия / Говнокод #6113

0

1
2
3
4
5
6
7
8
9
10
11
12
13
14

к = 0;
ТЗ2=СоздатьОбъект("ТаблицаЗначений");
ВыгрузитьТабличнуюЧасть(ТЗ2,"ТМЦ,Кво");
ТЗ2.НоваяКолонка("Арт");
ТЗ2.ВыбратьСтроки();
Пока ТЗ2.ПолучитьСтроку()=1 Цикл
	ТМЦ_=ТЗ2.ПолучитьЗначение(к+1,"ТМЦ");
	Если Лев(ТМЦ_,5)="Набор" Тогда
		ТЗ2.Арт=ТМЦ_.Родитель;
	Иначе
		ТЗ2.Арт=ТМЦ_.Родитель.Родитель;
	КонецЕсли;
	к=к+1;
КонецЦикла;

Из 7.7. Особенно радует момент ТМЦ_=ТЗ2.ПолучитьЗначение(к+1,"ТМЦ");

bytemdfab, 29.03.2011 (Updated 25.03.2018)

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

Бухгалтерия / Говнокод #6110

0

1
2

ТекЗакладка=0;
Если ТекЗакладка=0 тогда ТекЗакладка=1;КонецЕсли;

Путаем следы?

CYFiVE, 29.03.2011 (Updated 25.03.2018)

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

Бухгалтерия / Говнокод #5983

0

1
2
3
4
5
6
7
8
9
10
11
12
13

СписокЗначенийТиповЦен = Новый СписокЗначений;
...
КоличествоЦен = 0;
РезультатВыбора = ФормаВыбораТиповЦен.ОткрытьМодально();
Для Каждого Элемент Из РезультатВыбора Цикл 
	СписокЗначенийТиповЦен.Добавить(Элемент.Значение);
	КоличествоЦен = КоличествоЦен + 1;
КонецЦикла;

Если КоличествоЦен = 0 Тогда
	Предупреждение("Не выбран ни один тип цен!!!");	
	Возврат;
КонецЕсли;

Нет проверки на возвращение "неопределено" в строке 4. К тому же в результате возвращает список значений, зачем создавать еще один список и все элементы переносить в него для меня загадка.
Ну и счетчик количества элементов в цикле вместо РезультатВыбора.Количество() на десерт.

ingenuus, 14.03.2011 (Updated 25.03.2018)

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

Бухгалтерия / Говнокод #5977

0

1
2
3
4
5
6
7
8
9

...
Запрос.Текст =
"...
|ГДЕ
|    ...
|    И ТипыЦенНоменклатуры.ПроцентСкидкиНаценки <> &Нуль
|    ...";
Запрос.УстановитьПараметр("Нуль", 0);
...

ingenuus, 14.03.2011 (Updated 25.03.2018)

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

Бухгалтерия / Говнокод #5928

0

1
2
3
4
5

Если пФорма<>1 Тогда
	СтрокаСФ="№";
Иначе
	СтрокаСФ="№";
КонецЕсли;

Загадочное условие в печатной форме ветеринарного свидетельства :)

CYFiVE, 09.03.2011 (Updated 25.03.2018)

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

Бухгалтерия / Говнокод #5628

0

1

Если (ДатаГод(ДатаДок) < 2010) ИЛИ (ДатаГод(ДатаДок) < 2010 ) Тогда

Строка кода из типовой конфигурации 1С: Бухгалтерия 7.7, релиз 522
No comments ...

manan, 10.02.2011 (Updated 25.03.2018)

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

Бухгалтерия / Говнокод #5282

0

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38

//Николай
	//проверяем артикул и если его нет, то генерируем
	Если ПустаяСтрока(Артикул) Тогда
		Запрос = Новый Запрос("ВЫБРАТЬ
		                      |	МАКСИМУМ(Номенклатура.Артикул) КАК ТекАртикул
		                      |ИЗ
		                      |	Справочник.Номенклатура КАК Номенклатура");
		
		Выборка = Запрос.Выполнить().Выбрать();
		Выборка.Следующий();
		ТекКод = ?(Выборка.ТекАртикул = NULL, 1, Мин(ОбщегоНазначения.ПривестиСтрокуКЧислу(Выборка.ТекАртикул) + 8000, 9999999));
		ТекАртикул = Формат(ТекКод, "ЧЦ=7; ЧВН=; ЧГ=");
		
		
		//проверяем дальше
		Выход=0;
		Пока Выход=0 Цикл
			Запрос = Новый Запрос("ВЫБРАТЬ
			|	Номенклатура.Артикул КАК ТекАртикул
			|ИЗ
			|	Справочник.Номенклатура КАК Номенклатура
			|ГДЕ
			|	Номенклатура.Артикул = &Артикул");
			Запрос.УстановитьПараметр("Артикул", ТекАртикул);
			
			Выборка = Запрос.Выполнить().Выбрать();
			Нашли = Выборка.Следующий();
			Если Нашли Тогда
				ТекАртикул=Мин(ОбщегоНазначения.ПривестиСтрокуКЧислу(ТекАртикул) + 1, 9999999);
				ТекАртикул = Формат(ТекАртикул, "ЧЦ=7; ЧВН=; ЧГ=");
			Иначе
				Выход=1;
			КонецЕсли
		КонецЦикла;
		Артикул=ТекАртикул;
		
	КонецЕсли;
	//Николай

Задача: сформировать артикул (число) из 7и знаков по формуле "максимальный артикул + 1". при этом тип реквизита - строка(7). В базе встречаются значения "945784 ", "98763443".

alex-makhnev, 14.01.2011 (Updated 25.03.2018)

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

Бухгалтерия / Говнокод #5174

0

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31

Запрос = Новый Запрос(
	"ВЫБРАТЬ
	|    РегШК.Владелец                   КАК Владелец,
	|    РегШК.ЕдиницаИзмерения           КАК ЕдиницаИзмерения,
	|    РегШК.ХарактеристикаНоменклатуры КАК ХарактеристикаНоменклатуры
	|ИЗ
	|    РегистрСведений.Штрихкоды        КАК РегШК
	|ГДЕ
	|    РегШК.Штрихкод = &Штрихкод");
	
	Запрос.УстановитьПараметр("Штрихкод", Штрихкод);
	РезультатЗапроса = Запрос.Выполнить();
	
	//Николай
	Если РезультатЗапроса.Пустой() Тогда
		Штрихкод=Сред(Штрихкод,7,6);
		Запрос = Новый Запрос(
		"ВЫБРАТЬ
		|    РегШК.Владелец                   КАК Владелец,
		|    РегШК.ЕдиницаИзмерения           КАК ЕдиницаИзмерения,
		|    РегШК.ХарактеристикаНоменклатуры КАК ХарактеристикаНоменклатуры
		|ИЗ
		|    РегистрСведений.Штрихкоды        КАК РегШК
		|ГДЕ
		|    РегШК.Штрихкод = &Штрихкод");
		
		Запрос.УстановитьПараметр("Штрихкод", Штрихкод);
		РезультатЗапроса = Запрос.Выполнить();
    КонецЕсли;
	
	//Николай

Вот как надо выполнять тот же запрос, но с другим параметром!

alex-makhnev, 07.01.2011 (Updated 25.03.2018)

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

Бухгалтерия / Говнокод #4949

0

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47

Процедура БазоваяПриИзменении(Элемент)
		Если ЭтаФорма.ЕдОтчетов = Истина Тогда
			ЭтаФорма.ВДаллах = Ложь; 
			ЭтаФорма.ВРублях = Ложь; 
			ЭтаФорма.Ед_храненияОст = Ложь; 
		Иначе
			ЭтаФорма.ВДаллах = Ложь; 
			ЭтаФорма.ВРублях = Истина; 
			ЭтаФорма.Ед_храненияОст = Ложь; 
		КонецЕсли;	
КонецПроцедуры
	
Процедура ВДаллахПриИзменении(Элемент)
		Если ЭтаФорма.ВДаллах = Истина Тогда
			ЭтаФорма.ЕдОтчетов = Ложь; 
			ЭтаФорма.ВРублях = Ложь; 
			ЭтаФорма.Ед_храненияОст = Ложь; 
		Иначе
			ЭтаФорма.ЕдОтчетов = Ложь; 
			ЭтаФорма.ВРублях = Истина; 
			ЭтаФорма.Ед_храненияОст = Ложь; 
		КонецЕсли;	
КонецПроцедуры
	
Процедура Ед_храненияОстПриИзменении(Элемент)
		Если ЭтаФорма.Ед_храненияОст = Истина Тогда
			ЭтаФорма.ЕдОтчетов = Ложь; 
			ЭтаФорма.ВРублях = Ложь; 
			ЭтаФорма.ВДаллах = Ложь; 
		Иначе
			ЭтаФорма.ЕдОтчетов = Ложь; 
			ЭтаФорма.ВРублях = Истина; 
			ЭтаФорма.ВДаллах = Ложь; 
		КонецЕсли;	
КонецПроцедуры
	
Процедура ВРубляхПриИзменении(Элемент)
		Если ЭтаФорма.ВРублях = Истина Тогда
			ЭтаФорма.ЕдОтчетов = Ложь; 
			ЭтаФорма.Ед_храненияОст = Ложь; 
			ЭтаФорма.ВДаллах = Ложь; 
		Иначе
			ЭтаФорма.ЕдОтчетов = Ложь; 
			ЭтаФорма.ВРублях = Истина; 
			ЭтаФорма.ВДаллах = Ложь; 
		КонецЕсли;
КонецПроцедуры

Замечательная реализация радиобаттонов через флажки

ingenuus, 16.12.2010 (Updated 24.03.2018)

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