AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2025-03-13 00:30:51 -07:00
parent 27aa307cf4 e205326268
commit 14e80cda5c
10 changed files with 128 additions and 44 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
App_Code/ClsGenerales.vb
View File

@@ -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")

16
App_Code/ClsPaginas.vb
View File

@@ -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"

11
Compras/Compras.aspx.vb
View File

@@ -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

24
Compras/Proveedores.aspx
View File

@@ -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="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:ListItem Text="05 - Proveedor Extranjero" Value="2"></asp:ListItem>
<asp:ListItem Text="15 - Proveedor Global" Value="5"></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>

22
Compras/Proveedores.aspx.vb
View File

@@ -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

2
Contabilidad/RepIVA.aspx
View File

@@ -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>

29
Contabilidad/RepIVA.aspx.cs
View File

@@ -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
@@ -441,28 +441,7 @@ public partial class Contabilidad_RepIVA : ClsPaginas
LV0(Drow["DANoObjetoTN"].ToString()) + "|" + // Actos o actividades no objeto del IVA realizados en
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()) + "|");
}
}

5
OC/OC.aspx.vb
View File

@@ -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

2
Ventas/Clientes.aspx
View File

@@ -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%">

47
Ventas/Clientes.aspx.vb
View File

@@ -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
@@ -4869,20 +4872,56 @@ Partial Class Clientes
TieneError = True
End If
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
End If
Next
Else
TieneError = True
End If
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)