Difference between revisions of "DBF.Codepage"
m (1 revision imported) |
|
(No difference)
|
Latest revision as of 07:43, 7 February 2021
Codepage (Кодовая страница DBF) | |||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|
|
Получить кодовую страницу файла, либо установить ее в заголовок файла (при этом сами данные в файле не будут перекодированы -- используется для открытия неверно созданных файлов, для перекодировки данных используйте TranslateTo). На данный момент принимаются следующие кодовые страницы (совпадающие с номерами кодовых страниц Windows): 437, 737, 850, 852, 857, 860, 861, 863, 865, 866, 874, 895, 932, 936, 949, 950, 1250, 1251, 1252, 1253, 1254, 1257.
Синтаксис
DBF.Codepage:<Кодовая страница данных файла (INT)>
Возвращаемое значение
Возвращает строку -- имя текущего файла объекта.
Примеры
ПостИмяОст:="Остатки на "+FormatDate(КонДата,"YYYY-mm-dd")+".dbf"; бРезОст:=dbf.Create(); бРезОст.FileName:=Каталог+ПостИмяОст; бРезОст.Codepage:=1251; бРезОст.AddField(,"dDate","DATE"); бРезОст.AddField(,"cItemName","STRING.250"); бРезОст.AddField(,"nQty","NUMBER.15.0"); ... З:=Query.Create(); З.Execute(ТЗ); While З.Next(1) Do While З.Next(2) Do зКл:=З.зКлКО; If зКл<=0 Then Continue; EndIf; зН:=З.зН; бРезОст.AddRecord(,"dDate,cItemName,nQty",З.День,зН.ПолнНаименование,зКл); EndDo; EndDo; бРезОст.Save(); бРезОст.Close();