cT815 ;Fin & div: openst. fact. ;%T80 ; [ 07/24/01  10:26 AM ]
 ;
T0 ;Fin & div: openst. fact. ;
T1 ;Factuur;Creditnota;Datum doc. : ;Vervaldatum   : ;
T2 ;Opnieuw te openen document\"xxxxxx[] = nummer document";
T3 ;Type doc.\"[] = factuur   1[] = creditnota";
T4 ;Datum document\"dd.mm.jj[] = bepaalde datum   [] = "_DT;
T5 ;Vervaldatum   \"dd.mm.jj[] = bepaalde datum   [] = "_S3;
T6 ;Bedrag in ;\"xxxxxxx[] = bedrag   [] = ;
T7 ;Referentie\"[] = nummer document";
T8 ;Omschrijving\",[] = hernemen boeking";
 ;
T0F ;Fin & div: fact. impayées ;
T1F ;Facture;N. de Cr.;Date document : ;Date échéance : ;
T2F ;N° du document à réouvrir\"xxxxxx[] = numéro du document";
T3F ;Type doc.\"[] = facture   1[] = note de crédit";
T4F ;Date du document\"jj.mm.aa[] = date spécifique   [] = "_DT;
T5F ;Date d'échéance \"jj.mm.aa[] = date spécifique   [] = "_S3;
T6F ;Montant en ;\"xxxxxxx[] = montant   [] = ;
T7F ;Référence\"[] = numéro du document";
T8F ;Description\",[] = reprendre mouvement";
 ;
T0E ;Financial & miscellaneous transactions: outstanding invoice ;
T1E ;Invoice;Credit note;Document date : ;Due date      : ;
T2E ;Document to reopen\"xxxxxx[] = document number";
T3E ;Doc. type\"[] = invoice   1[] = credit note";
T4E ;Document date\"dd.mm.yy[] = particular date   [] = "_DT;
T5E ;Due date     \"dd.mm.yy[] = particular date   [] = "_S3;
T6E ;Amount in ;\"xxxxxxx[] = amount   [] = ;
T7E ;Reference\"[] = document number";
T8E ;Description\",[] = retry registration";
 ;
1 S FP=2103,K=$D(@Q3),VM=$P(^(I1,0),D,11),(EMU,OB,HOB,OBF,S1)=0 W @F,@F1 D VM G Y:K="-"
 ;
 ; S5=code F/C ; S2=FDT ; S3=VVD
 ; S4=bedrag in BF ; S6=bedrag in VM ; S7=bedrag in HBF
2 S R="FNR\21\3\"_$P($T(@("T2"_QT)),U,2)_"\6\\K?6N&$E(K)&($E(K,1,2)'=99)!(K=""-"")" D R0 G Y:K="-"
21 S K=$D(@Q3),K=$D(^(I1,FNR)),X="^"_Q_Q5_"(K)" I K!$D(@Q6) S R=66 D F2 G 2
22 I $D(@("^"_Q_Q5_"B(FNR,KC)")) D  G 2:K="-",29
 . S K=^(KC),S5=$P(K,D),S2=$P(K,D,2),S3=$P(K,D,3),S4=$P(K,D,10),S6=$P(K,D,4),VM=$P(K,D,9) D VM,S7
 . S SBP="",OM=$P(K,D,7),S15=$P(K,D,15),S16=$P(K,D,16),S17=$P(K,D,17),OM1=""
23 S K=$O(@X) I K G 23:'$D(^(K,FNR)) D  G 2:K="-",F0:$P(K,D,4)'=KC,29
 . S SBP=K,K=^(FNR) S S5=$P(K,D),S2=$P(K,D,2),S3=$P(K,D,3),S4=$P(K,D,6),S6=$J(S4*PARF,1,QA)
 . I $P(K,D,4)=KC,$P(K,D,25) S S6=$P(K,D,25),VM=$P(K,D,24) D VM I $P(K,D,26) S PARF=$P(K,D,26)
 . D S7 S OM=$P(K,D,18),S15=$P(K,D,29),S16=$P(K,D,21),S17="",OM1=$P(K,D,19)
 . I Q5="VE" S OM=$P(K,D,14),S15=$P(K,D,27),S17=$P(K,D,31)
24 S R0=0 F R1=BJ:1 Q:'$D(@("^"_Q_"BA(R1)"))!R0  D S1
25 G F0:R0,3
29 S K=$T(@("T1"_QT)),FP=2103 W @F,$P(K,U,S5="C"+2)," : ",FNR,@F1 S FP=2127 W @F,$P(K,U,4),S2,"    ",$P(K,U,5),S3 G 39
 ;
 ; onbekende factuur: manueel F/C, FDT en VVD
3 S FP=2103,R="K\22\3\"_$P($T(@("T3"_QT)),U,2)_"\1\\""-,1""[K" W @F,FNR,@F1 D R0 G 2:K="-"!(K=",")
31 S S5=$E("FC",K+1),FP=2103 W @F,$P($T(@("T1"_QT)),U,S5="C"+2)," : ",FNR,@F1
33 S R="S2\22\3\"_$P($T(@("T4"_QT)),U,2)_"\8\DCTR" D R0 G 3:K="-",2:K="," S:'K S2=DT
35 S K=$D(@Q3),K=$P(^(I1,0),D,18),R=S2_D_K D ^cA104 S S3=R,S4=1E9,S6=1E9,(SBP,S15,S16,S17,OM,OM1)=""
37 S R="K\23\3\"_$P($T(@("T5"_QT)),U,2)_"\8\DCTR" D R0 G 33:K="-",2:K="," S:K S3=K G 29
39 I S4=1E9,S6=1E9 S S7=HUX,VM=" " D VM G 2:K="-" I PARF S S7=S7/PARF
 ;
 ; bedragen
4 S K=$T(@("T6"_QT)),DEC=HQD,A=$TR($FN(S7,"T",DEC)," -"),R="HBE\22\3\"_$P(K,U,2)_HBF_$P(K,U,3)_A_"""\9\DEC" D R0 G 2:K="-"!(K=",")
41 S:K="" HBE=A S FP=2203 W @F,$P($T(@("T6"_QT)),U,2),HBF," : ",@F1,$$IP^cAFA1(HBE,DEC,0)
42 S BEF=$$OMREK^cAFE1(Q,HBE,HBF,VM,"F","") S:BEF>S6 BEF=S6 I VM(VM)=VM(HBF) S BEF=HBE G 4:BEF>S6,45
43 S K="",DEC=QA,A=$TR($FN(BEF,"T",DEC)," -")
430 I 'EMU S K=$T(@("T6"_QT)),R="BEF\23\3\"_$P(K,U,2)_VM_$P(K,U,3)_A_"""\9\DEC" D R0 G 4:K="-",2:K=","
44 S:K="" BEF=A S FP=2233+F60 W @F,VM," : ",$$IP^cAFA1(BEF,DEC,0),@F2
45 S BE=$J(BEF*PARF,1,QD) S:BE>S4 BE=S4 I VM(BF)=VM(HBF) S BE=HBE G 4:BE>S4,5
46 I VM(BF)=VM(VM) S BE=BEF G 4:BE>S4,5
47 S K=$T(@("T6"_QT)),DEC=QD,A=$TR($FN(BE,"T",DEC)," -"),R="BE\23\3\"_$P(K,U,2)_BF_$P(K,U,3)_A_"""\9\DEC" D R0 G 4:K="-",2:K=","
48 S:K="" BE=A S FP=2253+F60 W @F,BF," : ",$$IP^cAFA1(BE,DEC,0),@F2
 ;
 ; referte & omschrijving
5 S R="OM\23\3\"_$P($T(@("T7"_QT)),U,2)_"\15",$P(R,D,13)=1 D R0 G 4:K="-",2:K="," S:K="" OM=FNR S FP=2252 W @F,$P($P($T(@("T7"_QT)),U,2),D)," : ",OM,@F2
51 S R="OM1\23\3\"_$P($T(@("T8"_QT)),U,2)_"\50",$P(R,D,13)=1 D R0 G 5:K="-",2:K="," S:S4=1E9 S4=BEF
 S S4=S6   ; VJ 24.07.01
53 I $L($P(BA86,D,7)),$L($P(BA86,D,8)),@$P(BA86,D,8) D @$P(BA86,D,7) G 51:K="-",2:K=","
 ;
Y I K="-" K DEC,S2,S3,S4,S5,S6,S7,S15,S16,S17,SBP
YZ Q
 ;
F0 S R=K1="K"+83 D F2 G 2
F1 S R=250
F2 D TXT^cAFA1(R)
FZ K R Q
 ;
R0 S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
 ;
DEC ;K?1.N!(K?.N1"."1.N&DEC&($L(K#1)-1'>DEC))!("-,"[K)
 ;
VM I VM="" S VM=BF
VMA I '$D(@("^"_Q_"BA(11,VM)")) S R="VM\2200" D ^cA329 I K="-" G VMZ
VMB S VM(VM)=$P(^(VM),D),QA=$P(^(VM),D,7),PARF=$$CNVC^cAFE1(Q,BJ,1,VM,"F",99) I BP>1999 S EMU=$P(^(VM),D,12)
VMC I VM(VM)=VM(HBF) S QA=HQD,PARF=PAR
VMD I VM(VM)=VM(BF) S QA=QD,PARF=1
VMZ Q
 ;
S1 S RS1=$S(K1="K":"V",1:"A")_"FNR" I $D(^(R1,RS1)) D S10
S1A I 'R0 S RS1=$O(^(RS1)) I $E(RS1,1,4)=($S(K1="K":"V",1:"A")_"FNR") D S10 G S1A
S1Z K RS1 Q
 ;
S10 S RS10=^(RS1) G S10Z:$P(RS10,D,4) I '$P(RS10,D,2)!'$P(RS10,D,3) S:$E(RS10,1,2)=$E(FNR,1,2) R0=1 G S10Z
S10A I FNR'>$P(RS10,D,3),FNR'<$P(RS10,D,2) S R0=1
S10Z K RS10 Q
 ;
 ; bedrag in HBF
S7 S S7=$$OMREK^cAFE1(Q,S6,VM,HBF,"F","")
S7Z Q
 ;
ZZ ; 06.08.01 - 17 u 28 * V7.87