Выбор остатков по договору.
Добавлено: 08 авг 2008, 13:09
Как выбрать сальдовые остатки из Saldmoun по конкретному договору? Гал 8.
выяснить : SaldMoun.TblOs = cgKau_Dogovor
затем выяснить SaldMoun.KauOs = nRec_нужного_договора
Код: Выделить всё
function IfExistKau : integer;
{
var i : integer;
IfExistKau := 0;
for (i := 1; i <= 6; Inc(i)) {
if SaldMoun.TblOs[i] = cgKau_Dogovor { //cgKau_Dogovor = 14
IfExistKau := i;
break;
}
}
}
_loop SaldMoun {
if IfExistKau > 0
if SaldMoun.KauOs[IfExistKau] <> nRec_нужного договора then continue;
...
...
...
}