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

Movmientos Impuestos diario de pagos, reembolsos y comprobaciones CveCuentaDeposito en layout y layout grupos

Browse Source
This commit is contained in:
rakcsle
2025-05-07 17:58:40 -07:00
parent 994ed6b146
commit 79747a3084
3 changed files with 126 additions and 6 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 Extensiones
Imports Microsoft.Reporting.WebForms Imports Microsoft.Reporting.WebForms
Partial Class Compras_ReembolsosComprobaciones Partial Class Compras_ReembolsosComprobaciones
Inherits ClsPaginas Inherits ClsPaginas
@@ -364,7 +365,13 @@ Partial Class Compras_ReembolsosComprobaciones
Dim Dep As New ClsGenerales Dim Dep As New ClsGenerales
If Dep.GetCuentasDepositos(CvePersonal:=CvePersonal, CveEmpresa:=UsuarioActual.CveEmpresa) Then 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 If Dep.DtResultados.Rows.Count > 0 Then
trCuentaDeposito.Visible = True trCuentaDeposito.Visible = True
@@ -431,8 +438,9 @@ Partial Class Compras_ReembolsosComprobaciones
#Region " BTN GUARDAR " #Region " BTN GUARDAR "
Protected Sub BtnIEGuardar_Click(sender As Object, e As EventArgs) Handles BtnIEGuardar.Click 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) 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 If CvecuentaDeposito <= 0 Then
Alert("Debe de seleccionar una cuenta deposito", TipoMensaje.MsgAdvertencia) Alert("Debe de seleccionar una cuenta deposito", TipoMensaje.MsgAdvertencia)
Exit Sub Exit Sub
@@ -738,7 +746,7 @@ Partial Class Compras_ReembolsosComprobaciones
Pago.CveIE = CveIEPago Pago.CveIE = CveIEPago
Pago.CveMonedaPago = CveMonedaPago Pago.CveMonedaPago = CveMonedaPago
Pago.TCPago = TipoCambioPago Pago.TCPago = TipoCambioPago
Pago.CvePersonal =CvePersonal Pago.CvePersonal = CvePersonal
ImportePagoTotal = ImportePagoTotal + ImporteMovto ImportePagoTotal = ImportePagoTotal + ImporteMovto
If UsuarioActual.CveEmpresa.Contiene(7, 11, 12, 122, 145) Then 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="HdnIdCtaContRetISR" runat="server" Value='<%# Eval("IdCtaContRetISR")%>' />
<asp:HiddenField ID="HdnCompraIdPoliza" runat="server" Value='<%# Eval("CompraIdPoliza")%>' /> <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"> <table width="100%" cellpadding="0" cellspacing="0" runat="server" id="TbCompra">
<tr class="SubTotales"> <tr class="SubTotales">
@@ -616,6 +617,7 @@
<asp:HiddenField ID="HdnIdCtaContRetISR" runat="server" Value='<%# Eval("IdCtaContRetISR")%>' /> <asp:HiddenField ID="HdnIdCtaContRetISR" runat="server" Value='<%# Eval("IdCtaContRetISR")%>' />
<asp:HiddenField ID="HdnCompraIdPoliza" runat="server" Value='<%# Eval("CompraIdPoliza")%>' /> <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"> <table width="100%" cellpadding="0" cellspacing="0" runat="server" id="TbCompra">
<tr class="SubTotales"> <tr class="SubTotales">
@@ -791,6 +793,7 @@
<asp:HiddenField ID="HdnIdCtaContRetISR" runat="server" Value='<%# Eval("IdCtaContRetISR")%>' /> <asp:HiddenField ID="HdnIdCtaContRetISR" runat="server" Value='<%# Eval("IdCtaContRetISR")%>' />
<asp:HiddenField ID="HdnCompraIdPoliza" runat="server" Value='<%# Eval("CompraIdPoliza")%>' /> <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"> <table width="100%" cellpadding="0" cellspacing="0" runat="server" id="TbCompra">
<tr class="SubTotales"> <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 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 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 MsgError = "No se pudo insertar movimientos de devoluciones de IVA" : Exit For
End If End If
End If End If
Dim UUID As String = gvrc.FCHiddenField("HdnUUID").Value
If Not Conta.AddDevolucionesIVA(IDPoliza, IdCuentaBancos, IdProveedor, 16, If Not Conta.AddDevolucionesIVA(IDPoliza, IdCuentaBancos, IdProveedor, 16,
SubTotal, SubTotal,
IVAAcreditable * TipoCambioPago, IVAAcreditable * TipoCambioPago,
CompraPagadoRetIVA * TipoCambioPago, CompraPagadoRetIVA * TipoCambioPago,
CompraPagadoRetISR * 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 MsgError = "No se pudo insertar movimientos de devoluciones de IVA" : Exit For
End If 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 End If
@@ -1093,6 +1130,7 @@ Partial Class Contabilidad_DiarioAmortizaciones
For Each gvrc As GridViewRow In GvCompras.Rows 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 AbonoProveedor = 0 : CargoProveedor = 0 : CargoAnticipo = 0 : AbonoAnticipo = 0
@@ -1241,15 +1279,50 @@ Partial Class Contabilidad_DiarioAmortizaciones
End If End If
End If End If
Dim UUID As String = gvrc.FCHiddenField("HdnUUID").Value
If IdCuentaBancos > 0 AndAlso Not Conta.AddDevolucionesIVA(IDPoliza, IdCuentaBancos, IdProveedor, 16, If IdCuentaBancos > 0 AndAlso Not Conta.AddDevolucionesIVA(IDPoliza, IdCuentaBancos, IdProveedor, 16,
SubTotal, SubTotal,
IVAAcreditable * TipoCambioPago, IVAAcreditable * TipoCambioPago,
CompraPagadoRetIVA * TipoCambioPago, CompraPagadoRetIVA * TipoCambioPago,
CompraPagadoRetISR * 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 MsgError = "No se pudo insertar movimientos de devoluciones de IVA" : Exit For
End If 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 End If
'afecto los movimientos en los que se hizo el pago '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 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 AbonoProveedor = 0 : CargoProveedor = 0 : CargoAnticipo = 0 : AbonoAnticipo = 0
@@ -1666,15 +1740,50 @@ Partial Class Contabilidad_DiarioAmortizaciones
End If End If
End If End If
Dim UUID As String = gvrc.FCHiddenField("HdnUUID").Value
If Not Conta.AddDevolucionesIVA(IDPoliza, IdCuentaBancos, IdProveedor, 16, If Not Conta.AddDevolucionesIVA(IDPoliza, IdCuentaBancos, IdProveedor, 16,
SubTotal, SubTotal,
IVAAcreditable * TipoCambioPago, IVAAcreditable * TipoCambioPago,
CompraPagadoRetIVA * TipoCambioPago, CompraPagadoRetIVA * TipoCambioPago,
CompraPagadoRetISR * 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 MsgError = "No se pudo insertar movimientos de devoluciones de IVA" : Exit For
End If 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 End If
'afecto los movimientos en los que se hizo el pago 'afecto los movimientos en los que se hizo el pago