Cambios en facturacion al 6%

Ventas/Clientes.aspx.vb

@@ -717,9 +717,13 @@ Partial Class Clientes
                 If UsuarioActual.TienePermisoProceso(180) Then
                     ChkEstado.Enabled = True
                 End If
+            End If
+
+            If UsuarioActual.Empresa.Funcionalidad(579) = "1" Then
+                DivTipoRetenciones.Visible = True
+                DivRetIVA.Visible = False
             End If
 
-
             If Request("CveCliente") IsNot Nothing AndAlso IsNumeric(Request("CveCliente")) AndAlso Request("CveCliente").ToEntero > 0 Then
                 'If UsuarioActual.CveEmpresa = 2 AndAlso UsuarioActual.CveUsuario = 77 AndAlso Not Request("CveCliente").Contiene("10450", "10460", "10458") Then
                 '    BtnGuardar.Enabled = False : BtnEliminar.Enabled = False : LbAgregarSucursal.Enabled = False : LbEnviarActivacionPortal.Enabled = False
@@ -820,10 +824,6 @@ Partial Class Clientes
                 UpFiscalContable.Update()
             End If
 
-            If UsuarioActual.Empresa.Funcionalidad(579) = "1" Then
-                DivTipoRetenciones.Visible = True
-            End If
-
             If Request("CveEmpresaCRM") IsNot Nothing AndAlso IsNumeric(Request("CveEmpresaCRM")) AndAlso Request("CveEmpresaCRM").ToEntero > 0 Then
                 ViewState("CveEmpresaCRM") = Request("CveEmpresaCRM")
                 CargaDatosCRM()
@@ -1380,6 +1380,7 @@ Partial Class Clientes
                 TxtCC.Text = ObjClientes.NotificarA
                 ChkMail.Checked = ObjClientes.EnviarFactura
                 DdlTipoRetencion.SelectedValueExist(ObjClientes.DtResultados(0)("CveTipoRetencion").ToString)
+                DdlTipoRetencion_SelectedIndexChanged(DdlTipoRetencion, EventArgs.Empty)
                 TxtRetIVA.Text = ObjClientes.RetIVA.ToString
                 TxtRetISR.Text = ObjClientes.RetISR.ToString
                 ChkRetIVAFletesAcarreos.Checked = ObjClientes.RetieneIVAFletes
@@ -9941,5 +9942,23 @@ Partial Class Clientes
 
     End Sub
 #End Region
+    Protected Sub DdlTipoRetencion_SelectedIndexChanged(sender As Object, e As EventArgs)
+        If UsuarioActual.Empresa.Funcionalidad(579) = "1" Then
+            TxtRetIVA.Text = "0"
+            DivRetIVA.Visible = False
+
+            If DdlTipoRetencion.SelectedValue.Contiene("1", "2") Then
+                TxtRetIVA.Text = "10"
+                DivRetIVA.Visible = True
+            ElseIf DdlTipoRetencion.SelectedValue.Contiene("3") Then
+                TxtRetIVA.Text = "4"
+                DivRetIVA.Visible = True
+            ElseIf DdlTipoRetencion.SelectedValue.Contiene("4") Then
+                TxtRetIVA.Text = "6"
+                DivRetIVA.Visible = True
+            End If
+
+        End If
+    End Sub
 End Class