Ламерский вопрос

  1. 10 г. назад

    Господа, может кто швырнет куском кода в ленивого коллегу, суть такова:
    Загружаются данные из экселя, я по книжкам нашел как определить последнюю строку в документе, и загружаю в цикле с первой по последнюю строку
    RowCount=Sheet.Cells(1,1).SpecialCells(11).Row;
    Для R=НачСтрока RowCount Цикл
    *****хрень***
    КонецЦикла

    Но мир коварен, а люди злы, поэтому нужно вертеть цикл до первой ПУСТОЙ строки, как это сделать - книжки молчат

    Ответы: (1)
  2. trozztrozz поэтому нужно вертеть цикл до первой ПУСТОЙ строки

    и в чём проблема? не можешь сделать проверку на пустое значение и вставить "Прервать" в цикле?

    Ответы: (2)
  3. (1) как выглядит этот код? ктроме тебя походу никто не знает))

  4. А убить пустые строки - не вариант?

  5. 29.07.2014 15:00:11 отредактировано Stim
    RowCount=Sheet.Cells(1,1).SpecialCells(11).Row;
    Для R=НачСтрока RowCount Цикл
    Товар = Док.Sheets(1).Cells(R,2).Value;//2 - номер колонки
    Если Товар = "" Тогда Прервать КонецЕсли;// проверка на пустую строку
    КонецЦикла
    Ответы: (5)
  6. (4)
    Если Товар = "" - плохой дзен.
    лучше так:

    Если ПустаяСтрока(Товар) = 1

    Ответы: (8)
  7. +
    Самолёт был сбит вооруженными формированиями действовавшими на востоке Украины. В зоне боевых действий. Никто не планировал такого делать. Это трагическая ошибка. Такое случается, хоть никому от этого и не легче. Мы разделяем горе и скорбим. Выплатим компенсации родственникам пострадавших. (Эти компенсации обойдутся нам меньше, чем Сечин с Якуниным в месяц воруют. Американцы выплатили родственникам пассажиров сбитого иранского Эйрбаса по $300 тысяч).

    Разве от этого Земля налетит на небесную ось? Или Крым обратно отберут? Ничего не изменится в худшую сторону, наоборот, общественное мнение в европейских странах смягчится. Все эти адские первые полосы уйдут. Ведь сегодняшняя наша позиция (включая то, что сказал Колесников) воспринимается как "мало того, что самолёт сбили, так ещё и глумятся".

    После этого у всех останется ещё миллион и одна украинская проблема - мы теперь долгие годы из этого всего вылезать будем, но это тема отдельного разговора.

    Но в ситуации конкретно с Боингом, мне кажется, это была бы самая выгодная позиция для России со стратегической точки зрения.

  8. использовать odbc драйвер.

  9. (5) я указал направление

  10. В dbf сохрани.

  11. На самом деле люди еще коварнее - могут вставить пустую строку, а потом опять данные. Поэтому я бы советовал отсчитать хотя бы десяток строк и только потом закругляться

  12. Всем спасибо

  13. О! А подскажите как это правильно написать в 1С8:

    Для каждого СтрокаРезультатЗапроса Из РезультатЗапроса Цикл
    Секция = Макет.ПолучитьОбласть("СтрокаНоменклатура");
    ЗаполнитьЗначенияСвойств(Секция.Параметры,СтрокаРезультатЗапроса);
    Для каждого НашПараметр Из Секция.Параметры Цикл
    Если ТипЗнч(НашПараметр) = Тип("Число") Тогда
    НашПараметр= Формат(НашПараметр,"ЧЦ=15; ЧДЦ=2");
    КонецЕсли;
    КонецЦикла;

    мТабДок.Присоединить(Секция);
    КонецЦикла;

    Ответы: (13)
  14. (12) отрабатывает без ошибок. Точка останова показывает что в НашПараметр записывается новое строковое значение, но на экран в отчете выводятся неотформатированные цифры :-(

  15. в старой доброй 1С77 ставишь в макете ГлФРМ(БлаБла) и готово...

    Ответы: (15)
  16. +(14) "[Формат(ЦенаСебестоимость,"ЧЦ=15; ЧДЦ=2")]" в ячейке не проканало

  17. тьфу ты! В свойствах ячейки "Значение" поле "Формат" ЧЦ=15; ЧДЦ=2

    Ответы: (21)
  18. Всем спасибо

    Ответы: (18)
  19. (17) и щоб ты без нас делал?

    Ответы: (19)
  20. 30.07.2014 08:21:13 отредактировано БухиТог

    (18) так это старая тема: "Как только запостишь вопрос на форуме, так сразу сам найдешь ответ." Пока вопрос формулируешь, появляются новые идеи, варианты решения.

    Ответы: (20)
  21. (19) это точно

  22. (16) деньги в кассу занесите, не забудьте

    Ответы: (22)
  23. 30.07.2014 09:29:09 отредактировано БухиТог

    (21) Ты из этих жуликов миллльонщиков? ;-)

    http://www.bfm.ru/news/267108

    Ловкость рук, или ремонт компьютера. Жертвам «компьютерной помощи» негде искать защиты

    Как заработать миллион долларов в год на обмане и не иметь проблем с законом? Ответ есть почти в каждом столичном подъезде — в объявлениях «Быстрая компьютерная помощь»....

    Ответы: (23) (24) (27)
  24. (22) ещё можно заработать миллионы на бесплатных стрижках

    Ответы: (25)
  25. (22) тюрьма по ним плачет

  26. (23) что за стрижки?

    Ответы: (26) (29)
  27. (25) интимные. бесплатные интимные стрижки

    Ответы: (30)
  28. (22)у меня 1 вопрос: кто отдает им эти деньги? там что под дулом пистолета рассчитываются? сказал - "было заявлено 300 рублей, держи и вали"

    Ответы: (28) (32)
  29. (27) нагревают бюбушек и молодых девушек

  30. (25) http://newstime.me/news/kuriozi/1051-amerikanets-zarabotal-1-million-na-besplatnyih-strizhkah/

    Ответы: (31)
  31. (26) типа: "Плати, или я сделаю тебе бесплатную интимную стрижку!"

  32. (29) его начальный капитал составлял не более 400 000 долларов. В первые несколько лет все заработанные деньги Бен вкладывал обратно в бизнес.
    ...
    конечно все остальные услуги в салоне были уже платными. Но клиенты всё равно пользовались не только бесплатной услугой, но и всеми остальными, а в салоне у Бена Дэвиса был очень широкий и всевозможный спектр услуг.
    В салоне у Бэна можно выпить крепкие напитки, просто почитать новую прессу и даже разыграть партию в бильярд. Бен Дэвис превратил свой салон в настоящий мужской клуб.

    Ничего нового вообщем та...

  33. (27) ну услуга оказана - изволь платить согласно прейскуранта. Про 300 рублей было заявлено только на словах и никак ты их не докажешь.

    Ответы: (33) (34)
  34. (32) ну возьмем гипотетическую ситуацию - ты вызвал такси, диспетчер тебе сказал что стоимость будет 300 р и оплата на выходе, после оказания услуги такист говорит что 300 рублей это в минуту и у тебя набежало 10000 тыщ, твои действия?
    мои будут дать таксисту 300 р и послать получить остальное с диспетчера, т.к. договора нет то и платить согласно мутного прейсуранта я не обязан

    Ответы: (35)
  35. (32) ага. а по списку - переставлена винда, офис, антивирус, произведено форматирование дисков и полный аппаратный апгрейд. итого на 50тр

  36. (33)
    По словам Александра, бывшего сотрудника «компьютерной помощи», каждый день его компания выполняла до полусотни заказов. Это 18 тысяч человек в год, в основном, одинокие женщины и пожилые люди. Их легче убедить и запугать.
    ...
    Сотрудников не оформляют, зарплаты нет, исполнители получают от 10 до 30% от суммы заказа. Если приносят в контору меньше трех тысяч рублей с выезда, их выгоняют.

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

    Ответы: (36)
  37. (35)так на дворе не 93' , выбивание денег каким то парнишкой по вызову должно немедленно пресекаться. если он угрожает расправой то это статья, ему проще просто вломиться в квартиру. если все на словах - выгнать нахер

    ИМХО конечно

или зарегистрируйтесь чтобы ответить!