diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 03e713ea6..63b5902ff 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -1301,12 +1301,13 @@ Partial Class Compras_Compras
 
             'VALIDACION DE XML
             NuevaValidacionXML = IfNull(Request("NuevaValidacionXML"), 0).ToString.ToEntero
-
             ListaDocumentos = New List(Of String)
 
             TotalGeneral = 0
             CompraSaldo = 0
             ViewState("CvePersonal") = -1
+            ViewState("RetIVA") = "-1"
+            ViewState("RetISR") = "-1"
             'If UsuarioActual.TienePermisoProceso(259) Then
             DivEsNoDeducible.Visible = True
             'End If
@@ -17654,23 +17655,25 @@ Partial Class Compras_Compras
 
     End Sub
     Protected Sub DdlClasificacion_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlClasificacion.SelectedIndexChanged
-        DdlClasificacionChange()
+        DdlClasificacionChange(True)
     End Sub
-    Private Sub DdlClasificacionChange()
+    Private Sub DdlClasificacionChange(Optional RecargaDatosPS As Boolean = False)
 
         CargaPS(DdlClasificacion.SelectedValue.ToEntero)
 
-        'si solo tiene un solo producto la clasificación que lo asigne
-        Dim dtps As DataTable = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, DdlClasificacion.SelectedValue.ToEntero)
-        If dtps.Rows.Count = 1 Then
-            If UsuarioActual.Empresa.Funcionalidad(105) = "1" Then
-                DdlPS.SelectedValue = dtps.Rows(0)("CvePS").ToString
-                DdlPS.SelectedText = dtps.Rows(0)("PSCodigo").ToString
-                DdlPSChange()
-            Else
-                DdlPS.SelectedValue = dtps.Rows(0)("CvePS").ToString
-            End If
+        If RecargaDatosPS Then
+            'si solo tiene un solo producto la clasificación que lo asigne
+            Dim dtps As DataTable = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, DdlClasificacion.SelectedValue.ToEntero)
+            If dtps.Rows.Count = 1 Then
+                If UsuarioActual.Empresa.Funcionalidad(105) = "1" Then
+                    DdlPS.SelectedValue = dtps.Rows(0)("CvePS").ToString
+                    DdlPS.SelectedText = dtps.Rows(0)("PSCodigo").ToString
+                    DdlPSChange()
+                Else
+                    DdlPS.SelectedValue = dtps.Rows(0)("CvePS").ToString
+                End If
 
+            End If
         End If
 
         UPPClasificacion.Update()
@@ -17751,16 +17754,15 @@ Partial Class Compras_Compras
     Private Sub DdlPSChange()
         If CveProveedor > 0 Then
             If DdlPS.SelectedValue.ToEntero > 0 Then
-                Dim PS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=DdlPS.SelectedValue.ToEntero).FiltroPrimero("")
+                Dim PS As DataRow = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CvePS:=DdlPS.SelectedValue.ToEntero).FiltroPrimero("")
 
                 If PS IsNot Nothing Then
                     HdnClasificacion.Value = PS("Clasificacion").ToString
-                    HdnUnidadMedida.Value = PS("CveUM").ToString
+                    HdnUnidadMedida.Value = PS("CveUnidadMedida").ToString
                     HdnTipoPS.Value = PS("CveTipoPS").ToString
-                    HdnPS.Value = PS("PS").ToString
+                    HdnPS.Value = PS("PSCodigo").ToString
                     LblUnidadMedida.Text = PS("UnidadMedida").ToString
 
-
                     ddlUM.Items.Clear()
                     If UsuarioActual.Empresa.UsaInventarios Then
                         ddlUM.DataSource = GlobalDTProductosServiciosEquivalencias(PS("CvePS").ToString.ToEntero, -1, UsuarioActual.CveEmpresa)
@@ -17802,14 +17804,14 @@ Partial Class Compras_Compras
                         ViewState("RetIVA") = If(PS("RetIVA").ToString = "-1", ViewState("RetIVA"), PS("RetIVA").ToString).ToString
                         ViewState("RetISR") = If(PS("RetISR").ToString = "-1", ViewState("RetISR"), PS("RetISR").ToString).ToString
 
-                        ViewState("RetIVA") = If(ViewState("RetIVA").ToString = "-1", "0", ViewState("RetIVA").ToString)
+                        ViewState("RetIVA") = If(IfNull(ViewState("RetIVA"), "-1").ToString = "-1", "0", ViewState("RetIVA").ToString)
                         ViewState("RetISR") = If(ViewState("RetISR").ToString = "-1", "0", ViewState("RetISR").ToString)
 
                         'ViewState("RetIVA") = If(PS("RetIVA").ToString = "-1", If(ViewState("RetIVA").ToString = "-1", 0, ViewState("RetIVA")), PS("RetIVA").ToString).ToString
                         'ViewState("RetISR") = If(PS("RetISR").ToString = "-1", If(ViewState("RetISR").ToString = "-1", 0, ViewState("RetISR")), PS("RetISR").ToString).ToString
                     Else
-                        ViewState("RetIVA") = If(ViewState("RetIVA").ToString = "-1", "0", ViewState("RetIVA").ToString)
-                        ViewState("RetISR") = If(ViewState("RetISR").ToString = "-1", "0", ViewState("RetISR").ToString)
+                        ViewState("RetIVA") = If(IfNull(ViewState("RetIVA"), "-1").ToString = "-1", "0", ViewState("RetIVA").ToString)
+                        ViewState("RetISR") = If(IfNull(ViewState("RetISR"), "-1").ToString = "-1", "0", ViewState("RetISR").ToString)
                     End If
 
                     If TxtIEPSModal.Text = "" Then