cT101	;Openstaande leveranciersfacturen ;%T10 ;%T10* ; [ 09/17/01  5:39 PM ]
	;
T0	;Openstaande leveranciersfacturen ;
T1	;  Even geduld ... ;
	;
T0F	;Documents d'entrée impayés ;
T1F	;  Un instant ... ;
	;
T0E	;Outstanding purchase vouchers ;
T1E	;  One moment ... ;
	;
	; BF  =($$MNTO) muntcode omzet/openstaande facturen
	; MUNT=($$MNT ) gevraagde muntcode
	; MNTC=($$MNTC) muntcode cumuls/dagboeken
	;
1	K ^HULP(boot,$J+.03),^($J+.04) S I2=9999
11	I $G(PTS)=1 W /CUP(24,1),$P($T(@("T1"_QT)),U,2),@F1,$P(B(1),D,2)
	;
	; openstaande facturen & wissels op vandaag
2	S I2=$O(@Q01) I I2'?5.6N G 3
21	S A1=^(I2),A=$P(A1,D,1,4),$P(A,D,6)=$P(A1,D,4),$P(A,D,7)=$P(A1,D,9),$P(A,D,9)=$P(A1,D,7),$P(A,D,11)=$P(A1,D,11),$P(A,D,13)=$P(A1,D,13)
	S $P(A,D,10)=$P(A1,D,21)
22	S $P(A,D,8)=$$BEDR^cAFE1(Q,$P(A1,D,10)-$S($P(A1,D,11):$P(A1,D,13),1:0),BF,$P(MUNT,D),"A")
23	I RFD=DT,UFD'=DT S R=$P(A1,D,2)_D_UFD D ^cA326 I R>0 G 2
24	S BE=$P(A1,D,10) S:$P(A1,D)'="C" BE=-BE
25	S $P(A,D,5)=$$BEDR^cAFE1(Q,BE,BF,$P(MUNT,D),"A"),BP="",FNR=I2
26	S BP=$O(@Q7,-1) I BP'="" G 26:'$D(@Q71) S A2=^(FNR) D S3,S2
27	S @QH1=A G 2
	;
	; terugkeren in de tijd?
3	G Y:RFD=DT S I2=1000000.999+$E($$DC^cAFD1(RFD),1,6)
31	S I2=$O(@Q01) I I2?7N1"."1N.N S ^HULP(boot,$J+.04,-I2)=@Q01 G 31
33	I $O(@("^"_Q_"WI(0)")) D WI   ; VJ 05.03.01
	;
	; historieken achterstevoren inverteren
4	S I2=""
41	S I2=$O(@QH2) G Y:I2="" S A1=^(I2),L=$L(A1,D),BP=$E(I2,3,6)_"."_$E(I2,7,8) D S3
43	S L=L-1 G 41:'L S A2=$P(A1,D,L) G 43:A2="" S SRT=$E(A2),A2=$E(A2,2,99)
45	S SWW=$E(A2)="W" G 43:A2="",5:SRT="A",6:SRT="B",43
	;
	; aankoopdagboek
5	S FNR=A2 G 43:'$D(@Q71) S A2=^(FNR),A=$G(@QH1) D S2
51	S BE=$P(A2,D,6) S:$P(A2,D)="C" BE=-BE S $P(A,D,5)=$P(A,D,5)+BE,@QH1=A G 43
	;
	; financieel dagboek
6	I '$D(@Q95) G 43
61	S A2=@Q95,BE=$P(A2,D,5),FNR=$P(A2,D,13),WNR=$P(A2,D,3) D S1:FNR="" I FNR'?6N G 43
63	S:$P(A2,D,6)="D" BE=-BE S BE=$$BEDR^cAFE1(Q,BE,$P(MNTC,D),$P(MUNT,D),"A")
65	S A=$G(@QH1),$P(A,D,5)=$P(A,D,5)+BE I $P(A,D)'="" G 8
	;
	; opzoeken factuurgegevens bij terug openstellen factuur
7	S BPX=BP,(A2,BP)=""
71	S BP=$O(@Q7,-1) I BP'="" G 71:'$D(@Q71) S A2=^(FNR) D S3,S2
73	S BP=BPX D S3 I $L(A2) G 8
75	I FNR<990000,$P(B(1),D),$D(@("^"_Q_"AAB(FNR,$P(B(1),D))")) S A2=^($P(B(1),D)) D
	. S $P(A,D)=$P(A2,D),$P(A,D,2)=$P(A2,D,2),$P(A,D,3)=$P(A2,D,3)
	. S $P(A,D,4)=$P(A2,D,10),$P(A,D,6)=$P(A2,D,4),$P(A,D,7)=$P(A2,D,9)
	. S $P(A,D,9)=$P(A2,D,7)
77	S:$P(A,D)="" $P(A,D)="?" S:$P(A,D,2)="" $P(A,D,2)="??.??.??" S:$P(A,D,3)="" $P(A,D,3)="??.??.??"
	;
	; omgekeerde actie op wissel
8	S @QH1=A I SWW,WNR?5N D  S @QH1=A
	. S FNR=WNR,A=$G(@QH1),A2=$G(@("^"_Q_"WI(WNR,0)"))
	. S $P(A,D)="W",$P(A,D,5)=$P(A,D,5)-BE
	. I $P(A,D,2)="" S $P(A,D,2)=$P(A2,D,4),$P(A,D,3)=$P(A2,D,5)
	. I $P(A,D,6)="" S $P(A,D,6)=$P(A2,D,7),$P(A,D,7)=$P(A2,D,8)
81	G 43
	;
Y	K ^HULP(boot,$J+.04) I COR D ^cT102
YZ	Q
	;
	; factuurnummer opzoeken via referte
S1	S A2=$P(A2,D,9) F I=1:1:$L(A2) S FNR=$E(A2,I,I+5) I FNR?6N Q
S1Z	Q
	;
	; gegevens overnemen uit aankoopdagboek
S2	S $P(A2,D,6)=$$BEDR^cAFE1(Q,$P(A2,D,6),$P(MNTC,D),$P(MUNT,D),"A")
S2A	I RFD'=DT S $P(A,D)=$P(A2,D),$P(A,D,2)=$P(A2,D,2),$P(A,D,3)=$P(A2,D,3)
S2B	S $P(A,D,4)=$P(A2,D,6),$P(A,D,6)=$P(A2,D,25),$P(A,D,7)=$P(A2,D,24)
S2Z	S $P(A,D,9)=$P(A2,D,18) Q
	;
	; boekjaar & muntcode dagboek bepalen
S3	S BJ=$$BJ^cAFE1(Q,BP),MNTC=$$MNTC^cAFE1(Q,BJ)
S3Z	Q
	;
	; openstellen afgeboekte wissels
WI	S I=$$DC^cAFD1(RFD),BP=$E(I,1,4)_"."_$E(I,5,6)
WIA	S BP=$E(BP+.01_0,1,7) I BP#1>.12 S BP=BP+.88      ; volgende maand
	I BP>(DJ+1_"."_DM) G WIZ
	S (I,J)="" D S3
WIB	S I=$O(@("^"_Q_"FI(BP,I)")) I I="" G WIA          ; volgende rekening
WIC	S J=$O(@("^"_Q_"FI(BP,I,J)")) I J="" G WIB        ; volgende lijn
	S A2=^(J) I $P(A2,D,7)'="A" G WIC
	S A=$P($P($P(A2,D,8),"#")," ")_" "                ; grootboekrekening
	G WIC:'$D(@("^"_Q_"AR(A,0)")),WIC:'$P(^(0),D,17)  ; wisselrekening
	S WNR=$P(A2,D,13) G WIC:'WNR,WIC:'$D(@("^"_Q_"WI(WNR,0)"))
	S L=^(0) G WIC:$P(L,D,6)'="LE",WIC:$P(L,D,3)'=$P(B(1),D)
	S BE=$P(A2,D,5) I $P(A2,D,6)="D" S BE=-BE
	S BE=$$BEDR^cAFE1(Q,BE,$P(MNTC,D),$P(MUNT,D),"A")
	S FNR=WNR,A=$G(@QH1)
	S $P(A,D)="W",$P(A,D,5)=$P(A,D,5)+BE
	I $P(A,D,2)="" S $P(A,D,2)=$P(L,D,4),$P(A,D,3)=$P(L,D,5)
	I $P(A,D,6)="" S $P(A,D,6)=$P(L,D,7),$P(A,D,7)=$P(L,D,8)
	I $P(A,D,4)="" S $P(A,D,4)=$$OMREK^cAFE1(Q,$P(L,D,7),$P(L,D,8),$P(MUNT,D),"A","")
	S @QH1=A G WIC
WIZ	Q
	;
ZZ	; 29.08.07 - 10 u 22 * V8.09