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

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

...
.var
...
   henzap_str: LongInt;
...
.endvar
.create view ros as
select *
from iznosperOS
order sort1 by grosnrec, katosnrec, arciznosnrec;
...
.begin
...
   SQLFreeStr(henzap_str);
   SQLAddStr(henzap_str, 'select katos.nrec, katos.innum, katos.datek, gros.nrec,');
   SQLAddStr(henzap_str, 'arciznos.nrec, arciznos.sumizn, arciznos.stoim, arciznos.siznm, arciznos.data, spkatos.srokisp, spkatos.cisp');
   SQLAddStr(henzap_str, 'from katos');
   SQLAddStr(henzap_str, 'inner join gros on katos.cgrup = gros.nrec and ((katos.datv >= #date(1,1,2011) or katos.datv = 0) and #date(31,1,2011) >= katos.datek and 15 = katos.tidk)');
   SQLAddStr(henzap_str, 'inner join spkatos on katos.nrec = spkatos.ckatos and spkatos.cnastros = #comp(3) and');
   SQLAddStr(henzap_str, '(#comp(281474976710657) = spkatos.cisp or #comp(2) = spkatos.cisp or #comp(281474976710665) = spkatos.cisp or');
   SQLAddStr(henzap_str, ' #comp(281474976710673) = spkatos.cisp or #comp(281474976710672) = spkatos.cisp or #comp(281474976710674) = spkatos.cisp or #comp(281474976710675) = spkatos.cisp)');
   SQLAddStr(henzap_str, 'inner join arciznos on arciznos.ckatos = katos.nrec and arciznos.cnastros = #comp(3)');
   SQLAddStr(henzap_str, 'order by gros.nrec, katos.nrec, arciznos.nrec');
   kodosh:=SQLSelectInto(henzap_str, ros.tniznosperOS);
message(kodosh);
   ros.SetOrder(ros.tisort1);
   SQLFreeStr(henzap_str);
end.
.{table 'ros' by ros.iznosperos.grosnrec
.begin
   gr:=ros.iznosperos.grosnrec;
message(gr);
end.
...

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

table struct local IznosPerOS
(
  katosnrec: comp,
  katosinnum: string,
  katosdatek: date,
  grosnrec: comp,
  arciznosnrec: comp,
  arciznossumizn: double,
  arciznosstoim: double,
  arciznossiznm: double,
  arciznosdata: date,
  spkatossrokisp: double,
  spkatoscisp: comp
)
with index
(
  igros=grosnrec,
  ios=katosnrec,
  iarc=arciznosnrec
);

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

Назначение
Возвращает код последней ошибки.

Описание
function sqlErrorCode(stmt : longInt) : integer;

Параметры
stmt - хендл запроса (см. sqlAllocStmt).

Возвращаемое значение
Функция возвращает код последней ошибки.

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

kodosh:=SQLSelectInto(henzap_str, ros.tniznosperOS);

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

.form swswswswff
.ard
.var
   henzap_str: LongInt;
   kodosh : integer ;
   gr : comp ;
.endvar
.create view ros as
select *
from iznosperOS
order sort1 by grosnrec, katosnrec, arciznosnrec;
.fields
  ros.iznosperos.katosinnum
  ros.iznosperos.katosdatek
  ros.iznosperos.grosnrec
.endfields
.begin
   SQLFreeStr(henzap_str);
   SQLAddStr(henzap_str, 'select katos.nrec, katos.innum, katos.datek, gros.nrec,');
   SQLAddStr(henzap_str, 'arciznos.nrec, arciznos.sumizn, arciznos.stoim, arciznos.siznm, arciznos.data, spkatos.srokisp, spkatos.cisp');
   SQLAddStr(henzap_str, 'from katos');
   SQLAddStr(henzap_str, 'inner join gros on katos.cgrup = gros.nrec and ((katos.datv >= #date(1,1,2008) or katos.datv = 0) and #date(31,12,2008) <= katos.datek and 15 = katos.tidk)');
   SQLAddStr(henzap_str, 'inner join spkatos on katos.nrec = spkatos.ckatos and spkatos.cnastros = #comp(3) and spkatos.cisp=#comp(2)');
   SQLAddStr(henzap_str, 'inner join arciznos on arciznos.ckatos = katos.nrec and arciznos.cnastros = #comp(3)');
   SQLAddStr(henzap_str, 'order by gros.nrec, katos.nrec, arciznos.nrec');
   kodosh:=SQLSelectInto(henzap_str, ros.tniznosperOS);
   message(kodosh);
   ros.SetOrder(ros.tisort1);
   SQLFreeStr(henzap_str);
end.
.{table 'ros' by ros.iznosperos.grosnrec
 ^ ^ ^
.}
.endform

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

   if (sqlNavigateMT(mt, ffGetFirst, rec) = tsOk)
     do
     {
       ros.insert iznosperos set
         iznosperos.katosnrec:=comp(rec[1]),
         iznosperos.katosinnum:=string(rec[2]),
         iznosperos.katosdatek:=DateSQLtoAtlDate(rec[3]),
         iznosperos.grosnrec:=comp(rec[4]),
         iznosperos.arciznosnrec:=comp(rec[5]),
         iznosperos.arciznossumizn:=double(rec[6]),
         iznosperos.arciznosstoim:=double(rec[7]),
         iznosperos.arciznossiznm:=double(rec[8]),
         iznosperos.arciznosdata:=DateSQLtoAtlDate(rec[9]),
         iznosperos.spkatossrokisp:=double(rec[10]),
         iznosperos.spkatoscisp:=comp(rec[11]);
     }
     while (sqlNavigateMT(mt, ffGetNext, rec) = tsOk);