Есть результат выполнения SQL запроса в созданном курсоре.
При использовании "Copy to" равно как и export изменяется значение точности поля типа Numeric в результирующем файле, т.е. в результирующем файле получается поле типа Numeric с нулевой точностью - N(20)
Привожу кусок текста:

create CURSOR c_Kart_saldo(user_id N(10),;
billing_id N(10),;
saldo N(15,2);
)

cod=sqlexec(nora,sql_saldo_ab,'c_Kart_saldo')

IF cod>0
COPY TO saldo_nas FOX2X as 866
endif
Вопрос: как сделать так, чтобы точность сохранялась?

Igor Korolyov

Вы совершенно правы, действительно нужно затолкать в файл результат выполнения SQL запроса к ORACL_у.
Спасибо за наводку. Попытаюсь раздобыть ORACL_овый ODBC.

Hi, Igor Korolyov
В результате "поиска" и проб предложенных вариантов оправдало себя
полностью только следующее предложение:
--------------------------------------------------------------------------
StiletЕсли это были бы регионаальные настройки, то дробная часть пропала бы во всех полях, а она пропадаете только в

select nvl(p1,0) p1,(select max(p2) from t2 where t2.p1=t1.p1) p2 from p1

лично я сначала создаю таблицу нужной структуры

create cursor cur1 (p1(n(10,2),p2(n1,2)) )
retval=sqle(hndl,[select nvl(p1,0) p1,(select max(p2) from t2 where t2.p1=t1.p1) p2 from p1],[cur2])

sele cur1
append from dbf([cur2])
------------------------------------------------------------------------------
Отработал текст:
Create dbf aaa (User_id N(12,0), billing_id N(8,0),saldo N(12,2))

cod=sqlexec(nora,sql_saldo_ab,'c_Kart_saldo')
IF cod>0
sele aaa
append from dbf([c_Kart_saldo])
COPY TO Saldo_nas FOX2X as 866
endif
----------------------------------------------------------------------------

СПАСИБО ВСЕМ!

Hi, Igor Korolyov!

Об ORACLE ODBC мне придется забыть - велят работать с MS ODBC.
Что-то отработало, но результата не видно - программа свалилась с кодом 1581 (по поводу NULL значений).
Вразумите меня, пожалуйста, как с ними поступить?
В принципе ими можно попуститься (IS NOt NULL), но все же мне нужен полный об"ем.
Текст в prg:

sql_saldo_ab="ALTER SESSION SET NLS_NUMERIC_CHARACTERS = '. ' "+;
"SELECT ss.billing_id,u.user_id, ss.saldo "+;
"FROM t_users u, t_services s, t_saldo ss "+;
"WHERE (u.user_id = ss.user_id and u.dept_id=26341715 and u.iscorp='N') "+;
"and ss.BILLING_ID=200505 and (u.user_id=s.user_id and s.svctype='0')"

c_Kart_saldo=''

cod=sqlexec(nora,sql_saldo_ab,'c_Kart_saldo')

IF cod>0
COPY TO Saldo_nas FOX2X as 866
endif


Подскажите, пожалуйста, может еще что неверно?

Hi, Igor Korolyov!
Спасибо за внимание к моей проблеме.
Судя по всему придется возвращаться к старому алгоритму:
позаписно тащить из курсора все записи в файл нужной структуры.
Работает это значительно медленнее и текст проги становитсь
громоздким. Хотелось как лучше, получилось как всегда - топорно,
но работает.