powered by simpleCommunicator - 2.0.51     © 2025 Programmizd 02
Форумы / [игнор отключен] [закрыт для гостей] / dBase?
4 сообщений из 4, страница 1 из 1
dBase?
    #35208677
Jimy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Вот была у нас зарплата на FoxPro. Выгружали данные на дискету, несли в банк, народ получал зарплату. Сейчас Камин поставили. Написал процедурку, также выгружаю все необходимое, несу в банк - облом! Но таблички на обоих дискетах абсолютно одинаковые! И структура, и данные...
Где косяк?
Никто не знает, почему Фоксовская принимается а Каминская нет? Может, 1С как-то некорректно формирует dbf файл?
Спасибо
...
Рейтинг: 0 / 0
dBase?
    #35208688
pail
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Если можно создать два идентичных по содержанию файла (из старой и из новой системы),пусть даже из одной записи - останется их побайтно сравнить:
fc file1 file2 -B

Может быть, в заголовках какая-то неоднозначность, или такая банальная вещь как КодоваяСтраница
( у 1с 7.7 по умолчанию 1251, у Фокса - возможно 866)
...
Рейтинг: 0 / 0
dBase?
    #35208760
Katzman
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Поддерживаю.. Если Фок досовский, тогда 866. А там в банке тоже что нибудь на ДОСе...
...
Рейтинг: 0 / 0
dBase?
    #35208789
Jimy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Вот такая процедурка самодельная. Посмотрите, может что не так?

Процедура Выгрузка()
л_ТСотр = СоздатьОбъект("ТаблицаЗначений");
БД=СоздатьОбъект("XBase");
БД.КодоваяСтраница(1);
ИмяФайла="";
Каталог="C:\Диск";
Наименование="";
ФС.ВыбратьФайл(0,ИмяФайла,Каталог,"Выберите файл для выгрузки ");
БД.ОткрытьФайл(Каталог+ИмяФайла,"",0);
БД.КодоваяСтраница(1);
БД.ОчиститьФайл();
БД.ЗакрытьФайл();
ВыбратьСтроки();
Пока ПолучитьСтроку()=1 Цикл

БД.ОткрытьФайл(Каталог+ИмяФайла,"",0);
БД.Добавить();
БД.Tn=Прав(Сотрудник.ЛС,4);
БД.Fam=Врег(СокрЛП(Сотрудник.Фамилия)+" "+сокрЛП(Сотрудник.Имя)+" "+сокрЛП(Сотрудник.Отчество));
БД.Nm1=Сотрудник.Подразделение.Наименование;
БД.kd1=Число(Сотрудник.Подразделение.Код);
БД.Sum=Сумма;
БД.mes=Строка(ДатаМесяц(ДатаДок));
БД.NLS=Прав(Сотрудник.ЛС,4);
БД.Записать();
БД.ЗакрытьФайл();
//Сообщить(Сотрудник.ТабНомер);
п_Сотрудник=Сотрудник.Наименование;
Сообщить(Врег((Сотрудник.Фамилия)+" "+сокрЛП(Сотрудник.Имя)+" "+сокрЛП(Сотрудник.Отчество)));
//ПолучениеПараметровСотрудника


КонецЦикла;
Сигнал();
Предупреждение("Данные успешно выгружены. Несите в банк!");
КонецПроцедуры
...
Рейтинг: 0 / 0
4 сообщений из 4, страница 1 из 1
Форумы / [игнор отключен] [закрыт для гостей] / dBase?
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]