cAT23 ;OPENSTAANDE FAKTUREN ;%AT23 ; [ 01/02/01 2:20 PM ] G 1 ; ; Input : R=lijnnummer_begin_scroll_\_switch_V_toegelaten ; Output: FNR, KC, I1 ; T0 ;Openstaande facturen ; T1 ;Factuurnummer; onbekend; T2 ;De klant;klant : ; T3 ;Nr Fac/C.N. Fact.dat Verv.dat Par Bedrag Openstaand Kort.cont. ; T4 ;Jaartal\"jjjj[] = bepaald jaar jjjj+[] = vanaf jaar jjjj e.v. [] = ; T5 ;Jaartal niet toegelaten ; T6 ;Volgnummer of factuurnummer; T7 ;D[] = detail; [] = vervolg; T8 ;K[] = via klant -[] = einde programma; T9 ;V[] = voorschot ; ; T0F ;Factures impayées ; T1F ;Numéro de facture; inconnue; T2F ;Client;client : ; T3F ;N° Fac/N.C. Date fac Echéance Par Montant Impayé Esc.compt. ; T4F ;Année\"aaaa[] = année spécifique aaaa+[] = année aaaa e.s. [] = ; T5F ;Année n'est pas permise ; T6F ;Numéro d'ordre ou numéro de facture; T7F ;D[] = détail; [] = suite; T8F ;K[] = par client -[] = fin du programme; T9F ;V[] = acompte ; ; T0E ;Outstanding invoices ; T1E ;Invoice number; unknown; T2E ;The customer;customer : ; T3E ;Nr Fac/C.N. Inv.date Due date Par Amount Outstanding Cash disc. ; T4E ;Year\"yyyy[] = particular year yyyy+[] = from year yyyy on [] = ; T5E ;Year not allowed ; T6E ;Number or invoice number; T7E ;D[] = detail; [] = next; T8E ;K[] = via customer -[] = end program; T9E ;V[] = advance ; ; S1 S RDEC=QD,RVM=$P(RN,D,9) I $L(RVM),$D(RVM(RVM)) S RDEC=RVM(RVM) S1A I $L(RVM),'$D(RVM(RVM)) S RDEC=2 S:$D(@("^"_Q_"BA(11,RVM)")) RDEC=$P(^(RVM),D,7) S RVM(RVM)=RDEC S1Z Q ; 1 S R=$G(R),RR=$P(R,D),RVS=$P(R,D,2) S:'RR RR=4 S FP=RR*100+1 W @F,@F1 S SR="^cA101" I $D(@("^"_Q_"KL(0,5)")) S SR=^(5) 11 K FNR,I1,KC S R="K\22\3\"_$P($T(@("T1"_QT)),U,2)_"\C2\6\\""-,K""[K!(K?6N)!(K=""V""&RVS)&$L(K)\\\1" D R0 G YZ:"-,V"[K&$L(K) 13 I K?6N,$D(@("^"_Q_"VF(K)")) S FNR=K,KC=$P(^(K),D),KC=$P(KC," ",$L(KC," ")),I1=@("^"_Q_"K1(KC)") G YZ 14 I K?6N S K=$P($T(@("T1"_QT)),U,2)_$P($T(@("T1"_QT)),U,3) D F1 G 11 15 S R="I1\"_(RR+2*100)_D_$P($T(@("T2"_QT)),U,2)_"\KL\K1" D @SR G 11:K="-"!(K=",") 17 S KC=$P(@("^"_Q_"KL(I1,0)"),D),FP=RR*100+1 W @F," ",$P($T(@("T2"_QT)),U,3),KC," ",$P(^(0),D,2),@F1 19 W !," ",@F4,$P($T(@("T3"_QT)),U,2),@F5,@F1 D ^cT489 ; 2 S R="K\22\3\"_$P($T(@("T4"_QT)),U,2)_BJ_"""\5\\""-,""[K!(K?4N.""+"")" D R0 G 15:K="-",11:K="," 21 S:K="" K=BJ I KJ4) S K=$P($T(@("T5"_QT)),U,2) D F1 G 2 23 S RD1="01.01."_$E(K,3,4),RD2="31.12."_$E($S(K["+":J4,1:K),3,4),I2=999999 ; 3 K UTA S UTA=0,FP=RR+2*100+1 W @F,@F1 31 S I2=$O(@("^"_Q_"KL(I1,I2)"),-1) I I2'?6N S RVV=0 G 4 33 S RN=^(I2),RVV=$O(^(I2),-1)?6N I I2<990000 S R=$P(RN,D,2)_D_RD1 D ^cA326 G 31:R<0 S R=$P(RN,D,2)_D_RD2 D ^cA326 G 31:R>0 35 D S1 S UTA=UTA+1,UTA(UTA)=I2,FP=RR+UTA+1*100+1 W @F,$J(UTA,4)," ",$P(RN,D)," ",I2," ",$P(RN,D,2)," ",$P(RN,D,3),$J(RVM,5) 37 W $J($FN($P(RN,D,4),"T",RDEC),12),$J($FN($P(RN,D,5),"T",RDEC),12),$J($S($P(RN,D,6):$FN($P(RN,D,6),"T",RDEC),1:""),12) 39 I RVV,UTA+RR<19 G 31 ; 4 S R="K\22\3\"_$P($T(@("T6"_QT)),U,2)_"\C1\6\\""-,D""[K!(K?1.6N)!(K=""V""&RVS)&($L(K)!RVV)\\\1" D R0 G 2:K="-",11:K="," 41 G YZ:K="V" I "D"[K S:K="D" I2=999999 G 3 43 I K,K'>UTA S FNR=UTA(+K) G YZ 45 I K?6N,$D(@("^"_Q_"VF(K)")) S FNR=K,K=^(K) I $P(K," ",$L(K," "))=KC G YZ 47 I K?6N S K=$P($T(@("T1"_QT)),U,2)_$P($T(@("T1"_QT)),U,3) D F1 G 4 49 G 4 ; YZ S FP=RR*100+1 W @F,@F1 K RD1,RD2,RDEC,RN,RVM,RVV,RVS,RR,SR,UTA Q ; R0 S R0=$P(R,D,5) I $L(R0),R0'["""" S $P(R,D,5)=R0_"^"_$T(+0) R0A S R0=$P(R,D,7) I $L(R0),R0'="DCTR" S $P(R,D,7)="",R1=$P(R,D,8),R0=$P($T(@R0),U,2,99) S:$L(R1) R0=R0_"&("_R1_")" S $P(R,D,8)=R0 R0Z S $P(R,D,12)=$T(+0) K R0,R1 D ^cA100 Q ; v11 30.05.94 ; C0 W !?2,$P($T(@("T9"_QT)),U,3-RVS) Q C1 D C0 W $P($T(@("T7"_QT)),U,2),$P($T(@("T7"_QT)),U,4-RVV) Q C2 D C0 W $P($T(@("T8"_QT)),U,2) Q ; F1 S R=250 F2 D TXT^cAFA1(R) FZ K R Q ; Z X ^cZ Q ZZ ; 05.02.01 - 16 u 23 * V7.84