cT158 ;Inboeken wissels ;%T158 ;Do naar %T159 ; [ 12/29/00  5:25 PM ]
 G 1
 ;
T0 ;Inboeken wissels ;
T1 ;Wisselrekening;
T2 ;Boekingsmaand\"-[] = einde programma";
T3 ;Wisselnummer\"[] = automatisch nummer   xxxxx[] = wijzigen wissel";
T4 ;Klant;Leverancier;
T5 ;Boekingsmaand : ;Tot.;
T6 ;Wisseldatum\"dd.mm.jj[] = bepaalde datum";
T7 ;Vervaldatum\"dd.mm.jj[] = bepaalde datum";
T9 ;Document Datum    Vervald. Munt     Totaal   Openstaand  Docum.  Wisselbedrag ;
 ;
T0F ;Inscription des traites ;
T1F ;Compte traite;
T2F ;Mois comptable\"-[] = fin du programme";
T3F ;N° de traite\"[] = numéro automatique   xxxxx[] = modifier traite";
T4F ;Client;Fournisseur;
T5F ;Mois comptable : ;Tot.;
T6F ;Date de traite\"jj.mm.aa[] = date spécifique";
T7F ;Date d'échéance\"jj.mm.aa[] = date spécifique";
T9F ;Document Date     Echéance Mon.      Total        Solde  Docum.  Mont. traite ;
 ;
T0E ;Registration bills of exchange ;
T1E ;Bill of exchange account;
T2E ;Fiscal month\"-[] = end program";
T3E ;Bill of exchange number\"[] = automatic number   xxxxx[] = modification bill of exchange";
T4E ;Customer;Supplier;
T5E ;Fiscal month : ;Tot.;
T6E ;Bill of exchange date\"dd.mm.yy[] = particular date";
T7E ;Due date\"dd.mm.yy[] = particular date";
T9E ;Document Date     Due date Cur.     Total   Outstanding  Docum.  Bill amount  ;
 ;
 ; test op wisselrekening (do uit %T278)
S1 I '$P(SC,D,17) S R=25 D F2 S K="-"
S1Z Q
 ;
 ; tonen wissel- en vervaldatum
S2 W /CUP(7,2),@F6,$P($P($T(@("T6"_QT)),U,2),D),@F9,/CUP(7,19),": ",FDT Q
S3 W /CUP(8,2),@F6,$P($P($T(@("T7"_QT)),U,2),D),@F9,/CUP(8,19),": ",FVD Q
 ;
 ; opzetten VM en QA
S4 I VM="" S VM=BF,QA=QD
S4A E  S QA=$$DEC^cAFA1(VM)
S4Z Q
 ;
 ; schermopbouw
1 S K=$P($T(@("T0"_QT)),U,2)_QN_" ",FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
11 S FP=1001 W @F,@F4,$P($T(@("T9"_QT)),U,2),@F5
13 S R="901\1980",RH="",RV="958#1958" D ^cA319
15 S KZ="KL"
 ;
 ; initialisatie
2 D ^cT164 I 'OK G YZ
21 S R="BM\22\3\"_$P($T(@("T2"_QT)),U,2)_"\2\\K=""-""!(K?1N.N&K&(K<13))" D R0 G YZ:K="-"
23 S R=+K_D_D_1 D ^cT163 G 21:'OK
25 S FP=152 W @F,@F4,$P($T(@("T5"_QT)),U,2),BP," ",@F5
27 S (BPE,BPEC)=$G(@("^"_Q_"BA(""SWBP"")")) I $L(BPE) D @BPEC
29 S K=$$MNTC^cAFE1(Q,BJ),BF=$P(K,D),QD=$P(K,D,2),(FDT,FVD)=DT,SORT=$P(@("^"_Q_"BA")@("%T",2),D)
 ;
 ; wisselrekening
3 S R="BR\2000\1\0\1\0\0\1\"_BF_D_1,R0="S1^"_$T(+0)_D_1 D ^cT278 G 21:K="-" S B(1)=^(BR,0)
31 S RB=$P(B(1),D),AFK=$P(B(1),D,10) W /CUP(4,2),@F6,$P($T(@("T1"_QT)),U,2),@F9,/CUP(4,19),": ",BR,$P(B(1),D,2),@F2
33 S K=$$DC^cAFD1(DT),Q93="^"_Q_"BA(4,""W""_RB,"_K_")",@Q93=$G(@Q93,K_"0001") L @Q93:2 E  S R=14 D F2 G 3
34 S Q41="^"_Q_"AR(BR,0)",Q95="^"_Q_"FI(BP,""W""_RB,BNR)",(BC(0),BC(1))=0
35 S R="WNR\22\3\"_$P($T(@("T3"_QT)),U,2)_"\5\\K?5N!(""-""[K)" D R0 G 3:K="-",4:K=""
37 G E1:'$D(@("^"_Q_"WI(K,0)")),E1:$P(^(0),D,2)'=BR I ^(0) S R=241 D F2 G 35 ; wissel afgeboekt
39 G 7
 ;
 ; nieuwe wissel
4 S:'FDT FDT=DT S R="FDT\22\3\"_$P($T(@("T6"_QT)),U,2)_"\8\\$$DCTR^cAFI1(K)\\\\\1" D R0 G 35:K="-"!(K=",") S:'K FDT=DT D S2
41 S:'FVD FVD=DT S R="FVD\22\3\"_$P($T(@("T7"_QT)),U,2)_"\8\\$$DCTR^cAFI1(K)\\\\\1" D R0 G 4:K="-"!(K=",") S:'K FVD=DT D S3
43 S K=$$^cANSYN(KZ,"","",1,0,"","","",$P($T(@("T4"_QT)),U,KZ="KL"+2)) G 41:K="-"
45 I K="" S KZ=$S(KZ="KL":"LE",1:"KL") G 43
47 S B(1)=^(0),KC=$P(B(1),D),VM=$P(B(1),D,11) D S4
 ;
 ; automatisch wisselnummer
5 L +@("^"_Q_"BA(73)"):2 E  S R=14 D F2 G 35
51 S @%Q1=0,WNR=$P($G(@("^"_Q_"BA(73)")),D)
53 S $P(^(73),D)=WNR+1 I WNR<10000!(WNR>99999) S WNR=1E4 G 53
55 I $D(@("^"_Q_"WI(WNR,0)")),'$P(^(0),D) G 51
57 L -@("^"_Q_"BA(73)")
 ;
 ; wissel openen
6 L +@("^"_Q_"WI(WNR)"):2 E  S R=14 D F2 G 35
61 K @("^"_Q_"WI(WNR)")
63 S @("^"_Q_"WI(WNR,0)")=0_D_BR_D_KC_D_FDT_D_FVD_D_KZ_D_0_D_VM
65 S $P(^(0),D,28)=$H_D_$G(QU)_D_D
69 S @%Q1=1 G 71
 ;
 ; wissel beheren
7 L +@("^"_Q_"WI(WNR)"):2 E  S R=14 D F2 G 35
71 S K=@("^"_Q_"WI(WNR,0)"),KC=$P(K,D,3),FDT=$P(K,D,4),FVD=$P(K,D,5),KZ=$P(K,D,6),TOT=$P(K,D,7),VM=$P(K,D,8) D S2,S3,S4
73 W /CUP(5,2),@F6,$P($T(@("T4"_QT)),U,KZ="LE"+2),@F9,@F2,/CUP(5,19),": ",$E($$KL^cAFO1(KZ,KC),1,60)
75 W /CUP(6,2),@F6,$P($P($T(@("T3"_QT)),U,2),D),@F9,/CUP(6,19),": ",WNR
77 W /CUP(20,58),@F4,$P($T(@("T5"_QT)),U,3),VM," ",@F5,@F1
79 S I1=@("^"_Q_$E(KZ)_"1(KC)"),Q1="^"_Q_KZ_"(I1,FNR)",FNR=0,B(1)=@Q1 L +@Q1:2 E  S R=14 D F2 G 87
 ;
 ; transactie
8 S R="TRANSACT" D ^cA348
81 S ^(TRANSACT,0)=$T(+0)_D_Q_D_"F"_D_"W"_D_WNR_D_BJ_D_BP_D_BPE_D_FDT_D_DT_D_RB_D
83 D ^cT159  ; beheer factuurlijnen
85 S R="TRANSACT" D S1^cA348
87 L -@("^"_Q_"WI(WNR)") S FNR=0 L -@Q1
89 G 35
 ;
YZ Q
 ;
E1 S R=240 D F2 G 35   ; wissel onbekend
 ;
R0 S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
 ;
F1 S R=250
F2 D TXT^cAFA1(R)
FZ K R Q
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84