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

9
Inventarios/EntradasSalidas.aspx.vb
View File

@@ -5,6 +5,7 @@ Imports System.Data
Imports System.IO Imports System.IO
Imports Extensiones Imports Extensiones
Imports GemBox.Spreadsheet Imports GemBox.Spreadsheet
Imports iText.Barcodes.Dmcode
Partial Class Inventarios_EntradasSalidas Partial Class Inventarios_EntradasSalidas
Inherits ClsPaginas Inherits ClsPaginas
@@ -2049,7 +2050,8 @@ Partial Class Inventarios_EntradasSalidas
''VALIDA EXISTENCIAS ''VALIDA EXISTENCIAS
Dim Cont As Integer = 0 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 For Each Dr As DataRow In DtMovimientos.Rows
Dim FechaCaducidadVal As Date = If(Dr("AplicaCaducidad").ToString = "True", Dr("FechaCaducidad").ToString.ToDate, MinFecha) 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")}" 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 CveConceptoContable As Integer = 260
Dim CveClasificacion As Integer = -1 Dim CveClasificacion As Integer = -1
Select Case DdlConcepto.SelectedValue.ToEntero Select Case DdlConcepto.SelectedValue.ToEntero
Case 2, 32 Case 2, 32
EsContabilizable = True EsContabilizable = True
@@ -2188,7 +2191,7 @@ Partial Class Inventarios_EntradasSalidas
End If End If
Next Next
Else 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 ErrorMovInv = True
End If End If
End If End If
@@ -2401,7 +2404,7 @@ Partial Class Inventarios_EntradasSalidas
ObjInventario.RollBack() 'deshace lo insertado ObjInventario.RollBack() 'deshace lo insertado
CveMovimiento = 0 CveMovimiento = 0
If ObjContaAC IsNot Nothing Then ObjContaAC.RollBack() 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')") RegistraScript("playsonidito('142608__autistic-lucario__error.wav')")
End If End If
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> <asp:Literal ID="LtlTipoVenta" runat="server" Text='<%# Eval("TipoVenta") %>'></asp:Literal>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </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> </Columns>
</asp:GridView> </asp:GridView>
</ContentTemplate> </ContentTemplate>
@@ -835,7 +841,15 @@
<td style="text-align: left;"> <td style="text-align: left;">
<asp:CheckBox ID="ChkDescripcionVenta" runat="server" Visible="true" Text="&nbsp; Descripción Venta" /></td> <asp:CheckBox ID="ChkDescripcionVenta" runat="server" Visible="true" Text="&nbsp; Descripción Venta" /></td>
</tr> </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> </tbody>
</table> </table>

1
Ventas/RepVentasDetalle.aspx.vb
View File

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