Merge branch 'master' of http://192.168.10.111:8383/SIG

App_Code/ClsGenerales.vb

@@ -2973,6 +2973,20 @@ Public Class ClsGenerales
         End Try
         Return Retorno
     End Function
+
+    Public Function GetSATDIOTTipoOperacion() As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Gral_SAT_DIOT_TipoOperacionGet")
+        With SqlAdapter.SelectCommand.Parameters
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener los tipos de operacion del SAT-DIOT", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+        Return Retorno
+    End Function
     Public Function GetSATUnidadesAduana() As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Gral_SAT_UnidadAduanaGet")

App_Code/ClsPaginas.vb

@@ -561,6 +561,22 @@ Public Class ClsPaginas
             HttpContext.Current.Application(AppNombre) = value
         End Set
     End Property
+
+    Property GlobalDTDIOTTipoOperacion() As DataTable
+        Get
+            Dim AppNombre As String = "GlobalDTDIOTTipoOperacion"
+            If Application(AppNombre) Is Nothing Then
+                Dim ObjGrales As New ClsGenerales
+                If ObjGrales.GetSATDIOTTipoOperacion() Then Application(AppNombre) = ObjGrales.DtResultados
+                ObjGrales.Dispose()
+            End If
+            GlobalDTDIOTTipoOperacion = DirectCast(Application(AppNombre), DataTable)
+        End Get
+        Set(value As DataTable)
+            Dim AppNombre As String = "GlobalDTDIOTTipoOperacion"
+            Application(AppNombre) = value
+        End Set
+    End Property
     Property GlobalDTGralPaises() As DataTable
         Get
             Dim AppNombre As String = "GlobalDTGralPaises"

Compras/Compras.aspx.vb

@@ -8488,7 +8488,7 @@ Partial Class Compras_Compras
         Dim DiferenciaRetISR As Decimal = TxtRetISR.Text.ToDecimal - RetISRDetalles
 
         If Math.Abs(DiferenciaRetISR) > 0 Then
-            If Math.Abs(DiferenciaRetISR) <= 0.05 Then
+            If Math.Abs(DiferenciaRetISR) <= 0.09 Then
 
                 Dim DTConsulta As New DataTable
                 DTConsulta = TmpDT.FiltraParametros(" RetISR > 0 ")
@@ -8512,12 +8512,17 @@ Partial Class Compras_Compras
 
                     If Math.Abs(DiferenciaRetISR) > 0.0D Then
 
-                        If (TmpDT.Rows(IndiceUltimo)("RetISR").ToString.ToDecimal + DiferenciaRetISR) < 0 Then
+                        If (TmpDT.Rows(IndiceUltimo)("RetISR").ToString.ToDecimal + DiferenciaRetISR) < 0 Or (Math.Abs(DiferenciaRetISR) >= 0.06) Then
 
                             Dim AjusteteDividido As Decimal = Math.Abs(DiferenciaRetISR) / CantidadRegistroConRetISR
 
                             For Each dRow As DataRow In TmpDT.Rows
-                                dRow("RetISR") = dRow("RetISR").ToString.ToDecimal - AjusteteDividido
+                                If DiferenciaRetISR > 0 Then
+                                    dRow("RetISR") = dRow("RetISR").ToString.ToDecimal + AjusteteDividido
+                                Else
+                                    dRow("RetISR") = dRow("RetISR").ToString.ToDecimal - AjusteteDividido
+                                End If
+
                             Next
 
                         Else

Compras/Proveedores.aspx

@@ -799,20 +799,19 @@
                                 </div>
                                 <div class="portlet-body nomarginleftright form-horizontal form-row-sepe formnombottom">
                                     <div class="form-body">
+                                         <asp:UpdatePanel ID="UPPDIOT" runat="server" UpdateMode="Conditional">
+                                        <ContentTemplate>
+                                            
                                         <table border="0"  >
                                             <tr>
                                                 <td>Tipo Tercero:</td>
                                                 <td>
                                                     <div class="form-group form-md-line-input" style="width: 200px">
-                                                        <asp:DropDownList ID="DDlDIOTTipoTercero" runat="server" Width="100%">
+                                                        <asp:DropDownList ID="DDlDIOTTipoTercero" runat="server" Width="100%" AutoPostBack="true" OnSelectedIndexChanged ="DDlDIOTTipoTercero_SelectedIndexChanged">
                                                             <asp:ListItem Text="-" Value="0"></asp:ListItem>
                                                             <asp:ListItem Text="04 - Proveedor Nacional" Value="1"></asp:ListItem>
                                                             <asp:ListItem Text="05 - Proveedor Extranjero" Value="2"></asp:ListItem>  
-                                                            <asp:ListItem Text="Accionistas, Socios o Integrantes" Value="3"></asp:ListItem>
+                                                            <asp:ListItem Text="15 - Proveedor Global" Value="5"></asp:ListItem>                                                         
-                                                            <asp:ListItem Text="Retenciones (excepto Proveedores)" Value="4"></asp:ListItem>
-                                                            <asp:ListItem Text="15 - Proveedor Nacional Global" Value="5"></asp:ListItem>
-                                                            <asp:ListItem Text="15 - Proveedor Extranjero Global" Value="6"></asp:ListItem>
-                                                            <asp:ListItem Text="Egresos Varios" Value="7"></asp:ListItem>
                                                         </asp:DropDownList>
                                                         <asp:RequiredFieldValidator ID="RFVTipoTercero" runat="server" ControlToValidate="DDlDIOTTipoTercero" InitialValue="0" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Tipo Tercero''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
                                                         <ajax:ValidatorCalloutExtender ID="VCETipoTercero" runat="server" HighlightCssClass="vco" TargetControlID="RFVTipoTercero" Width="300px"></ajax:ValidatorCalloutExtender>
@@ -833,11 +832,16 @@
                                                 <td>Tipo Operación:</td>
                                                 <td>
                                                     <div class="form-group form-md-line-input" style="width: 200px">
-                                                        <asp:DropDownList ID="DdlDIOTTipoOperacion" runat="server" Width="100%">
+                                                        <asp:DropDownList ID="DdlDIOTTipoOperacion" runat="server" Width="100%" DataTextField="ClaveSATTipoOperacionDescripcion" DataValueField="CveTipoOperacion">
                                                             <asp:ListItem Text="-" Value="0"></asp:ListItem>
+                                                            <asp:ListItem Text="02 - Enajenación de bienes" Value="4"></asp:ListItem>
                                                             <asp:ListItem Text="03 - Prestación de Servicios Profesionales" Value="1"></asp:ListItem>
                                                             <asp:ListItem Text="06 - Arrendamiento de inmuebles" Value="2"></asp:ListItem>
+                                                            <asp:ListItem Text="07 - Importación de bienes o servicios" Value="7"></asp:ListItem>
+                                                            <asp:ListItem Text="08 - Importación por transferencia virtual" Value="8"></asp:ListItem>
                                                             <asp:ListItem Text="85 - Otros" Value="3"></asp:ListItem>
+                                                            <asp:ListItem Text="87 - Operaciones globales" Value="9"></asp:ListItem>
+                                                            
                                                         </asp:DropDownList>
                                                         <asp:RequiredFieldValidator ID="RFVTipoOperacion" runat="server" ControlToValidate="DdlDIOTTipoOperacion" InitialValue="0" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Tipo Operación''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
                                                         <ajax:ValidatorCalloutExtender ID="VCETipoOperacion" runat="server" HighlightCssClass="vco" TargetControlID="RFVTipoOperacion" Width="300px"></ajax:ValidatorCalloutExtender>
@@ -864,7 +868,9 @@
                                                 </td>
                                             </tr>
                                         </table>
-                                    </div>
+                                            </ContentTemplate>
+                                        </asp:UpdatePanel>
+                                            </div>
                                 </div>
                             </div>
                         </div>

Compras/Proveedores.aspx.vb

@@ -908,6 +908,7 @@ Partial Class Compras_Proveedores
                 'DIOT
                 CargaDIOTPais()
                 DDlDIOTTipoTercero.SelectedValueExist(ObjProveedor.DIOTCveTipoTercero)
+                CargaTipoTransaccion()
                 DdlDIOTTipoOperacion.SelectedValueExist(ObjProveedor.DIOTCveTipoOperacion)
                 TxtDIOTNumIDFiscal.Text = ObjProveedor.DIOTNumeroIDFiscal
                 DdlDIOTPais.SelectedValueExist(ObjProveedor.DIOTCvePais)
@@ -5876,6 +5877,27 @@ Partial Class Compras_Proveedores
         End If
 
     End Sub
+
+    Protected Sub DDlDIOTTipoTercero_SelectedIndexChanged(sender As Object, e As EventArgs)
+        CargaTipoTransaccion()
+    End Sub
+
+
+    Private Sub CargaTipoTransaccion()
+        Dim Filtro As String = ""
+        Select Case DDlDIOTTipoTercero.SelectedValue
+            Case "1"
+                Filtro = "AplicaProvNacional = 1"
+            Case "2"
+                Filtro = "AplicaProvExtranjero = 1"
+            Case "5"
+                Filtro = "AplicaProvGlobal = 1"
+        End Select
+
+        DdlDIOTTipoOperacion.DataSource = GlobalDTDIOTTipoOperacion.FiltraParametros(Filtro)
+        DdlDIOTTipoOperacion.DataBind()
+    End Sub
+
 End Class
 
 

Contabilidad/RepIVA.aspx

@@ -241,7 +241,7 @@
                                    <%-- <asp:BoundField HeaderText="SubTotal 0%" DataField="valorActosImp0" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />--%>
                                     <asp:TemplateField ItemStyle-HorizontalAlign="Right">
                                         <HeaderTemplate>
-                                            <asp:Label data-toggle="tooltip" data-placement="top" ToolTip="SubTotal al 8%." runat="server">SubTotal <br/>0%</asp:Label>
+                                            <asp:Label data-toggle="tooltip" data-placement="top" ToolTip="SubTotal al 0%." runat="server">SubTotal <br/>0%</asp:Label>
                                         </HeaderTemplate>
                                         <ItemTemplate>
                                             <asp:Label runat="server" Text='<%# Eval("valorActosImp0", "{0:N2}") %>'></asp:Label>

Contabilidad/RepIVA.aspx.cs

@@ -343,7 +343,7 @@ public partial class Contabilidad_RepIVA : ClsPaginas
 
         if (Objconta.GetRepIVA(txtFechaI.Text.ToDate(), txtFechaF.Text.ToDate(), 2, UsuarioActual.CveUsuario, -1, Conciliado, UsuarioActual.CveEmpresa, TipoCambio, TCEspecifico))
         {
-            if (txtFechaI.Text.ToDate() < "2025/01/31".ToDate()) // años anteriores al enero 2025
+            if (txtFechaI.Text.ToDate() < "2024/12/31".ToDate()) // años anteriores al enero 2025
             {
                 foreach (DataRow Drow in Objconta.DtResultados.FiltraParametros("CveCompra is null and CveProveedor > 0 and SubTotal >= 1  ").Rows) // and(IVA > 1 OR IEPS > 0)
                 {
@@ -380,7 +380,7 @@ public partial class Contabilidad_RepIVA : ClsPaginas
             }
             else
             {
-                foreach (DataRow Drow in Objconta.DtResultados.FiltraParametros("CveCompra is null and CveProveedor > 0 and SubTotal >= 1  ").Rows) // and(IVA > 1 OR IEPS > 0)
+                foreach (DataRow Drow in Objconta.DtResultados.FiltraParametros("CveCompra is null and CveProveedor > 0  ").Rows) // and(IVA > 1 OR IEPS > 0)
                 {
                     SBDIOT.AppendLine(
                         Drow["TipoTercero"].ToString() + "|" +
@@ -388,7 +388,7 @@ public partial class Contabilidad_RepIVA : ClsPaginas
                         Drow["RFC_DIOT"].ToString() + "|" +
                         Drow["NumeroIDFiscal"].ToString() + "|" +
                         Drow["NombreExtranjero"].ToString() + "|" +
-                        Drow["PaisResidencia"].ToString() + "|" +
+                        Drow["PaisResidenciaFiscal"].ToString() + "|" +
                         Drow["Jurisdiccion"].ToString() + "|" +
                         // 3.2 valor de los actos o actividades
                         LV0(Drow["ActosFN"].ToString()) + "|" +  // actos norte
@@ -442,27 +442,6 @@ public partial class Contabilidad_RepIVA : ClsPaginas
                         LV0(Drow["DANoObjetoNoTN"].ToString()) + "|" + // Actos o actividades no objeto del IVA por no contar on establecimiento en territorio nacion
                           (Drow["DAManifiesto"].ToString()));  // Manifiesto que se dio efectos fiscales a los comprobantes que amparan las operaciones realizadas con el proveedor
                                       
-                    //LV(Drow["valorActos1516"].ToString()) + "|" +
-                    //LV(Drow["valorActos15"].ToString()) + "|" +
-                    //LV(Drow["ValorIvaNo1516"].ToString()) + "|" +
-
-                    //LV(Drow["valorActos1011"].ToString()) + "|" +
-                    //LV(Drow["valorActos10"].ToString()) + "|" +
-                    //LV(Drow["valorActosImp8"].ToString()) + "|" +
-                    //LV(Drow["ValorIvaNo10"].ToString()) + "|" +
-                    //LV(Drow["ValorIvaNo08"].ToString()) + "|" +
-
-                    //LV(Drow["valorActosImp1516"].ToString()) + "|" +
-                    //LV(Drow["ValorIvaNoImp16"].ToString()) + "|" +
-
-                    //LV(Drow["valorActosImp10"].ToString()) + "|" +
-                    //LV(Drow["ValorIvaNoImp10"].ToString()) + "|" +
-
-                    //LV(Drow["IvaExentoImpo"].ToString()) + "|" +
-                    //LV(Drow["IVACero"].ToString()) + "|" +
-                    //LV(Drow["IvaExento"].ToString()) + "|" +
-                    //LV(Drow["IvaRetenido"].ToString()) + "|" +
-                    //LV(Drow["IvaDevoluciones"].ToString()) + "|");
                 }
                 
             }

OC/OC.aspx.vb

@@ -1105,7 +1105,10 @@ Partial Class OC_OC
                 End If
             End If
 
-            DdlUsoCFDI.SelectedValueExist(1)
+            If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
+                DdlUsoCFDI.SelectedValueExist(1)
+            End If
+
 
         End If
 

Ventas/Clientes.aspx

@@ -5753,7 +5753,7 @@
                             </div>
                             <div class="row">
                                 <div style="height: 300px; overflow-y: auto;">
-                                    <asp:GridView ID="GvImportarSaldos" DataKeyNames="CveIE, CveCliente,Total,IVA,Original,PorcentajeIVA,Tipo,CveVenta" AutoGenerateColumns="false" GridLines="None"
+                                    <asp:GridView ID="GvImportarSaldos" DataKeyNames="CveIE, CveCliente,Total,IVA,Original,PorcentajeIVA,Tipo,CveVenta,Folio" AutoGenerateColumns="false" GridLines="None"
                                         CssClass="table table-striped table-hover Widthall" runat="server">
                                         <Columns>
                                             <asp:TemplateField ItemStyle-Width="5%">

Ventas/Clientes.aspx.vb

@@ -3850,6 +3850,7 @@ Partial Class Clientes
         End If
         ObjEventoBitacora.Dispose()
         GvEB.DataBind()
+        UPEventoBitacora.Update()
     End Sub
 
     Protected Sub DownloadFile(ByVal sender As Object, ByVal e As EventArgs)
@@ -4801,6 +4802,8 @@ Partial Class Clientes
 
         Dim ObjConta As New ClsContabilidad
         ObjConta.IniciaTransacSQL()
+        Dim ObjEventoBitacora As New ClsOIEventos(ObjConta.IniciaTransacSQL())
+
         Dim TieneError As Boolean = False
 
 
@@ -4871,18 +4874,54 @@ Partial Class Clientes
                         End If
                     End If
 
+
+                    If Not TieneError Then
+                        Dim CveIE As Integer = -1
+                        Dim Folio As String = Gvr.DataKey("Folio")
+                        Dim Liga As String = ""
+
+                        Select Case Tipo
+                            Case "Ant", "NC"
+                                CveVenta = Gvr.DataKey("CveVenta").ToEntero()
+                                Liga = $"./Ventas.aspx?CveVenta={CveVenta}"
+                            Case "IxC"
+                                CveIE = Gvr.DataKey("CveIE").ToEntero()
+                                Liga = $"../Bancos/IE.aspx?CveIE={CveIE}"
+                        End Select
+
+                        Dim DescripcioBitacora As String = $"Ha sido reclasificado el folio <a href='{Liga}' target='_blank' class='Texto' >{Folio}</a> al cliente: {DdlClienteImportarSaldos.txtText.Value}"
+
+                        If Not ObjEventoBitacora.AddEventoBitacora(DescripcioBitacora, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, DdlClienteImportarSaldos.SelectedValue.ToEntero(), -1, -1, -1, -1, -1) Then
+                            TieneError = True
+                        End If
+
+                        If Not TieneError Then
+                            If Not ObjEventoBitacora.AddEventoBitacora(DescripcioBitacora, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, CveCliente, -1, -1, -1, -1, -1) Then
+                                TieneError = True
+                            End If
+                        End If
+
+
+                    End If
+
                 End If
+
             Next
         Else
             TieneError = True
         End If
 
 
+
+
+
+
         If Not TieneError Then
             ObjConta.Commit()
             Alert($"La importación de saldos se hizo correctamente.", TipoMensaje.MsgInformacion)
             TxtSaldoImportar.Text = ""
             ConsultarAnticiposSaldosClientes()
+            CargaEventoBitacora()
         Else
             ObjConta.RollBack()
             Alert("Ocurrió un error al importar los saldos. Por favor vuelva a intentar.", TipoMensaje.MsgError)