Выбор остатков по договору.

Программирование на Атлантисе (VIP, FCOM, ARD), FastReport

Модераторы: m0p3e, edward_K, Модераторы

Ответить
levtov
Постоянный гость
Сообщения: 60
Зарегистрирован: 29 мар 2005, 17:49
Откуда: Казахстан, Экибастуз, АО "ЕЭК"
Контактная информация:

Выбор остатков по договору.

Сообщение levtov »

Как выбрать сальдовые остатки из Saldmoun по конкретному договору? Гал 8.
k_vit
Постоянный обитатель
Сообщения: 143
Зарегистрирован: 09 авг 2006, 16:40
Откуда: Россия, Тюмень, ОАО "Сибирский Научно-Аналитический Центр"

Сообщение k_vit »

сделать цикл по SaldMoun
выяснить : 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;
    ...
    ...
    ...       
}
levtov
Постоянный гость
Сообщения: 60
Зарегистрирован: 29 мар 2005, 17:49
Откуда: Казахстан, Экибастуз, АО "ЕЭК"
Контактная информация:

Сообщение levtov »

спасибо! сейчас попробую
Лучше перебдеть, чем недобдеть!
edward_K
Заслуженный деятель интернет-сообщества
Сообщения: 5187
Зарегистрирован: 29 мар 2005, 17:49
Откуда: SPB galaxy spb

Сообщение edward_K »

там вроде индекс есть tblos[?]+kauos[?] - шустрее будет.
levtov
Постоянный гость
Сообщения: 60
Зарегистрирован: 29 мар 2005, 17:49
Откуда: Казахстан, Экибастуз, АО "ЕЭК"
Контактная информация:

Сообщение levtov »

Возникла новая проблема. Если отобрать сальдовые остатки по организации - tblos[?]=1, то среди отобранных записей аналитики tblos[?]=14 не встречается вообще.
Лучше перебдеть, чем недобдеть!
Ответить