cAT103 ;Openstaande facturen ;%AT10 ;%AT10* ; [ 03/07/01  9:21 AM ]
 ;
T0 ;Overzicht openstaande bedragen ;
T1 ;Corresponderende ; vermelden\"[] = ja   .[] = neen";
T2 ;Bijkomende selectie;
T3 ;Referentiedatum\"dd.mm.jj[] = bepaalde datum   [] = ",DT,!?2,"dit moet altijd de laatste dag van de maand zijn";
T5 ;Uiterste factuurdatum\"dd.mm.jj[] = bepaalde datum   [] = ",DT,!?2,"documenten na deze datum worden niet weergegeven";
T6 ;Lijst\"[] = doorlopende lijst    .[] = 1 ; per blad";
T7 ;enkel ; met openstaande bedragen;alle geselecteerde ;;enkel ; met tegoeden;
T8 ;Deze datum valt buiten de toegelaten periodes ;
T9 ;Eindtotalen\"[] = neen   .[] = ja";neen;ja;
T10 ;Documenten;alle (ook wissels);alle zonder wissels;enkel wissels;
 ;
T0F ;Aperçu des montants ouverts ;
T1F ;Mentionner ; correspondant\"[] = oui   .[] = non";
T2F ;Sélection additionnelle;
T3F ;Date de référence\"jj.mm.aa[] = date spécifique   [] = ",DT,!?2,"obligatoirement le dernier jour du mois";
T5F ;Date extrême de facturation\"jj.mm.aa[] = date spécifique   [] = ",DT,!?2,"documents établis après cette date ne seront pas mentionnés";
T6F ;Liste\"[] = liste continue   .[] = 1 ; par feuille";
T7F ;seulement ; avec soldes;tous les ; sélect.;seulem. ; avec biens;
T8F ;Date de référence est dehors les périodes permises;
T9F ;Total global de la sélection\"[] = non   .[] = oui";non;oui;
T10F ;Documents;tous (aussi traites);tous sans traites;seulement traites;
 ;
T0E ;Survey outstanding amounts ;
T1E ;Corresponding ; report\"[] = yes   .[] = no";
T2E ;Extra selection;
T3E ;Reference date\"dd.mm.yy[] = particular date   [] = ",DT,!?2,"always the last day of the month";
T5E ;Latest date of invoice\"dd.mm.yy[] = particular date   [] = ",DT,!?2,"Documents after this date are not being represented";
T6E ;Report\"[] = continuous report    .[] = 1 ; per page";
T7E ;only ; with outstanding amounts;all selected ;;only ; with credits;
T8E ;This date does not fall in the allowed periodes ;
T9E ;Final totals\"[] = no   .[] = yes";no;yes;
T10E ;Documents;all (also b.o.a.);all without b.o.a.;only bill of account;
 ;
 ; initialisatie
1 W:$G(QW) /WWR(0) S BPA=@("^"_Q_"BA(7)"),BPB=^(2),AT=$G(^(26))
11 S BM1=$P(BPB,D,AT+1*3) K BPB S BM2=+^(25)/100+BPA S:BM2#1>.12 BM2=BM2+.88 S BM2=$E(BM2_0,1,7)
13 S MUNT=$$MNTO^cAFE1(Q,$$BJ^cAFE1(Q,DJ_"."_DM)),BF=$P(MUNT,D),QD=$P(MUNT,D,2)
15 I 'QP S K="",TP=1 D  K PP G YZ
 . F I=1,2,4:1:9 S @$P("LIM1\LIM2\\RFD\ACT\PSW\ESW\SWC\UFD",D,I)=PP(I)
 . S MUNT=PP(10)_D_PP(11),QD=$P(MUNT,D,2),DOCS=$G(PP(12))
 ;
 ; selectie KL/LE
2 S TXT=$P(TEXT,D,1,6)_D_1 D ^cA306 G YZ:K="-"!(K=",") S (ACT,ESW,SKIP,DOCS)=0,SWC=1,(RFD,UFD)=DT
21 S I=$T(@("T2"_QT))
 I SKIP S R="K\22\3\"_$P(I,U,2)_"\C1\1\\""-.,C""[K\\\1" D R0 G 2:K="-"!(K=",") S ACT=$S(K="C":2,1:$L(K)) ; VJ - 29.06.00
 S FP=1503 W @F,@F1,$P(I,U,2)," : " D S3($T(@("T7"_QT)),$P(TEXT,D,2),ACT*2+2,ACT*2+3)
25 S I=$T(@("T1"_QT))
 I SKIP S R="K\22\3\"_$P(I,U,2)_$P(TEXT,D,7)_$P(I,U,3)_"\1\\""-,.""[K" D R0 S SWC='$L(K) G 21:K="-",2:K=","
 S FP=1603 W @F,@F1,$P(I,U,2),$P(TEXT,D,7),$P($P(I,U,3),D)," : ",$P($T(@("T9"_QT)),U,3+SWC)
 ;
 ; overige vraagstelling
3 S I=$T(@("T3"_QT))
 I SKIP S R="RFD\22\3\"_$P(I,U,2)_"\8\DCTR\" D R0 G 25:K="-",2:K="," S:K="" K=DT D S1 G 3:K="-"
 S FP=1703 W @F,@F1,$P($P(I,U,2),D)," : ",RFD I RFD'=DT S UFD=DT G 32
31 I SKIP S R="UFD\22\3\"_$P($T(@("T5"_QT)),U,2)_"\8\DCTR" D R0 G 3:K="-",2:K="," S:K="" K=DT D S2 G 31:K="-"
32 S FP=1803 W @F,@F1,$P($P($T(@("T5"_QT)),U,2),D)," : ",UFD
33 S I=$T(@("T9"_QT))
 I SKIP S R="K\22\3\"_$P(I,U,2)_"\1\\""-.,""[K" D R0 G 31:K="-"&(RFD=DT),3:K="-",2:K="," S ESW=$L(K)
35 S FP=1903 W @F,@F1,$P($P(I,U,2),D)," : ",$P(I,U,ESW+3)
 ; extra vraag documenten
36 I $O(@("^"_Q_"WI(0)"))="" G 33:K="-",37           ; VJ 06.03.01
 S I=$T(@("T10"_QT))
 I SKIP S R="K\22\3\"_$P(I,U,2)_"\C2\1\\""-,12""[K" D R0 G 33:K="-",2:K="," S DOCS=+K
 W /CUP(20,3),$P(I,U,2)," : ",$P(I,U,DOCS+3),@F1
 ; keuze muntcode
37 I SKIP S R=$$MNT^cAFE1(Q,$$BJ^cAFE1(Q,DJ_"."_DM),1) G 36:K="-" S MUNT=R,QD=$P(MUNT,D,2)
38 W /CUP(4,75),$P(MUNT,D),@F2
39 S (PSW,SKIP)=1 D ^cA347 G 37:K="-",2:K="," S TP='PTS G YZ:'TP
 ;
 ; op printer
4 S I=$T(@("T6"_QT))
 S R="K\22\3\"_$P(I,U,2)_$P(TEXT,D,8)_$P(I,U,3)_"\1\\""-.,""[K" D R0 S PSW=$L(K) G 39:K="-",2:K=","
41 S R=0_D_1 I TP,$L(LIM2) S $P(R,D,2)=0
43 D ^cA345 G 4:K="-",2:K=","
45 I K="." D  K PP G 2
 . S PP(4)=RFD,PP(5)=ACT,PP(6)=PSW,PP(7)=ESW,PP(8)=SWC,PP(9)=UFD
 . S PP(10)=$P(MUNT,D),PP(11)=$P(MUNT,D,2),PP(12)=DOCS,QPT=PROG D ^cA109
 ;
YZ W:$G(QW) /WWR(1) Q
 ;
 ; commentaar
C1 W !?2," [] = " D S3($T(@("T7"_QT)),$P(TEXT,D,2),2,3)
C1A W !?2,".[] = " D S3($T(@("T7"_QT)),$P(TEXT,D,2),4,5)
C1B W "   C[] = " D S3($T(@("T7"_QT)),$P(TEXT,D,2),6,7)
C1Z Q
 ;
 ; betekenis
S3(TXT,OW,V1,V2) 
 W $P(TXT,U,V1),OW,$P(TXT,U,V2)
S3Z Q
 ;
 ; documenten
C2 W !?2,"[] = ",$P(I,U,3),"   1[] = ",$P(I,U,4),"   2[] = ",$P(I,U,5)
C2Z Q
 ;
 ; controle referentiedatum
S1 I RFD,RFD'=DT S R=RFD_D_"0DEM" D ^cA104 S K=R
S1A S R=K_D_DT D ^cA326 I R>0 S RFD=DT G S1Z
S1B S R=K_D_"01."_$E(BM1,6,7)_"."_$E(BM1,3,4) D ^cA326 I R<0 S K=$P($T(@("T8"_QT)),U,2) D F1 S K="-" G S1Z
S1C S RFD=K
S1Z Q
 ;
 ; controle uiterste factuurdatum
S2 I RFD'=DT S K=DT
S2A S R=K_D_DT D ^cA326 I R>0 S UFD=DT G S2Z
S2B S R=K_D_"01."_$E(BM1,6,7)_"."_$E(BM1,3,4) D ^cA326 I R<0 S K=$P($T(@("T8"_QT)),U,2) D F1 S K="-" G S2Z
S2C S UFD=K
S2Z Q
 ;
R0 S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
 ;
F1 S R=250
F2 D TXT^cAFA1(R)
FZ K R Q
 ;
ZZ ; 30.03.01 - 13 u 39 * V7.85