cT171 ;Stap 2: beheer dom.lijst ;%T171 ; [ 01/21/00  12:22 PM ]
 G 1
 ;
T0 ;Beheer domiciliëringslijst ;
T1 ;Klant;Dom.nr.;
T5 ;Factuurnummer;; niet gevonden;
 ;
T0F ;Gestion listing des domiciliations ;
T1F ;Client;N° dom.;
T5F ;N° de facture;; ne pas trouvée;
 ;
T0E ;Beheer domiciliëringslijst ;
T1E ;Klant;Dom.nr.;
T5E ;Factuurnummer;; niet gevonden;
 ;
 ; start
1 ;D O^cA612(2,1,20,80,1,0,1,1),T^cA612($P($T(@("T0"_QT)),U,2),0,0,7,1,1) ;10.03.00
 D P^cA612(2,1,20,80,1,0,1,1,$P($T(@("T0"_QT)),U,2),0,0,7,1,1)
11 S Q2="^"_Q_"K3(0,0,KC,I)",BA39=@("^"_Q_"BA(39)"),BF=$P(BA39,D),LND=$P(BA39,D,3)
13 L @("^"_Q_"K3"):2 E  S R=14 D F2 G YZ
15 I '$D(@("^"_Q_"K3(0,0)")) S R=225 D F2 G YZ
17 S K=^(0),QA=$P(K,D,8),MNT=$P(K,D,7) W /CUP(2,3),$P(K,D,2),/CUP(2,60),MNT," - ",$P(K,D,6)
 ;
 ; klant
2 S I1=$$^cANSYN("KL") G YZ:K="-"
21 S K=^(K,0),KC=$P(K,D),I=$P(K,D,23),KOR=$P(K,D,25)
23 W /CUP(4,2),@F6,$P($T(@("T1"_QT)),U,2),@F9,/CUP(4,11),": ",$E($$KL^cAFO1("KL",KC),1,65),@F1
25 W /CUP(5,2),@F6,$P($T(@("T1"_QT)),U,3),@F9,/CUP(5,11),": ",$$BANK^cAFO1(I)
27 I I?12N,$$BANK^cAFI1(I) G 3
29 S R=226 D F2 G 2
 ;
 ; beheer via scroll
3 D BS^cAN210("K3",0,0,0,0) G 2
 ;
YZ D C^cA612 Q
 ;
B() ; test op bedrag
 N M,R
 S M=$P(OF,D,5)-$P($P(OF,D,11),U,2)
 S R=1 I $P(OF,D)="C"&(K'["-")!(K>M) S R=0
BZ Q R
 ;
F ; manueel factuur ingeven
FA S R="FNR\22\3\"_$P($T(@("T5"_QT)),U,2)_"\\6\\K?6N!(K=""-"")" D R0 G FZ:'K
FB I '$D(@("^"_Q_"KL(I1,FNR)")) S K=$P($T(@("T5"_QT)),U,2)_" "_FNR_$P($T(@("T5"_QT)),U,4) D TXT^cAFA1(250) G FA
FC S OF=^(FNR),FC=$P(OF,D),FDT=$P(OF,D,2),OBF=$P(OF,D,5),Y=FC="F"*2-1
FD S VVD=$P(OF,D,11) I VVD=1 S R=205 D F2 G FZ
FE S TKK=OBF*KOR/100+$S(OBF=$P(OF,D,4):$P(OF,D,6),1:0),DOM=OBF-TKK
FF I $E(VVD,1,2)="1;" S OBF=OBF-$P(VVD,U,2),VVD=$P(VVD,U,3) G FE
FG I VVD="" S VVD=$P(OF,D,3)
FH S VM=$P(OF,D,9) I VM="" S VM=BF
FI I VM'=$P(BA39,D),VM'=$P(BA39,D,7),VM'=$P(BA39,D,9) S R=227 D F2 G FA
FJ S R=0 F UI1=1:1 Q:'$D(@UREF)!R  I $P(^(UI1),D,14)=FNR S R=205 D F2 S R=1
FK I R G FA
FL S @UREF=KC_"\\\\"_FDT_D_VVD_D_OBF_D_D_FC_D_D_DOM_D_TKK_D_D_FNR_D_VM_D_$$OMREK^cAFE1(Q,DOM,VM,MNT,"V",QA)_D,REFRESH=2
FZ Q
 ;
R0 S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
 ;
F1 S R=250
F2 D TXT^cAFA1(R)
F3 K R Q
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84