Cancelacion de anticipos,timbrado de retenciones al 6%

Ventas/Clientes.aspx.vb

@@ -9940,23 +9940,6 @@ Partial Class Clientes
         Acum.Dispose()
 
     End Sub
-#End Region
-    Protected Sub DdlTipoRetencion_SelectedIndexChanged(sender As Object, e As EventArgs)
-        Select Case DdlTipoRetencion.SelectedValue
-            Case "1" 'Arrendamiento
-                TxtRetIVA.Text = "10"
-                TxtRetISR.Text = "10"
-            Case "2" 'Servicios Profesionales
-                TxtRetIVA.Text = "10"
-                TxtRetISR.Text = "10"
-            Case "3" 'Fletes
-                TxtRetIVA.Text = "4"
-                TxtRetISR.Text = "4"
-            Case "4" 'Servicios
-                TxtRetIVA.Text = "6"
-                TxtRetISR.Text = "6"
-        End Select
-        UpFiscalContable.Update()
-    End Sub
+#End Region
 End Class