Модераторы: m0p3e, edward_K, Модераторы
Код: Выделить всё
select
...
where
(((OBOROT.CSOPRDOC==PLPOR.NREC AND
OBOROT.KAUKS[1]==KATORG.NREC AND
OBOROT.KAUKS[2]==BASEDOC.NREC) OR
OBOROT.CSOPRDOC==BASEFIN.NREC
)) AND
(OBOROT.KRSCHETK='62' AND OBOROT.SUBSCHK='07')Код: Выделить всё
!Представление T1 содержит данные, относящиеся к оборотам по кредиту сч.62.07 за период c T1.d1 по T1.d2
.create view T1
var
d1: date
d2: date
as select *
from OBOROT, PLPOR, KATORG, BASEDOC,
where
((OBOROT.CSOPRDOC/==PLPOR.NREC AND
OBOROT.KAUKS[1]=KATORG.NREC AND
OBOROT.KAUKS[2]=BASEDOC.NREC)) AND
(OBOROT.KRSCHETK='62' AND OBOROT.SUBSCHK='07')
AND OBOROT.DATOB>=T1.d1
AND OBOROT.DATOB<=T1.d2
ORDER BY
T1.OBOROT.DATOB,
T1.PLPOR.NODOK,
T1.KATORG.NAME,
T1.BASEDOC.NODOC ;Возможно я не учел акт взаимозачетов, но это не меняет сути моего поста. Делайте как я написал, к проводке подцепляте все возможные (нужные) вам таблицы и уже в цикле (по проводкам) в зависимости от типа проводки (т.е. смотря какой первичный документ) берите необходимые Вам данные.Ссылается (во всяком случае для 7.12) - я проверила ... по акту взаимозачета (oborot.tidk=71) oborot.csoprdoc ссылается на basefin.nrec, и уже в этой записи basefin есть ссылка на plpor.nrec (cPlpor), а в plpor.tidk этогог самого акта уже 70
Код: Выделить всё
// Функция определения типа документа:
// GetTipDoc ( CurTiDkGal:word ) : string
// Возвращает название таблицы, в которой находится первичный документ:
// 'UNKNOWN' , 'PLPOR' , 'APPVEKS' , 'VEKSL' , 'VALUTDOC' , 'KATSOPR' , 'BASEDOC'
// Источник информации: http://www.tyumbit.ru/galaktika/read.php?f=5&i=5998&t=5974
Function GetTipDoc ( CurTiDkGal : word ) : string ;
{
GetTipDoc := 'UNKNOWN' ;
case CurTiDkGal of
// платежный документ (шапка в таблице PlPor):
1..11, 17,18 ,21,22,27,30..33,37..39,70,1004,1005,1011,1032 : GetTipDoc := 'PLPOR' ;
// акты из модуля "Векселя и кредиты" (шапка в таблице AppVeks)
81..89 : GetTipDoc := 'APPVEKS' ;
// документы из модуля "Векселя и кредиты" (шапка в таблице Veksl)
181..190 : GetTipDoc := 'VEKSL' ;
// валютный документ (шапка в таблице ValutDoc)
34..36 : GetTipDoc := 'VALUTDOC' ;
// Операция с ОС и НМА (шапка в таблице SpMove)
15,16 : GetTipDoc := 'SPMOVE' ;
// спецификация акта взаимозачета (шапка в таблице BaseFin)
71 : GetTipDoc := 'BASEFIN' ;
// сопроводительный документ (шапка в таблице KatSopr):
101,102,103,106,110,111..114,151,201..204,206,211,251,501..506,508,511..513,521..523,551..553,600..606,611,612,621,622,624,625,630,700 : GetTipDoc := 'KATSOPR' ;
// шапка в таблице BaseDoc
40..43,51..53,61,62,90..95,550,919 : GetTipDoc := 'BASEDOC' ;
end;
}
Код: Выделить всё
case GetTipDoc( tDescrRep.TiDkGal ) of
'APPVEKS' : {
CurCalPlan := BaseFin.cCalPlan ;
CurSodrDoc := soprAppVeks.Prim1 + ' ' + soprAppVeks.Prim2 + ' ' + soprAppVeks.Prim3 ;
}
'PLPOR' : {
CurCalPlan := BaseFin.cCalPlan ;
CurSodrDoc := soprPlPor.NamePl1 + ' ' + soprPlPor.NamePl2 + ' ' + soprPlPor.NamePl3 + ' ' + soprPlPor.NamePl4 + ' ' + soprPlPor.PodOtchet ;
! Message('tDescrRep.cSoprDoc = ' + string(tDescrRep.cSoprDoc,0,0)+Char(13)+
! 'PlPor.nRec = ' + string(soprPlPor.nRec,0,0)+Char(13)+
! 'SodrDoc =' + soprPlPor.NamePl1 + ' ' + soprPlPor.NamePl2 + ' ' + soprPlPor.NamePl3 + ' ' + soprPlPor.NamePl4 + ' ' + soprPlPor.PodOtchet
! ) ;
}
'BASEFIN' : {
CurCalPlan := BaseFin.cCalPlan ;
CurSodrDoc := soprAktVz.NamePl1 + ' ' + soprAktVz.NamePl2 + ' ' + soprAktVz.NamePl3 ;
}
'KATSOPR' : {
CurCalPlan := soprKatSopr.cCalPlan ;
CurSodrDoc := soprKatSopr.Name ;
}
'BASEDOC' : {
CurCalPlan := soprBaseDoc.cCalPlan ;
CurSodrDoc := soprBaseDoc.Name ;
}
end ; // case