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

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

#component"L_BaseDoc"
alter interface VSCHET;
var
  ... 
Create view massa
from katsopr, spsopr, katmc
where
((     org_nrec     ==  KatSopr.corg
  and  data        <<= katsopr.dsopr
  and  word (201)   ==  KatSopr.VidSopr  (NoIndex)
  and katsopr.nrec  == spsopr.csopr
  and spsopr.nrec   == sporder.cspsopr
  and sporder.CMC   == katmc.nrec
));
Create view Org_attr 
from katorg,synonym attrnam attrnamD,synonym attrval attrvalD,synonym attrnam attrnamK,synonym attrval attrvalK,synonym attrnam attrnamM,synonym attrval attrvalM
where
((
 org_nrec == katorg.nrec and  
 word(1418) == attrnamK.wtable and
 'Сальдо исходящее(кредит)' == attrnamK.name and
 word(1418) == attrvalK.wtable and
 katorg.nrec == attrvalK.crec and
 attrnamK.nrec == attrvalK.cattrnam and
 word(1418) == attrnamD.wtable and 
 'Сальдо исходящее(дебет)' == attrnamD.name and
 word(1418) == attrvalD.wtable and
 katorg.nrec == attrvalD.crec and
 attrnamD.nrec == attrvalD.cattrnam and
 word(1418) == attrnamM.wtable and 
 'Отгрузка за период' == attrnamM.name and
 word(1418) == attrvalM.wtable and
 katorg.nrec == attrvalM.crec and
 attrnamM.nrec == attrvalM.cattrnam
));

Create view Saldo from SALDMOUN 
where
((
  '562' == SALDMOUN.SCHETO and
  OP == SALDMOUN.DATESAL  and
  org_nrec == SALDMOUN.KAUOS[1](noindex)
));

Create view obormot from oborot
where
((
  OP <<= oborot.DATob and
  '562' == oborot.SCHETO and
  org_nrec == oborot.KAUOS[1](noindex)
));
Create view obormotka from oborot
where
((
  OP <<= oborot.DATob and
  '562' == oborot.SCHETK and
  org_nrec == oborot.KAUKS[1](noindex)
));

window wvschet;
handleevent
...

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

Saldo._loop SALDMOUN
{
		{
		if   Saldo.SALDMOUN.VIOB = '1' Then VIDS := 'Дебет';
		if   Saldo.SALDMOUN.VIOB = '2' Then VIDS := 'Кредит';
		}
		{
		if   VIDS = 'Дебет' debet := debet + Saldo.SALDMOUN.SUMS;
		if   VIDS = 'Кредит' k := k + Saldo.SALDMOUN.SUMS;
		}
}
		{
		saldo_vx := debet - k;
		if saldo_vx >= 0   saldo_vxD :=   saldo_vx;
		if saldo_vx <= 0   saldo_vxK :=   saldo_vx*(-1);
		}

obormot._loop oborot
{
		{
			d_ob := d_ob + obormot.oborot.sumob;
		}
}

obormotka._loop oborot
{
		{
			k_ob := k_ob + obormotka.oborot.sumob;
		}
}

{
			saldo_ISX := saldo_vxD - saldo_vxK + d_ob - k_ob;
			if saldo_ISX > 0
		{
			saldo_ISXD := saldo_ISX;
			saldo_ISXK := 0;
		
}
if saldo_ISX < 0
{
saldo_ISXD := 0;
saldo_ISXK := saldo_ISX*(-1);
}
if saldo_ISX = 0
{
saldo_ISXD := 0;
saldo_ISXK := 0;
}
weight :=0;
}
massa._loop katmc 
{
{
if ( Substr(massa.katmc.KGROUPMC, 1, 2) = '04' and Substr(massa.katmc.KGROUPMC, 1, 4) <> '0410')
weight := weight + massa.sporder.kol;
}
}

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

...
Create view kor
from BASEDOC, spstep,STEPDOC, katmc, katotped, statdoc
where
((
  Step == spstep.nrec and
  spstep.CSTEPDOC == STEPDOC.nrec and
  STEPDOC.CBASEDOC == BASEDOC.nrec and
  spstep.CMCUSL == katmc.nrec and
  katmc.nrec == katotped.cmcusl
 ));
...

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

...
cmbut1:
		{
	kor._loop katmc
	{
       message(kor.katmc.name);
	}
...

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

cmbut1:
      {
  Step:=SpStep.Nrec // а чего вы хотели - это главная логич. таблицв
  kor._loop spstep // или if kor.getfirst spstep=0 
   kor._loop katmc
   {
       message(kor.katmc.name);
   }

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

...
kor._loop viewtable
	{
	message(katmc.name + '' + string(STEPDOC.CBASEDOC,0,0));
     }
  ...

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

Create view kor from BASEDOC, stepdoc, katmc, katotped, spstep
where
((
	b == Basedoc.nrec 
     STEPDOC.CBASEDOC == basedoc.nrec and
     spstep.CSTEPDOC == STEPDOC.nrec and
     spstep.CMCUSL == katmc.nrec and
     katmc.nrec == katotped.cmcusl
));

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

b:=BaseDoc.Nrec
	kor._loop viewtable
	{
	x:=x+1
	}
     message(x);

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

   b == Basedoc.nrec and
     basedoc.nrec == STEPDOC.CBASEDOC  and
     STEPDOC.nrec == spstep.CSTEPDOC   and
     spstep.CMCUSL == katmc.nrec and
     katmc.nrec == katotped.cmcusl

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

if kor.getfirst katmc=0 {}

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

...
Create view kor as select * from synonym stepdoc stepdoc1, synonym spstep spstep1, basedoc, katmc, katotped
where
((
	b == basedoc.nrec and
	basedoc.nrec == STEPDOC1.CBASEDOC and
	STEPDOC1.nrec == spstep1.CSTEPDOC and
	spstep1.CMCUSL == katmc.nrec and
	katmc.nrec == katotped.cmcusl
));
...

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

cmbut1:
...
		{
	b:=BaseDoc.Nrec
message(b);
	kor._loop viewtable
	{
       if kor.getfirst stepdoc=0 {}
	message(string(kor.stepdoc1.Nrec,0,0));
     }
 ...

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

b:=BaseDoc.Nrec
message(b);
	kor._loop Basedoc
	kor._loop katmc
	kor._loop katotped
	kor._loop spstep1
	kor._loop stepdoc1
	{
	//x:=x+1
	if kor.getfirst stepdoc=0 {}
	message(string(kor.stepdoc1.Nrec,0,0));
     }

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

if kor.getfirst stepdoc=0 {}