Cambios en facturacion al 6%

Ventas/Clientes.aspx

@@ -838,20 +838,20 @@
                                                 </div>
                                                 <div id="DivRetenciones" runat="server">
                                                     <div id="DivTipoRetenciones" runat="server" visible="false" class="form-group form-md-line-input input-iconright">
-                                                        <asp:DropDownList ID="DdlTipoRetencion" CssClass="form-control  select2me" runat="server" AppendDataBoundItems="true" CausesValidation="true" DataTextField="MetodoPago" DataValueField="CveMetodoPago" ValidationGroup="GrpGuardar">
+                                                        <asp:DropDownList ID="DdlTipoRetencion" AutoPostBack="true" OnSelectedIndexChanged="DdlTipoRetencion_SelectedIndexChanged" CssClass="form-control select2me" runat="server" AppendDataBoundItems="true" CausesValidation="true">
                                                             <asp:ListItem Selected="True" Text="Sin Retención" Value="0"></asp:ListItem>
                                                             <asp:ListItem Text="Arrendamiento" Value="1"></asp:ListItem>
                                                             <asp:ListItem Text="Servicios Profesionales" Value="2"></asp:ListItem>
                                                             <asp:ListItem Text="Fletes" Value="3"></asp:ListItem>
                                                             <asp:ListItem Text="Servicios" Value="4"></asp:ListItem>
                                                         </asp:DropDownList>
-                                                        <label for="<%= DdlTipoRetencion.ClientID.ToString()%>">Tipo de Retención:</label>
+                                                        <label for="<%= DdlTipoRetencion.ClientID.ToString()%>">Tipo de Retención de IVA:</label>
                                                         <asp:RequiredFieldValidator ID="RFVTipoRetencion" runat="server" ControlToValidate="DdlTipoRetencion" CssClass="help-block" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Tipo de Retención''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
                                                         <i></i>
                                                     </div>
                                                     <div class="row">
                                                         <div class="col-md-6">
-                                                            <div class="form-group form-md-line-input input-iconright">
+                                                            <div id="DivRetIVA" runat="server" class="form-group form-md-line-input input-iconright">
                                                                 <asp:TextBox ID="TxtRetIVA" CssClass="form-control" runat="server" MaxLength="9" Text="0"></asp:TextBox>
                                                                 <asp:RequiredFieldValidator ID="RFVRetIVA" class="help-block errorimput" runat="server" ControlToValidate="TxtRetIVA" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Retención de IVA''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
                                                                 <asp:CompareValidator ID="CVRetIVA" class="help-block errorimput" runat="server" ControlToValidate="TxtRetIVA" ErrorMessage="El campo <b>''Retención de IVA''</b> no tiene el formato correcto, por favor corrija e intente de nuevo (Solo formato numérico)." Operator="DataTypeCheck" Type="Double" ValidationGroup="GrpGuardar"></asp:CompareValidator>

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
 

Ventas/Ventas.aspx

@@ -1397,7 +1397,7 @@
                                                                 <asp:Label ID="LblRetIVA" runat="server" BorderStyle="None" Text="0.00"></asp:Label>&nbsp;(%)
                                                             </td>
                                                             <td>
-                                                                <asp:DropDownList ID="DdlTipoRetencion" Visible="false" AutoPostBack="true" OnSelectedIndexChanged="DdlTipoRetencion_SelectedIndexChanged" CssClass="form-control input-sm" runat="server" AppendDataBoundItems="true" CausesValidation="true" DataTextField="MetodoPago" DataValueField="CveMetodoPago" ValidationGroup="GrpGuardar">
+                                                                <asp:DropDownList ID="DdlTipoRetencion" Visible="false" Enabled="false" AutoPostBack="true" OnSelectedIndexChanged="DdlTipoRetencion_SelectedIndexChanged" CssClass="form-control input-sm" runat="server" AppendDataBoundItems="true" CausesValidation="true" DataTextField="MetodoPago" DataValueField="CveMetodoPago" ValidationGroup="GrpGuardar">
                                                                     <asp:ListItem Selected="True" Text="Sin Retención" Value="0"></asp:ListItem>
                                                                     <asp:ListItem Text="Arrendamiento" Value="1"></asp:ListItem>
                                                                     <asp:ListItem Text="Servicios Profesionales" Value="2"></asp:ListItem>

Ventas/Ventas.aspx.vb

@@ -5932,11 +5932,12 @@ Partial Class Ventas
 
             Dim ClienteRetIVA = Me.ClienteRetIVA
             If UsuarioActual.Empresa.Funcionalidad(579) = "1" Then
+                ClienteRetIVA = 0.0D
                 If DdlTipoRetencion.SelectedValue.Contiene("1", "2") Then
                     ClienteRetIVA = 0.1D
                 ElseIf DdlTipoRetencion.SelectedValue.Contiene("3") Then
                     ClienteRetIVA = 0.04D
-                ElseIf DdlTipoRetencion.SelectedValue.Contiene("4") Then
+                ElseIf DdlTipoRetencion.SelectedValue.Contiene("4") AndAlso CBool(TmpDT.Rows(e.RowIndex)("EsOutSourcing").ToString()) Then
                     ClienteRetIVA = 0.06D
                 End If
 
@@ -10311,7 +10312,7 @@ Partial Class Ventas
                                         'Nota cuando es Nota de crédiot, debe de tomar el devoluciones y rebajas
                                         If ObjFactura.TipoDocto.Contiene("Egs", "Dev") Then
                                             Dim CampoCuenta As String = "IdCuentaGasto"
-                                            If UsuarioActual.CveEmpresa.Contiene(80, 72, 146) Then CampoCuenta = "IdCuentaDescuento"
+                                            'If UsuarioActual.CveEmpresa.Contiene(80, 72, 146) Then CampoCuenta = "IdCuentaDescuento"
                                             IdCtaContable = GlobalDTClasificaciones(ObjFactura.CveEmpresa).FiltroPrimeroValor(CampoCuenta, String.Format("CveClasificacion = {0}", Row2("CveClasificacion"))).ToEntero
                                         Else
                                             IdCtaContable = GlobalDTClasificaciones(ObjFactura.CveEmpresa).FiltroPrimeroValor("IdCuentaIngresos", String.Format("CveClasificacion = {0}", Row2("CveClasificacion"))).ToEntero
@@ -14251,11 +14252,12 @@ Partial Class Ventas
 
         Dim ClienteRetIVA = Me.ClienteRetIVA
         If UsuarioActual.Empresa.Funcionalidad(579) = "1" Then
+            ClienteRetIVA = 0.0D
             If DdlTipoRetencion.SelectedValue.Contiene("1", "2") Then
                 ClienteRetIVA = 0.1D
             ElseIf DdlTipoRetencion.SelectedValue.Contiene("3") Then
                 ClienteRetIVA = 0.04D
-            ElseIf DdlTipoRetencion.SelectedValue.Contiene("4") AndAlso DrPS("CveTipoPS").ToString().ToEntero() = 1 Then
+            ElseIf DdlTipoRetencion.SelectedValue.Contiene("4") AndAlso CBool(DrPS("EsOutSourcing").ToString()) Then
                 ClienteRetIVA = 0.06D
             End If
 
@@ -14506,6 +14508,8 @@ Partial Class Ventas
         TmpDT.Columns.Add("CveTamaño", GetType(Integer))
         TmpDT.Columns.Add("CveConcepto", GetType(Integer))
 
+        TmpDT.Columns.Add("EsOutSourcing", GetType(Boolean))
+
     End Sub
     Private Sub CreaDTmpC()
         DTmpC = New DataTable
@@ -24045,12 +24049,12 @@ Partial Class Ventas
         If UsuarioActual.Empresa.Funcionalidad(579) = "1" Then
             If TmpDT IsNot Nothing AndAlso TmpDT.Rows.Count > 0 Then
                 For Each RowServicio As DataRow In TmpDT.Rows
-                    Dim ClienteRetIVA = Me.ClienteRetIVA
+                    Dim ClienteRetIVA = 0.0D
                     If DdlTipoRetencion.SelectedValue.Contiene("1", "2") Then
                         ClienteRetIVA = 0.1D
                     ElseIf DdlTipoRetencion.SelectedValue.Contiene("3") Then
                         ClienteRetIVA = 0.04D
-                    ElseIf DdlTipoRetencion.SelectedValue.Contiene("4") AndAlso RowServicio("CveTipoPS").ToString().ToEntero() = 1 Then
+                    ElseIf DdlTipoRetencion.SelectedValue.Contiene("4") AndAlso CBool(RowServicio("EsOutSourcing").ToString()) Then
                         ClienteRetIVA = 0.06D
                     End If