Господа, может кто швырнет куском кода в ленивого коллегу, суть такова:
Загружаются данные из экселя, я по книжкам нашел как определить последнюю строку в документе, и загружаю в цикле с первой по последнюю строку
RowCount=Sheet.Cells(1,1).SpecialCells(11).Row;
Для R=НачСтрока RowCount Цикл
*****хрень***
КонецЦикла
Но мир коварен, а люди злы, поэтому нужно вертеть цикл до первой ПУСТОЙ строки, как это сделать - книжки молчат
trozztrozz поэтому нужно вертеть цикл до первой ПУСТОЙ строки
и в чём проблема? не можешь сделать проверку на пустое значение и вставить "Прервать" в цикле?
(1) как выглядит этот код? ктроме тебя походу никто не знает))
А убить пустые строки - не вариант?
RowCount=Sheet.Cells(1,1).SpecialCells(11).Row; Для R=НачСтрока RowCount Цикл Товар = Док.Sheets(1).Cells(R,2).Value;//2 - номер колонки Если Товар = "" Тогда Прервать КонецЕсли;// проверка на пустую строку КонецЦикла
+
Самолёт был сбит вооруженными формированиями действовавшими на востоке Украины. В зоне боевых действий. Никто не планировал такого делать. Это трагическая ошибка. Такое случается, хоть никому от этого и не легче. Мы разделяем горе и скорбим. Выплатим компенсации родственникам пострадавших. (Эти компенсации обойдутся нам меньше, чем Сечин с Якуниным в месяц воруют. Американцы выплатили родственникам пассажиров сбитого иранского Эйрбаса по $300 тысяч).
Разве от этого Земля налетит на небесную ось? Или Крым обратно отберут? Ничего не изменится в худшую сторону, наоборот, общественное мнение в европейских странах смягчится. Все эти адские первые полосы уйдут. Ведь сегодняшняя наша позиция (включая то, что сказал Колесников) воспринимается как "мало того, что самолёт сбили, так ещё и глумятся".
После этого у всех останется ещё миллион и одна украинская проблема - мы теперь долгие годы из этого всего вылезать будем, но это тема отдельного разговора.
Но в ситуации конкретно с Боингом, мне кажется, это была бы самая выгодная позиция для России со стратегической точки зрения.
использовать odbc драйвер.
(5) я указал направление
В dbf сохрани.
На самом деле люди еще коварнее - могут вставить пустую строку, а потом опять данные. Поэтому я бы советовал отсчитать хотя бы десяток строк и только потом закругляться
Всем спасибо
О! А подскажите как это правильно написать в 1С8:
Для каждого СтрокаРезультатЗапроса Из РезультатЗапроса Цикл
Секция = Макет.ПолучитьОбласть("СтрокаНоменклатура");
ЗаполнитьЗначенияСвойств(Секция.Параметры,СтрокаРезультатЗапроса);
Для каждого НашПараметр Из Секция.Параметры Цикл
Если ТипЗнч(НашПараметр) = Тип("Число") Тогда
НашПараметр= Формат(НашПараметр,"ЧЦ=15; ЧДЦ=2");
КонецЕсли;
КонецЦикла;
мТабДок.Присоединить(Секция);
КонецЦикла;
(12) отрабатывает без ошибок. Точка останова показывает что в НашПараметр записывается новое строковое значение, но на экран в отчете выводятся неотформатированные цифры :-(
в старой доброй 1С77 ставишь в макете ГлФРМ(БлаБла) и готово...
+(14) "[Формат(ЦенаСебестоимость,"ЧЦ=15; ЧДЦ=2")]" в ячейке не проканало
тьфу ты! В свойствах ячейки "Значение" поле "Формат" ЧЦ=15; ЧДЦ=2
(19) это точно
(21) Ты из этих жуликов миллльонщиков? ;-)
Ловкость рук, или ремонт компьютера. Жертвам «компьютерной помощи» негде искать защиты
Как заработать миллион долларов в год на обмане и не иметь проблем с законом? Ответ есть почти в каждом столичном подъезде — в объявлениях «Быстрая компьютерная помощь»....
(22) тюрьма по ним плачет
(22)у меня 1 вопрос: кто отдает им эти деньги? там что под дулом пистолета рассчитываются? сказал - "было заявлено 300 рублей, держи и вали"
(27) нагревают бюбушек и молодых девушек
(26) типа: "Плати, или я сделаю тебе бесплатную интимную стрижку!"
(29) его начальный капитал составлял не более 400 000 долларов. В первые несколько лет все заработанные деньги Бен вкладывал обратно в бизнес.
...
конечно все остальные услуги в салоне были уже платными. Но клиенты всё равно пользовались не только бесплатной услугой, но и всеми остальными, а в салоне у Бена Дэвиса был очень широкий и всевозможный спектр услуг.
В салоне у Бэна можно выпить крепкие напитки, просто почитать новую прессу и даже разыграть партию в бильярд. Бен Дэвис превратил свой салон в настоящий мужской клуб.
Ничего нового вообщем та...
(32) ну возьмем гипотетическую ситуацию - ты вызвал такси, диспетчер тебе сказал что стоимость будет 300 р и оплата на выходе, после оказания услуги такист говорит что 300 рублей это в минуту и у тебя набежало 10000 тыщ, твои действия?
мои будут дать таксисту 300 р и послать получить остальное с диспетчера, т.к. договора нет то и платить согласно мутного прейсуранта я не обязан
(32) ага. а по списку - переставлена винда, офис, антивирус, произведено форматирование дисков и полный аппаратный апгрейд. итого на 50тр
(33)
По словам Александра, бывшего сотрудника «компьютерной помощи», каждый день его компания выполняла до полусотни заказов. Это 18 тысяч человек в год, в основном, одинокие женщины и пожилые люди. Их легче убедить и запугать.
...
Сотрудников не оформляют, зарплаты нет, исполнители получают от 10 до 30% от суммы заказа. Если приносят в контору меньше трех тысяч рублей с выезда, их выгоняют.
Понятно что хлюпики, которые не могут выбить денег, долго в такой конторе не задерживаются.
(35)так на дворе не 93' , выбивание денег каким то парнишкой по вызову должно немедленно пресекаться. если он угрожает расправой то это статья, ему проще просто вломиться в квартиру. если все на словах - выгнать нахер
ИМХО конечно