== Descripción ==
Muestra/Esconde los componentes de un subformulario. Los parámetros son: 
*pMainForm: Formulario Padre.
*pNSubForm: Formulario PPD.
*pEstado: configura el estado deseado
pEtiquetas (''Opcional''): En el caso de estar seleccionado incluye los controles de etiquetas también (por defecto, definidos por el prefijo "lbl"
== Biblioteca ==
[[LIBR:SpanexB]]
== Composición ==
== Código ==
<small><pre>
sub MuestraSubForm (pMainForm As Object,pNSubForm As String,pEstado as Boolean,Optional pEtiquetas as Boolean)
Dim oSubForm	As object
	oSubForm 	= pMainForm.getByName(pNSubForm)
   'oEtiquetas	= Incluye Etiquetas
	If Not IsMissing (pEtiquetas) Then
		oEtiquetas	= pEtiquetas
	else
		oEtiquetas	= True
	end if
	For i = 0 To Ubound(oSubForm.ElementNames())
		select case True		
			case oEtiquetas
				oSubForm.getByName(oSubForm.ElementNames(i)).EnableVisible 	= pEstado
			case left(oSubForm.ElementNames(i),3) <> "lbl"
				oSubForm.getByName(oSubForm.ElementNames(i)).EnableVisible 	= pEstado
		end select
	Next i
end sub
</pre></small>
== Bitácora ==
*20121026
**Alta de rutina
== Uso ==
[[FORM:Presupuestos]]