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 S[] = klanten met een saldo"; T3 ;Boekingsperiode\"-[] = einde programma jjjj.pp[] = bepaalde periode";Boekingsperiode : ; T4 ; Nummer\ Naam van de klant\ Totaal saldo\ Debet maand\ Credit maand\ Debet jaar\ Credit jaar\ Beginsaldo; T5 ; Overdrachttotaal; Eindtotaal; T6 ;\Boekingsmaand; T7 ;Boekingsmaand onbekend; ; 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 S[] = clients avec un solde"; T3F ;Période comptable\"-[] = fin du programme aaaa.pp[] = période spécifique";Période comptable : ; T4F ; Numéro\ Nom du client\ Solde total\ Débit mensuel\ Crédit mensuel\ Débit annuel\ Crédit annuel\ Solde init.; T5F ; Total à transférer; Total final; T6F ;\Mois comptable; T7F ;Mois comptable inconnu; ; 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 S[] = customers with a balance"; T3E ;Fiscal period\"-[] = end program yyyy.pp[] = particular period";Fiscal period : ; T4E ; Number\ Customer Name\ Total Bal.\ Debit Month\ Credit Month\ Debit Year\ Credit Year\ Start Bal.; T5E ; Transfer total; Sum total; T6E ;\Fiscal month; T7E ;Fiscal month unknown; ; 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 ; 13.12.06 - GM - Balans mag ook opgevraagd worden voor afgesloten boekjaar + controle op maand ;I BP'>$P(BPB,D,3) S R=61 D F2 G 2 I '$D(KM1($$BJ^cAFE1(Q,BP))) S K=$P($T(@("T7"_QT)),U,2) D TXT^cAFA1(250) G 2 25 S R="K\22\3\"_$P($T(@("T2"_QT)),U,2)_"\1\\""-,.S""[K\\\1" D R0 G 2:K="-"!(K=",") S SWA=K ; S R=1 D ^cA345 G 2:K=",",25:K="-" ; KO - 23.10.02 27 D ^cAN3223("","1#4#5#9",">80","") G 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) I PTS=3!(PTS=4) S TAB=TAB_"\139",TIT(1)=TIT(1)_$P($T(@("T6"_QT)),U,2) 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(@("T5"_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",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 . ; Enkel klanten met een saldo . I SWA="S",'TXT(3) S SW=0 . I $P(B(1),D,30)=2&'SW Q . I PTS=3!(PTS=4) S TXT(9)=BP . 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(@("T5"_QT)),U,3),END=1 D ^cA334 ; Y I $G(PTS)'=4,'SWP,BP'