cT420	;UITKUISEN BOEKHOUDING ;%T42 ;go uit %T42 ; [ 03/31/99  2:49 PM ]
	G 1
	;
T0	;Verwijderen boekhouding ;
T1	;Aankoop;AA;AF;AAD;L2;L3;L9;AAB;
T2	;Leveranciers;LE#0#10\1999999.99;
T3	;Verkoop;VE;VF;K2;K3;K4;K9;VEB;
T4	;Klanten;KL#0#10\1999999.99;
T5	;Financieel;FI;FID;CNTRL;DBCTR;TST;FIE;FII
T6	;Grootboek;FIB;AR#0#10\2ZZZZZZZ999999z;ARP#0#10\2ZZZZZZZ999999Z;
T7	;Analytisch;ARA#0#10\2ZZZZZZZ999999Z;
T8	;Basisgegevens;BA#4\4#0;BA#95.99\96.01;BA#%T\%T# \Z#0\9999;
T9	;Explo-data;BL#0#10\9999;
T10	;Winkelverkopen;PV#0;BA#20\20#D\D999999;BA#20\20#E\E999999;BA#20\20#F\F999999;
T11	;Utili-data;
T12	;Facturatie;
T13	;De boekhouding werd verwijderd ;
	;
T0F	;Radiation comptabilité ;
T1F	;Achat;AA;AF;AAD;L2;L3;L9;AAB;
T2F	;Fournisseurs;LE#0#10\1999999.99;
T3F	;Vente;VE;VF;K2;K3;K4;K9;VEB;
T4F	;Clients;KL#0#10\1999999.99;
T5F	;Financier;FI;FID;CNTRL;DBCTR;TST;FIE;FII
T6F	;Grand-livre;FIB;AR#0#10\2ZZZZZZZ999999Z;ARP#0#10\2ZZZZZZZ999999Z;
T7F	;Analytique;ARA#0#10\2ZZZZZZZ999999Z;
T8F	;Données de base;BA#4\4#0;BA#95.99\96.01;BA#%T\%T# \Z#0\9999;
T9F	;Explo-data;BL#0#10\9999;
T10F	;Ventes comptoir;PV#0;BA#20\20#D\D999999;BA#20\20#E\E999999;BA#20\20#F\F999999;
T11F	;Utili-data;
T12F	;Facturation;
T13F	;La comptabilite a ete radiee ;
	;
T0E	;Verwijderen boekhouding ;
T1E	;Aankoop;AA;AF;AAD;L2;L3;L9;AAB;
T2E	;Leveranciers;LE#0#10\1999999.99;
T3E	;Verkoop;VE;VF;K2;K3;K4;K9;VEB;
T4E	;Klanten;KL#0#10\1999999.99;
T5E	;Financieel;FI;FID;CNTRL;DBCTR;TST;FIE;FII
T6E	;Grootboek;FIB;AR#0#10\2ZZZZZZZ999999z;ARP#0#10\2ZZZZZZZ999999Z;
T7E	;Analytisch;ARA#0#10\2ZZZZZZZ999999Z;
T8E	;Basisgegevens;BA#4\4#0;BA#95.99\96.01;BA#%T\%T# \Z#0\9999;
T9E	;Explo-data;BL#0#10\9999;
T10E	;Winkelverkopen;PV#0;BA#20\20#D\D999999;BA#20\20#E\E999999;BA#20\20#F\F999999;
T11E	;Utili-data;
T12E	;Facturatie;
T13E	;De boekhouding werd verwijderd ;
	;
S1	S FP=2303 W @F,@F1,$P(S1,U,2) S S1=$P(S1,U,3,999)
S1A	S S2=$P(S1,U),S1=$P(S1,U,2,999) I '$L(S2) G S1A:$L(S1),S1Z
S1B	S S3=$P(S2,"#",2),S5=$P(S2,"#",3),S7=$P(S2,"#",4),S2=$P(S2,"#")
S1C	S S4=$P(S3,D,2),S3=$P(S3,D),S6=$P(S5,D,2),S5=$P(S5,D),S8=$P(S7,D,2),S7=$P(S7,D)
S1D	S SA=S3 I $L(S3),$L(S4),S3=S4 G S1G
S1E	S SA=$O(@("^"_Q_S2_"(SA)")) I SA=""!(+S4=S4&(+SA=SA&(SA>S4)!(+SA'=SA))!(+S4'=S4&(+SA'=SA&(SA]S4)))&$L(S4)) G S1A
S1F	I '$L(S5),'$L(S6),'$L(S7),'$L(S8) K ^(SA) G S1E
S1G	S SB=S5 I $L(S5),$L(S6),S5=S6 G S1J
S1H	S SB=$O(@("^"_Q_S2_"(SA,SB)")) I SB=""!(+S6=S6&(+SB=SB&(SB>S6)!(+SB'=SB))!(+S6'=S6&(+SB'=SB&(SB]S6)))&$L(S6)) G S1E
S1I	I '$L(S7),'$L(S8) K ^(SB) G S1H
S1J	S SC=S7 I $L(S7),$L(S8),S7=S8 G S1M
S1K	S SC=$O(@("^"_Q_S2_"(SA,SB,SC)")) I SC=""!(+S8=S8&(+SC=SC&(SC>S8)!(+SC'=SC))!(+S8'=S8&(+SC'=SC&(SC]S8)))&$L(S8)) G S1H
S1L	K ^(SC) G S1K
S1M	G S1H
S1Z	K S1,S2,S3,S4,S5,S6,S7,S8,SA,SB,SC Q
	;
S2	F S1=8:1:12 S $P(J,D,S1)=""
S2A	S ^(0)=J K @("^"_Q_"LIH($P(J,D))")
S2Z	K S1 Q
	;
1	F I=1:1:10 S S1=$T(@("T"_I_QT)) D S1
11	I $D(@("^"_Q_"BA(20)"))#10 S J=^(20),$P(J,D,2)="",$P(J,D,3)="",$P(J,D,5)="",$P(J,D,20)="",^(20)=J,^(20,0)=""
13	S S1=$P($T(@("T8"_QT)),U,1,2) D S1
15	F I=BJ-2:1:BJ+1 K @("^"_Q_"BA(I)") F J=1:1:12 K ^($E(J/100+I_0,1,7))
	;
2	S I=0,S1=$T(@("T11"_QT)) D S1
21	S I=$O(@("^"_Q_"LIS(I)")) G 3:I="",21:'$D(^(I,0))
23	S J=^(0) D S2:";AR;KL;LE;"[(U_$P(J,D,3)_U) G 21
	;
3	S US="",S1=$T(@("T12"_QT)) D S1
31	S US=$O(@("^"_Q_"FA(US)")),FNR=""
	I US="" D  G 4
	. K @("^"_Q_"FDPD")
	. N UQC,USC,JOB
	. D DMS^cAN000("UQC","USC","FA.H",1)
	. I $L(UQC),$L(USC) S JOB=1 D S1^cFNU2
32	S FNR=$O(@("^"_Q_"FA(US,FNR)")),I="U" G 31:FNR=""
33	S I=$O(@("^"_Q_"FA(US,FNR,I)")) I $E(I)'="U" K @("^"_Q_"FA(US,FNR)"),@("^"_Q_"FB(US,FNR)") G 32
34	S UR=+$E(I,2,999) G 33:'($D(@("^"_Q_"U1(US,UR)"))#10) S KC=$P(^(UR),D),$P(^(UR),D,2)="" K ^(UR,FNR)
35	S:'KC KC=US I '$D(@("^"_Q_"UL(KC,US,UR)")) K @("^"_Q_"U1(US,UR)")
36	G 33
	;
4	; Verwijderen ^DBH (extra cumuls)
	N UI1,DMS,UQC,USC,IREF,IREF2,UREF
	S $ZT="TRAP^cAN000"
	S UI1="" F DMS="BS.AR.ARA","CUM.AR.ARA" D
	. D DMS^cAN000("UQC","USC",DMS,1) I UQC=""!(USC="") Q
	. S UREF=^DMC(UQC,USC,"DATA","REF"),IREF=^("INDEX"),IREF2=$G(^("INDEX2"))
	. K @IREF I $L(IREF2) K @IREF2     	; opkuis indexen
	. K @($P(UREF,",UI1")_")")		; opkuis data
	;
5	S I=""
51	S I=$O(^HULPE(I)) I I="" G Y
	S K=$G(^(I,0)),J=$P(K,D,3)
	I $P(K,D,2)=Q,J="V" K ^HULPE(I)
	I $P(K,D,2)=Q,J="A" K ^HULPE(I)
	I $P(K,D,2)=Q,J="F" K ^HULPE(I)
	G 51
	;
Y	S FP=2301 W @F,@F1 S K=$P($T(@("T13"_QT)),U,2) D F1 
	;
YZ	Q
	;
F1	S R=250
F2	D TXT^cAFA1(R)
FZ	K R Q
	;
Z	X ^cZ Q
ZZ	; 04.11.04 - 10 u 11 * V8.02