Интерфейс GetBuhSchet
Модераторы: m0p3e, edward_K, Модераторы
-
- Сообщения: 17
- Зарегистрирован: 06 май 2008, 07:50
- Контактная информация:
-
- Постоянный обитатель
- Сообщения: 143
- Зарегистрирован: 09 авг 2006, 16:40
- Откуда: Россия, Тюмень, ОАО "Сибирский Научно-Аналитический Центр"
А
делали?
Код: Выделить всё
#include PickBuh.vih
#include PickBuhNew.vih
-
- Сообщения: 17
- Зарегистрирован: 06 май 2008, 07:50
- Контактная информация:
-
- Сообщения: 17
- Зарегистрирован: 06 май 2008, 07:50
- Контактная информация:
.Form 'ufArdRozReports2_06'
.group 'Акт сверки по контрагенту (План счетов 2006)'
.Nameinlist 'Акт сверки по счетам (2006)'
.ard
#define ComponentVersion
#include "L:\gal810\frm\frm\compsrc\f\f_buhrep\PickBuh.vih"
.var
sProgramName:String;
c1,_UpperGroup:Comp // nrec организации, которую выбрали в интерфейсе
InterfaceResult:word;
Evalute:Boolean;
Sch:String;
Schet:boolean;//флажок: true=
opl:boolean;//флажок: true=печатать название секции оплачено
pos:boolean;//флажок: true=печатать название секции поставлено
dogB:boolean;//флажок: true=печатать свернутое входящее сальдо по договору
dogS:boolean;//флажок: true=печатать свернутое сальдо по договору
doc:string;// тип документа
Org,Org_INN,Org_Adr, Org_Ind, Org_State, Org_City, Org_UAdr:string;// наименование и адрес контрагента
d1,d2:date;//интервал дат, который задается в интерфейсе
VSaldo:Double;// свернутое входящее сальдо по контрагенту
VSaldo_Dog:Double;// свернутое входящее сальдо по договору
SaldoDb:Double;//исходящее сальдо по контрагенту по дебету
SaldoCr:Double;//исходящее сальдо по контрагенту по кредиту
SaldoDb_Dog:Double;//исходящее сальдо по договору по дебету
SaldoCr_Dog:Double;//исходящее сальдо по договору по кредиту
Saldo:Double;// свернутое исходящее сальдо по контрагенту
SumDb:Double;// сумма дебетовых оборотов по договору
SumCr:Double;// сумма кредитовых оборотов по договору
OSumDb:Double;// сумма дебетовых оборотов по контрагенту
OSumCr:Double;// сумма кредитовых оборотов по контрагенту
.endvar
.begin
InterfaceResult:=RunInterface('L_KATORG::GetKatOr',c1,_UpperGroup,True,0,0);
Evalute:=(InterfaceResult<>11);
RunInterface('F_BUHREP::bperiod',d1,d2);
RunInterface('F_BUHSCHET::GetBuhSchet',3,0001000000000117h);
end.
.create view v1
as select *
from katorg,dogovor,SALDMOUN,oborot,
synonym oborot oborotDb,
synonym oborot oborotCr,
synonym SALDMOUN SALDMOUN_I,
pickbuh
.group 'Акт сверки по контрагенту (План счетов 2006)'
.Nameinlist 'Акт сверки по счетам (2006)'
.ard
#define ComponentVersion
#include "L:\gal810\frm\frm\compsrc\f\f_buhrep\PickBuh.vih"
.var
sProgramName:String;
c1,_UpperGroup:Comp // nrec организации, которую выбрали в интерфейсе
InterfaceResult:word;
Evalute:Boolean;
Sch:String;
Schet:boolean;//флажок: true=
opl:boolean;//флажок: true=печатать название секции оплачено
pos:boolean;//флажок: true=печатать название секции поставлено
dogB:boolean;//флажок: true=печатать свернутое входящее сальдо по договору
dogS:boolean;//флажок: true=печатать свернутое сальдо по договору
doc:string;// тип документа
Org,Org_INN,Org_Adr, Org_Ind, Org_State, Org_City, Org_UAdr:string;// наименование и адрес контрагента
d1,d2:date;//интервал дат, который задается в интерфейсе
VSaldo:Double;// свернутое входящее сальдо по контрагенту
VSaldo_Dog:Double;// свернутое входящее сальдо по договору
SaldoDb:Double;//исходящее сальдо по контрагенту по дебету
SaldoCr:Double;//исходящее сальдо по контрагенту по кредиту
SaldoDb_Dog:Double;//исходящее сальдо по договору по дебету
SaldoCr_Dog:Double;//исходящее сальдо по договору по кредиту
Saldo:Double;// свернутое исходящее сальдо по контрагенту
SumDb:Double;// сумма дебетовых оборотов по договору
SumCr:Double;// сумма кредитовых оборотов по договору
OSumDb:Double;// сумма дебетовых оборотов по контрагенту
OSumCr:Double;// сумма кредитовых оборотов по контрагенту
.endvar
.begin
InterfaceResult:=RunInterface('L_KATORG::GetKatOr',c1,_UpperGroup,True,0,0);
Evalute:=(InterfaceResult<>11);
RunInterface('F_BUHREP::bperiod',d1,d2);
RunInterface('F_BUHSCHET::GetBuhSchet',3,0001000000000117h);
end.
.create view v1
as select *
from katorg,dogovor,SALDMOUN,oborot,
synonym oborot oborotDb,
synonym oborot oborotCr,
synonym SALDMOUN SALDMOUN_I,
pickbuh
-
- Сообщения: 17
- Зарегистрирован: 06 май 2008, 07:50
- Контактная информация:
-
- Заслуженный деятель интернет-сообщества
- Сообщения: 5188
- Зарегистрирован: 29 мар 2005, 17:49
- Откуда: SPB galaxy spb
дык тогда нужно просто
перенести в проект. А как что настраивать не так давно обсуждалось
Код: Выделить всё
#define ComponentVersion
#include "L:\gal810\frm\frm\compsrc\f\f_buhrep\PickBuh.vih"
-
- Сообщения: 17
- Зарегистрирован: 06 май 2008, 07:50
- Контактная информация:
-
- Сообщения: 17
- Зарегистрирован: 06 май 2008, 07:50
- Контактная информация:
Вот так в .prj:
в итоге при компиляции пишет, что нет в словаре pickbuh
Код: Выделить всё
#include L:\gal810\frm\frm\compsrc\f\f_buhrep\PickBuh.vih
#make "d:\new_ard\*.*"