[[Category:MACRO]]
== Descripción ==
== Biblioteca ==
[[LIBR:Spanex.B]]
== Composición ==
== Código ==
< small>< pre>
Sub ResetFiltroProductoFORMPresupuesto()

oFormProductos		= ThisComponent.DrawPage.Forms(0).getByName("Productos")
oFormProductosGrid	= oFormProductos.getByName("ProductosGrid")
oProductoDSCModel	= oFormProductosGrid.getByName("txtVidQuoteProdDSC")

Dim oString(0) as String

oTexto	= oTexto & "SELECT "
oTexto	= oTexto & "' >> Seleccione Filtro << ' AS `Descripcion`, "
oTexto	= oTexto & "'00000000' AS `ProductoID` "
oTexto	= oTexto & "UNION "
oTexto	= oTexto & "SELECT "
oTexto	= oTexto & "`Descripcion`, `ProductoID` "
oTexto	= oTexto & "FROM `fzggestion`.`productos` AS `productos` "
oTexto	= oTexto & "ORDER BY `Descripcion` ASC "

oString(0)	= oTexto
oProductoDSCModel.setPropertyValue("ListSource",oString)
oProductoDSCModel.setPropertyValue("Label","Descripcion")
oProductoDSCModel.refresh()

oFormProductosGrid.getByName("fmtVidQuoteAncho").setPropertyValue("Enabled",True)
oFormProductosGrid.getByName("fmtVidQuoteAlto").setPropertyValue("Enabled",True)

end Sub
< /pre>< /small>
== Bitácora ==
== Uso ==