cT66E7	;Overschrijvingen ;%T66 ;Go uit %T66E4 ;    [ 01/02/10  17:13:58 ]
	G 1
	;
T0	;Overschrijvingen ;
	;
T0F	;Virements ;
	;
T0E	;Overschrijvingen ;
	;
	; nieuwe record type 1 ---------v
S1	K RT,RN,RL S T1=T1+1
S1A	S RT=1,RN(RT)=1,RL(RT)=1,RT(RT)=1
S1B	S RT=RT+1,RN(RT)=1,RL(RT)=4,RT(RT)=VV
S1Z	Q
	;
	; beginrecord
1	K RT,RN,RL,RO S RS=$C(13,10),VL=1,VS=""
101	S RT=1,RN(RT)=1,RL(RT)=1,RT(RT)=0
102	S RT=RT+1,RN(RT)=1,RL(RT)=6,RT(RT)=$TR(DT,".","")
103	S RT=RT+1,RN(RT)=0,RL(RT)=12,RT(RT)=""
104	S RT=RT+1,RN(RT)=1,RL(RT)=3,RT(RT)=PRO            ; protocolnummer
105	S RT=RT+1,RN(RT)=1,RL(RT)=2,RT(RT)=51             ; toepassingscode
106	S RT=RT+1,RN(RT)=0,RL(RT)=10,RT(RT)=INS
107	S RT=RT+1,RN(RT)=1,RL(RT)=11,RT(RT)=BTW
108	S RT=RT+1,RN(RT)=1,RL(RT)=11,RT(RT)=BTW
109	S RT=RT+1,RN(RT)=0,RL(RT)=1,RT(RT)=""             ; geen duplicaat
110	S RT=RT+1,RN(RT)=1,RL(RT)=1,RT(RT)=3              ; versiecode
111	S RT=RT+1,RN(RT)=0,RL(RT)=12,RT(RT)=""
112	S RT=RT+1,RN(RT)=1,RL(RT)=1,RT(RT)=0              ; geen globalisatie
113	S RT=RT+1,RN(RT)=0,RL(RT)=57,RT(RT)=""
19	D ^cA700
	;
	; gegevens van ^HULP naar bestand
2	S (VV,T1,TB)=0,(I1,VM,J1)=""
21	S I1=$O(^HULP(boot,$J,I1)) I I1="" G 9
22	S B(3)=$$SIGN^cAFA1("LE",I1,2),SWIFT=$$SIGN^cAFA1("SWIFT",$P(B(3),D,5),0)
23	S VM=$O(^HULP(boot,$J,I1,VM)) I VM="" G 21
25	S J1=$O(^HULP(boot,$J,I1,VM,J1)) I J1="" G 23
27	S VV=VV+1,B=^(J1) I $P(B,D,6)="" S $P(B,D,6)=$P(@("^"_Q_"BA(39)"),D,3)
	;
	; record 1.01 ---------------------v
3	D S1
310103	S RT=RT+1,RN(RT)=1,RL(RT)=2,RT(RT)=1
310104	S RT=RT+1,RN(RT)=1,RL(RT)=6,RT(RT)=$TR(DAT,".","")
310105	S RT=RT+1,RN(RT)=0,RL(RT)=16,RT(RT)=""
310106	S RT=RT+1,RN(RT)=0,RL(RT)=4,RT(RT)=VM             ; ISO-muntcode
310107	S RT=RT+1,RN(RT)=0,RL(RT)=1,RT(RT)="C"            ; bedrag in code VM
310108	S RT=RT+1,RN(RT)=1,RL(RT)=15,RT(RT)=$J($P(B,D,11),0,2)*100,TB=TB+RT(RT)
310109	S RT=RT+1,RN(RT)=0,RL(RT)=10,RT(RT)=" "_HBF
	; S RT=RT+1,RN(RT)=0,RL(RT)=10,RT(RT)=HBF_$S(HBF="BEF":0,1:9)_"BE"
310110	S RT=RT+1,RN(RT)=1,RL(RT)=12,RT(RT)=BNR
310111	S RT=RT+1,RN(RT)=0,RL(RT)=57,RT(RT)=""
31019	D ^cA700
	; record 1.02 ---------------------v
3102	D S1
310203	S RT=RT+1,RN(RT)=1,RL(RT)=2,RT(RT)=2
310204	S RT=RT+1,RN(RT)=0,RL(RT)=35,RT(RT)=NM1           ; opdrachtgever
310205	S RT=RT+1,RN(RT)=0,RL(RT)=35,RT(RT)=NM2
310206	S RT=RT+1,RN(RT)=0,RL(RT)=35,RT(RT)=NM3
310207	S RT=RT+1,RN(RT)=0,RL(RT)=16,RT(RT)=""
31029	D ^cA700
	; record 1.04 ---------------------v              ; 1.03 niet!
3104	D S1
310403	S RT=RT+1,RN(RT)=1,RL(RT)=2,RT(RT)=4
310404	S RT=RT+1,RN(RT)=0,RL(RT)=80,RT(RT)=""            ; vervolg 1.03
310405	S RT=RT+1,RN(RT)=0,RL(RT)=35,RT(RT)=$P(SWIFT,D)   ; swift
310406	S RT=RT+1,RN(RT)=0,RL(RT)=6,RT(RT)=""
31049	D ^cA700
	; record 1.05 ---------------------v
3105	D S1
310503	S RT=RT+1,RN(RT)=1,RL(RT)=2,RT(RT)=5
310504	S RT=RT+1,RN(RT)=0,RL(RT)=35,RT(RT)=$P(SWIFT,D,2) ; naam
310505	S RT=RT+1,RN(RT)=0,RL(RT)=35,RT(RT)=$P(SWIFT,D,3) ; adres
310506	S RT=RT+1,RN(RT)=0,RL(RT)=35,RT(RT)=$P(SWIFT,D,4) ; stad
310507	S RT=RT+1,RN(RT)=0,RL(RT)=16,RT(RT)=""
31059	D ^cA700
	; record 1.06 ---------------------v
3106	D S1
310603	S RT=RT+1,RN(RT)=1,RL(RT)=2,RT(RT)=6
310604	S RT=RT+1,RN(RT)=0,RL(RT)=34,RT(RT)=$P(B,D,8)     ; rekening
	I '$$IBAN^cAFI2($P(B,D,8)),$E($P(B,D,8),1,3)?2U1"-" S RT(RT)=$E($P(B,D,8),4,999)
310605	S RT=RT+1,RN(RT)=0,RL(RT)=35,RT(RT)=$P(B,D,2)     ; aanspr. + naam
310606	S RT=RT+1,RN(RT)=0,RL(RT)=35,RT(RT)=$P(B,D,3)     ; adres
310607	S RT=RT+1,RN(RT)=0,RL(RT)=17,RT(RT)=""
31069	D ^cA700
	; record 1.07 ---------------------v
3107	D S1
310703	S RT=RT+1,RN(RT)=1,RL(RT)=2,RT(RT)=7
310704	S RT=RT+1,RN(RT)=0,RL(RT)=35,RT(RT)=$TR($P(B,D,4,5),D," ")  ; post+wpl.
310705	S RT=RT+1,RN(RT)=0,RL(RT)=35,RT(RT)=$$LAND^cAFO1($P(B,D,6)) ; land
310706	S RT=RT+1,RN(RT)=0,RL(RT)=10,RT(RT)=""            ; commentaar
310707	S RT=RT+1,RN(RT)=0,RL(RT)=35,RT(RT)=$P(B,D,13) I RT(RT)="" S RT(RT)="("_$P(B,D,14)_")"
310708	S RT=RT+1,RN(RT)=0,RL(RT)=6,RT(RT)=""
31079	D ^cA700 I $L($P(B,D,13))<36 G 3110
	; record 1.08 ---------------------v
3108	D S1
310803	S RT=RT+1,RN(RT)=1,RL(RT)=2,RT(RT)=8
310804	S RT=RT+1,RN(RT)=0,RL(RT)=105,RT(RT)=$E($P(B,D,13),36,999)  ; verv.com.
310805	S RT=RT+1,RN(RT)=0,RL(RT)=16,RT(RT)=""
31089	D ^cA700
	; record 1.10 ---------------------v              ; 1.09 niet!
3110	D S1
311003	S RT=RT+1,RN(RT)=1,RL(RT)=2,RT(RT)=10
311004	S RT=RT+1,RN(RT)=0,RL(RT)=35,RT(RT)=""            ; vervolg 1.09
311005	S RT=RT+1,RN(RT)=0,RL(RT)=3,RT(RT)=""             ; "" = swift
311006	S RT=RT+1,RN(RT)=0,RL(RT)=3,RT(RT)=$$SIG^cAFA1("CODE.9046",$P(B(3),D,3),101) I $L($P($G(^(0)),D,3)) S RT(RT)=$P(^(0),D,3)  ; GM - 01.02.10 - "Oude" kostencode zit op B-103
311007	S RT=RT+1,RN(RT)=0,RL(RT)=10,RT(RT)=""
311008	S RT=RT+1,RN(RT)=1,RL(RT)=12,RT(RT)=0
311009	S RT=RT+1,RN(RT)=0,RL(RT)=1,RT(RT)=""
311010	S RT=RT+1,RN(RT)=0,RL(RT)=2,RT(RT)=$E($P(B,D,8),1,2) I RT(RT)'?2U S RT(RT)="BE"
311011	S RT=RT+1,RN(RT)=0,RL(RT)=55,RT(RT)=""
31109	D ^cA700
	; record 1.11 ---------------------v
3111	D S1
311103	S RT=RT+1,RN(RT)=1,RL(RT)=2,RT(RT)=11
311104	S RT=RT+1,RN(RT)=1,RL(RT)=3,RT(RT)=$P(B(3),D,4)   ; BLWI
311105	S RT=RT+1,RN(RT)=1,RL(RT)=15,RT(RT)=$J($P(B,D,11),0,2)*100
311106	S RT=RT+1,RN(RT)=0,RL(RT)=6,RT(RT)=""
311107	S RT=RT+1,RN(RT)=0,RL(RT)=49,RT(RT)=""
311108	S RT=RT+1,RN(RT)=0,RL(RT)=10,RT(RT)=""
311109	S RT=RT+1,RN(RT)=0,RL(RT)=38,RT(RT)=""
31119	D ^cA700
39	G 25
	;
	; eindrecord
9	S RT=1,RN(RT)=1,RL(RT)=1,RT(RT)=9
901	S RT=RT+1,RN(RT)=1,RL(RT)=6,RT(RT)=T1   ; aantal records type 1
902	S RT=RT+1,RN(RT)=1,RL(RT)=6,RT(RT)=VV   ; aantal records type 1.01
903	S RT=RT+1,RN(RT)=1,RL(RT)=15,RT(RT)=TB  ; totaal bedrag
904	S RT=RT+1,RN(RT)=0,RL(RT)=100,RT(RT)=""
99	D ^cA700
	; KO - 29.10.07 - Wegwerken ^_Q_BA("%T",4
991	; S K=$G(@("^"_Q_"BA(""%T"",4,BR)"),"A:"_AFK_".TXT")
	S K=$$BEST^cT67(BR,"A:",AFK_".TXT")
992	S $P(^HULP("TR",Q,TNR,0),D,6)=$TR(K,D,U)
	;
YZ	G ^cT66E8
	;
ZZ	; 02.02.10 - 14 u 30 * V9.06