|
dBase?
|
|||
---|---|---|---|
#18+
Вот была у нас зарплата на FoxPro. Выгружали данные на дискету, несли в банк, народ получал зарплату. Сейчас Камин поставили. Написал процедурку, также выгружаю все необходимое, несу в банк - облом! Но таблички на обоих дискетах абсолютно одинаковые! И структура, и данные... Где косяк? Никто не знает, почему Фоксовская принимается а Каминская нет? Может, 1С как-то некорректно формирует dbf файл? Спасибо ... |
|||
:
Нравится:
Не нравится:
|
|||
24.03.2008, 06:11 |
|
dBase?
|
|||
---|---|---|---|
#18+
Если можно создать два идентичных по содержанию файла (из старой и из новой системы),пусть даже из одной записи - останется их побайтно сравнить: fc file1 file2 -B Может быть, в заголовках какая-то неоднозначность, или такая банальная вещь как КодоваяСтраница ( у 1с 7.7 по умолчанию 1251, у Фокса - возможно 866) ... |
|||
:
Нравится:
Не нравится:
|
|||
24.03.2008, 06:49 |
|
dBase?
|
|||
---|---|---|---|
#18+
Поддерживаю.. Если Фок досовский, тогда 866. А там в банке тоже что нибудь на ДОСе... ... |
|||
:
Нравится:
Не нравится:
|
|||
24.03.2008, 08:50 |
|
dBase?
|
|||
---|---|---|---|
#18+
Вот такая процедурка самодельная. Посмотрите, может что не так? Процедура Выгрузка() л_ТСотр = СоздатьОбъект("ТаблицаЗначений"); БД=СоздатьОбъект("XBase"); БД.КодоваяСтраница(1); ИмяФайла=""; Каталог="C:\Диск"; Наименование=""; ФС.ВыбратьФайл(0,ИмяФайла,Каталог,"Выберите файл для выгрузки "); БД.ОткрытьФайл(Каталог+ИмяФайла,"",0); БД.КодоваяСтраница(1); БД.ОчиститьФайл(); БД.ЗакрытьФайл(); ВыбратьСтроки(); Пока ПолучитьСтроку()=1 Цикл БД.ОткрытьФайл(Каталог+ИмяФайла,"",0); БД.Добавить(); БД.Tn=Прав(Сотрудник.ЛС,4); БД.Fam=Врег(СокрЛП(Сотрудник.Фамилия)+" "+сокрЛП(Сотрудник.Имя)+" "+сокрЛП(Сотрудник.Отчество)); БД.Nm1=Сотрудник.Подразделение.Наименование; БД.kd1=Число(Сотрудник.Подразделение.Код); БД.Sum=Сумма; БД.mes=Строка(ДатаМесяц(ДатаДок)); БД.NLS=Прав(Сотрудник.ЛС,4); БД.Записать(); БД.ЗакрытьФайл(); //Сообщить(Сотрудник.ТабНомер); п_Сотрудник=Сотрудник.Наименование; Сообщить(Врег((Сотрудник.Фамилия)+" "+сокрЛП(Сотрудник.Имя)+" "+сокрЛП(Сотрудник.Отчество))); //ПолучениеПараметровСотрудника КонецЦикла; Сигнал(); Предупреждение("Данные успешно выгружены. Несите в банк!"); КонецПроцедуры ... |
|||
:
Нравится:
Не нравится:
|
|||
24.03.2008, 09:19 |
|
|
start [/forum/search_topic.php?author=%D0%BF%D1%80%D0%BE%D1%81%D1%82%D0%BE+%D1%88%D0%B5%D0%BB+%D0%BC%D0%B8%D0%BC%D0%BE&author_mode=last_posts&do_search=1]: |
0ms |
get settings: |
11ms |
get forum list: |
12ms |
get settings: |
8ms |
get forum list: |
14ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
33ms |
get topic data: |
12ms |
get forum data: |
2ms |
get page messages: |
47ms |
get tp. blocked users: |
2ms |
others: | 726ms |
total: | 873ms |
0 / 0 |