Всем Здрасте!!!

Подскажите пожалуйста, есть у меня dbf файл с колонкой DATA.

в колонке формат ячейки "Общий" внутри находится значение "26.02.2012" Вот только еще зеленый треугольник и если на него навести то увидиш сл. текст - "Текстовая дата с 2-значним годом"

Та вот при загрузке файла в 1с

ДБФ = Новый XBase;
   
ДБФ.Кодировка = КодировкаXBase.OEM;
ДБФ.ОткрытьФайл(ПутьКФайлуТоваров,,Ложь);

Он его читает , вот только

ДБФ.DATA = 01.01.0001.00.00.00

реально ли заставить 1С правильно прочитать файл?

PS:предлагать переделать формат файла не предлагать, так и делаем, только файл реально оч. большой и таких будет дофени

ну у тебя текст, а не дата, прелбразовывай

(1) я бы с удовольствием, вот только как преобразовать?
после ДБФ.ОткрытьФайл(ПутьКФайлуТоваров,,Ложь);

в табло ДБФ.DATA = 01.01.0001.00.00.00

после хоть запереобразовывайся, ничего не меняется.

нужно заставить как то 1С преобразовать в нужный формат при открытии... вот тока как?

Дата() тебе в помощь

формат ячейки "Общий" а это случайно не про эксель речь?

да он открыл dbf экселем

(5)не, дбф.  возможно из экселя сохранили в дбф

(4) говорю же не кактит. после открытия его уже никак не исправиш

(8) за 500р скажу как  )))

когда читаеш строчку из дбф - то строковое значение в поле дата - какое ? -  "26.02.2012" - ?
Если да то что тебе мешает преобразовать его в нормальную дату ? с помощью (4)!!!!!

выложи файлик

демпингую - за 450 р скажу как ! :)

не мешайте мне делать бизнес, я же не торгую семками )))

(9) ПопытаемсяПолучитьДату = ДАТА(ДБФ.ПолучитьЗначениеПоля("DATA"));
результат - 01.01.0001.00.00.00

Первая()

(15) наверное угадал :)

(0) - и никгда - не открывай DBF - екселем - это же моветон !!!

(0) - Весь код покажи

(15) - а что ПЕРВАЯ()?? она равна ИСТИНА

(19) на первую запись перешел? Или хотя бы на вторую?

(19) сначала первая, потом (14)

(19) - блин покажи весь код как читаеш ДБФ файл или тут люди должны угадывать твой код ?

Потом, извиняюсь за капитанство, Следующая

ну вот в кратце:

   ДБФ = Новый XBase;
   
   ДБФ.Кодировка = КодировкаXBase.OEM;
Попытка
       ДБФ.ОткрытьФайл(ПутьКФайлуТоваров,,Ложь);

       Исключение
       Сообщить("Ошибка открытия файла");
   Возврат;
КонецПопытки;

Пока Истина Цикл        
       ОбработкаПрерыванияПользователя();
       НоваяСтрока = Таблица.Добавить();
       НоваяСтрока.ДАТА =ДБФ.DATA;
           Если Не ДБФ.Следующая() Тогда
           Прервать
       КонецЕсли;    
   КонецЦикла;

(0) - кстати можеш еще версию дбф сказать ?

(25) а где?

где ее посмотреть?

в свойствах файла нету.

ээээ батенька да вы гурман

xB.ОткрытьФайл("c:\test.dbf", "c:\test.cdx");
// Максимальное значение поля COST
xB.Первая();
МаксСтоимость = 0 ;
Пока Не xB.ВКонце() Цикл
   Если xB.COST > МаксСтоимость Тогда
       МаксСтоимость = xB.COST;
   КонецЕсли;
   xB.Следующая();
КонецЦикла;

Если что - это справка из Синтаксис-Помошника.

(24) мда уж :)

(24)
   ДБФ = Новый XBase;
   
   ДБФ.Кодировка = КодировкаXBase.OEM;
Попытка
       ДБФ.ОткрытьФайл(ПутьКФайлуТоваров,,Ложь);

       Исключение
       Сообщить("Ошибка открытия файла");
   Возврат;
КонецПопытки;
ДБФ.Первая(); /// <-----
Пока Не ДБВ.ВКонце() Цикл
       ОбработкаПрерыванияПользователя();
       НоваяСтрока = Таблица.Добавить();
       НоваяСтрока.ДАТА =Дата(ДБФ.DATA+" 00:00:00"); // <-----
       ДБФ.Следующая(); // <-----
КонецЦикла;

Возможно, потребуется СокрЛП(ДБФ.DATA)

(0) - как успехи ?

что то никак.. {Форма.Форма.Форма(157)}: Преобразование значения к типу Дата не может быть выполнено
НоваяСтрока.Дата   = Дата(СокрЛП(ДБФ.DATA)+" 00:00:00"); //

(35) В ДБФ.DATA что?

самое интересное что формат там уже и так "ДАТА" а мы его пытаемся преобразовать

Выполни
Сообщить(ДБФ.DATA);
Сообщить(ТипЗнч(ДБФ.DATA));

(36) смотри в отладчике

(37) Это не мы, это ты
Нам оно неизвестно, что у тебя там

(36) ДБФ.DATA = 01.01.0001.00.00.00 тип ДАТА

(37) не мы, а вы ;)

Сделай в таблице сразу колонку с типом дата, и прямо пиши из дбф без форматирований всяких

Просто присваивай тогда

прикольная тема )

(41) что опять? :)

(41) а код из (32) или свой?

из 32

(45) - не то слово.

(38)

01.01.0001 0:00:00
Дата

выложи файлиГГГГГГГГГГГГГ

Скопируй себе из
http://commerce.at.ua/publ/1-1-0-17
одну только ф-ю, делает полн.импорт дбф в ТЗ, и колонки под типы сама сделает нужные.
Функция ДБФвТаблицюЗначень(ПовнийШляхЗІмям,Кодування)

Странно что в книге знаний нету примера такой простой задачи, переведу ф-ю на рус.язык и добавлю :)

могу скрин пойдет?

(53) файл жалко? что скрин даст-то?

(53) Скрин чаго? файлика в папке? думаю со зрением у тебя в порядке и ты действительно видеш свою дату. нужен файлик

ща. попрубую. выложить

тут куда обычно выкладывают? на файлообменник пойдет?

http://narod.ru/disk/52708943001.5a4c9253de86af30e122e96e44a81d80/nakl.DBF.html

(32) правильно

НО если в ДБФ тип Дата - то не надо преобразховывать
"НоваяСтрока.ДАТА =Дата(ДБФ.DATA+" 00:00:00"); "

(59) т.е.
НоваяСтрока.ДАТА =ДБФ.DATA+" 00:00:00"; ??

или

НоваяСтрока.ДАТА =ДБФ.DATA; ???

ни в том ни в том случай в колонку не загружается дата.

(58) действительно есть трабл. поле DATA - типа дата, причем встречаюся даты за 2016, 2018 года ...что-то тут нечисто :)

Файл странный, да

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

(63) в общем не парься, все равно даты левые :)

все равно спасибо всем кто откликнулся..

(64) почему левые? я открываю экселем - нормальные вполне.

v8: Загрузить дату из DBF тут написанно как

(66) я смотрю WinDBFview и вижу даты с годами 2024, 2030 и т.д.

Каталог = "D:\tmp\";// каталог базы
   DBConn = Новый COMОбъект("ADODB.Connection");
   ADOCommand = Новый COMОбъект("ADODB.Command");
   // подключаемся к каталогу
   DBConn.Open("Provider=VFPOLEDB.1;Data Source=" + Каталог+ ";");
   // обявляем публичную переменную
   ADOCommand.ActiveConnection = DBConn;
   ADOCommand.CommandText = "EXECSCRIPT('PUBLIC KLN_RPC')";
   ADOCommand.Execute();
   ADOCommand.CommandText = "EXECSCRIPT('KLN_RPC=10')";
   ADOCommand.Execute();
   // собственно само подключение к файлу и выборка
   DBFBase = DBConn.Execute("Select * from [HARDWARE.DBF]");
   Count = 0;
   Пока НЕ DBFBase.EOF() Цикл
       Count = Count +1;
       Сообщить(Count);
       Для Каждого Поле из DBFBase.Fields Цикл
           Сообщить(Поле.Name + " - " + DBFBase.Fields(Поле.Name).Value);
       КонецЦикла;
       DBFBase.MoveNext();
   
   КонецЦикла;

+(68) а DBFNavigator.exe показывает пустые значения в поле ДАТА

вы все еще кипятите? (с) )))

(68) Боязнь дат больше текущей?

(68)(69) - ответ как мне кажется в (67) - действительно этот файл выгружают из 1с 7.7 -  буду связыватся с програмистом - пущай исправляет выгрузку

(72)  не то что-бы, просто странноое поведение (68) и (70)

(45)а тема действительно получилсь прикольной...

(75) - при выгрузке данных в дбф в поле дата - было не верно записано значение - очень на это похоже.

(75) - если с помощью любого редактора подправить дату во всех строках то код в (69) отрабатывает на ура.

Каждая тема чтения из дбф - перл!

(78) - да тут дбф явно кривой :)