cT29 ;Inkomende documenten ;%T29 ;go naar %T64 ; [ 01/02/01  2:26 PM ]
 G 1
 ;
T0 ;Inkomende fact/creditn ;
 ;
T0F ;Fact. et N.C. d'entrée ;
 ;
T0E ;Incoming invoice/credit note ;
 ;
1 S K=$P($T(@("T0"_QT)),U,2)_QN_" ",FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
11 S SWTOL=0,QAK=$G(@("^"_Q_"BA(""%T"",7)"),Q) I $G(UGL)="TOL",$G(US)="P" S SWTOL=1
13 I 'SWTOL G YZ
 ;
2 S I1=@("^"_Q_"L1(KC)"),B(1)=@("^"_Q_"LE(I1,0)")
21 S KCAK=$P(^(1),D,20),KPC=$P(B(1),D,17),CBTW=$P(B(1),D,15),KN=$P(B(1),D,2),CBT=$P(B(1),D,18) I 'KCAK S KCAK=KC,QAK=Q
23 S VM=$P(U5,D,18),BF=$P(@("^"_Q_"BA(39)"),D) S:VM="" VM=BF
24 S VM(BF)=$P($G(@("^"_Q_"BA(11,BF)"),BF),D),VM(VM)=$P($G(^(VM),VM),D),QA=QD I VM(VM)'=VM(BF) S QA=2 I $D(^(VM)) S QA=+$P(^(VM),D,7)
25 S COM=$P(U5,D,4),J=B(1),B(1)=D_COM D ^cA218 S B(1)=J,LREF=I
27 S OM1=$P(U5,D,3)
 ;
3 S (TTB,NET,NETA,NETD,NETG,NETI,KKB,MST)=""
31 S (AFBTW,BTWOH,BTWIC,BTWMC,BTWVL,NABTW)=""
33 S QQ=Q,Q=QAK D S1^cA305 S Q=QQ K QQ
 ;
4 S UR=""
41 S UR=$O(@("^"_QAK_"TOA(KCAK,LREF,UR)")) I UR="" K RQ,RVM,UR,US,UZ G 5
43 S RQ=^(UR),US=$P(RQ,D),UZ=100,RQ=$P(RQ,D,2) S:RQ="" RQ=QAK G 41:'$D(@("^"_RQ_"TOL(KCAK,US,UR,1)")) S RVM=$P(^(1),D,18) D  I VM(RVM)'=VM(VM) G 41
 . S:RVM="" RVM=BF S VM(RVM)=$P($G(@("^"_RQ_"BA(11,RVM)"),RVM),D)
45 S UZ=$O(@("^"_RQ_"TOL(KCAK,US,UR,UZ)")) I UZ="" G 41
47 S NETG=NETG+$P(^(UZ),D,9),I=$P(^(UZ),D,8),J=$P(^(UZ),D,10),MST=MST+J,AFBTW=AFBTW+($G(PBTW(+I))*J/100)
49 G 45
 ;
5 S NETG=$J(NETG,0,QA),MST=$J(MST,0,QA),AFBTW=$J(AFBTW,0,QA)
51 S FC="F",TTB=NETG I CBTW S TTB=$J(NETG+AFBTW,0,QA),AFBTW=""
53 I TTB<0 S FC="C",TTB=-TTB,NETG=-NETG,MST=-MST,AFBTW=-AFBTW
 ;
YZ G ^cT64
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84