Problemas de Subcategorias Virtue Mart

Hoy estaba registrando productos en mi catalogo de Virtue Mart, me di cuenta que:

• Mi categoría no tenia productos.
• Mis subcategorías tienen productos.

y cuando accedia a la categoría padre, no me salían ni las subcategorías ni los productos pero encontre la solución a este problemitas, se trata de un bug en la version 1.1.9 de virtue mart.

La solucion es la siguiente:

• Descarga en http://dev.virtuemart.net/projects/virtuemart/files el siguiente archivo VirtueMart_1.1.8-COMPLETE_PACKAGE.j15.zip, que es el Virtue Mart 1.1.8 luego descomprimir el archivo descargado, luego apareceran algunos archivos, descomprime el que posee este nombre "com_virtuemart_1.1.8.j15", dentro localiza un archivo denominado: admin_files ==> html ==> shop.browse.php y copialo.

• Vamos a nuestro directorio y buscamos /administrator/components/com_virtuemart/html/shop.browse.php

el archivo que copiamos lo pegamos aqui, nos saldra un mensaje que diga si deseamos reemplazar el archivo existente, seleccionamos que si.


Cabe recalcar que por seguridad debemos dejar una copia del sitio

Fuente Oficial: http://www.webempresa.com/blog/item/434-soluci%C3%B3n-al-bug-del-listado-de-categor%C3%ADas-de-virtuemart-119.html

Validaciones de Números, Letras y Enter

Para mis amigos que desean validaciones aqui les dejo puede que les sirva:
ESTO VA EN UN MODULO

• Para verificar que las cajas de texto no esten vacías.

Public Function Validación(ByVal nombre As Control) As Boolean
If nombre.Text = "" Then

MsgBox("Ingresar datos", MsgBoxStyle.Information, "aaaa")
nombre.Select()
Return False
Else
Return True
End If
End Function

• Para verificar que las solo se ingresen letras

Public Sub sololetras(ByVal e)
If Char.IsLetter(e.KeyChar) Then
e.Handled = False
ElseIf Char.IsControl(e.KeyChar) Then
e.Handled = False
ElseIf Char.IsSeparator(e.KeyChar) Then
e.Handled = False
Else
e.Handled = True
End If
End Sub

• Para que se centre el Formulario.

Public Sub CentrarControl(ByVal ctrl As Control)
If ctrl.Parent Is Nothing Then Return
With ctrl
.Top = (.Parent.ClientSize.Height - .Height) \ 2
.Left = (.Parent.ClientSize.Width - .Width) \ 2
End With
End Sub
Public Sub presiona_enter(ByVal e, ByVal boton)
If e.KeyCode = Keys.Enter Then boton.Select()
End Sub

• Para ingreso de solo numeros.

Public Sub solonumeros(ByVal e)
If InStr(1, "0123456789" & Chr(8), e.KeyChar) = 0 Then
e.KeyChar = ""
End If
End Sub


EN EL FORMULARIO

• valida la caja de texto en este caso denominada Tx_siglasTextBox

If Validación(Tx_siglasTextBox) = False Then Exit Sub

• En el evento Keypress

Private Sub Tx_siglasTextBox_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Tx_siglasTextBox.KeyPress
sololetras(e)
End Sub

• En el evento KeyUp para pasar la caja de texto siguiente

Private Sub Tx_siglasTextBox_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Tx_siglasTextBox.KeyUp
'donde esta codinternoTextBox es la caja de texto siguiente que va a tomar el foco.
presiona_enter(e, Tx_codinternoTextBox)
End Sub