cAFVBO02	; Algemene functies VB -output ;cAFVBO02
	;
T1	;Klant;Leverancier;Prospect;Contactpersoon;Vertegenwoordiger;
T2	;Betalingstermijn;Status;Prioriteit;Categorie;;Exploitatiecode;BTW-type;Categorie;Toepassing;Eenheid;
T3	;Kortingscode;Merk;Hoofdgroep;Groep;Subgroep;O-code;K-code;KOS-code;Seizoenscurve;Aanmeldingsplaats;
T4	;A-code;Magazijn;Goederencode;Verantwoording;Rapporteringscode;Analytische rapporteringscode;Prioriteit;Betalingstype;Kostencode;BIC;
T5	;EC1-code;EC2-code;EC3-code;Profiel;Exploitatierapport;
	;
T1F	;Client;Fournisseur;Prospect;Personne de contact;Représentant;
T2F	;Délai de paiement;Statut;Priorité;Catégorie;;Code d'exploitation;Type de TVA;Catégorie;Application;Unité;
T3F	;Code remise;Marque;Famille;Groupe;Sous-groupe;Code O;Code K;Code KOS;Courbe saison;Lieu d'annonce;
T4F	;Code A;Magasin;Code de marchandise;Justification;Code de rapportage;Code de rapportage analytique;Priorité;Type de paiement;Code des frais;BIC;
T5F	;Code EC1;Code EC2;Code EC3;Profil;Rapport d'exploitation;
	;
T1E	;Customer;Supplier;Prospect;Contact Person;Representative;
T2E	;Payment Terms;Status;Priority;Category;;Exploitation Code;VAT Type;Category;Application;Unit;
T3E	;Kortingscode;Brand;Main Group;Group;Sub-Group;O-Code;K-Code;KOS-Code;Seizoenscurve;Location Announcement;
T4E	;A-Code;Storage;Goodscode;Justification;Reporting Code;Analytical Reporting Code;Priority;Type of Payment;Cost Code;BIC;
T5E	;EC1-Code;EC2-Code;EC3-Code;Profile;Exploitation Report;
	;
YZ	Q
	;
	;
HDKC(TYPE,NR,NAAM,ADR,PC,WP)	; Hoofding Klant/Leverancier/Prospect/Contactpersoon
	; Hoofding: Nummer - Naam - Adres - Postcode - Woonplaats
	; Indien geen variabelen doorgegeven moet er een instantie opstaan
	; 
	; TYPE: 0 of "" = Klant
	;       1 = Leverancier
	;       2 = Prospect
	;       3 = Contactpersoon
	;       4 = Vertegenwoordiger
	S $ZT="^dmERROR"
	D QT^cAFVBO01 S D="\",U=";"
	N i F i="TYPE","NR","NAAM","ADR","PC","WP" S @i=$G(@i)
	I '$L(NR),'$L(NAAM),'$L(ADR),'$L(PC),'$L(WP)	S NR=..B101,NAAM=..B102,ADR=..B105,PC=..B106,WP=..B107
	F i="NR","NAAM","ADR","PC","WP" S @i=$TR(@i,";",",")  ; ";" uitfilteren
HDKCZ	Q "\\"_$P($T(@("T1"_QT)),";",2+TYPE)_"\ ;"_NR_" "_NAAM_" "_ADR_" "_PC_" "_WP_"; \"
	;
HDCODES(TYPE,SW,CODE,OMS)	; Hoofding voor codebestanden
	; Input: TYPE:
	; 	    0 = CODE.9024
	; 	    1 = CODE.9025
	; 	    2 = CODE.9026
	; 	    3 = CODE.9027
	; 	    
	; 	    5 = CODE.9029
	; 	    6 = CODE.9032
	; 	    7 = CODE.9033
	; 	    8 = CODE.9034
	; 	    9 = CODE.9037
	; 	    
	; 	   10 = CODE.9002
	; 	   11 = CODE.9003
	; 	   12 = CODE.9004
	; 	   13 = CODE.9005
	; 	   14 = CODE.9006
	; 	   15 = CODE.9014
	; 	   16 = CODE.9017
	; 	   17 = CODE.9018
	; 	   18 = CODE.9035
	; 	   19 = CODE.9038
	; 	   
	; 	   20 = CODE.9039
	; 	   21 = CODE.9040
	; 	   22 = INTR.GOE
	; 	   23 = CODE.9041
	; 	   24 = CODE.9043
	; 	   25 = CODE.9044
	; 	   26 = PRI
	; 	   27 = CODE.9045
	; 	   28 = CODE.9046
	; 	   29 = SWIFT
	; 	   
	; 	   30 = EC-code 1
	; 	   31 = EC-code 2
	; 	   32 = EC-code 3
	; 	   33 = PRO
	; 	   34 = CODE.9062 
	; 	 SW: Switch
	; 	      "" of 0: Via object
	; 	      1: Via parameters
	; 	 CODE: Code
	; 	 OMS: Omschrijving
	S $ZT="^dmERROR"
	D QT^cAFVBO01 S D="\",U=";"
	N i,HD,TIT,TLAB
	F i="TYPE","SW","CODE","OMS" S @i=$G(@i)
	;
	; Via parameters 
	I 'SW S CODE=..B101,OMS=$S(QT="":..B102,QT="F":..B112,QT="D":..B122,QT="E":..B132)
	F i="CODE","OMS" S @i=$TR(@i,";",",")  ; ";" uitfilteren
	; 
	S TLAB=2,PC=2+TYPE 
	I (TYPE>9),(TYPE<20) S TLAB=3,PC=TYPE-8
	I (TYPE>19),(TYPE<30) S TLAB=4,PC=TYPE-18
	I TYPE>29 S TLAB=5,PC=TYPE-28
	;
	S TIT=$P($T(@("T"_TLAB_QT)),";",PC)
	S HD="\\"_TIT_"\ ;"_CODE_" "_OMS
	;
HDCODESZ	Q HD
	;
ZZ	; 26.02.09 - 10 u 24 * V9.05