cABVBP10	;Functies End Definition-properties ; cABVBP10	
	;
T1	;Ext.naam;Kolomtitel;Label;Prompt DMA;
T2	;Sleutel bij de talen is niet ingevuld, opslaan onmogelijk.;
T3	;Fout bij openen taal ;Fout bij wijzigen taal ;Fout bij verwijderen taal ;
T4	;Persistent;
T5	;Logging enkel beschikbaar voor tabpagina Def. per taal;
T6	;Klasse;Groep;Interne naam;Property
T7	;Kopie van een afwijking is niet toegestaan;
T8	;Taal;
T9	;Combinatie Interne naam/Afwijking is niet uniek binnen deze klasse.
T10	;Er zijn reeds definities opgezet voor deze propertie.
T11	;Mogen deze overschreven worden door die van de data dictionary?;Overschrijven;Behouden;
T12	;Methode ";" niet kunnen aanmaken;
	;
T1E	;Ext.naam;Kolomtitel;Label;Prompt DMA;
T2E	;Key in languages is empty, save impossible.;
T3E	;Error creating language ;Error changing language ;Error deleting language ;
T4E	;Persistent;
T5E	;Logging only available for tabpage Lang.def.;
T6E	;Class;Group;Internal name;Property
T7E	;Copy of a deviation is not allowed;
T8E	;Language;
T9E	;Combination Internal name/Deviation is not unique in this class .
T10E	;There are already set up definitions for this property.
T11E	;May these be overwritten by those from the data dictionary?;Overwrite;Keep;
T12E	;Failed to create method ";";
	;
YZ	Q
	;
	;DPProp-DefPerTaalGrid mtemp opbouwen
BTEMP(GRIDID,DPPID)	
	; GRIDID: volgnr van de grid : indien '' : volgnummer ophalen
	; DPPID : DPProperty id
	S $ZT="ERR^cAFVBF01"
	N @$$INITVAR^cAFVBA01("GRIDID,DPPID")	
	;
	F i="GRIDID","DCPID","COPY","DPPID" S @i=$G(@i)
	I '$L(GRIDID) S GRIDID=$$GRIDID^cAFVBF01()
	K ^mtemp99(GRIDID,"COMMON") S OK=GRIDID
	;
	S DMS="DP.PROP.TAAL"
	D DMS^cAN000("UQC","USC",DMS,1) I '$L(UQC)!'$L(USC) G BTEMPZ
	;
	S UREF=^DMC(UQC,USC,"DATA","REF")
	S TKI1=""
	F  S TKI1=$O(^DTEXT(0,"TEXT.9000",TKI1)) Q:TKI1=""  D     ; aflopen taalcodes
	. S TKB=^(TKI1,0)
	. I $P(TKB,D,30) Q  ; BG of verwijderd
	. S TK=TKI1 ;$P(TKB,D)
	. S UI1=DPPID_" "_TK
	. S B(1)=$G(@UREF@(0)),B(2)=$G(^(1))
	. ; SRT = 1 : Property
	. ; SRT = 2 : Grid
	. ; SRT = 3 : Form
	. ; SRT = 4 : DMA
	. S VOLG="4213" ; Volgorde van de lijnen in de grid 
	. F SRT=1:1:4 D
	.. S B=$S($L(B(1)):UI1,1:"")_D_TK_D_SRT    ; key (ingevuld als rec. bestaat)_D_taalcode_D_srt
	.. S $P(B,D,4)=$P($T(@("T1"_QT)),U,1+SRT)  ; omschrijving soort
	.. S $P(B,D,5)=$P(B(2),D,SRT-1*10+1)       ; Naam, Titel, Label, Prompt
	.. S $P(B,D,6)=$P(B(2),D,SRT-1*10+2)       ; Commentaar, Tooltip
	.. I SRT=1 S $P(B,D,7)=$P(B(2),D,3)        ; Property : SLQ-kolom
	.. I SRT=2 S $P(B,D,7)=$P(B(2),D,13)       ; Grid : titel indien foreing key
	.. S UI1T=$P(B,D) I '$L(UI1T) S UI1T=" "_TK
	.. S ^mtemp99(GRIDID,"COMMON",UI1T_" "_$E(VOLG,SRT,SRT),0)=B
BTEMPZ	Q OK
	;
HDRDPP(CLASSID,AFWIJK,VOLGNR,INTNAAM,NOCLASS)	; header End definition-property
	N HCLASSID,HAFWIJK,HVOLGNR,HINTNAAM,CGROEP,CINTNAAM
	S $ZT="^dmERROR"
	S U=";"
	D QT^cAFVBO01
	I '$L(CLASSID),('$L(AFWIJK)),('$L(VOLGNR)),('$L(INTNAAM)) S HCLASSID=..B101.DPId,HAFWIJK=..B132,HVOLGNR=..B102,HINTNAAM=..B103 G HDRDPPA
	S HCLASSID=CLASSID,HAFWIJK=AFWIJK,HVOLGNR=VOLGNR,HINTNAAM=INTNAAM
HDRDPPA	S CGROEP=$P(^DDP(0,"KLASSE",HCLASSID,0),"\",3)
	S CINTNAAM=$P(^DDP(0,"KLASSE",HCLASSID,0),"\")
	S OUT="\\"
	I 'NOCLASS S OUT=OUT_"\"_$P($T(@("T6"_QT)),U,2)_";"_HCLASSID_" "_CGROEP_" "_CINTNAAM_"; \\\"
	S OUT=OUT_"\"_$P($T(@("T6"_QT)),U,5)_";"_$S($L(HAFWIJK):HAFWIJK_" ",1:"")_HVOLGNR_" "_HINTNAAM_"; \\\"
HDRDPPZ	Q OUT
	;	
HDRDPPL()	; header End definition-Property-DefPerTaal-logging
	N OUT
	S $ZT="^dmERROR"
	S OUT=$$HDRDPP(..B101.B101.DCId,..B101.B132,..B101.B102,..B101.B103,"0")
	S OUT=OUT_"\"_$P($T(@("T8"_QT)),";",2)_";"
	X "S R=..B102."_$P("OmschrijvingNederlands#OmschrijvingFrans#OmschrijvingEngels#OmschrijvingDuits","#",QTU)
	S OUT=OUT_R_";"
HDRDPPLZ	Q OUT
	;	
ZZ	; 29.08.07 - 10 u 22 * V8.09