Доброго всем дня! Прошу помочь советом.

Опердень RsBank работает под Pervasive.
В новой версии появилось новое поле Sum тип Money. Доступ через ODBC не работет.
По умолчанию тип ставит Numeric 20, 4
Перепробовал все поля. В базе знаний от разработчика есть такие слова.

Ответ: Ниже приводятся примеры преобразования полей, образующих поле Money к одному вещественному полю.
Задача состоит в том, что три поля, два из которых имеют тип длинное целое, а одно - целое, надо преобразовать в длинное вещественное.
В C++ это можно сделать с помощью объединения:
#include <stdio.h>
union
{
struct {
long a;
long b;
int c;
} s;
long double LDMON;
} u;

void main(void)
{
// 5100.00
u.s.a =0L;
u.s.b = -117047296L;
u.s.c =16401;

printf("%Lf", u.LDMON);
}

На Delphi (Pascal) :
Function LDMon_Extended( Int1,Int2 : Integer; SmlInt : SmallInt ) : Extended;
Var
LDMon : record
LI1,LI2 : Integer; { или LongInt }
SI : SmallInt; { или Word }
end;
begin
LDMon.LI1 := Int1;
LDMon.LI2 := Int2;
LDMon.SI := SmlInt;
move(LDMon,Result,SizeOf(Result){ =10 }); {копирует запись LDMon в результат функции}
end;

Как это решить на фоксе.

С уважением, Сергей.


Решение проблемы прошло так: новое поле Sum тип Money, по всей видимости не пропускает FoxPro, а не Pervasive.

Если писать так:

CREATE SQL VIEWs rem_postdoc_rub Remote Connect RsBankNet Share AS ;
SELECT ;
Postdoc_rub.Date_Document,;
Postdoc_rub.Date_Value,;
'810' AS Code_Currency,;
Postdoc_rub.Kind_Carry,;
Postdoc_rub.Kind_Oper,;
Postdoc_rub.Numb_Document AS Num_Doc,;
Postdoc_rub.UserField4,;
Postdoc_rub.Real_Payer,;
Postdoc_rub.Payer,;
Postdoc_rub.Real_Receiver,;
Postdoc_rub.Receiver,;
Postdoc_rub.Ground,;
Postdoc_rub.Sum,;
Postdoc_rub.ApplicationKey,;
Postdoc_rub.Result_Carry ;
FROM "Postdoc_dbt" Postdoc_rub ;
WHERE Postdoc_rub.Result_Carry <> 23 ;
ORDER BY Postdoc_rub.Date_Document, Postdoc_rub.Real_Payer, Postdoc_rub.Real_Receiver

то поле Sum не проходит, если писать так:

CREATE SQL VIEWs rem_postdoc_rub Remote Connect RsBankNet Share AS ;
SELECT * ;
FROM "Postdoc_dbt" Postdoc_rub ;
WHERE Postdoc_rub.Result_Carry <> 23 ;
ORDER BY Postdoc_rub.Date_Document, Postdoc_rub.Real_Payer, Postdoc_rub.Real_Receiver

то представление создается. В других таблицах поле с суммами такого же типа, но если оно называется по другому, не Sum, то представление создается.


Сегодня еще одна проблема всплыла: есть таблица Client, в ней появилось 2 поля тип String, длина 321 и одно поле тип String, длина 296. При построении представления из проекта Fox им ставит тип Logical, представление не работает.
Убираю 2 поля длиной 321, представление работает. Ставлю полю с длиной 296 другие типы, символьные, представление работает. Пробовал с полями длиной 321 применять функции SUBSTR, LEFT, у них в Pervasive синтаксис такой же как в фоксе, представление не работает.