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";Datum
T7	;Vervaldatum\"dd.mm.jj[] = bepaalde datum";Verval
T9	;Document Datum    Vervald. Munt     Totaal   Openstaand  Docum.  Wisselbedrag ;
T10	;Nummers zijn opgebruikt
T11	;Wisselklanten;Wisselleveranciers
T12	;Wisselklant;Wisselleveranc.;
T13	;Accept-code\"0[] = niet aanvaarde kredietbrief   1[] = aanvaarde kredietbrief                2[] = promesse"
T14	;Banknummer klant;Banknr.;
T15	;Naam bank;Naam;
	;
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";Date
T7F	;Date d'échéance\"jj.mm.aa[] = date spécifique";Echéance
T9F	;Document Date     Echéance Mon.      Total        Solde  Docum.  Mont. traite ;
T10F	;Plus de numéros disponibles
T11F	;Clients de traite;Fournisseurs de traite;
T12F	;Client de traite;Fourn. de traite;
T13F	;Code acceptation\"0[] = LCR non acceptée   1[] = LCR acceptée   2[] = billet à ordre"
T14F	;Numéro bancaire client;N°Banque;
T15F	;Nom de la banque;Nom;
	;
T0E	;Registration bills of exchange ;
T1E	;Bill exch. acc.;
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 exch. 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  ;
T10E	;Run out of numbers
T11E	;Bill of exchange customers;Bill of exchange suppliers;
T12E	;Bill exch. cust.;Bill exch. supp.;
T13E	;Accept-code\"0[] = niet aanvaarde kredietbrief   1[] = aanvaarde kredietbrief                2[] = promesse"
T14E	;Banknumber client;Banknr.;
T15E	;Name of the bank;Name;
	;
	; 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
	W /CUP(7,31),@F6,$P($P($T(@("T7"_QT)),U,2),D),@F9,/CUP(7,48),": ",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)
	S BANKPAR=$P($G(^DPAR(Q,"PAR","WI",0)),D,7)
	;
	; 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(@("T11"_QT)),U,KZ="LE"+2),$P($T(@("T4"_QT)),U,KZ="KL"+2)) G 41:K="-"
45	I K="" S KZ=$S(KZ="KL":"LE",1:"KL") G 43
	;
	;GM 06.04.04 VM is vast EUR
46	;S B(1)=^(0),KC=$P(B(1),D),VM=$P(B(1),D,11),WKZ=K,WKC=KC D S4
	S B(1)=$$SGN^cAFA1(KZ,K,0),KC=$P(B(1),D),VM="EUR",WKZ=K,WKC=KC D S4
	W /CUP(5,2),@F6,$P($T(@("T12"_QT)),U,KZ="LE"+2),@F9,@F2,/CUP(5,19),": ",$E($$KL^cAFO1(KZ,KC),1,60)
	;
	; vraag naar banknummer klant indien parameter op "vragen" - FB - 11.02.05
47	I 'BANKPAR,K="-" G 43
	I BANKPAR,KZ="KL" S BANKNR=$$SG^cAFA1("KL",KC,248)
471	I BANKPAR,KZ="KL" S R="BANKNR\22\3\"_$P($T(@("T14"_QT)),U,2)_"\\23\\""-,""[K!(K?23N)" S $P(R,D,13)=1 D R0 G 43:K="-",47:'$L(K)
	; 
	; vraag naar banknaam klant indien parameter op "vragen" - FB - 11.02.05
48	I 'BANKPAR,K="-" G 47
	I BANKPAR,KZ="KL" S BANKNAAM=$$SG^cAFA1("KL",KC,249)
481	I BANKPAR,KZ="KL" S R="BANKNAAM\22\3\"_$P($T(@("T15"_QT)),U,2)_"\\30\\" S $P(R,D,13)=1 D R0 G 471:K="-",48:'$L(K)
	;
	; vraag naar accept-code ivm TB France - FB - 03.12.04 / afhankelijk v. parameter - FB - 16.12.04
49	I 'BANKPAR,K="-" G 47
	I BANKPAR,KZ="KL" S R="ACC\22\3\"_$P($T(@("T13"_QT)),U,2)_"\1\\""-,012""[K&$L(K)" S $P(R,D,13)=1 D R0 
	G 21:K=",",35:'BANKPAR&(K="-"),481:K="-"
	;
	; automatisch wisselnummer
5	L +@("^"_Q_"BA(73)"):2 E  S R=14 D F2 G 35
	;GM 22.03.04 WNR komt van of BA(73) of BA(73,"AR",grootboekrek)
51	S @%Q1=0 ;,WNR=$P($G(@("^"_Q_"BA(73)")),D)
	S GLOB="^"_Q_"BA(73)"
	I $D(@GLOB@("AR",BR)) S GLOB=$NA(@$ZR)
52	S WNR=$P(@GLOB,D),MAX=$P(@GLOB,D,3) 
	I '$L(WNR) S WNR=1E4 			; default 10000
	I '$L(MAX) S MAX=99999,$P(@GLOB,D,3)=MAX  	; default 99999
	I $L(MAX),WNR>MAX  S K=$P($T(@("T10"_QT)),U,2) D F1 G 35  ;Nummers zijn op
	S $P(@(GLOB),D)=WNR+1
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_D_D_$G(ACC)_D_$G(BANKNR)_D_$G(BANKNAAM)
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="EUR" D S2,S3,S4
	W /CUP(5,2),@F6,$P($T(@("T12"_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,WKC=KC,WI1=I1 ;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,I1=@("^"_Q_$E(KZ)_"1(WKC)") 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	; 04.04.05 - 14 u 29 * V8.03