cT11 ;Klantenbalans ;%T11 ; [ 01/09/01 3:28 PM ] G G ; T0 ;Klantenbalans ;per periode ; T1 ;Boekingsmaand\"-[] = einde programma jjjj.mm[] = bepaalde maand";Boekingsmaand : ; T2 ;Welke klanten\".[] = alle klanten [] = enkel klanten met bedragen"; T3 ;Boekingsperiode\"-[] = einde programma jjjj.pp[] = bepaalde periode";Boekingsperiode : ; T4 ; Nummer\ Naam van de klant\Totaal;2\\\ Jaarcumulatie;;3\\Begin;2; T5 ;\\Saldo;2\Debet;2\Credit;2\Debet;2\Credit;2\saldo;2; T6 ; Maandcumulatie; Periodecumulatie; T7 ; Overdrachttotaal; Eindtotaal; ; T0F ;Balance comptes clients ;par période ; T1F ;Mois comptable\"-[] = fin du programme aaaa.mm[] = mois spécifique";Mois comptable : ; T2F ;Quels clients\".[] = tous les clients [] = clients avec cumuls"; T3F ;Période comptable\"-[] = fin du programme aaaa.pp[] = période spécifique";Période comptable : ; T4F ; Numéro\ Nom du client\Solde;2\\\ Cumuls annuels;;3\\Solde;2; T5F ;\\Total;2\Débit;2\Crédit;2\Débit;2\Crédit;2\init.;2; T6F ; Cumuls mensuels; Cumuls période; T7F ; Total à transférer; Total final; ; T0E ;Customer balance ;per period ; T1E ;Fiscal month\"-[] = end program yyyy.mm[] = particular month";Fiscal month : ; T2E ;Which customers\".[] = all customers [] = only customers with amounts"; T3E ;Fiscal period\"-[] = end program yyyy.pp[] = particular period";Fiscal period : ; T4E ; Number\ Customer name\Total;2\\\ Global year amount;;3\\Start;2; T5E ;\\Bal.;2\Debit;2\Credit;2\Debit;2\Credit;2\bal.;2; T6E ; Global month amount; Global period amount; T7E ; Transfer total; Sum total; ; G S SWP=0 G 1 ; gewoon P S SWP=1 G 1 ; per periode ; ; algemene init. 1 I QP W /CUP(1,1),@F1,/CUP(2,2),/SGR(7)," ",$P($T(@("T0"_QT)),U,2)_$P($T(@("T0"_QT)),U,4-SWP)_QN_" ",/SGR(0) 11 D ^cT489 S BPX=$E(BPA+.01_0,1,7) I BPX#1>.12 S BPX=BPX+.88 13 S Q0="KL" I 'QP S BP=PP(1),SWA=PP(2) G 3 ; ; vraagstelling 2 S BP=BPX,R="BP\22\3\"_$P($T(@("T"_$S(SWP:3,1:1)_QT)),U,2)_"\7\\K?4N1"".""2N&(K#1<.13)&(K#1!SWP)!(K=""-"")\\\\\1" 21 D R0 G YZ:K="-" S FP=450 W @F,$P($T(@("T"_$S(SWP:3,1:1)_QT)),U,3),BP 23 I BP'>$P(BPB,D,3) S R=61 D F2 G 2 25 S R="K\22\3\"_$P($T(@("T2"_QT)),U,2)_"\1\\""-,.""[K" D R0 G 2:K="-"!(K=",") S SWA=$L(K) 27 S R=1 D ^cA345 G 2:K=",",25:K="-" 29 I K="." S PP(1)=BP,PP(2)=SWA,QPT=$S(SWP:"P^",1:"")_$T(+0)_"#"_$P($T(@("T0"_QT)),U,2)_$P($T(@("T0"_QT)),U,4-SWP) D ^cA109 G YZ ; ; printen 3 S BM=BP#1*100,BJ=BP\1 31 S HD(1)=D,HD(2)=D_$P($T(@("T0"_QT)),U,2)_$P($T(@("T0"_QT)),U,4-SWP)_";C;F82",HD(3)=D_$S(SWP:BP,1:^cBA(2,$E(QT_"N"),BM)_" "_BJ)_" ;C;F82" 33 S TAB="9\41\56\71\86\101\116\131",TIT(1)=$P($T(@("T4"_QT)),U,2,99),TIT(2)=$P($T(@("T5"_QT)),U,2,99),$P(TIT(1),D,4)=$P($T(@("T6"_QT)),U,2+SWP)_";;3" 35 S BJ=$$BJ^cAFE1(Q,BP),MUNT=$$MNTC^cAFE1(Q,BJ),QD=$P(MUNT,D,2) 37 S K=KM1(BJ) F BX=2:1:24 Q:K=BP S K=$E(K+.01_0,1,7) I K#1>.12 S K=K+.88 39 S I2D=BJ,I2C=BJ+.02 I SWP S BJ=BP\1,BX=BM+1,I2D=BJ+.06,I2C=BJ+.07 ; ; bestand aflopen 4 S AFS(1,2)=$P($T(@("T7"_QT)),U,2) 41 S I1=0 F S I1=$O(@("^"_Q_Q0_"(I1)")) Q:I1="" I $D(^(I1,0)) D . S B(1)=^(0) . S TXT(1)=$P(B(1),D)_"\1\\1",TXT(2)=$P(B(1),D,2)_"\\1" . F I=3:1:8 S TXT(I)="" . S S1=$G(^(I2D)),S2=$G(^(I2C)) . S TXT(4)=$P(S1,D,BX),TXT(5)=$P(S2,D,BX),TXT(8)=$P($G(^(BJ)),D) . F X=2:1:BX S TXT(6)=TXT(6)+$P(S1,D,X),TXT(7)=TXT(7)+$P(S2,D,X) . I BJ>($P(BPB,D,2)\1) D .. S S1=$G(^(BJ-1)),S2=$G(^(BJ-.98)) .. F X=1:1:24 S TXT(8)=TXT(8)+$P(S1,D,X)-$P(S2,D,X) .. I BJ=$P(BA39,D,6) S TXT(8)=$$BEDR^cAFE1(Q,TXT(8),$P(BA39,D,9),$P(BA39,D,7),"V") . S TXT(3)=TXT(8)+TXT(6)-TXT(7),SW=0 F X=3:1:8 I TXT(X) S SW=1 Q . I $P(B(1),D,30)=2&'SW Q . I SW!SWA D .. F X=3:1:8 S TXT(X)=TXT(X)_"\\\\1\"_QD_"\\1" .. D ^cA334 43 S AFS(1,2)=$P($T(@("T7"_QT)),U,3),END=1 D ^cA334 ; Y I 'SWP,BP'