Вызов "GetBuhSchet" из VIP-а & FCOM-а
Добавлено: 28 фев 2002, 23:38
Какая-то ерунда получается.
Пытаюсь пробежаться по PICKBUH вызывая данный интерфейс из ARD и VIP.
В ARD все нормально :
.....
.....
.create view t1 as select * from pickbuh
;
.begin
Runinterface('GetBuhSchet',3,5);
end.
.{table t1
.fields
t1.pickbuh.kodtable t1.pickbuh.schet
.endfields
^ ^
.}
...
...
А из VIP-а ну никак не доходят выбранные значения в PICKBUH :
...
...
CMINIT : {
if Runinterface('GetBuhSchet',3,5)<>cmdefault;
then
{
Message('Отказались от выбора');
Abort;
}
else
{
if (getfirst pickbuh<>tsok)
then
{
Message('Не выбрано ни одного счета');
Abort;
}
else
{
if getfirst pickbuh=tsok
{
do
.....
}
Выдает постоянно Message('Не выбрано ни одного счета');
Может ткнет кто в нужное место
Пытаюсь пробежаться по PICKBUH вызывая данный интерфейс из ARD и VIP.
В ARD все нормально :
.....
.....
.create view t1 as select * from pickbuh
;
.begin
Runinterface('GetBuhSchet',3,5);
end.
.{table t1
.fields
t1.pickbuh.kodtable t1.pickbuh.schet
.endfields
^ ^
.}
...
...
А из VIP-а ну никак не доходят выбранные значения в PICKBUH :
...
...
CMINIT : {
if Runinterface('GetBuhSchet',3,5)<>cmdefault;
then
{
Message('Отказались от выбора');
Abort;
}
else
{
if (getfirst pickbuh<>tsok)
then
{
Message('Не выбрано ни одного счета');
Abort;
}
else
{
if getfirst pickbuh=tsok
{
do
.....
}
Выдает постоянно Message('Не выбрано ни одного счета');
Может ткнет кто в нужное место