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-05-07 19:48:10 -07:00
parent 7dbf3d425b 79747a3084
commit e10beef274
6 changed files with 148 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
Compras/ReembolsosComprobaciones.aspx.vb
View File

@@ -5,6 +5,7 @@ Imports System.Data
Imports Extensiones
Imports Microsoft.Reporting.WebForms
Partial Class Compras_ReembolsosComprobaciones
Inherits ClsPaginas
@@ -364,7 +365,13 @@ Partial Class Compras_ReembolsosComprobaciones
Dim Dep As New ClsGenerales
If Dep.GetCuentasDepositos(CvePersonal:=CvePersonal, CveEmpresa:=UsuarioActual.CveEmpresa) Then
DdlCuentaDeposito.DataSource = Dep.DtResultados
If DdlTipoTransaccion.SelectedValue = "9" Then
DdlCuentaDeposito.DataSource = Dep.DtResultados.FiltraParametros(" EstatusPagoElectronico = 'True'")
Else
DdlCuentaDeposito.DataSource = Dep.DtResultados.FiltraParametros(" EstatusPagoElectronicoGrupos = 'True'")
End If
If Dep.DtResultados.Rows.Count > 0 Then
trCuentaDeposito.Visible = True
@@ -431,8 +438,9 @@ Partial Class Compras_ReembolsosComprobaciones
#Region " BTN GUARDAR "
Protected Sub BtnIEGuardar_Click(sender As Object, e As EventArgs) Handles BtnIEGuardar.Click
Dim CvecuentaDeposito As Integer = If(DdlCuentaDeposito.SelectedValue.ToEntero > 0, DdlCuentaDeposito.SelectedValue.ToEntero, -1)
If DdlTipoTransaccion.SelectedValue.Contiene("9", "17") Then
If DdlTipoPago.SelectedValue.ToEntero = 1 AndAlso DdlTipoTransaccion.SelectedValue.Contiene("9", "17") Then
If CvecuentaDeposito <= 0 Then
Alert("Debe de seleccionar una cuenta deposito", TipoMensaje.MsgAdvertencia)
Exit Sub
@@ -738,7 +746,7 @@ Partial Class Compras_ReembolsosComprobaciones
Pago.CveIE = CveIEPago
Pago.CveMonedaPago = CveMonedaPago
Pago.TCPago = TipoCambioPago
Pago.CvePersonal =CvePersonal
Pago.CvePersonal = CvePersonal
ImportePagoTotal = ImportePagoTotal + ImporteMovto
If UsuarioActual.CveEmpresa.Contiene(7, 11, 12, 122, 145) Then

3
Contabilidad/DiarioAmortizaciones.aspx
View File

@@ -439,6 +439,7 @@
<asp:HiddenField ID="HdnIdCtaContRetISR" runat="server" Value='<%# Eval("IdCtaContRetISR")%>' />
<asp:HiddenField ID="HdnCompraIdPoliza" runat="server" Value='<%# Eval("CompraIdPoliza")%>' />
<asp:HiddenField ID="HdnPorcentajeIVA" runat="server" Value='<%# Eval("PorcentajeIVA")%>' />
<table width="100%" cellpadding="0" cellspacing="0" runat="server" id="TbCompra">
<tr class="SubTotales">
@@ -616,6 +617,7 @@
<asp:HiddenField ID="HdnIdCtaContRetISR" runat="server" Value='<%# Eval("IdCtaContRetISR")%>' />
<asp:HiddenField ID="HdnCompraIdPoliza" runat="server" Value='<%# Eval("CompraIdPoliza")%>' />
<asp:HiddenField ID="HdnPorcentajeIVA" runat="server" Value='<%# Eval("PorcentajeIVA")%>' />
<table width="100%" cellpadding="0" cellspacing="0" runat="server" id="TbCompra">
<tr class="SubTotales">
@@ -791,6 +793,7 @@
<asp:HiddenField ID="HdnIdCtaContRetISR" runat="server" Value='<%# Eval("IdCtaContRetISR")%>' />
<asp:HiddenField ID="HdnCompraIdPoliza" runat="server" Value='<%# Eval("CompraIdPoliza")%>' />
<asp:HiddenField ID="HdnPorcentajeIVA" runat="server" Value='<%# Eval("PorcentajeIVA")%>' />
<table width="100%" cellpadding="0" cellspacing="0" runat="server" id="TbCompra">
<tr class="SubTotales">

115
Contabilidad/DiarioAmortizaciones.aspx.vb
View File

@@ -624,6 +624,7 @@ Partial Class Contabilidad_DiarioAmortizaciones
For Each gvrc As GridViewRow In GvCompras.Rows
Dim PorcentajeIVA As Decimal = (gvrc.FCHiddenField("HdnPorcentajeIVA").Value.ToDecimal() * 100).ToEntero
AbonoProveedor = 0 : CargoProveedor = 0 : CargoAnticipo = 0 : AbonoAnticipo = 0
@@ -783,15 +784,51 @@ Partial Class Contabilidad_DiarioAmortizaciones
MsgError = "No se pudo insertar movimientos de devoluciones de IVA" : Exit For
End If
End If
Dim UUID As String = gvrc.FCHiddenField("HdnUUID").Value
If Not Conta.AddDevolucionesIVA(IDPoliza, IdCuentaBancos, IdProveedor, 16,
SubTotal,
IVAAcreditable * TipoCambioPago,
CompraPagadoRetIVA * TipoCambioPago,
CompraPagadoRetISR * TipoCambioPago,
Fecha, NumPoliza.ToString, gvrc.FCHiddenField("HdnSerie").Value, gvrc.FCHiddenField("HdnFolio").Value.StrToNum, "", UsuarioActual.CveEmpresa) Then
Fecha, NumPoliza.ToString, gvrc.FCHiddenField("HdnSerie").Value, gvrc.FCHiddenField("HdnFolio").Value.StrToNum, UUID, UsuarioActual.CveEmpresa) Then
MsgError = "No se pudo insertar movimientos de devoluciones de IVA" : Exit For
End If
If MsgError = "" Then
Dim GuidMov As String = Guid.NewGuid().ToString()
Dim NoDeducible = False
Dim IVANoAcred As Decimal = 0 'si NoDeducible es true -- > Es el iva no deducible , ivano deducible totald e la compra
If Not Conta.AddMovimientoImpuesto(IDPoliza, IdCuentaBancos, IdProveedor, PorcentajeIVA, PorcentajeIVA, SubTotal, IVAAcreditable * TipoCambioPago,
Fecha, NumPoliza.ToString, gvrc.FCHiddenField("HdnSerie").Value, gvrc.FCHiddenField("HdnFolio").Value.StrToNum, UUID, NoDeducible, IVANoAcred, GuidMov, "", 1, 2) Then
MsgError = "No se pudo insertar movimientos de impuesto de IVA" : Exit For
End If
If MsgError = "" AndAlso CompraPagadoRetIVA > 0 Then
Dim GuidMovRetIVA As String = Guid.NewGuid().ToString()
Dim TasaOCuotaRetIVA As Decimal = (((CompraPagadoRetIVA * TipoCambioPago) / SubTotal) * 100).ToDecimal.RoundSQL(4)
If Not Conta.AddMovimientoImpuesto(IDPoliza, IdCuentaBancos, IdProveedor, PorcentajeIVA, TasaOCuotaRetIVA, SubTotal, CompraPagadoRetIVA * TipoCambioPago,
Fecha, NumPoliza.ToString, gvrc.FCHiddenField("HdnSerie").Value, gvrc.FCHiddenField("HdnFolio").Value.StrToNum, UUID, NoDeducible, IVANoAcred, GuidMovRetIVA, GuidMov, 2, 2) Then
MsgError = "No se pudo insertar movimientos de retención de IVA" : Exit For
End If
End If
If MsgError = "" AndAlso CompraPagadoRetISR > 0 Then
Dim GuidMovRetISR As String = Guid.NewGuid().ToString()
Dim TasaOCuotaRetIVA As Decimal = (((CompraPagadoRetISR * TipoCambioPago) / SubTotal) * 100).ToDecimal.RoundSQL(4)
If Not Conta.AddMovimientoImpuesto(IDPoliza, IdCuentaBancos, IdProveedor, PorcentajeIVA, TasaOCuotaRetIVA, SubTotal, CompraPagadoRetISR * TipoCambioPago,
Fecha, NumPoliza.ToString, gvrc.FCHiddenField("HdnSerie").Value, gvrc.FCHiddenField("HdnFolio").Value.StrToNum, UUID, NoDeducible, IVANoAcred, GuidMovRetISR, GuidMov, 2, 1) Then
MsgError = "No se pudo insertar movimientos de retención de ISR" : Exit For
End If
End If
End If
End If
@@ -1093,6 +1130,7 @@ Partial Class Contabilidad_DiarioAmortizaciones
For Each gvrc As GridViewRow In GvCompras.Rows
Dim PorcentajeIVA As Decimal = (gvrc.FCHiddenField("HdnPorcentajeIVA").Value.ToDecimal() * 100).ToEntero
AbonoProveedor = 0 : CargoProveedor = 0 : CargoAnticipo = 0 : AbonoAnticipo = 0
@@ -1241,15 +1279,50 @@ Partial Class Contabilidad_DiarioAmortizaciones
End If
End If
Dim UUID As String = gvrc.FCHiddenField("HdnUUID").Value
If IdCuentaBancos > 0 AndAlso Not Conta.AddDevolucionesIVA(IDPoliza, IdCuentaBancos, IdProveedor, 16,
SubTotal,
IVAAcreditable * TipoCambioPago,
CompraPagadoRetIVA * TipoCambioPago,
CompraPagadoRetISR * TipoCambioPago,
Fecha, NumPoliza.ToString, gvrc.FCHiddenField("HdnSerie").Value, gvrc.FCHiddenField("HdnFolio").Value.StrToNum, "", UsuarioActual.CveEmpresa) Then
Fecha, NumPoliza.ToString, gvrc.FCHiddenField("HdnSerie").Value, gvrc.FCHiddenField("HdnFolio").Value.StrToNum, UUID, UsuarioActual.CveEmpresa) Then
MsgError = "No se pudo insertar movimientos de devoluciones de IVA" : Exit For
End If
If MsgError = "" Then
Dim GuidMov As String = Guid.NewGuid().ToString()
Dim NoDeducible = False
Dim IVANoAcred As Decimal = 0 'si NoDeducible es true -- > Es el iva no deducible , ivano deducible totald e la compra
If Not Conta.AddMovimientoImpuesto(IDPoliza, IdCuentaBancos, IdProveedor, PorcentajeIVA, PorcentajeIVA, SubTotal, IVAAcreditable * TipoCambioPago,
Fecha, NumPoliza.ToString, gvrc.FCHiddenField("HdnSerie").Value, gvrc.FCHiddenField("HdnFolio").Value.StrToNum, UUID, NoDeducible, IVANoAcred, GuidMov, "", 1, 2) Then
MsgError = "No se pudo insertar movimientos de impuesto de IVA" : Exit For
End If
If MsgError = "" AndAlso CompraPagadoRetIVA > 0 Then
Dim GuidMovRetIVA As String = Guid.NewGuid().ToString()
Dim TasaOCuotaRetIVA As Decimal = (((CompraPagadoRetIVA * TipoCambioPago) / SubTotal) * 100).ToDecimal.RoundSQL(4)
If Not Conta.AddMovimientoImpuesto(IDPoliza, IdCuentaBancos, IdProveedor, PorcentajeIVA, TasaOCuotaRetIVA, SubTotal, CompraPagadoRetIVA * TipoCambioPago,
Fecha, NumPoliza.ToString, gvrc.FCHiddenField("HdnSerie").Value, gvrc.FCHiddenField("HdnFolio").Value.StrToNum, UUID, NoDeducible, IVANoAcred, GuidMovRetIVA, GuidMov, 2, 2) Then
MsgError = "No se pudo insertar movimientos de retención de IVA" : Exit For
End If
End If
If MsgError = "" AndAlso CompraPagadoRetISR > 0 Then
Dim GuidMovRetISR As String = Guid.NewGuid().ToString()
Dim TasaOCuotaRetIVA As Decimal = (((CompraPagadoRetISR * TipoCambioPago) / SubTotal) * 100).ToDecimal.RoundSQL(4)
If Not Conta.AddMovimientoImpuesto(IDPoliza, IdCuentaBancos, IdProveedor, PorcentajeIVA, TasaOCuotaRetIVA, SubTotal, CompraPagadoRetISR * TipoCambioPago,
Fecha, NumPoliza.ToString, gvrc.FCHiddenField("HdnSerie").Value, gvrc.FCHiddenField("HdnFolio").Value.StrToNum, UUID, NoDeducible, IVANoAcred, GuidMovRetISR, GuidMov, 2, 1) Then
MsgError = "No se pudo insertar movimientos de retención de ISR" : Exit For
End If
End If
End If
End If
'afecto los movimientos en los que se hizo el pago
@@ -1568,6 +1641,7 @@ Partial Class Contabilidad_DiarioAmortizaciones
For Each gvrc As GridViewRow In GvCompras.Rows
Dim PorcentajeIVA As Decimal = (gvrc.FCHiddenField("HdnPorcentajeIVA").Value.ToDecimal() * 100).ToEntero
AbonoProveedor = 0 : CargoProveedor = 0 : CargoAnticipo = 0 : AbonoAnticipo = 0
@@ -1666,15 +1740,50 @@ Partial Class Contabilidad_DiarioAmortizaciones
End If
End If
Dim UUID As String = gvrc.FCHiddenField("HdnUUID").Value
If Not Conta.AddDevolucionesIVA(IDPoliza, IdCuentaBancos, IdProveedor, 16,
SubTotal,
IVAAcreditable * TipoCambioPago,
CompraPagadoRetIVA * TipoCambioPago,
CompraPagadoRetISR * TipoCambioPago,
Fecha, NumPoliza.ToString, gvrc.FCHiddenField("HdnSerie").Value, gvrc.FCHiddenField("HdnFolio").Value.StrToNum, "", UsuarioActual.CveEmpresa) Then
Fecha, NumPoliza.ToString, gvrc.FCHiddenField("HdnSerie").Value, gvrc.FCHiddenField("HdnFolio").Value.StrToNum, UUID, UsuarioActual.CveEmpresa) Then
MsgError = "No se pudo insertar movimientos de devoluciones de IVA" : Exit For
End If
If MsgError = "" Then
Dim GuidMov As String = Guid.NewGuid().ToString()
Dim NoDeducible = False
Dim IVANoAcred As Decimal = 0 'si NoDeducible es true -- > Es el iva no deducible , ivano deducible totald e la compra
If Not Conta.AddMovimientoImpuesto(IDPoliza, IdCuentaBancos, IdProveedor, PorcentajeIVA, PorcentajeIVA, SubTotal, IVAAcreditable * TipoCambioPago,
Fecha, NumPoliza.ToString, gvrc.FCHiddenField("HdnSerie").Value, gvrc.FCHiddenField("HdnFolio").Value.StrToNum, UUID, NoDeducible, IVANoAcred, GuidMov, "", 1, 2) Then
MsgError = "No se pudo insertar movimientos de impuesto de IVA" : Exit For
End If
If MsgError = "" AndAlso CompraPagadoRetIVA > 0 Then
Dim GuidMovRetIVA As String = Guid.NewGuid().ToString()
Dim TasaOCuotaRetIVA As Decimal = (((CompraPagadoRetIVA * TipoCambioPago) / SubTotal) * 100).ToDecimal.RoundSQL(4)
If Not Conta.AddMovimientoImpuesto(IDPoliza, IdCuentaBancos, IdProveedor, PorcentajeIVA, TasaOCuotaRetIVA, SubTotal, CompraPagadoRetIVA * TipoCambioPago,
Fecha, NumPoliza.ToString, gvrc.FCHiddenField("HdnSerie").Value, gvrc.FCHiddenField("HdnFolio").Value.StrToNum, UUID, NoDeducible, IVANoAcred, GuidMovRetIVA, GuidMov, 2, 2) Then
MsgError = "No se pudo insertar movimientos de retención de IVA" : Exit For
End If
End If
If MsgError = "" AndAlso CompraPagadoRetISR > 0 Then
Dim GuidMovRetISR As String = Guid.NewGuid().ToString()
Dim TasaOCuotaRetIVA As Decimal = (((CompraPagadoRetISR * TipoCambioPago) / SubTotal) * 100).ToDecimal.RoundSQL(4)
If Not Conta.AddMovimientoImpuesto(IDPoliza, IdCuentaBancos, IdProveedor, PorcentajeIVA, TasaOCuotaRetIVA, SubTotal, CompraPagadoRetISR * TipoCambioPago,
Fecha, NumPoliza.ToString, gvrc.FCHiddenField("HdnSerie").Value, gvrc.FCHiddenField("HdnFolio").Value.StrToNum, UUID, NoDeducible, IVANoAcred, GuidMovRetISR, GuidMov, 2, 1) Then
MsgError = "No se pudo insertar movimientos de retención de ISR" : Exit For
End If
End If
End If
End If
'afecto los movimientos en los que se hizo el pago

9
Inventarios/EntradasSalidas.aspx.vb
View File

@@ -5,6 +5,7 @@ Imports System.Data
Imports System.IO
Imports Extensiones
Imports GemBox.Spreadsheet
Imports iText.Barcodes.Dmcode
Partial Class Inventarios_EntradasSalidas
Inherits ClsPaginas
@@ -2049,7 +2050,8 @@ Partial Class Inventarios_EntradasSalidas
''VALIDA EXISTENCIAS
Dim Cont As Integer = 0
If DdlConcepto.SelectedValue.Contiene({"3", "11", "13", "21", "30", "31"}) Then
Dim tConceptoOrigen As Integer = GlobalDTInvConceptos.FiltroPrimeroValor("Origen", $"CveConcepto = {DdlConcepto.SelectedValue}").ToEntero
If tConceptoOrigen < 0 Then 'si es negativo el origen, indica salida de almacen
For Each Dr As DataRow In DtMovimientos.Rows
Dim FechaCaducidadVal As Date = If(Dr("AplicaCaducidad").ToString = "True", Dr("FechaCaducidad").ToString.ToDate, MinFecha)
Dim FechaMovtoExistenciaStr As String = $"{FechaMovimiento.ToString("yyyy/MM/dd")} {FechaMovimiento.ToString("HH:mm")}"
@@ -2137,6 +2139,7 @@ Partial Class Inventarios_EntradasSalidas
Dim CveConceptoContable As Integer = 260
Dim CveClasificacion As Integer = -1
Select Case DdlConcepto.SelectedValue.ToEntero
Case 2, 32
EsContabilizable = True
@@ -2188,7 +2191,7 @@ Partial Class Inventarios_EntradasSalidas
End If
Next
Else
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovtoAlmacen, tValorInventario, tValorInventario, CveConceptoContable, TxtObservaciones.Text.Trim, TxtObservaciones.Text.Trim, CveMovimientoAlmacen:=CveMovimiento, CveClasificacion:=CveClasificacion, Contabilizable:=EsContabilizable) Then
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovtoAlmacen, tValorInventario, tValorInventario, CveConceptoContable, TxtObservaciones.Text.Trim, TxtObservaciones.Text.Trim, CveMovimientoAlmacen:=CveMovimiento, CveClasificacion:=CveClasificacion, CveSubProyecto:=tCveSubProyecto, Contabilizable:=EsContabilizable) Then
ErrorMovInv = True
End If
End If
@@ -2401,7 +2404,7 @@ Partial Class Inventarios_EntradasSalidas
ObjInventario.RollBack() 'deshace lo insertado
CveMovimiento = 0
If ObjContaAC IsNot Nothing Then ObjContaAC.RollBack()
Alert("Ocurrió un error al registrar los movimientos", TipoMensaje.MsgError)
'Alert("Ocurrió un error al registrar los movimientos", TipoMensaje.MsgError)
RegistraScript("playsonidito('142608__autistic-lucario__error.wav')")
End If
End If

16
Ventas/RepVentasDetalle.aspx
View File

@@ -637,6 +637,12 @@
<asp:Literal ID="LtlTipoVenta" runat="server" Text='<%# Eval("TipoVenta") %>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<%-- 46--%>
<asp:TemplateField HeaderText="Fecha y Hora" Visible="false">
<ItemTemplate>
<asp:Literal ID="LtlFH" runat="server" Text='<%# Eval("Fecha", "{0:dd/MM/yyyy HH:mm:ss}") %>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
</Columns>
</asp:GridView>
</ContentTemplate>
@@ -835,7 +841,15 @@
<td style="text-align: left;">
<asp:CheckBox ID="ChkDescripcionVenta" runat="server" Visible="true" Text="&nbsp; Descripción Venta" /></td>
</tr>
<tr>
<td style="text-align: left;">
<asp:CheckBox ID="ChkFechaHora" runat="server" Visible="true" Text="&nbsp; Fecha Hora" /></td>
<td style="text-align: left;">
</td>
<td style="text-align: left;">
</td>
</tr>
</tbody>
</table>

1
Ventas/RepVentasDetalle.aspx.vb
View File

@@ -1068,6 +1068,7 @@ Partial Class RepVentasDetalle
GvDatos.Columns(43).Visible = ChkDescargarXML.Checked
GvDatos.Columns(44).Visible = ChkDescargarPDF.Checked
GvDatos.Columns(45).Visible = ChkTipoVenta.Checked
GvDatos.Columns(46).Visible = ChkFechaHora.Checked
Personalizo = 1
If Personalizo = 1 Then