Este UCS tem o objetivo de permitir alterar o nome dos componentes das frentes, de forma a ser mais fácil identificar o componente, principalmente para quem está na produção: 

UTILITÁRIO - NOMES DAS FRENTES

;Altera nomes de painéis
For Each S_DSLAB Part
Public AdicionaLabel = 1 ; Adiciona Etiqueta (1=SIM 0=NAO)
Etiqueta = :_LABEL
If :Name == 'DOR' Then ;Portas
	If :Hng == 1 Then
		If AdicionaLabel Then
			Name = 'Porta Esquerda ({Etiqueta})' 
			Else
			Name = 'Porta Esquerda'
		End If	
	End If
	If :Hng == 2 Then
		If AdicionaLabel Then
			Name = 'Porta Direita ({Etiqueta})'
			Else
			Name = 'Porta Direita'
		End If
	End If
	If :Hng == 3 or :Hng == 4 Then
		If AdicionaLabel Then
			Name = 'Porta Basculante ({Etiqueta})'
			Else
			Name = 'Porta Basculante'
		End If
	End If
End If
If :Name == 'DWR' Then ;Frentes de Gaveta
	If AdicionaLabel Then
		Name = 'Frente de Gaveta ({Etiqueta})' 
		Else
		Name = 'Frente de Gaveta'
	End If
End If
If :Name == 'DWR' Then ;Frentes Falsas
	If ::.BBT.Pid == 0 Then
		If AdicionaLabel Then
			Name = 'Frente Falsa ({Etiqueta})'
			Else
			Name = 'Frente Falsa'
		End If
	End If
End If
If :Name == 'DOR' and Etiqueta == 0 Then ;Laterais 
	If ::AY == -90 Then
		Name = 'Lateral Esquerda'
	End If
	If ::AY == 90 Then
		Name = 'Lateral Direita'
	End If
End If