Code: |
function mymain()
dbpush() netuse("_main",loadpath()+'main.dbf') dbgotop() do while _main->(!EOF()) if left(_main->kT_SCHET,2)=="62".and.left(_main->user_code,1)#'1' _main->(reclock()) replace _main->user_code with '1' nom:=_main->recno() /////здесь пытаюсь запомнить номер записи - выдает ошибку s:=_main->summa d:=_main->dataoper n:=_main->nndoc nam:=_main->nameoper append blank replace _main->nameoper with nam replace _main->dt_schet with "“„Ќ01-01" replace _main->task with "00" replace _main->dataoper with d replace _main->summa with s replace _main->vsumma with s replace _main->nndoc with n replace _main->n_status with '1' _main->(go nom) endif _main->(DBSKIP()) enddo _main->(f_dbunlock()) _main->(dbclosearea()) dbpop() return |
Змея wrote: |
ну хорошо, пусть так, но этот оператор nom:=_main->recno() не работает, выдает ошибку |
Змея wrote: |
Спасибо, Александр Александрович! Как всегда из-за невнимательности.
теперь не работает переход _main->(go nom) |
nordk wrote: |
Насчет User_code.
Поле заполняется при включенной авторизации и туда пишется код оператора который это делал. То что Вы делаете , а именно использовать поля делать можно, если отчетливо понимаете где они применяются и какие могут быть последствия. Данное поле я бы наверно не рискнул трогать. А вообще задействовать поля - это еще не грубо видели бы Вы что нам иногда с базами в своих решениях приходится вытворять. И пользуются же люди. Бывает, конечно, проблемы создаются. На самом деле можно метки ставить скажем в конец наименования проводки, добавить свое поле в таблицу и его заполнять - это поддерживается разработчиком. Делать свои таблицы рядом. А в существующие поля писать когда знаете и уверены на 100%. |
output generated using printer-friendly topic mod. All times are GMT + 4 Hours