cAT103 ;Openstaande facturen ;%AT10 ;%AT10* ; [ 03/07/01 9:21 AM ] ; ; Indien SWVB = 1 wordt dit prog. gebruikt om een grid in VB op te bouwen (zie ook VB^cAT10) ; ; ; 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 ;Referentie factuurdatum\"dd.mm.jj[] = datum kleiner dan ",DT," [] = alle documenten",!?2,"documenten na deze datum worden niet weergegeven";alle documenten; T6 ;Lijst\"[] = doorlopende lijst .[] = 1 ; per blad"; T7 ;enkel ; met openst. bedragen;alle geselecteerde ;;enkel ; met tegoeden;enkel ;voorschotten; T8 ;Deze datum valt buiten de toegelaten periodes ; T9 ;Eindtotalen\"[] = neen .[] = ja";neen;ja; T10 ;Documenten;alle (ook wissels);alle zonder wissels;enkel wissels; T11 ;lev. ; T12 ;Van wisselnummer\"[] = vanaf het begin"; T13 ;Tot wisselnummer\"[] = tot het einde .[] = zelfde wisselnummer"; T14 ;Van;Tot;van begin;tot einde; ; 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 ;Référence date facture\"jj.mm.aa[] = date plus petit que ",DT," [] = toutes documents",!?2,"documents établis après cette date ne seront pas mentionnés";toutes documents; T6F ;Liste\"[] = liste continue .[] = 1 ; par feuille"; T7F ;seulement ; avec soldes;tous les ; sélect.;seulem. ; avec biens;seulem. ;des acomptes; 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; T11F ;four. ; T12F ;Depuis n° de traite\"[] = depuis le début"; T13F ;Jusqu'à n° de traite\"[] = jusqu'à la fin .[] = même n° de traite" T14F ;Debuis;Jusqu'à;le début;la fin; ; 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 ;Reference invoice date\"dd.mm.yy[] = date smaller than ",DT," [] = all documents",!?2,"documents after this date are not being represented";all documents; T6E ;Report\"[] = continuous report .[] = 1 ; per page"; T7E ;only ; with outst. amounts;all selected ;;only ; with credits;only ;advances; 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; T11E ;supp. ; T12E ;From b.o.a.\"[] = from start"; T13E ;Until b.o.a.\"[] = until end .[] = same b.o.a."; T14E ;From;Until;from start;until end; ; ; 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 I '$G(SWVB) S TXT=$P(TEXT,D,1,6)_D_1 D ^cA306 G YZ:K="-"!(K=",") S (ACT,ESW,SKIP,DOCS)=0,SWC=1,RFD=DT,UFD="",K="" 21 S I=$T(@("T2"_QT)) I SKIP S R="K\22\3\"_$P(I,U,2)_"\C1\1\\""-.,CV""[K\\\1" D R0 G 2:K="-"!(K=",") S ACT=$S(K="V":3,K="C":2,1:$L(K)) ; VJ - 29.06.00 I '$G(SWVB) S FP=1003 W @F,@F1,$P(I,U,2)," : " D:(ACT'=3) S3($T(@("T7"_QT)),$P(TEXT,D,2),ACT*2+2,ACT*2+3) D:(ACT=3) S3($T(@("T7"_QT)),"",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="," I '$G(SWVB) S FP=1103 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="-" I '$G(SWVB) S FP=1203 W @F,@F1,$P($P(I,U,2),D)," : ",RFD I RFD'=DT S UFD="" G 33 31 I SKIP,RFD=DT S R="UFD\22\3\"_$P($T(@("T5"_QT)),U,2)_"\8\DCTR" D R0 G 31:($$DC^cAFD1(UFD)'<$$DC^cAFD1(DT)),3:K="-",2:K="," D:(K'="") S2 G 31:K="-" 32 I '$G(SWVB) S FP=1303 W @F,@F1,$P($P($T(@("T5"_QT)),U,2),D)," : ",$S(UFD="":$P($T(@("T5"_QT)),U,3),1:UFD) 33 I RFD'=DT S FP=1303 W @F,@F1 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 I '$G(SWVB) S FP=$S(RFD'=DT:1303,1:1403) 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 I '$G(SWVB) S FP=$S(RFD'=DT:1403,1:1503) W @F,@F1,$P(I,U,2)," : ",$P(I,U,DOCS+3),@F1 ; Indien enkel wissels: extra vraag 'Van Wisselnummer' en 'Tot Wisselnummer' I DOCS'=2 G 37 360 S R="VANWIS\22\3\"_$P($T(@("T12"_QT)),U,2)_"\5\\""-""[K!(K?1N.N)" D R0 G 36:K="-" W /CUP($S(RFD'=DT:14,1:15),36),@F2,$P($P($T(@("T14"_QT)),U,2),D)," : ",$S($L(VANWIS):VANWIS,1:$P($T(@("T14"_QT)),U,4)) 361 S R="TOTWIS\22\3\"_$P($T(@("T13"_QT)),U,2)_"\5\\""-.""[K!(K?1N.N&(K>VANWIS))" D R0 G 360:K="-" I TOTWIS="." S TOTWIS=VANWIS W /CUP($S(RFD'=DT:14,1:15),56),@F2,$P($P($T(@("T14"_QT)),U,3),D)," : ",$S($L(TOTWIS):TOTWIS,1:$P($T(@("T14"_QT)),U,5)) ; keuze muntcode 37 I SKIP S R=$$MNT^cAFE1(Q,$$BJ^cAFE1(Q,DJ_"."_DM),1) G 36:K="-"&(DOCS'=2) G 361:K="-" S MUNT=R,QD=$P(MUNT,D,2) 38 I '$G(SWVB) W /CUP(4,75),$P(MUNT,D),@F2 ; S (PSW,SKIP)=1 D F^cA347 G 37:K="-",2:K="," S TP='PTS G YZ:'TP!(PTS="F") I $G(SWVB) S K="" G YZ ; opgeroepen vanuit ingang voor VB 39 S (PSW,SKIP)=1 D ^cAN3223("","1#2#4#5","","") G 37:K="-",2:K="," S TP='PTS G YZ:'TP!(PTS=3)!(PTS=4) ; ; 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 $G(PTS)="." 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 S:($G(UFD)="") UFD=DT W:$G(QW) /WWR(1) Q ; ; commentaar C1 W !?2," [] = " D S3($T(@("T7"_QT)),$S($P(TEXT,D,5)="KL":$P(TEXT,D,2),1:$P($T(@("T11"_QT)),U,2)),2,3) I $P(TEXT,D,5)="KL" W ?44,"V[] = " D S3($T(@("T7"_QT)),"",6,9) I $P(TEXT,D,5)="LE" W ?44,"V[] = "_$P($T(@("T7"_QT)),U,6)_$P($T(@("T7"_QT)),U,9) C1A W !?2,".[] = " D S3($T(@("T7"_QT)),$S($P(TEXT,D,5)="KL":$P(TEXT,D,2),1:$P($T(@("T11"_QT)),U,2)),4,5) C1B W ?44,"C[] = " D S3($T(@("T7"_QT)),$S($P(TEXT,D,5)="KL":$P(TEXT,D,2),1:$P($T(@("T11"_QT)),U,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 ; 18.08.04 - 16 u 29 * V8.01