Галактика в вопросах и ответах

Код: Выделить всё

ObjInterface GKonBalObj; 
function GetKontrBalance (_c1 : comp; _d1 : date; NaklOnlyWas: word; 
var BalR: double; var BalV:double; var BalB: double): boolean; 
end;

var GKB : GKonBalObj;
balr,balv,balb:double;

GetVipRef(GKB,'GKonBal');
GKB.GetKontrBalance(kontr_nrec,d1,0,balr,balv,balb);
message(balr+' '+balv+' '+balb);

Код: Выделить всё

#define ComponentVersion

ObjInterface GKonBalObj;
function GetKontrBalance (_c1 : comp; _d1 : date; NaklOnlyWas: word;
var BalR: double; var BalV:double; var BalB: double): boolean;
end;

Interface GetBlockForCorgDO, AlwaysReturn;

var DoNrec : comp;
BalR, BalV, BalB, MaxDolgR : double;
GKB : GKonBalObj;
Block : Boolean;

Create View as select * from grnal;

browse www
  fields
    grnal.nrec;
end;

HandleEvent
cmInit :
{
  block:=gkb.GetKontrBalance(10000000000C4h, date(31,12,2009), 0, BalR, BalV, BalB);
  Message(block+'*'+BalR+'*'+BalV+'*'+BalB);
  Abort;
  exit;
};
End;

#undef ComponentVersion
END.

Код: Выделить всё

//******************************************************************************
//                                                      (c) корпорация Галактика
// Галактика 7.12 - Логистика
// Подсчет баланса взаиморасчетов с контрагентом
//******************************************************************************

#ifndef __GKonBal_VIH__
#define __GKonBal_VIH__

#ifdef ComponentVersion
#component "L_KONTRBAL"
#end

//******************************************************************************
#doc
 Подсчет баланса взаиморасчетов с контрагентом
#end

ObjInterface GKonBalObj;
//------------------------------------------------------------------------------
#doc
 Инициализация переменных для подсчет баланса взаиморасчетов с контрагентом
#end
procedure InitTuneParams; // Внимание!!! InitTuneParams необходимо вызвать сразу после инициализации!!!
//------------------------------------------------------------------------------
#doc
 Подсчет баланса взаиморасчетов с контрагентом
#end

Function GetKontrBalance (
                _c1          : comp;    // код контрагента
                _d1          : Date;    // дата, на которую надо рассчитать баланс
                NaklOnlyWas  : word;    // 1-если надо только по проведенным накладным
                var BalR     : double;  // баланс в национальной валюте
                var BalV     : double;  // баланс в валюте для отчетов
                var BalB     : double   // баланс в базовой валюте
         ): boolean;
//------------------------------------------------------------------------------
end;

//******************************************************************************

VipInterface GKonBal implements GKonBalObj
#ifdef ATL51
Licensed (FREE)
#end
;

//******************************************************************************

#end

Код: Выделить всё

#define ComponentVersion
#include GKonBal.vih

Interface GetBlockForCorgDO, AlwaysReturn;

var
  DoNrec : comp;
  BalR, BalV, BalB, MaxDolgR : double;
  GKB : GKonBalObj;
  Block : Boolean;

Create View as select * from grnal;

browse www
  fields
    grnal.nrec;
end;

HandleEvent
cmInit :
{
  gkb.InitTuneParams;
  GetVipRef(GKB,'GKonBal');
  block:=gkb.GetKontrBalance(10000000000C4h, date(31,12,2009), 1, BalR, BalV, BalB);
  Message(block+'*'+BalR+'*'+BalV+'*'+BalB);
  Abort;
  exit;
};
End;

#undef ComponentVersion
END.

Код: Выделить всё

GKB: GKonBal;
. . .
GKB.InitTuneParams; 
// Без GetVipRef(GKB,'GKonBal'); 
block:=GKB.GetKontrBalance(10000000000C4h, date(31,12,2009), 1, BalR, BalV, BalB); 
. . .

Код: Выделить всё

  GetVipRef(GKB,'GKonBal');
  gkb.InitTuneParams;
  block:=gkb.GetKontrBalance(10000000000C4h, date(31,12,2009), 1, BalR, BalV, BalB);

Код: Выделить всё

gkb : GKonBalObj; // cсылка на obj не на vip
GetVipRef(gkb, 'GKonBal');
gkb.InitTuneParams();
block:=gkb.GetKontrBalance(10000000000C4h, date(31,12,2009), 1, BalR, BalV, BalB);