diff --git a/Ventas/ProductosServicios.aspx.vb b/Ventas/ProductosServicios.aspx.vb
index 204742102..fa0a64b08 100644
--- a/Ventas/ProductosServicios.aspx.vb
+++ b/Ventas/ProductosServicios.aspx.vb
@@ -324,7 +324,7 @@ Partial Class ProductosyServicios
 
                 ChkAplicaParaVenta.Checked = True
 
-                Dim DrSAT = GlobalDTPS(UsuarioActual.CveEmpresa, SATClavePS:="84111506", AplicaParaVenta:=1).FiltroPrimero("") ', SATClavePS:=CveSATNC
+                Dim DrSAT As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, SATClavePS:="84111506", AplicaParaVenta:=1).FiltroPrimero("") ', SATClavePS:=CveSATNC
 
                 DdlSATPS.SelectedValue = DrSAT("CveSATPS").ToString()
                 DdlSATPS.SelectedText = DrSAT("SATClaveProductoServicio").ToString()
@@ -984,7 +984,7 @@ Partial Class ProductosyServicios
 
                     DdlTamanio.SelectedValueExist(ObjProductosServicios.DtResultados.Rows(0)("CveTamaño").ToString)
                     If DdlTamanio.SelectedValue.ToEntero() > 0 Then
-                        Dim Dr = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveClasificacion={0}", DdlClasificacion.SelectedValue.ToEntero()))(0)
+                        Dim Dr As DataRow = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveClasificacion={0}", DdlClasificacion.SelectedValue.ToEntero()))(0)
 
                         Dim DebeTenerTamanio As Boolean = Boolean.Parse(Dr("EsAcumulador").ToString)
 
@@ -1393,7 +1393,7 @@ Partial Class ProductosyServicios
 
         'VALIDAR TAMAÑOS Y ACUMULADORES
         If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
-            Dim Dr = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveClasificacion={0}", DdlClasificacion.SelectedValue.ToEntero()))(0)
+            Dim Dr As DataRow = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveClasificacion={0}", DdlClasificacion.SelectedValue.ToEntero()))(0)
 
             Dim DebeTenerTamanio As Boolean = Boolean.Parse(Dr("EsAcumulador").ToString)
 
@@ -1418,8 +1418,8 @@ Partial Class ProductosyServicios
         Dim ObjInv As New ClsInventarios(ObjProductosServicios.IniciaTransacSQL())
         Dim ObjEmpresas As New ClsSisEmpresas(ObjProductosServicios.IniciaTransacSQL())
 
-        Dim TieneError = False
-        Dim AccionJS = ""
+        Dim TieneError As Boolean = False
+        Dim AccionJS As String = ""
 
         Try
 
@@ -1643,7 +1643,7 @@ Partial Class ProductosyServicios
     End Sub
     Protected Sub LbAgregar_Click(sender As Object, e As System.EventArgs) Handles LbAgregar.Click
         Dim ObjAliasAdd As New ClsProductosServicios
-        Dim TieneError = False
+        Dim TieneError As Boolean = False
 
         If ObjAliasAdd.AddPSAlias(TxtAlias.Text.ToString, CvePS, False, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
             CargarAlias()
@@ -2425,8 +2425,6 @@ Partial Class ProductosyServicios
 
 #End Region
 
-
-
 #Region "  ECOMMERCE  "
     Private Sub InicializaEcommerce()
         AplicaEcommerce = False
@@ -3165,6 +3163,7 @@ Partial Class ProductosyServicios
             End If
 
             GlobalDTPSSimplificado(CveEmpresaFranquicia) = Nothing
+            GlobalDTProductosServiciosEquivalencias(-1, -1, CveEmpresaFranquicia) = Nothing
         Next
 
         Return False