cT808 ;Fin & div: schermopbouw ;%T80 ; [ 06/27/01  4:28 PM ]
 ;
T0 ;Fin & div: schermopbouw ;
T1 ;Nr Fac/C.N. F.dat. Verval.    Tot.doc.      Saldo V.M.;Saldo ;    -Korting ;   Referte   ;
T2 ;Klant;Leverancier;
T3 ;FCW;FCW;
 ;
T0F ;Fin & div: gestion écran ;
T1F ;No Fac/N.C. Dt.fac Dt.éch     Tot.doc.      Solde P.E.;Solde ;   Solde-esc ;   Référence ;
T2F ;Client;Fournisseur;
T3F ;FCW;FCT;
 ;
T0E ;Financial and miscellaneous transactions: screen structure ;
T1E ;Nr Inv/C.N. Doc dt Due dt     Doc.tot.       Bal. F.C.;Bal. ;   -Discount ;   Reference ;
T2E ;Customer;Supplier;
T3E ;FCW;ICB;
 ;
1 S FP=1201 W @F,@F4,$P($T(@("T1"_QT)),U,2),$J($P($T(@("T1"_QT)),U,3)_HBF,12),$P($T(@("T1"_QT)),U,4+$P(PRM,D,$G(K1)="L"+2)),@F5,@F1
11 S RR="" F  S RR=$O(DFA(RR)) Q:RR=""  S R=RR D S1
 ;
2 S FP=1901 W @F,@F4,$J("",79),@F5,@F1
21 I $D(K1),$L(K1),"KL"[K1,$D(KC),$D(KN) S FP=2003 W @F,@F1,$P($T(@("T2"_QT)),U,$A(K1)-73)," : ",KC," - ",KN
 ;
YZ K RR Q
 ;
R3 S R1=$P(R,D,2),R2=$P(R,D,4),R0=$J($P(R,D),0,R2),R3=$S($P(R,D,5):"",1:" "),R4="" S:R2 R4=","_$P(R0,".",2),R1=R1-1-R2 S:R0<0 R3="-",R0=-R0
R3A S R0=+$P(R0,".") F R5=3,7 S R6=$L(R0) Q:R6'>R5  S R0=$E(R0,1,R6-R5)_"."_$E(R0,R6-R5+1,R6)
R3B W ?$P(R,D,3),$J(R0,R1),R4,R3
R3Z K R0,R1,R2,R3,R4,R5,R6 Q  ;V3 05.07.88
 ;
 ; openstaande facturen
S1 S RS1=DFA(R),RS2=^HULP(boot,$J,0,$P(RS1,D)),RSS='$G(RSS),(FC,RS3)=$P(RS2,D) I RSS S FP=R*100+1 W @F,@F2,@F I $G(RS0) W @F92,@F S RS3="*"_FC
S10 I RSS S RS3=$TR(RS3,$P($T(@("T3"_QT)),U,2),$P($T(@("T3"_QT)),U,3))
S1A S FNR=$P(RS1,D)#1*1E7#1E6 I RSS W $J($P(RS1,D,2),3),$J(RS3,2),$J(FNR,7),$J($TR($P(RS2,D,2),"."),7),$J($TR($P(RS2,D,3),"."),7)
S1B S VM=$P(RS2,D,9),QA=HQD,PARF=1,EMU=0 S:VM="" VM=BF S:VM=BF QA=QD
S1C I VM'=BF,$D(@("^"_Q_"BA(11,VM)")) S QA=+$P(^(VM),D,7),PARF=$$CNVC^cAFE1(Q,BJ,1,VM,"F",99) I BP>1999 S EMU=$P(^(VM),D,12)
S1D I '$D(VM(VM)) S VM(VM)=$P($G(^(VM),VM),D)
S1E S OB=$J($P(RS2,D,10),0,QD),OBF=$J($P(RS2,D,5),0,QA),KKF=$J($P(RS2,D,6),0,QA) I VM(VM)=VM(BF) S OB=OBF
S1F S HOB=OBF,HKK=KKF I VM(VM)'=VM(HBF) S HOB=$J(OBF*PARF/PAR,0,HQD),HKK=$J(KKF*PARF/PAR,0,HQD) I VM(HBF)=VM(BF) S HOB=OB
S1G S KK=KKF I VM(VM)'=VM(BF) S KK=$J(KKF*PARF,0,QD)
S1H I RSS S FP=FP+27 W @F S R=$P(RS2,D,4)_"\12\\"_QA D R3 W VM S FP=FP+16 W @F S R=OBF_"\12\\"_QA D R3
S1I I RSS S FP=FP+13 W @F S R=HOB_"\11\\"_HQD D R3 S FP=FP+12 W @F
S1J I RSS I '$P(PRM,D,K1="L"+2),HKK S R=HOB-HKK_"\11\\"_HQD D R3
S1K I RSS I $P(PRM,D,K1="L"+2) W $E($P(RS2,D,7),1,12)
S1L I RSS S FP=FP+12 W $C(13),@F,@F93 I $L($P(BA86,D,3)),$L($P(BA86,D,4)),@$P(BA86,D,4) D @$P(BA86,D,3)
S1Z K RS0,RS1,RS2,RS3,RSS Q
 ;
ZZ ; 06.08.01 - 17 u 28 * V7.87