cAT104	;Openstaande klantenfacturen naar file ;%AT10 ;%AT10* ; [ 03/06/01  6:00 PM ]
	;
	; Indien SWVB = 1 wordt dit prog. gebruikt om een grid in VB op te bouwen (zie ook VB^cAT10)
	;
	;
	;
T0	;Openstaande klantenfacturen ;
T3	;Nummer\Naam van de klant\JRN\ \R\Document\Datum\Openst.;\Verv.;\Vervaldatum\Dag.verv\Referte\Omschrijving\Bet.term.\Telefoon 1\Lev.nr.\Woonplaats\Mnt\Totaal Mnt\Openst.Mnt\G\K.c.Mnt;
T4	;Blz :;FCW;FCW;
T5	;Referentiedatum : ; - Referentie factuurdatum : ;
	;
T0F	;Factures de client non soldées ;
T3F	;Numéro\Nom du client\JRN\ \R\Document\Date\Impayé ;\Echu ;\Echéance\Jours echu\Référence\Description\Dél.paiem.\Téléphone 1\N° de fournisseur\Localité\Mon\Total en Mon.\Impayé en Mon.\P\Esc.compt.Mon.;
T4F	;Page:;FCW;FCT;
T5F	;Date de référence : ; - Référence date facture : ;
	;
T0E	;Outstanding invoice ;
T3E	;Number\Customer Name\JRN\ \R\Document\Date\Outst.;\Overdue ;\Due Date\Num. of Days due\Reference\Description\Paym. Term\Telephone 1\Num.Customer\City\Cur\Total Cur\Outstanding Cur\P\Cash disc.Cur;
T4E	;Pge :;FCW;ICB;
T5E	;Reference date : ; - Reference invoice date : ;
	;
	; initialisatie
1	S HD(1)=D,HD(2)=D_$P($T(@("T0"_QT)),U,2)_";C;F82",HD(3)=D_$P($T(@("T5"_QT)),U,2)_RFD
	I UFD S HD(3)=HD(3)_$P($T(@("T5"_QT)),U,3)_UFD
	K LN
	S TAB="7\36\40\44\46\53\62\73\84\93\104\110\120\135\154\161\185\189\200\211\213\224",TIT(1)=$P($T(@("T3"_QT)),U,2)_$P(MUNT,D)_$P($T(@("T3"_QT)),U,3)_$P(MUNT,D)_$P($T(@("T3"_QT)),U,4)
11	S (SWE,ETONB,ETVER)=0 I $G(QW) S $P(QW(QW),D,7)=1
13	S SORT=$P(@("^"_Q_"BA")@("%T",2),D)
	;
	; volgende klant
2	I $G(SWVB) S LIM1=$$UI1^cAFA1("KL",101,KC) G YZ:'$L(LIM1),YZ:'$L($$SIGN^cAFA1("KL",LIM1,0)) G 3
	G YZ:ESW=2
	S R="LIM1\KL" D ^cA327 I LIM1="" G YZ
	;
	; per klant
3	S (SWE,SWV)=0 I ESW<2 S I1=LIM1,B(1)=$$SIGN^cAFA1("KL",I1,0),B(3)=$G(^(2)),COR=SWC&$P(B(3),D,30),(ONB,VER)=0 D ^cAT101
31	S FNR=""
	I ACT=3 S FNR=990000
	F  S FNR=$O(@QH1) Q:FNR=""  D
	. I '$P(^(FNR),D,5) K ^(FNR)                      ; openstaand = 0
	. I DOCS=1,FNR?5N K ^(FNR)                        ; geen wissels
	. I DOCS=2,FNR?6N K ^(FNR)                        ; enkel wissels
	. ; Van Wisselnr - Tot wisselnr
	. I DOCS=2,FNR?5N D
	.. I $L($G(VANWIS)),(FNR<VANWIS) K ^(FNR) Q
	.. I $L($G(TOTWIS)),(FNR>TOTWIS) K ^(FNR)
32	I ACT=2 S A=0 D  I 'A G 6            ; enkel met CN
	. S FNR="" F  S FNR=$O(@QH1) Q:FNR=""  I $P(^(FNR),D)="C" S A=1 Q
33	S FNR=""
	I ACT=3 S FNR=990000
	I 'ACT,'$L($O(@QH1)) D  I 'COR G 6       ; enkel met bedragen
	. I COR S R=^HULP(boot,$J+.02) I '$P(R,D),'$P(R,D,2) S COR=0
35	S TXT(1)=$P(B(1),D)
37	S TXT(2)=$P(B(1),D,2)
39	K ^HULP(boot,$J+.09) F  S FNR=$O(@QH1) Q:FNR=""  S A=^(FNR),I3=$$DC^cAFD1($S(SORT<2:$P(A,D,2+SORT),1:DT))*1E6+FNR,^HULP(boot,$J+.09,I3)=FNR
	;
	; facturen weergeven (gesorteerd)
4	S I3=$O(^HULP(boot,$J+.09,"")) G 6:I3=""
40	S FNR=^(I3) K ^(I3)
41	S A=@QH1,VVD=$P(A,D,3),OPE=+$P(A,D,5) S FC=$P(A,D),MNT=$P(A,D,7),OPV=+$P(A,D,6) S:MNT="" MNT=BF,OPV=+$P(A,D,4) G 4:'OPE
42	S ONB=ONB+OPE
	S:FC="C" OPV=-OPV 
	;
	; 1 lijn per factuur
5	F I=3:1:9 S TXT(I)=""
	F I=8:1:9 S $P(TXT(I),D,8)=1,$P(TXT(I),D,27)=0 I QD>0 S $P(TXT(I),D,27)="0." F J=1:1:QD S $P(TXT(I),D,27)=$P(TXT(I),D,27)_"0"
	S $P(TXT(11),D,27)=0
	S LEV=@("^"_Q_"K1($P(B(1),D))")
	S FNRSTR=$G(@("^"_Q_"KL(LEV,FNR)"))
	I FNRSTR="" D
	. S FDAT=$P(A,D,2)
	. S FDAT=$$DC^cAFD1(FDAT)
	. S FDAT=$E(FDAT,1,4)_"."_$E(FDAT,5,6)
	. S STR=$G(@("^"_Q_"VE(FDAT,FNR)"))
	. S $P(FNRSTR,D,17)=$P(STR,D,31)
	. S $P(FNRSTR,D,16)=$P(STR,D,21)
	. S $P(FNRSTR,D,5)=$$OMREK^cAFE1(Q,OPE,$P(MUNT,D),MNT,"V","")
	. S $P(FNRSTR,D,6)=$$OMREK^cAFE1(Q,$P(STR,D,10),$P(MUNT,D),MNT,"V","")
	S JRNNR=$P(FNRSTR,D,16)
	I JRNNR S JRNNR=$E("000",1,3-$L(JRNNR))_JRNNR,JRN=$$JRN^cAFO2("V",JRNNR)
	S TXT(3)=$S(JRNNR:JRN,1:"")
50	S TXT(5)=$P(A,D,8),TXT(4)=$TR(FC,$P($T(@("T4"_QT)),U,3),$P($T(@("T4"_QT)),U,4)),TXT(6)=FNR,TXT(7)=$P(A,D,2),TXT(10)=VVD,TXT(18)=MNT
51	S TXT(19)=OPV_"\\\\1\"_$$DEC^cAFA1(MNT) S TXT(8)=OPE_"\\\\1\"_QD_"\\1" S ETONB=ETONB+OPE
53	S R=VVD_D_RFD D ^cA326 I R'>0 S TXT(9)=OPE_"\\\\1\"_QD_"\\1",VER=VER+R S ETVER=ETVER+OPE
	S R=VVD_D_RFD D ^cA326 S TXT(11)=-R_"\1"
	; Referte
	S REFBH=$$REFBH^cAT190(FNR)
	S TXT(12)=$S($L(REFBH):REFBH,1:$$REF^cAT190($P(FNRSTR,D,17),FNR,$P(FNRSTR,D,7)))
	;  Aanpassing specifiek voor Ter Beke
	I FC="W" S KCWIS=$P(@("^"_Q_"WI(FNR,0)"),D,3),TXT(12)=$$SG^cAFA1("KL",KCWIS,249)
	S STRFI=$P(A,D,10)
	I $L(STRFI) S TXT(12)=$P(@("^"_Q_"FI($P(STRFI,""#""),$P(STRFI,""#"",2),$P(STRFI,""#"",3))"),D,9)
	; Omschrijving
	; KO - 16.08.06
	; S TXT(13)=$S($L(REFBH):$$REF^cAT190($P(FNRSTR,D,17),FNR,$P(FNRSTR,D,7)),1:"")
	S TXT(13)=$$OMS^cT310(FNR,STRFI)
	; I $L(STRFI) S TXT(13)=$P(@("^"_Q_"FI($P(STRFI,""#""),$P(STRFI,""#"",2),$P(STRFI,""#"",3))"),D,15)
	S TXT(14)=$$BET^cAFO1($P(B(1),D,18))
	S TXT(15)=$P(B(1),D,13)
	S TXT(17)=$P(B(1),D,7)
	S TXT(16)=$$KLANT($P(B(1),D))
	S TXT(20)=$S(FC="C":-$P(FNRSTR,D,5),1:$P(FNRSTR,D,5))_"\\\\1\"_$$DEC^cAFA1(MNT)
	S TXT(21)=$S(+OPV'=$S(FC="C":-$P(FNRSTR,D,5),1:+$P(FNRSTR,D,5)):"*",1:"")
	S TXT(22)=$P(FNRSTR,D,6)_"\\\\1\"_$$DEC^cAFA1(MNT)
	I +$P(FNRSTR,D,6)=0 S $P(TXT(21),D)=""
55	I $G(SWVB) D @BTEMP G 4
	D ^cA334 G 4
	;
	; einde klant
6	I $G(SWVB) G YZ
	G 2
	;
	; eindtotaal
YZ	I '$G(SWVB) S END=1 D ^cA334
	Q
	;
	;  Ophalen corresponderende leverancier bij de klant
KLANT(KL)	N R,COR
	S $ZT="TRAP^cAN000"
	S COR=$$SG^cAFA1("KL",KL,330)
	I COR S COR=$G(@("^"_Q_"L1(COR)")) I $L(COR) S COR=$O(@("^"_Q_"LE(COR,9999)"))
	S COR=$S(COR?5.6N:"*",1:" ")
	S R=$S(COR="*":$$SG^cAFA1("KL",KL,330),1:"")
KLANTZ 	Q R
	;
ZZ	; 19.03.07 - 15 u 31 * V8.08