-
−137
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
Перем ВидНДС;
.......................................................................................................................
Если ВыбВидНДС = Перечисление.ВидыНДС.Реализация Тогда
ВидНДС = Перечисление.ВидыНДС.Реализация;
ИначеЕсли ВыбВидНДС = Перечисление.ВидыНДС.Авансы Тогда
ВидНДС = Перечисление.ВидыНДС.Авансы;
КонецЕсли;
ВыбВидНДС - реквизит формы.
antz,
19 Ноября 2010
-
−121
- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
- 26
- 27
- 28
Процедура УстановкаНомераЛицевогоСчета()
Запрос = Новый Запрос();
Запрос.Текст =
"ВЫБРАТЬ
| КВП_ЛицевыеСчета.Наименование
|ИЗ
| Справочник.КВП_ЛицевыеСчета КАК КВП_ЛицевыеСчета
|ГДЕ
| (НЕ КВП_ЛицевыеСчета.ЭтоГруппа)";
МаксНомер = 0;
Выборка = Запрос.Выполнить().Выбрать();
ВсегоВариантов = Выборка.Количество();
ТекВариант = 1;
Пока Выборка.Следующий() Цикл
Номер = ВыбратьТолькоЦифры(Выборка.Наименование);
Если МаксНомер < Число(Номер) Тогда
МаксНомер = Число(Номер);
КонецЕсли;
Состояние("Поиск максимального лицевого счета: " + ТекВариант + " / " + ВсегоВариантов);
ТекВариант = ТекВариант + 1;
КонецЦикла;
МаксНомер = МаксНомер + 1;
ИмяЛицевогоСчета = "л/с №" + Формат(МаксНомер, "ЧДЦ=0; ЧГ=0");
КонецПроцедуры
Процедура для присвоения Кода новому элементу справочника. Из одной серьезной официальной конфигурации.
nickkk,
19 Ноября 2010
-
−128
- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
Родит=ДокР.Контрагент.Родитель;
Если ПустоеЗначение(Родит.Телефон)=1 Тогда
Родит1=Родит.Родитель;
Если ПустоеЗначение(Родит1.Телефон)=1 Тогда
Родит2=Родит1.Родитель;
Если ПустоеЗначение(Родит2.Телефон)=1 Тогда
Родит3=Родит2.Родитель;
ТЗДок.Тел=Родит3.Телефон;
Иначе
ТЗДок.Тел=Родит2.Телефон;
КонецЕсли;
Иначе
ТЗДок.Тел=Родит1.Телефон;
КонецЕсли;
Иначе
ТЗДок.Тел=Родит.Телефон;
КонецЕсли;
ingenuus,
24 Августа 2010
-
−128
- 1
- 2
- 3
- 4
ПолучитьСтроку();
Пока КоличествоСтрок() <> 0 Цикл
УдалитьСтроку();
КонецЦикла;
Новый способ удаления всех строк из документа. Похоже, что разработчик не ведает о существовании метода УдалитьСтроки();
SSNick,
05 Августа 2010
-
−130
- 1
- 2
- 3
Если Конт.Сумма <> КонтСумма Тогда
Конт.Сумма = КонтСумма;
КонецЕсли;
Встретил в типовой конфигурации одной из небольших фирм-франчайзи. Много думал ...
SSNick,
04 Августа 2010
-
−378
- 1
- 2
- 3
- 4
ПЦ = 0;
Пока ПЦ<10000 Цикл
ПЦ = ПЦ + 1;
КонецЦикла;
1С 7.7 Регламентированные отчеты за 2 квартал 2010 года, "декларация НДС"
Зачем эта вставка, не понятно, может что бы помедленней работало?
roavenik,
08 Июля 2010
-
−133
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
Отбор = РегистрыСведений.БазыКонтрагентов.СрезПоследних(Дата,новый Структура("Производитель",Контрагент));
Если Отбор.Количество()>0 Тогда
Для каждого ТекТМ из Отбор Цикл
Элемент.списокВыбора.Очистить();
Для каждого ТекТМ из Отбор Цикл
Элемент.списокВыбора.ДОбавить(ТекТМ.ТорговаяМарка,ТекТМ.ТорговаяМарка);
КонецЦикла;
КонецЦикла;
КонецЕсли;
Сложно сказать что хотел сделать этим автор :)
Может добавить последнюю строку из отбора? :D
PayneBLADE,
02 Июля 2010
-
−132
- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
- 26
Если ДатаЧисло(НачДата) < 10 Тогда
ЧислоДата = "0"+ДатаЧисло(НачДата);
Иначе
ЧислоДата = ДатаЧисло(НачДата);
КонецЕсли;
Если ДатаМесяц(НачДата) < 10 Тогда
МесяцДата = "0"+ДатаМесяц(НачДата);
Иначе
МесяцДата = ДатаМесяц(НачДата);
КонецЕсли;
Если ДатаЧисло(КонДата) < 10 Тогда
КонЧислоДата = "0"+ДатаЧисло(КонДата);
Иначе
КонЧислоДата = ДатаЧисло(КонДата);
КонецЕсли;
Если ДатаМесяц(КонДата) < 10 Тогда
КонМесяцДата = "0"+ДатаМесяц(КонДата);
Иначе
КонМесяцДата = ДатаМесяц(КонДата);
КонецЕсли;
/// ... где-то ниже
ЧислоДата+"/"+МесяцДата+"/"+ДатаГод(НачДата)+";"+КонЧислоДата+"/"+КонМесяцДата+"/"+ДатаГод(КонДата)
У меня это ужалось до 2х строк:
ДатаСтр = Строка(Формат(НачДата, "ДDDMMYYYY"));
ДатаСтр = СтрЗаменить(ДатаСтр, ".", "/");
just_geek,
01 Июля 2010
-
−124
- 1
ЭтоЗаказПокупателя = ?(ТипЗнч(СсылкаНаОбъект) = Тип("ДокументСсылка.ЗаказПокупателя"), Истина, Ложь);
мощь ))))
luns,
29 Апреля 2010
-
−128.6
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
Перем Да, Нет Экспорт;
Да = 1;
Нет = 0;
и далее в кодах идет
Если <что то>=Да Тогда
....
КонецЕсли;
сразу скажу....это все пишется в 1С 7.7
походу ребятки ПЕРЕКОДИЛИ в 8-ке и снова вернулись на 7-ку
s.komaroff,
08 Апреля 2010