Admin: 1 revision imported

2021-02-07T06:43:25Z

1 revision imported

Admin at 11:52, 23 July 2020

2020-07-23T11:52:03Z

New page

{{infobox function
|name=CurRecord
|object=[[Внешняя таблица DBF|DBF]]
|caption=Индекс текущей записи
|type=0
|status=2
|db=0
|rw=1
|visual=0}}
{{HeadLinks|
* [[Main_Page|Начальная страница]]
* [[Общее_описание_языка|Общее описание]]
* [[Объекты]]
* [[Внешняя таблица DBF|DBF]]}}
Получает индекс текущей открытой записи. Если запись новая, атрибут возвращает -1, если позиционирование на запись не производилось, атрибут возвращает 0. Для изменения индекса текущей записи, используйте функцию [[DBF.Goto|Goto]].

== Синтаксис ==
<code>
{{Grey|DBF.}}'''CurRecord''':''<Индекс текущей записи (INT)>''
</code>

==== Возвращаемое значение ====
Возвращает числовое значение.

== Примеры ==
<pre>
ПостИмяОст:="Остатки на "+FormatDate(КонДата,"YYYY-mm-dd")+".dbf";
бРезОст:=dbf.Create();
бРезОст.FileName:=Каталог+ПостИмяОст;
бРезОст.Codepage:=1251;

бРезОст.AddField(,"dDate","DATE");
бРезОст.AddField(,"cItemName","STRING.250");
бРезОст.AddField(,"nQty","NUMBER.15.0");

...

//Функция выводит 0
Message(бРезОст.CurRecord);

З:=Query.Create();
З.Execute(ТЗ);

While З.Next(1) Do
While З.Next(2) Do
зКл:=З.зКлКО;
If зКл<=0 Then
Continue;
EndIf;
зН:=З.зН;
бРезОст.AddRecord(,"dDate,cItemName,nQty",З.День,зН.ПолнНаименование,зКл);

//Функция выводит -1
Message(бРезОст.CurRecord);
EndDo;
EndDo;
бРезОст.Save();
//Функция выводит индекс, совпадающий с общим количеством записей в таблице
Message(бРезОст.CurRecord);
бРезОст.Close();
</pre>

← Older revision	Revision as of 06:43, 7 February 2021
(No difference)

DBF.CurRecord - Revision history

Admin: 1 revision imported

Admin at 11:52, 23 July 2020