Compras Funcionalidad 713 Empresas que deduce IEPS

Compras/Compras.aspx

@@ -3629,7 +3629,7 @@
                     <asp:UpdatePanel runat="server">
                         <ContentTemplate>
                             <asp:Button ID="BtnAgregarIEPS" OnClick="BtnAgregarIEPS_Click" runat="server" ClientIDMode="Static" Text="Agregar" ValidationGroup="GrpAgregar" CssClass="btn btn-primary" />
-                            <button type="button" class="btn btn-danger" data-dismiss="modal" runat="server" id="BtnCancelarotrosImpuestos" visible="false">Cancelar</button>
+                            <%--<button type="button" class="btn btn-danger" data-dismiss="modal" runat="server" id="BtnCancelarotrosImpuestos" visible="false">Cancelar</button>--%>
                         </ContentTemplate>
                     </asp:UpdatePanel>
                 </div>

Compras/Compras.aspx.vb

@@ -1724,8 +1724,12 @@ Partial Class Compras_Compras
         Dim ObjeFacturas As New ClsCompras
         Dim RFC As String = ""
         If ObjeFacturas.GetFacturas(CveFactura, "-1", Now.AddYears(-4), Now, "-1", "-1", -1, -1, -1, -1, "-1", UsuarioActual.CveEmpresa) AndAlso ObjeFacturas.DtResultados.Rows.Count > 0 Then
+
+
             Dim dr As DataRow = ObjeFacturas.DtResultados.Rows(0) ' no toma la cero, porque es el totalizador
 
+            ViewState("CveTipoProveedor") = dr("CveTipoProveedor").ToString.ToEntero
+
             Dim XMLDoc As New XmlDocument
             Dim Archivo As String = String.Format("{0}Compras\{1}\{2}", UsuarioActual.Empresa.Ruta, dr("RFCDe"), dr("XML"))
             If IO.File.Exists(Archivo) Then
@@ -2374,12 +2378,22 @@ Partial Class Compras_Compras
 
         If TrasladoIEPS > 0 Or OtrosImpuestos > 0 Then
 
-
             If OtrosImpuestos > 0 Then
-                RegistraScript("$('#ModalIEPS').modal({ backdrop: 'static', keyboard: false },'show');")
+
+                If UsuarioActual.Empresa.Funcionalidad(713).ToEntero = 1 Then
+                    'Si tiene funcionalidad y es Acreedor se muestra modal
+                    If CveTipoProveedor.Contiene(2, 3) Then ' Acreedor
+                        RegistraScript("$('#ModalIEPS').modal({ backdrop: 'static', keyboard: false },'show');")
+                    End If
+                Else
+                    'Si no tiene funcionalidad y es proveedor se muestra
+                    RegistraScript("$('#ModalIEPS').modal({ backdrop: 'static', keyboard: false },'show');")
+
+                End If
+
             Else
                 RegistraScript("$('#ModalIEPS').modal('show');")
-                BtnCancelarotrosImpuestos.Visible = True
+                'BtnCancelarotrosImpuestos.Visible = True
             End If
 
 
@@ -18854,7 +18868,7 @@ Partial Class Compras_Compras
             Dim ObjBancos As New ClsBancos
 
             If ObjBancos.GetCreditosDetalleCompras(UsuarioActual.CveEmpresa, CveProveedor, -1, -1, -1) Then
-                GvCreditos.DataSource = ObjBancos.DtResultados
+                GvCreditos.DataSource = ObjBancos.DtResultados.FiltraParametros(" ImporteIE > 0")
             Else
                 GvCreditos.DataSource = Nothing
             End If
@@ -18921,7 +18935,7 @@ Partial Class Compras_Compras
             Dim ObjBancos As New ClsBancos
             If ObjBancos.GetCreditosDetalleCompras(UsuarioActual.CveEmpresa, CveProveedor, -1, -1, -1) Then
 
-                GvCreditos.DataSource = ObjBancos.DtResultados
+                GvCreditos.DataSource = ObjBancos.DtResultados.FiltraParametros(" ImporteIE > 0")
             Else
                 GvCreditos.DataSource = Nothing
             End If

RH/Asistencias.aspx.vb

@@ -21,8 +21,8 @@ Partial Class RH_Asistencias
             txtFechaAsistencia.Text = Now.ToShortDateString
             If UsuarioActual.CveRol = 1 OrElse UsuarioActual.CveUsuario = 2343 Then
                 PnlMasivo.Visible = True
-                CargaTiposPeriodo()
             End If
+            CargaTiposPeriodo()
         End If
     End Sub