Подскажите, не получается проверить на пустое значение поле DBF файла, и при нахождении пустого значения-удалить строку. Проверялись разные поля на равенство = ''. Поле имеет тип ДАТА. первый код не работает, если стоит равенство (= ''), когда ставишь неравенство (<> ''), работает. Что не так? Спасибо заранее

Код 1: (не работает как надо)

Процедура ДБФПациент()
   ДБФ  = СоздатьОбъект("xBase");
   ДБФ.ОткрытьФайл(ПутьДБ,,0); // на форме выбор файла
   ДБФ.КодоваяСтраница(0);        
   ДБФ.Первая();
          Пока ДБФ.ВКонце() = 0 Цикл
       Если ДБФ.Date_pricr = '' Тогда
           Сообщить("Пустое значение поля - "+ДБФ.NAME);
       КонецЕсли;
       КО = ДБФ.КодОшибки();
       ДБФ.Следующая();
   КонецЦикла;    
КонецПроцедуры

Код 2. При не равенстве пустому значению, выдает данные

Процедура ДБФПациент()
   ДБФ  = СоздатьОбъект("xBase");
   ДБФ.ОткрытьФайл(ПутьДБ,,0);
   ДБФ.КодоваяСтраница(0);        
   ДБФ.Первая();
          Пока ДБФ.ВКонце() = 0 Цикл
       Если ДБФ.Date_pricr <> '' Тогда      
           Сообщить("не Пустое значение поля - "+ДБФ.NAME);
       КонецЕсли;
       КО = ДБФ.КодОшибки();
       ДБФ.Следующая();
   КонецЦикла;    
КонецПроцедуры

Приведи к строке
Строка(ДБФ.Date_pricr) = ""
или возможно Строка(ДБФ.Date_pricr) = "  .  .    "
не помню точно

Если ПустоеЗначение(ДБФ.Поле1) = 1 Тогда
//удаляем
КонецЕсли;

(2) А если поля Поле1 нет? (смайлик подмигивания )

(3) тады пусть переводит мне бабки за то, чтобы появилось...

(4) +100 :-)))))

(0)
1) Может в поле есть пробелы. Попробуй:
Если ПустоеЗначение(СокрЛП(ДБФ.Date_pricr)) = 1 Тогда

   // Значит пустое поле

КонецЕсли;

2)А ты не думаеш о том что удаляя строку ты можеш нарушить процесс выборки строк. Помойму нашел первую строку с пустым полем удалил и потом заново сначала стал читать файл.

(1) В строку и в число форматировал! не помогло!
' .  .  ' - пробовал!

(6)1 Пробелы убирал - тоже не работает!
(6)2 этот код вообще не сообщает о пустых значениях ((

Если ДБФ.Date_pricr = ПолучитьПустоеЗначение("Дата") Тогда

посмотри что там в пустом значении
Сообщить("/" + ДБФ.Date_pricr + "/");

(9) странно, но код ничего не выдал в сообщить!

(10) не верю! (c)

(10) ничего не выдал или выдал "//" ?

(0) Если поле "Date_pricr" имеет тип Дата - не нужно ничего никуда переводить. Достаточно такой проверки:
ПустоеЗначение(ДБФ.Date_pricr)

(10) вообще пусто, то и странно!

(0) а само поле какой тип?

(13) +1

(15) +100500. Вот вот. И я о том же.

(14) развоТ

+(15) количество знаков в году? может ищешь не то? :))

(18) неа.. Новый год был.. :))

сейчас окажется что ДБФ-ка ваще не открыта

Снова код привожу на суд форумчан, может чего пропустил, глаз типа замылился:

Пока ДБФ.ВКонце() = 0 Цикл
Если ПустоеЗначение(ДБФ.Date_pricr) = 1 Тогда      
// Сообщить("Пустое значение поля - "+ДБФ.NAME);
  Сообщить("/" + ДБФ.Date_pricr + "/");
// ДБФ.Удалить();
КонецЕсли;
КО = ДБФ.КодОшибки();
Состояние("Выполняется обработка "+ДБФ.NAME);
ДБФ.Следующая();
КонецЦикла;

(22) дык... условие-то убери, если оно не срабатывает

Пока ДБФ.ВКонце() = 0 Цикл
Сообщить("/" + ДБФ.Date_pricr + "/");
ДБФ.Следующая();
КонецЦикла;

а так? как выглядят пустые значения?

(22) семдесятьчетырнацатьиещедвараза: поле как записато?

Вынеси Сообщить из условия

если тип Int то проверять на 0 вроде... хотя хз)

(19) тип дата: ДД.ММ.ГГГГ

(28) Дата в ДБФ вот так "ДД.ММ.ГГГГ" не выглядит.

(28) хде ответ на (24)?

(30) жду... идет обработка, там 183000 записей

(31) и ни разу сообщение не выдало?!

(24) выдает даты списком: /01.01.72/  и пустые значения в конце: /  .  .  /

(33) скорее всего строчный тип

Отойти надо на часок...

Если Строка(ДБФ.Date_pricr) = "  .  .  " Тогда

(33) та-а-а-ак,
Если Строка(ДБФ.Date_pricr)="  .  .  "

(29) открывал FieldWin выдвал именно так. ДД.ММ.ГГГГ почему показывает как ДД.ММ.ГГ

(34) надо проверить на Тип, может правда строка...

(34)+
Если СокрЛП(Строка(ДБФ.Date_pricr)) = ".  ." Тогда

(39) ога, так наверняка)

+(37) Если СтрЗаменить(Строка(ДБФ.Date_pricr)," ","")=".."
:-)

(0) Пилят. Неужели так тяжело посмотреть тип поля?

(42) ога. лучче мистян напрячь :-)

(задумавшись).. не поможет..

(39) не работает

(42) видимо таким образом автор и пытается вычислить тип поля)

(42)(43) тип дата, как я и писал (0)

(47) количество знаков в годе?! у тебя вылетает за возможный период!

а чо там про 1899 год, к дбф это не относится ?

(47) Тогда проверка на пустое значение - наше фсе.

(48) в полях дбф всегда 8 знаков (типа дата)

(51) ога. а потом налетаем на дату, которая за началом рабочего столетия :))

(51) не спорю. в текст приходилось писать взрослых :))

(52)
Непосредственно в файле лежат 8 символов: YYYYMMDD, без всяких точек. А уж как 1С преобразует поле даты, в котором 8 пробелов - хз.
Можно попробовать так:
Если ДБФ.Date_pricr = '..' Тогда

Или уж условие если меньше какой-нибудь определенной старой даты

(42)(43)(46)
Используя функцию ТипЗначения()

Сообщить("Пустое значение поля - "+ДБФ.NAME+" Тип Значения: "+ТипЗначения(ДБФ.Date_pricr));

Возвращает - 3, т.е. ДАТА, как и писалось впрочем.

(48) DBF смотрелся двумя способами FieldWin - ДД.ММ.ГГГГ, FoxPro используя Data Session Windows показывает в DBF дату как ДД.ММ.ГГГГ. Файл вообще создан в FoxPro 8 или 9 версии...

Так ты посмотри не как показывает, а в свойствах какой тип пишет.

Если Не(ДБФ.Date_pricr <> '') Тогда      
   Сообщить("Пустое значение поля - "+ДБФ.NAME);
КонецЕсли;

(0) Если ПустоеЗначение(Дата(ДБФ.Date_pricr)) = 1 тогда //пустая дата

Если Дата(ДБФ.Date_pricr)<'01.01.1900' Тогда

(60) не то!

(61) что это даст, если дата в поле будет меньше указаной даты? ничего! тк формат у вашей даты ГГГГ а у меня ГГ, то выдает просто все даты. Не работает!

(63): см.(54)
Если ДатаГод(Дата(ДБФ.Date_pricr))=0 Тогда // пустая дата

(64) не сработало!

(54) не сработало!

(66) Ты издеваешься? Или на полном серьезе?
Уже миллион раз мог сделать сообщить(строка(ДБФ.Date_pricr)), и проверять на полученную строку.

А вообще,
если (лев(сокрлп(ДБФ.Date_pricr))>="0")и(лев(сокрлп(ДБФ.Date_pricr))<="9") тогда не пустая дата.

Пустая дата может быть в виде пробелов, а может быть датой вида 00.00.0000 (то есть все нули). Как записала программа, которая создаёт DBF-файл, знает только она сама.
Если открыть DBF-файл в Far-е по F3 и посмотреть, что там, то можно быстро понять, как обозначается пустая дата.

(69) Простой сообщить() в 1С покажет в каком виде записана дата. И это в этой ветке есть.

(70) Не факт, так как драйвер DBF будет транслировать дату во что-то более похожее на дату (он определяет тип по заголовку DBF-файла). Если то, что найдено в поле, в дату преобразовать нельзя, то 1С предполагает пустую дату.

(71) Не понял о чем вы говорите.
Строка(ДБФ.Date) дает то что ему нужно проверять.

(67)ни в коем разе, а то что выдает функция собщить я уже описывал в (33) а именно: ДД.ММ.ГГ или - 12.08.48

При проверке в таком формате: '  .  .  ' и в таком '..' и в таком '' - ничего не дает, конвертация в Дата, Число, Строка тоже. Формат даты: ДД.ММ.ГГ
привожу код которы использовал при проверке поля Date_pricr (ДАТА):

Пока ДБФ.ВКонце() = 0 Цикл
Если ПустоеЗначение(Строка(СокрЛП(ДБФ.Date_pricr)))=1 Тогда
//Если ПустоеЗначение(Дата(ДБФ.Date_pricr)) = 1 Тогда
//Если Дата(ДБФ.Date_pricr)<'01.01.1900' Тогда
//Если ДатаГод(Дата(ДБФ.Date_pricr))=0 Тогда
//Если ДБФ.Date_pricr = '..' Тогда
//Если ДБФ.Date_pricr = ' . . ' Тогда
//Если ДБФ.Date_pricr = '' Тогда
   ДБФ.Удалить();
   Сообщить("Удален "+ДБФ.NAME+СимволТабуляции+ДБФ.Date_pricr);
   КонецЕсли;
   КО = ДБФ.КодОшибки();
   Состояние("Выполняется обработка "+ДБФ.NAME);
   ДБФ.Следующая();
КонецЦикла;                                          
ДБФ.Записать();

(74) Круто, тратить три дня на такую фигню.
Точно рабочий варинат в (68)
Еще варианты -
стрдлина(сокрлп(строка(ДБФ.Date_pricr)))<3 Тогда
стрзаменить(сокрлп(строка(ДБФ.Date_pricr))," ","")="." тогда

и т.д.

И один вопрос - какого ... вы все проверки делаете в одинарных ковычках? Вам миллион раз написали - привести к строке, и соотвественно сравнивать с строкой! Строка заключается в двойные кавычки!!!

имелось в виду.
стрзаменить(сокрлп(строка(ДБФ.Date_pricr))," ","")=".." тогда

(65): ну, у меня работает причем не в одном месте.
дай тогда ДБФ то посмотреть.

Вообще, проще всего тогда дату преобразовать в строку, проверить, чтобы строка была не пустой и преобразовать строку обратно в дату.
// ТестоваяДата - проверяемое значение
Если ТипЗначения(ТестоваяДата)=3 Тогда
// переводим в строку с заменой
// в принципе, замену можно не делать, так как мы потом обратно переводим в дату
ТестоваяСтрока=СокрЛП(Строка(ТестоваяДата));
// преобразуем полученную строку обратно в дату
// то есть мы уже получаем значение даты в 1С
// и там пустое значение получается однозначно
ВремДата=Дата(ТекстоваяСтрока);
// Проверяем стандартную для 1С переменную на значение даты
Если ПустоеЗначение(ВремДата)=0 Тогда
 // Проверяем, что у нас дата написана правильно и корректно
 // (Никто не мешает в DBF записать 99.99.99)
 Если ТестоваяДата=ВремДата Тогда
  Результат="Правильная дата";
 Иначе
  Результат="Неправильная дата";
 КонецЕсли;
Иначе
 Результат="Пустая дата";
КонецЕсли;
Иначе
Результат="НеДата";
КонецЕсли;

Удивительно, сколько потрачено усилий на решение этого достаточно простого вопроса.

Предложение Автору: Вырежь из ДБФ десяток записей, среди которых есть "пустая дата" и отдай сообществу для рассмотрения, и не надо будет гадать что, где, когда. Ответы  и решения получишь через 5 минут. (Они уже, правда,  и так есть, но получишь оптимальное в твоем случае).

(79) Да он уже миллион раз её в сообщить() вывел.

(79): да говорили уже - ему похрен.

вы всё еще кипятите? тогда мы идём к вам! (с)

Если ПустоеЗначение(СтрЗаменить(ДБФ.Date_pricr, ".", "")) = 1 Тогда      
   Сообщить("Пустое значение поля - "+ДБФ.NAME);
КонецЕсли;


Точно работает, проверял