cT846 ;FIN & DIV - betaling ;%T80 ; [ 01/04/01  2:10 PM ]
 G 1                   ;afgeleid van %T842
 ;
T0 ;Fin & div - betaling voorschot ;
T1 ;Doc.;Datum;Klant;Ref.;Saldo;Saldo-korting;
T2 ;Grootboekrekening : ;
T3 ;Boekingsbedrag in ;xxxxxxx[] = debet    xxxxxxxx-[] = credit   [] = ;
T4 ;Referentie;
T5 ;Omschrijving\",[] = hernemen boeking";
T6 ;Bedrag mag niet groter zijn dan het saldo ;
 ;
T0F ;Fin + div - paiment acompte ;
T1F ;Doc.;Date;Client;Réf.;Solde;Solde-esc.;
T2F ;Compte grand-livre: ;
T3F ;Montant en ;xxxxxxx[] = débit   xxxxxxx-[] = crédit   [] = ;
T4F ;Référence;
T5F ;Description\",[] = reprendre mouvement";
T6F ;Montant ne peut pas surpasser le solde ;
 ;
T0E ;Financial & miscellaneous transactions - payment advance ;
T1E ;Doc.;Date;Customer;Ref.;Balance;Balance-discount;
T2E ;General account : ;
T3E ;Registered amount in ;xxxxxxx[] = debit    xxxxxxxx-[] = credit   [] = ;
T4E ;Reference;
T5E ;Description\",[] = retry registration";
T6E ;Amount may not be greater than balance ;
 ;
 ; cumul & historiek
S1 S X=D,$P(X,D,23)=D F S1=BJ:.01:BJ+.02 I '$D(^(S1)) S ^(S1)=X
S1A F X=0,1 I BC(X) S S1=X*.02+BJ,$P(^(S1),D,BX)=$P(^(S1),D,BX)+BC(X)
S1B S BH=BH\1 D:BPE @BPEC I HIS S S1="B"_RB_"#"_BNR_D G S1D
S1C S S1=BH_"B"_RB,S2=$S($D(^(S1)):^(S1),1:D),^(S1)=NUM_D_DAT_D_($P(S2,D,3)+BC(0))_D_($P(S2,D,4)+BC(1))_D_$P(S2,D,5,99) G S1Z
S1D S BH=BH+.01 S:BH#1=0 HIS=0,BH=BH-1 D ^cT00:'HIS G S1C:'HIS,S1D:$D(^(BH+.01)) S:'$D(^(BH)) ^(BH)=""
S1E I ^(BH)'[S1 G S1D:$L(^(BH))+$L(S1)>255 S ^(BH)=^(BH)_S1
S1Z K S1,S2 S (BC(0),BC(1))=0 Q
 ;
 ; unlock
S2 L -@("^"_Q_UGL)@(KC,US,UR) Q
 ;
 ; bepalen bedrag
S3 S R=$$OMREK^cAFE1(Q,BE,BF,VM,"F","")
 I VM=BF S R=BE
 I VM=HBF S R=HBE
 I R>(TTB+KKB) S R=TTB+KKB
 I CO="D" S R=-R
S3Z Q
 ;
P5(X) ; tonen bedrag gedurende P5
 I $P(BA39,D,12),$H+1>$$DH^cAFD1($P(BA39,D,12)) G P5Z
 I VM=HBF G P5Z
 W " (",$$IP^cAFA1($$OMREK^cAFE1(Q,X,VM,HBF,"F",""),HQD,0),HBF,")"
P5Z Q
 ;
0 D S2
 ;
 ; Synoniemen op OD/UL
 ; Variabelen UGL,KC,US,UR,UI1,TTB,KKB (in muntcode van de bon)
1 X $P(@("^"_Q_"BA")@("%T",2),D,14) I K="-" G Y
 D 3^cT809 ; scherm opnieuw opbouwen
11 S U5=$G(@("^"_Q_UGL)@(KC,US,UR,1)) I U5="" G 1
 S OM=$P(U5,D,27)_" "_UR
 I '$$PLUS^cANLOCK($NA(@("^"_Q_UGL)@(KC,US,UR)),2,OM,1) G 1
 S U5=$G(@("^"_Q_UGL)@(KC,US,UR,1)),VM=$P(U5,D,18) I U5="" G 0
 ; tonen klant + bon
13 S R=$T(@("T1"_QT))  ; prompten
 W /CUP(14,2),@F6,$P(R,U,2),@F9,/CUP(14,9),": ",OM,@F2
 W /CUP(15,2),@F6,$P(R,U,3),@F9,/CUP(15,9),": ",$P(U5,D,2),@F2
 W /CUP(16,2),@F6,$P(R,U,4),@F9,/CUP(16,9),": ",$E($$KL^cAFO1("KL",KC),1,70),@F2
 W /CUP(17,2),@F6,$P(R,U,5),@F9,/CUP(17,9),": ",$P(U5,D,3),@F2
 W /CUP(18,2),@F6,$P(R,U,6),@F9,/CUP(18,9),": ",$$IP^cAFA1(TTB+KKB,$$DEC^cAFA1(VM),0),VM,@F2 D P5(TTB+KKB)
 I KKB W /CUP(18,40),@F6,$P(R,U,7),@F9,": ",$$IP^cAFA1(TTB,$$DEC^cAFA1(VM),0),VM,@F2 D P5(TTB)
19 S K=$P(U5,D,27),OM=$E(K,1,15-$L(UR)-1)_" "_UR
 ;
 ; rekening vooruitbetalingen
2 S BR=$P($P($G(@("^"_Q_"BA")@("%F",21)),D)," ")_" " G 0:K="-"!'$D(@Q41)
21 I $P(@Q41,D,13)!$L($P(^(0),D,10))!(K2[(D_+BR_D)) S R=29 D F2 G 0
23 S NMA=$P(^(0),D,2) S FP=2003 W @F,$P($T(@("T2"_QT)),U,2),BR,NMA,@F1
25 D ^cT843 G 2:K="-"
 ;
 ; bedrag
3 S A=-HUX,DEC=HQD,R="K\21\3\"_$P($T(@("T3"_QT)),U,2)_HBF_"\C1\10\DEC" D R0 G 2:K="-"!(K=",")
31 S:K="" K=$FN(A,"T",DEC) S:K["-" K=-K S HBE=K,BE=$J(HBE*PAR,1,QD),CO=$E("DC",K<0+1)
32 S FP=2103 W @F,$P($T(@("T3"_QT)),U,2),HBF," : ",$$IP^cAFA1(HBE,HQD,0),@F1 
 I HBE>$$OMREK^cAFE1(Q,TTB+KKB,VM,HBF,"F","") S K=$P($T(@("T6"_QT)),U,2) D F1 G 3
33 I VMSW D  G 3:K="-"!(K=","),33:K="!"
 . S A=BE I VM=BF,A>(TTB+KKB) S A=TTB+KKB
 . S DEC=QD,R="K\22\3\"_$P($T(@("T3"_QT)),U,2)_BF_"\C1\10\DEC" D R0 Q:K="-"!(K=",")
 . S:K="" K=$FN(A,"T",DEC) S BE=CO="D"*2-1*K
 . S FP=2153 W @F,BF," : ",$$IP^cAFA1(BE,DEC,0),@F1
 . I VM=BF,K>(TTB+KKB) S K=$P($T(@("T6"_QT)),U,2) D F1 S K="!"
35 S R="OM\22\3\"_$P($T(@("T4"_QT)),U,2)_"\\15\\\\\\\1" D R0 G 33:K="-"&VMSW,3:K="-",2:K=","
36 W /CUP(22,3),$P($T(@("T4"_QT)),U,2)," : ",OM
37 S R="OM1\23\3\"_$P($T(@("T5"_QT)),U,2)_"\50" D R0 G 35:K="-",2:K=","
38 S KOS=$P(@("^"_Q_"AR(BR,0)"),D,22) I $L(KOS),$L($G(@("^"_Q_"BA(""%T"",8,""G"",""I"")"))) X ^("I") G 37:K="-",2:K=","
39 S:CO="C" HBE=-HBE,BE=-BE
 ;
 ; registratie boeking
4 I $D(SWAV),SWAV D ^cT844 G 2:K="-",Y
40 L +@("^"_Q_"AR(BR)"):2 E  S R=14 D F2 G 40
41 S BNR=@Q93,@Q93=BNR+1 G 41:$D(@Q95) X:$D(KAS) KAS S BC(CO="C")=BE,HIS=$P(@Q41,D,3) D S1
43 S:CO="D" UX=UX+BE,HUX=HUX+HBE S:CO="C" UX=UX-BE,HUX=HUX-HBE
45 S K=D_DAT_D_NUM_D_CD_D_BE_D_CO_D_"A"_D_$P(BR," ")_"#"_NMA_D_OM_D_BPE_D_HBE_D_D
47 S K=K_D_SRT_D_OM1_D_D_D_D_HUXB_"#"_HUXV_D_UX_D_HUX_D_D_HBF_D_HBF_D_HBE_D_$S(VMSW&HBE:$J(BE/HBE,1,4),1:PAR)_D
49 S $P(K,D)=$T(+0),$P(K,D,28)=$H,$P(K,D,29)=$G(QU)
 D S3 S $P(K,D,31)=UGL_D_KC_D_US_D_UR_D_UI1_D_TTB_D_VM_D_R_D_KKB_D,@Q95=K
 ;
 ; detail op scherm
5 D S6^cT809
51 I $L(KOS),$L($G(@("^"_Q_"BA(""%T"",8,""G"",""R"")"))) X ^("R")
 ;
 ; bijwerken voorschot op bestelbon
6 D S3 X $P(@("^"_Q_"BA")@("%T",2),D,15) D S2 S @%Q1=0
 ;
 ; historiek van de betaling
7 D S3 S BE=R
70 S R=$NA(@("^"_Q_"PVFI")@(0,0,"UR")) I '$$PLUS^cANLOCK(R,2,"",1) G 70
71 S K=$P($G(@R),D) S:'K K=1E3 S $P(@R,D)=K+1
 I $O(@("^"_Q_"PVFI")@($$DC^cAFD1(DAT),QU,K,0)) G 71
 S ^(0)=102 D ^cA105
 S ^(1)=KC_"\\"_TD_"\1\\\"_VM_"\\\\\\\\\\\\"_BE_D_CD_" "_NUM_D ; 9' bw.
 L -@R
 S ^(101)=BR_"\\\\"_$P(U5,D,27)_" "_UR_"\\\\"_BE_D_BE_D_BR_"\Z\\"_Q_"\\"_BE_"\Z\\\\\\\\\\\\"_BE_"\\\\"_UR_D_UGL_D_US_D_Q_D
 ;
Y K UGL,KC,US,UR,UI1,TTB,U5,KKB ; variabelen %FN/%FNA
YA D 3^cT809 ; scherm vegen
YZ K NMA,OM,OM1,BE,HBE,CO,KOS Q
 ;
C1 W !?2,$P($T(@("T3"_QT)),U,3),$FN(A,"T",DEC) 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
 ;
DEC ;K?1.N!(K?1.N1"-")!(K?.N1"."1.N&DEC&($L(K#1)-1'>DEC))!(K?.N1"."1.N1"-"&DEC&($L(K#1)-1'>DEC))!("-,"[K)
 ;
F1 S R=250
F2 D TXT^cAFA1(R)
FZ K R Q
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84