Имя: Пароль:
1C
Юмор
Коллега-Чудотворец(маг в 1 поколении)
, ,
0 cawokru
 
25.07.12
13:57
1. Я сам себе маг 45% (5)
2. Гадаю ежеменутно 36% (4)
3. У меня тоже есть маги 1 поколения 18% (2)
4. У меня есть маги 2 поколения 0% (0)
Всего мнений: 11

&НаКлиенте
Процедура тзТабЧастьДекларацииПриАктивизацииСтроки(Элемент)
//...
НомерацияСтрок();
//...
КонецПроцедуры

Процедура НомерацияСтрок()

Счетчик=1;

Для каждого ВводДекларация Из тзТабЧастьДекларации Цикл  
 //Нумерация табличной части Декларации
 ВводДекларация.НомерСтроки=Счетчик;
 Счетчик=Счетчик+1;  
КонецЦикла;

КонецПроцедуры
66 cawokru
 
26.07.12
18:59
ааа, я не могу... второй день правлю, а оно все лезет...

Если ВыборкаНоменклатура.Количество=Null Тогда
   НоваяСтрокаТабличнаяЧасть.Количество=1;
Иначе
   НоваяСтрокаТабличнаяЧасть.Количество=ВыборкаНоменклатура.Количество;
КонецЕсли;

придется в день сисадмина пить сгоря...

У меня тоже есть маги 1 поколения
79 MMF
 
16.08.12
15:00
(37, 73) Ну это еще приличный код.... хуже, если, как у меня в филиале 50%/50% англорусский ховнокод с замечательными идеями и чудными идентификаторами смешанной англолатиницы
   ИначеЕсли Лев(ИсхТабл,5)="Налог" Тогда    
       Таб.КоличествоЭкземпляров(1);        
       ПечатьНН();
       If пар_<>0 then
           Таб.ПараметрыСтраницы(1,,1,10,5,5,0,5,0);
           q=Таб.ВысотаТаблицы()/2;
           q2=?(q-62<11,q-11,62);
           If q>64 then
               Таб.Записать("c:\111.mxl");
           
               Таб.ОбластьПечати(1,1,62,11);
               Таб.Напечатать(0);
               Предупреждение("Вставьте первую страницу налоговой накладной (оригинал)");
               Таб.Открыть("c:\111.mxl");
               Таб.ОбластьПечати(63,1,q+62,11);
               Таб.Напечатать(0);
               Таб.Открыть("c:\111.mxl");

У меня тоже есть маги 1 поколения