Оплаченность отгрузок ???

[homak]

Доброго времени суток!
Подскажите как "понять" оплачена ли позиция в списанной расходной накладной ... и насколько оплачена (полностью или частично).

[Seybukan]

Оплаченность будет браться только при условии что распределен платеж по спецификации накладной!

[homak]

Ок !!!
Распределяются еженедельно
Как в базе "поймать" что позиция спецификации накладной оплачена ?

[Max_Fin]

Таблица SpSoprHoz
CSOPRHOZ - ссылка на SoprHoz платежного документа
CSPSOPR - ссылка на спецификацию сопроводительного документа
KOL - количество оплаченного

[Алексей]

В 5.85 таблица называется SpSopHoz

Тоже все время когда пишу, получается с буковый R

[Max_Fin]

действительно обшибся

[Optimist]

Парни, подскажите как узнать оплачена накладная или нет? Мне нужно получить список неоплаченных накладных и не знаю как

[Max_Fin]

Проблема в том, что одна накланая может быть оплачена несколькими платежами.

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

var KolVoAll: Double;

  _loop SpSopr where ((KatSopr.nRec == SpSopr.cSopr))
  {
     KolVoAll := Double(0);
     _loop SpSopHoz where ((SpSopr.nRec == SpSopHoz.cSpSopr))
     {
        KolVoAll := KolVoAll + SpSopHoz.KolVo
     }
     if KolVoAll = SpSopr.KolFact
     {
        LogStrToFile('c:\log.txt', 'оплачено полное кол-во');   
     }
     else
     {
       if KolVoAll = Double(0) LogStrToFile('c:\log.txt', 'не оплачено')
       else LogStrToFile('c:\log.txt', 'частичная оплата');
     }
  }

[Optimist]

Спасиба! Сегодня проверю.

[Optimist]

У меня в таблице SpSopr больше миллиона записей, а в таблице SpSopHoz в 10 раз меньше...

А по таблице SoprHoz можно узнать оплачена накладная или нет? или по Oborot'ам?

[homak]

2 Max_Fin

Если одну МЦ оплатили например 3-мя частями - то в SpSopHoz будет 3 записи после распределения платежей ?

[Max_Fin]

Все очень просто посмотреть

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

select
  KatSopr.nSopr, KatSopr.dSopr,
  if (SpSopr.PrMC = 1, KatMC.Name, KatUsl.Name),
  SpSopr.KolFact,
  PlPor.NoDok, PlPor.DatVip, SpSopHoz.KolVo
from
  PlPor, SoprHoz, SpSopHoz, SpSopr, KatMC, KatUsl
where
((
  Comp(XXXXXXXXXXXXXh) == KatSopr.nRec and
  KatSopr.nRec == SpSopr.cSopr and

  SpSopr.nRec == SpSopHoz.cSpSopr and
  SpSopHoz.cSoprHoz == SoprHoz.nRec and

  SoprHoz.cSoprDoc == PlPor.nRec and

  SpSopr.cMCUsl == KatMC.nRec and
  SpSopr.cMCUsl == KatUsl.nRec
));

[homak]

Max_Fin
в Ваших кладовницах нет случаем связи таблиц распределения платежей по финансовым обязательствам ?

[homak]

разобрался сам

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

from
AKTPERF,
SOPRHOZ
where
((
CrecFO            ==     AKTPERF.CAKTOFP  and
AKTPERF.CSOPRHOZ  ==     SOPRHOZ.nrec      
));