Оплаченность отгрузок ???
Модераторы: m0p3e, edward_K, Модераторы
-
- Постоянный обитатель
- Сообщения: 144
- Зарегистрирован: 29 мар 2005, 17:49
- Откуда: Красноярский Край
- Контактная информация:
Оплаченность отгрузок ???
Доброго времени суток!
Подскажите как "понять" оплачена ли позиция в списанной расходной накладной ... и насколько оплачена (полностью или частично).
Подскажите как "понять" оплачена ли позиция в списанной расходной накладной ... и насколько оплачена (полностью или частично).
-
- На пенсии
- Сообщения: 797
- Зарегистрирован: 29 мар 2005, 17:49
- Откуда: г. Тюмень
- Контактная информация:
Проблема в том, что одна накланая может быть оплачена несколькими платежами.
Код: Выделить всё
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', 'частичная оплата');
}
}
Жду выхода Вселенная 2.12!
-
- На пенсии
- Сообщения: 797
- Зарегистрирован: 29 мар 2005, 17:49
- Откуда: г. Тюмень
- Контактная информация:
Все очень просто посмотреть
Код: Выделить всё
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
));
Жду выхода Вселенная 2.12!
-
- Постоянный обитатель
- Сообщения: 144
- Зарегистрирован: 29 мар 2005, 17:49
- Откуда: Красноярский Край
- Контактная информация:
разобрался сам
Код: Выделить всё
from
AKTPERF,
SOPRHOZ
where
((
CrecFO == AKTPERF.CAKTOFP and
AKTPERF.CSOPRHOZ == SOPRHOZ.nrec
));