From bd34bcb36388b0f33649d41293e97665aed10d67 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Fri, 21 Jan 2022 00:26:55 -0700 Subject: [PATCH 01/30] Cancelacion de movimientos de usados en RNC --- App_Code/Modelos.vb | 83 +++++++++++++++++++++++++++++++++++---------- 1 file changed, 66 insertions(+), 17 deletions(-) diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb index 7a03c7d0b..c11f1ae25 100644 --- a/App_Code/Modelos.vb +++ b/App_Code/Modelos.vb @@ -2182,6 +2182,39 @@ Namespace Modelos Return Resultado End Function + + Private Function CancelarInventarioUsado(factura As Modelos.Factura, CveAlmacenUsado As Integer, CveMovimientoEntrada As Integer, ByRef ObjInventario As ClsInventarios) As Integer + Dim CveMovimiento As Integer = -1 + Try + CveMovimiento = ObjInventario.AddMovimiento(CveAlmacenUsado, 3, 1, Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, factura.CveVenta, + factura.CveSubProyecto, CveActivoFijo:=-1, Guia:="", Observaciones:="", CvePersonal:=-1, CveCliente:=factura.CveCliente, CveClienteSucursal:=-1, Modulo:="M/CU") + If CveMovimiento <= 0 Then + CveMovimiento = -1 + Else + Dim DtMovimientosEntrada As DataTable = Nothing + If ObjInventario.GetMovimientosDetalle(CveMovimientoEntrada, factura.CveEmpresa) Then + DtMovimientosEntrada = ObjInventario.DtResultados.Copy() + End If + + If DtMovimientosEntrada IsNot Nothing Then + For Each Dr As DataRow In DtMovimientosEntrada.Rows + If Not ObjInventario.AddMovimientoDetalle(CveMovimiento, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, CveAF:=Dr("CveAF").ToString.ToEntero, Serie:=Dr("Serie").ToString, Lote:=Dr("Lote").ToString, FechaCaducidad:=Dr("FechaCaducidad").ToString.ToDate, Observaciones:=Dr("Observaciones").ToString, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then + CveMovimiento = -1 + Exit For + End If + Next + + DtMovimientosEntrada.Dispose() + DtMovimientosEntrada = Nothing + End If + End If + Catch ex As Exception + OnError("Ocurrió un erro al cancelar el movimiento de usado", ex) + CveMovimiento = -1 + End Try + + Return CveMovimiento + End Function Private Function GuardarPolizasVirtuales(SqlTransaccion As SqlClient.SqlTransaction, ObjFactura As Modelos.Factura) As Boolean Dim Resultado As Boolean = True @@ -2405,28 +2438,44 @@ Namespace Modelos 'VERIFICA SI TIENE MOVIMIENTO DE ENTRADA DE USADO If CveMovimiento > 0 AndAlso CveAlmacen > 0 Then + Dim CveMovimientoReferencia As Integer = -1 + 'SI ES CANCELACION DEBE GENERAR EL MOVIMIENTO DE SALIDA DE USADOS + If ValorMultiplicador = -1 Then + CveMovimientoReferencia = CancelarInventarioUsado(ObjFactura, CveAlmacen, CveMovimiento, ObjInventario) - If ObjInventario.GetMovimientosDetalle(CveMovimiento, UsuarioActual.CveEmpresa) Then - Dim Importe68 As Decimal = ObjInventario.DtResultados.SUMD("Total").RoundSQL - - Dim IdCtaContable68 = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContable", $"CveAlmacen={CveAlmacen}").ToEntero - - If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, Importe68, Referencia, 68, Concepto, FechaMovimiento, IdCtaContable68, -1, CveVenta:=CveVenta, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=Importe68, Contabilizable:=False) Then - ErrorPrepoliza = True - End If - - Dim Importe318 As Decimal = importeMovimiento - Importe68 - - If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, Importe318, Referencia, 318, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIE, ImporteMX:=Importe318, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), Contabilizable:=False, CveSubProyecto:=CveSubProyectoContabilizar) Then - ErrorPrepoliza = True - End If - - If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, Not TipoMovimiento, importeMovimiento, Referencia, 277, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIE, ImporteMX:=importeMX, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), Contabilizable:=False, CveSubProyecto:=CveSubProyectoContabilizar) Then + If ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, 277, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIE, ImporteMX:=importeMX, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), Contabilizable:=False, CveSubProyecto:=CveSubProyectoContabilizar) Then + If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, Not TipoMovimiento, importeMovimiento, Referencia, 278, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIE, ImporteMX:=importeMX, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), Contabilizable:=False, CveSubProyecto:=CveSubProyectoContabilizar) Then + ErrorPrepoliza = True + End If + Else ErrorPrepoliza = True End If Else - ErrorPrepoliza = True + CveMovimientoReferencia = CveMovimiento + + If ObjInventario.GetMovimientosDetalle(CveMovimientoReferencia, UsuarioActual.CveEmpresa) Then + Dim Importe68 As Decimal = ObjInventario.DtResultados.SUMD("Total").RoundSQL + + Dim IdCtaContable68 = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContable", $"CveAlmacen={CveAlmacen}").ToEntero + + If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, Importe68, Referencia, 68, Concepto, FechaMovimiento, IdCtaContable68, -1, CveVenta:=CveVenta, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=Importe68, Contabilizable:=False) Then + ErrorPrepoliza = True + End If + + Dim Importe318 As Decimal = (Math.Abs(importeMovimiento) - Math.Abs(Importe68)) + + If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, Importe318, Referencia, 318, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIE, ImporteMX:=Importe318, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), Contabilizable:=False, CveSubProyecto:=CveSubProyectoContabilizar) Then + ErrorPrepoliza = True + End If + + If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, Not TipoMovimiento, importeMovimiento, Referencia, 277, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIE, ImporteMX:=importeMX, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), Contabilizable:=False, CveSubProyecto:=CveSubProyectoContabilizar) Then + ErrorPrepoliza = True + End If + + Else + ErrorPrepoliza = True + End If End If Else From e184baa9361321fb52e4c2ee047a6ae49bbf0971 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Fri, 21 Jan 2022 00:27:34 -0700 Subject: [PATCH 02/30] No calcular descuentos en productos con clasificacion "cambio de vigencia" --- Ventas/Ventas.aspx.vb | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 9ac36316a..b2f7fe442 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -17233,7 +17233,11 @@ Partial Class Ventas If CveClasifPS = 20636 Then ValidaCondicionesComerciales = False End If - + 'CAMBIO DE VIGENCIA NO SE APLICAN DESCUENTOS + If CveClasifPS = 20637 Then + ObjDescuento.ImporteDescuento = 0 + Return ObjDescuento + End If End If Dim dr As DataRow = Nothing From 16965c028313fca0412fa86bc69649f4a08d3ad7 Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 24 Jan 2022 08:43:20 -0700 Subject: [PATCH 03/30] =?UTF-8?q?--=20filtro=20cvetipocami=C3=B3n.=20en=20?= =?UTF-8?q?getcamiones?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- App_Code/ClsInventarios.vb | 19 ++++++++++++++++++- 1 file changed, 18 insertions(+), 1 deletion(-) diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb index 7d53118dc..80f566d0c 100644 --- a/App_Code/ClsInventarios.vb +++ b/App_Code/ClsInventarios.vb @@ -5514,13 +5514,23 @@ Public Class ClsInventarios #End Region + + + + + + + + + #Region "Camiones" - Public Function GetCamiones(CveCamion As Integer, CveEmpresa As Integer) As Boolean + Public Function GetCamiones(CveCamion As Integer, CveEmpresa As Integer, Optional CveTipoCamion As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Inv_CamionesGet") With SqlAdapter.SelectCommand.Parameters .Add("@CveCamion", SqlDbType.Int).Value = CveCamion .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveTipoCamion", SqlDbType.Int).Value = CveTipoCamion End With Try SqlAdapter.Fill(Data) @@ -5623,6 +5633,13 @@ Public Class ClsInventarios End Function #End Region + + + + + + + Public Function GetExistenciasMedRin(CvePS As Integer, CveEmpresa As Integer, CveRinTamaño As Integer, CveMedida As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Inv_ExistenciaMedRinGet") From 80940f3b27013e572d2c12c165a573a6ca2f8ef3 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Mon, 24 Jan 2022 17:27:55 -0700 Subject: [PATCH 04/30] Obtener el acuse de cancealcion al imprimir si no existe, salida de usados al cancelar RNC --- App_Code/ClsVentas.vb | 7 +++-- App_Code/Modelos.vb | 54 ++++++++++++++------------------- Compras/PopUpVerFactura.aspx.vb | 15 +++++++++ 3 files changed, 43 insertions(+), 33 deletions(-) diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb index de1740aa1..bdde60a8d 100644 --- a/App_Code/ClsVentas.vb +++ b/App_Code/ClsVentas.vb @@ -242,13 +242,14 @@ Public Class ClsVentas Return Retorno End Function - Public Function GetVentasPendientesCancelacion(CveEmpresa As Integer, CveUsuarioConsulta As Integer) As Boolean + Public Function GetVentasPendientesCancelacion(CveEmpresa As Integer, CveUsuarioConsulta As Integer, Optional CveVenta As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Vta_VentasPendientesCancelacionGet") With SqlAdapter.SelectCommand.Parameters .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@CveUsuarioConsulta", SqlDbType.Int).Value = CveUsuarioConsulta + .Add("@CveVenta", SqlDbType.Int).Value = CveVenta End With Try @@ -5270,7 +5271,7 @@ Public Class ClsVentas Return Retorno End Function - Public Function GetAutorizacionLimite(CveEmpresa As Integer, CveCliente As Integer, CveVendedor As Integer, Optional CveEstatus As Integer = -1) As Boolean + Public Function GetAutorizacionLimite(CveEmpresa As Integer, CveCliente As Integer, CveVendedor As Integer, Optional CveEstatus As Integer = -1, Optional FechaI As DateTime = MinFecha, Optional FechaF As DateTime = MaxFecha) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Vta_AutorizacionLimitesGet") With SqlAdapter.SelectCommand.Parameters @@ -5278,6 +5279,8 @@ Public Class ClsVentas .Add("@CveCliente", SqlDbType.Int).Value = CveCliente .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor .Add("@CveEstatus", SqlDbType.Int).Value = CveEstatus + .Add("@FechaI", SqlDbType.Date).Value = FechaI + .Add("@FechaF", SqlDbType.Date).Value = FechaF End With Try SqlAdapter.Fill(Data) diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb index c11f1ae25..cd903ab91 100644 --- a/App_Code/Modelos.vb +++ b/App_Code/Modelos.vb @@ -2186,7 +2186,8 @@ Namespace Modelos Private Function CancelarInventarioUsado(factura As Modelos.Factura, CveAlmacenUsado As Integer, CveMovimientoEntrada As Integer, ByRef ObjInventario As ClsInventarios) As Integer Dim CveMovimiento As Integer = -1 Try - CveMovimiento = ObjInventario.AddMovimiento(CveAlmacenUsado, 3, 1, Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, factura.CveVenta, + Dim CveConceptoSalidaUsado As Integer = 45 + CveMovimiento = ObjInventario.AddMovimiento(CveAlmacenUsado, CveConceptoSalidaUsado, 1, Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, factura.CveVenta, factura.CveSubProyecto, CveActivoFijo:=-1, Guia:="", Observaciones:="", CvePersonal:=-1, CveCliente:=factura.CveCliente, CveClienteSucursal:=-1, Modulo:="M/CU") If CveMovimiento <= 0 Then CveMovimiento = -1 @@ -2439,45 +2440,36 @@ Namespace Modelos 'VERIFICA SI TIENE MOVIMIENTO DE ENTRADA DE USADO If CveMovimiento > 0 AndAlso CveAlmacen > 0 Then Dim CveMovimientoReferencia As Integer = -1 + Dim TipoMovto68 = TipoMovimiento 'SI ES CANCELACION DEBE GENERAR EL MOVIMIENTO DE SALIDA DE USADOS If ValorMultiplicador = -1 Then CveMovimientoReferencia = CancelarInventarioUsado(ObjFactura, CveAlmacen, CveMovimiento, ObjInventario) + Else + CveMovimientoReferencia = CveMovimiento + End If - If ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, 277, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIE, ImporteMX:=importeMX, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), Contabilizable:=False, CveSubProyecto:=CveSubProyectoContabilizar) Then - If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, Not TipoMovimiento, importeMovimiento, Referencia, 278, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIE, ImporteMX:=importeMX, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), Contabilizable:=False, CveSubProyecto:=CveSubProyectoContabilizar) Then - ErrorPrepoliza = True - End If - Else + If ObjInventario.GetMovimientosDetalle(CveMovimientoReferencia, UsuarioActual.CveEmpresa) Then + Dim Importe68 As Decimal = ObjInventario.DtResultados.SUMD("Total").RoundSQL * ValorMultiplicador + + Dim IdCtaContable68 = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContable", $"CveAlmacen={CveAlmacen}").ToEntero + + If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovto68, Importe68, Referencia, 68, Concepto, FechaMovimiento, IdCtaContable68, -1, CveVenta:=CveVenta, CveMovimientoAlmacen:=CveMovimientoReferencia, ImporteMX:=Importe68, Contabilizable:=False) Then + ErrorPrepoliza = True + End If + + Dim Importe318 As Decimal = (Math.Abs(importeMovimiento) - Math.Abs(Importe68)) * ValorMultiplicador + + If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, Importe318, Referencia, 318, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIE, ImporteMX:=Importe318, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), Contabilizable:=False, CveSubProyecto:=CveSubProyectoContabilizar) Then + ErrorPrepoliza = True + End If + + If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, Not TipoMovimiento, importeMovimiento, Referencia, 277, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIE, ImporteMX:=importeMX, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), Contabilizable:=False, CveSubProyecto:=CveSubProyectoContabilizar) Then ErrorPrepoliza = True End If Else - CveMovimientoReferencia = CveMovimiento - - If ObjInventario.GetMovimientosDetalle(CveMovimientoReferencia, UsuarioActual.CveEmpresa) Then - Dim Importe68 As Decimal = ObjInventario.DtResultados.SUMD("Total").RoundSQL - - Dim IdCtaContable68 = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContable", $"CveAlmacen={CveAlmacen}").ToEntero - - If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, Importe68, Referencia, 68, Concepto, FechaMovimiento, IdCtaContable68, -1, CveVenta:=CveVenta, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=Importe68, Contabilizable:=False) Then - ErrorPrepoliza = True - End If - - Dim Importe318 As Decimal = (Math.Abs(importeMovimiento) - Math.Abs(Importe68)) - - If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, Importe318, Referencia, 318, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIE, ImporteMX:=Importe318, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), Contabilizable:=False, CveSubProyecto:=CveSubProyectoContabilizar) Then - ErrorPrepoliza = True - End If - - If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, Not TipoMovimiento, importeMovimiento, Referencia, 277, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIE, ImporteMX:=importeMX, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), Contabilizable:=False, CveSubProyecto:=CveSubProyectoContabilizar) Then - ErrorPrepoliza = True - End If - - Else - ErrorPrepoliza = True - End If + ErrorPrepoliza = True End If - Else If ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, 277, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIE, ImporteMX:=importeMX, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), Contabilizable:=False, CveSubProyecto:=CveSubProyectoContabilizar) Then If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, Not TipoMovimiento, importeMovimiento, Referencia, 278, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIE, ImporteMX:=importeMX, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), Contabilizable:=False, CveSubProyecto:=CveSubProyectoContabilizar) Then diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb index 78d5d76c9..0ec920570 100644 --- a/Compras/PopUpVerFactura.aspx.vb +++ b/Compras/PopUpVerFactura.aspx.vb @@ -14,6 +14,8 @@ Imports Stimulsoft.Report.Components Imports Stimulsoft.Report.Dictionary Imports Stimulsoft.Report.Web Imports Newtonsoft.Json.Linq +Imports System +Imports Microsoft.VisualBasic Partial Class PopUpVerFactura Inherits ClsPaginas @@ -4830,6 +4832,19 @@ Partial Class PopUpVerFactura Dim Titulo As String = "Acuse de cancelación de CFDI" Dim EstadoCFDI As String = "Cancelado" + + 'SI NO TIENE EL SELLO BUSCA OBTNERLO DE NUEVO + If String.IsNullOrEmpty(SelloCancelacion) Then + Dim ObjCancelacion As New Timbrado + If ObjCancelacion.ObtenerAcuse(CveVenta, UsuarioActual) Then + SelloCancelacion = ObjCancelacion.CancelacionAcuse + + If FechaCancelacion = Nothing OrElse FechaCancelacion = MinFecha Then + FechaCancelacion = ObjCancelacion.CancelacionFecha + End If + End If + End If + If CveEstatusFactura = 20 Then Titulo = "Acuse de solicitud de cancelación de CFDI" EstadoCFDI = "Vigente" From 63b22e7f4f22671570f33b0868d3808e21a5a4e0 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Mon, 24 Jan 2022 17:28:36 -0700 Subject: [PATCH 05/30] Funcion para obtener el acuse de cancelacion --- App_Code/Timbrado.vb | 77 ++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 77 insertions(+) diff --git a/App_Code/Timbrado.vb b/App_Code/Timbrado.vb index 191c38d6e..dd2d4be5d 100644 --- a/App_Code/Timbrado.vb +++ b/App_Code/Timbrado.vb @@ -51,6 +51,83 @@ Public Class Timbrado #End Region + Public Function ObtenerAcuse(CveVenta As Integer, UsuarioActual As Usuario) As Boolean + Dim Retorno As Boolean = False + Try + Dim RowVentas As DataRow = Nothing + Dim RFCEmisor = UsuarioActual.Empresa.RFC + Dim RFCReceptor As String = "" + Dim FolioFiscal As String = "" + Dim FolioSustitucion As String = "" + Dim CvePACCancelacion As Integer = -1 + Dim CveSATMotivoCancelacion As Integer = -1 + Dim CveMotivoCancelacion As Integer = -1 + Dim TotalT As Decimal = 0 + + Using ObjVentas As New ClsVentas + If ObjVentas.GetVentasPendientesCancelacion(UsuarioActual.CveEmpresa, 100, CveVenta) AndAlso ObjVentas.DtResultados.Rows.Count > 0 Then + RowVentas = ObjVentas.DtResultados.Rows(0) + End If + End Using + + If RowVentas IsNot Nothing Then + FolioFiscal = RowVentas("FolioFiscal").ToString() + RFCReceptor = RowVentas("RFCReceptor").ToString() + CvePACCancelacion = RowVentas("CvePAC").ToString().ToEntero() + CveMotivoCancelacion = RowVentas("CveMotivoCancelacion").ToString().ToEntero() + TotalT = RowVentas("Total").ToString().ToDecimal() + FolioSustitucion = RowVentas("FolioFiscalSustitucion").ToString() + End If + + If CveMotivoCancelacion > 0 Then + Dim Row As DataRow = ClsPaginas.GlobalDTMotivosCancelacionEmpresa(UsuarioActual.CveEmpresa, CveMotivoCancelacion:=CveMotivoCancelacion).FiltroPrimero("") + If Row IsNot Nothing Then + CveSATMotivoCancelacion = Row("CveSATMotivoCancelacion").ToString().ToEntero() + End If + End If + + + If CvePACCancelacion = 4 Then + Dim solicitud As New WSGF.Service1SoapClient + Dim resp As New WSGF.StructXml() + resp = solicitud.GetAcuse(RFCEmisor, "rene.molina@adsistemas.mx", "rene2018", FolioFiscal) + If (resp.Estado = 0) Then + + Dim xmlDoc As New System.Xml.XmlDocument() + xmlDoc.LoadXml(Encoding.UTF8.GetString(Convert.FromBase64String(resp.CfdiB64))) + Dim xpath As String = "Acuse/Folios" + Dim nodes = xmlDoc.SelectNodes(xpath) + CancelacionState = xmlDoc.GetElementsByTagName("EstatusUUID")(0).InnerText.ToEntero + + xpath = "Acuse/Signature" + nodes = xmlDoc.SelectNodes(xpath) + + Me.CancelacionAcuse = xmlDoc.GetElementsByTagName("SignatureValue")(0).InnerText + Me.CancelacionFecha = xmlDoc.SelectSingleNode("Acuse").Attributes("Fecha").Value.ToDate + Retorno = True + Else + CancelacionAcuse = resp.Descripcion + Retorno = False + End If + solicitud = Nothing + Else + If CFDICancelar(UsuarioActual.Empresa, FolioFiscal, TotalT, RFCReceptor, UsuarioActual.Empresa.RFC, CvePACCancelacion, CveSATMotivoCancelacion:=CveSATMotivoCancelacion, FolioSustitucion:=FolioSustitucion) Then + 'GENERAMOS EL ACUSE Y MANDAMOS MAIL DE CON EL ACUSE DE CANCELACIÓN + CancelacionFecha = Me.CancelacionFecha + CancelacionAcuse = Me.CancelacionAcuse + Retorno = True + End If + End If + + Catch ex As Exception + OnError("Ocurrió un error al intentar obtener el acuse", ex) + Retorno = False + End Try + + Return Retorno + End Function + + Public Shared Function VerificarVigenciaSAT(uuid As String, emisor As String, receptor As String, total As String, produccion As Boolean) As AcuseCancelacionSAT Dim Retorno As AcuseCancelacionSAT = Nothing Dim resp As Cancelacion2022.AcuseSat = New Cancelacion2022.AcuseSat() From cbb126e0f2fe2aa46e6816bddd7202914a58dcda Mon Sep 17 00:00:00 2001 From: JORGE LUIS CAUDILLO ESPARZA Date: Mon, 24 Jan 2022 17:29:12 -0700 Subject: [PATCH 06/30] --- Compras/PopUpVerFactura.aspx.vb | 2 +- Documentacion/TableroMaterialidad.aspx | 166 +++++++++++++++++++--- Documentacion/TableroMaterialidad.aspx.cs | 99 ++++++++++++- Edoc/CatDocumentos.aspx.vb | 88 ++++++------ Nomina/ISRCalculoAnual.aspx | 128 ----------------- Nomina/ISRCalculoAnual.aspx.cs | 47 ------ RH/CatPersonal.aspx | 8 ++ RH/CatPersonal.aspx.vb | 5 + Ventas/Ventas.aspx.vb | 18 +++ vwd.webinfo | 6 + 10 files changed, 328 insertions(+), 239 deletions(-) delete mode 100644 Nomina/ISRCalculoAnual.aspx delete mode 100644 Nomina/ISRCalculoAnual.aspx.cs diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb index e50e6e1ac..fdd6679a9 100644 --- a/Compras/PopUpVerFactura.aspx.vb +++ b/Compras/PopUpVerFactura.aspx.vb @@ -262,7 +262,7 @@ Partial Class PopUpVerFactura Remolque1 = String.Format("{0} ", row("Rem1Especificacion"), row("Rem1Anio")) Mercado = If(row("AgenciaAduanalUSA").ToString() = "2", "Extranjero", "Nacional") - NumeroTrailer = row("NumeroTrailer").ToString() + NumeroTrailer = String.Format("No. {0}", row("NumeroTrailer").ToString()) LongitudCaja = row("LongitudCaja").ToString() LineaTransportacion = row("LineaTransportacion").ToString() diff --git a/Documentacion/TableroMaterialidad.aspx b/Documentacion/TableroMaterialidad.aspx index 744690695..a2a338199 100644 --- a/Documentacion/TableroMaterialidad.aspx +++ b/Documentacion/TableroMaterialidad.aspx @@ -11,9 +11,39 @@ #C_Tab_Tlablero tr td:nth-child(n+2) { text-align: center } - .spanfoliofiscal{ - white-space:nowrap; + + .spanfoliofiscal { + white-space: nowrap; } + th:not(.Modulo5) + th.Modulo5, + th:not(.Modulo6) + th.Modulo6, + th:not(.Modulo7) + th.Modulo7{ + border-left:1px solid black; + } + th.Modulo5 + th:not(.Modulo5), + th.Modulo6 + th:not(.Modulo6), + th.Modulo7 + th:not(.Modulo7){ + border-left:1px solid black; + } + .ADScroller-header .trtitle{ + display:none; + } + /* + tr:first-child th.Modulo5, + tr th.Modulo6, + tr th.Modulo7{ + border-left:1px solid black; + } + tr th.Modulo5:nth-child(1), + tr th.Modulo6:nth-child(1), + tr th.Modulo7:nth-child(1){ + border-left:1px solid black; + } + tr th.Modulo5:nth-last-child(1), + tr th.Modulo6:nth-last-child(1), + tr th.Modulo7:nth-last-child(1){ + border-right:1px solid black; + }*/ @@ -24,6 +54,10 @@ + +
  • + +
  • Cargar Doctos <%--Cargar Doctos--%> @@ -32,6 +66,7 @@ Cargar XML PDF <%--Cargar XML PDF--%>
    • +
  • Enviar
    •      @@ -83,9 +118,13 @@ - + +
    + + @@ -95,9 +134,9 @@ - + - <%-- + <%-- class='Modulo5' @@ -115,7 +154,7 @@ "; + + LtlThs.Text = string.Format("{0}{1}", LtlThs.Text, string.Concat(Enumerable.Repeat("", dt.Rows.Count))); + LtlThs.Text = string.Format("{0}", LtlThs.Text); + int filas = dt.FiltraParametros("Modulo =5").Rows.Count; + if(filas > 0) + { + LtlThs.Text = string.Format("{0}", LtlThs.Text, filas); + } + filas = dt.FiltraParametros("Modulo =6").Rows.Count; + if (filas > 0) + { + LtlThs.Text = string.Format("{0}", LtlThs.Text, filas); + } + filas = dt.FiltraParametros("Modulo =7").Rows.Count; + if (filas > 0) + { + LtlThs.Text = string.Format("{0}", LtlThs.Text, filas); + } + LtlThs.Text = string.Format("{0}", LtlThs.Text); RPTTableroHeader.DataSource = edoc.DSResultados.Tables[1]; RPTTableroHeader.DataBind(); RptDatos.DataBind(); @@ -350,12 +380,12 @@ public partial class Documentacion_TableroMaterialidad : ClsPaginas } - public void procesararchivo(string xmlobject,int periodo, bool guardarInformacion =false) + public void procesararchivo(string xmlobject, int periodo, bool guardarInformacion = false) { using (ClsEdocumentacion edoc = new ClsEdocumentacion()) { - if (edoc.materialidadDoctos(xmlobject,UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, periodo, guardarInformacion)) + if (edoc.materialidadDoctos(xmlobject, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, periodo, guardarInformacion)) { if (edoc.DtResultados.Rows.Count > 0) { @@ -542,6 +572,71 @@ public partial class Documentacion_TableroMaterialidad : ClsPaginas Alert("El correo se ha enviado."); } + + protected void BtnAgregarDocumento_Click(object sender, EventArgs e) + { + + Txtdocumentacion.Text = ""; + TxtOrden.Text = "1"; + TxtPeriodicidad.Text = "1"; + TxtDiasLimite.Text = "1"; + BtnAgregarDocumentoModal.Text = "Agregar"; + LtlTituloModalDocumentacion.Text = "Agregar documentación"; + DdlDocumentacionTipo.SelectedIndex = 0; + chkEstatus.Checked = true; + chkRequerido.Checked = true; + + ActualizarDocumentacion = false; + UpModalDocumentacion.Update(); + RegistraScript("$('#divAgregarDocumentacion').modal({ backdrop: 'static', keyboard: false});"); + } + + + + protected void BtnAgregarDocumentoModal_Click(object sender, EventArgs e) + { + using (ClsEdocumentacion objRH = new ClsEdocumentacion()) + { + int intCompleto = 0; + int _estatus = 0; + int _requerido = 0; + string _formato = ""; + + + if (chkEstatus.Checked) + _estatus = 1; + + if (chkRequerido.Checked) + _requerido = 1; + + if (ActualizarDocumentacion) + { + //_formato = GuardarArchivo(CveDocumentacion); + if (objRH.DocumentacionUpdate(CveDocumentacion, Txtdocumentacion.Text.Trim(), _formato, DdlDocumentacionTipo.SelectedValue.ToEntero(), _estatus, TxtOrden.Text.ToEntero(), _requerido, TxtDiasLimite.Text.ToEntero(), ChkAplicaDiasLimite.Checked, ChkAplicaFechaVencimiento.Checked, UsuarioActual.Empresa.CveEmpresa, TxtPeriodicidad.Text.ToEntero())) + { + RegistraScript(string.Format("$('#{0}').modal('hide');", "divAgregarDocumentacion")); + Alert("Documento Actualizado correctamente.", ModExtensiones.TipoMensaje.MsgInformacion); + cargadatos(); + } + } + else if (objRH.DocumentacionAdd(Txtdocumentacion.Text.Trim(), _formato, DdlDocumentacionTipo.SelectedValue.ToEntero(), _estatus, TxtOrden.Text.ToEntero(), _requerido, TxtDiasLimite.Text.ToEntero(), ChkAplicaDiasLimite.Checked, ChkAplicaFechaVencimiento.Checked, UsuarioActual.Empresa.CveEmpresa, TxtPeriodicidad.Text.ToEntero())) + { + //CveDocumentacion = objRH.DtResultados(0)(0).ToString.ToEntero; + //_formato = GuardarArchivo(CveDocumentacion); + if (objRH.DocumentacionUpdate(CveDocumentacion, Txtdocumentacion.Text.Trim(), _formato, DdlDocumentacionTipo.SelectedValue.ToEntero(), _estatus, TxtOrden.Text.ToEntero(), _requerido, TxtDiasLimite.Text.ToEntero(), ChkAplicaDiasLimite.Checked, ChkAplicaFechaVencimiento.Checked, UsuarioActual.Empresa.CveEmpresa, TxtPeriodicidad.Text.ToEntero())) + { + } + + RegistraScript(string.Format("$('#{0}').modal('hide');", "divAgregarDocumentacion")); + Alert("Documento agregado correctamente.", ModExtensiones.TipoMensaje.MsgInformacion); + cargadatos(); + } + + ActualizarDocumentacion = false; + + } + + } } public class archivoxmlpdf { diff --git a/Edoc/CatDocumentos.aspx.vb b/Edoc/CatDocumentos.aspx.vb index 2858a24c0..f4a6cd1aa 100644 --- a/Edoc/CatDocumentos.aspx.vb +++ b/Edoc/CatDocumentos.aspx.vb @@ -323,49 +323,51 @@ Partial Class RH_CatDocumentos Protected Sub BtnAgregarDocumentoModal_Click(sender As Object, e As EventArgs) Handles BtnAgregarDocumentoModal.Click - Dim objRH As New ClsEdocumentacion - Dim intCompleto As Integer = 0 - Dim _estatus As Integer = 0 - Dim _requerido As Integer = 0 - Dim _formato As String = "" - - - If chkEstatus.Checked Then - _estatus = 1 - End If - - If chkRequerido.Checked Then - _requerido = 1 - End If - - If ActualizarDocumentacion Then - - _formato = GuardarArchivo(CveDocumentacion) - If objRH.DocumentacionUpdate(CveDocumentacion, Txtdocumentacion.Text.Trim, _formato, DdlDocumentacionTipo.SelectedValue.ToEntero, _estatus, TxtOrden.Text.ToEntero, _requerido, TxtDiasLimite.Text.ToEntero, ChkAplicaDiasLimite.Checked, ChkAplicaFechaVencimiento.Checked, UsuarioActual.Empresa.CveEmpresa, - TxtPeriodicidad.Text.ToEntero) Then - - RegistraScript(String.Format("$('#{0}').modal('hide');", "divAgregarDocumentacion")) - Alert("Documento Actualizado correctamente.", TipoMensaje.MsgInformacion) - CargaDocumentacion() - End If - - Else - If objRH.DocumentacionAdd(Txtdocumentacion.Text.Trim, _formato, DdlDocumentacionTipo.SelectedValue.ToEntero, _estatus, TxtOrden.Text.ToEntero, _requerido, TxtDiasLimite.Text.ToEntero, ChkAplicaDiasLimite.Checked, ChkAplicaFechaVencimiento.Checked, UsuarioActual.Empresa.CveEmpresa, TxtPeriodicidad.Text.ToEntero) Then - - CveDocumentacion = objRH.DtResultados(0)(0).ToString.ToEntero - _formato = GuardarArchivo(CveDocumentacion) - If objRH.DocumentacionUpdate(CveDocumentacion, Txtdocumentacion.Text.Trim, _formato, DdlDocumentacionTipo.SelectedValue.ToEntero, _estatus, TxtOrden.Text.ToEntero, _requerido, TxtDiasLimite.Text.ToEntero, ChkAplicaDiasLimite.Checked, ChkAplicaFechaVencimiento.Checked, UsuarioActual.Empresa.CveEmpresa, - TxtPeriodicidad.Text.ToEntero) Then - - End If - - RegistraScript(String.Format("$('#{0}').modal('hide');", "divAgregarDocumentacion")) - Alert("Documento agregado correctamente.", TipoMensaje.MsgInformacion) - CargaDocumentacion() - End If - End If - - ActualizarDocumentacion = False + Using objRH As New ClsEdocumentacion + + Dim intCompleto As Integer = 0 + Dim _estatus As Integer = 0 + Dim _requerido As Integer = 0 + Dim _formato As String = "" + + + If chkEstatus.Checked Then + _estatus = 1 + End If + + If chkRequerido.Checked Then + _requerido = 1 + End If + + If ActualizarDocumentacion Then + + _formato = GuardarArchivo(CveDocumentacion) + If objRH.DocumentacionUpdate(CveDocumentacion, Txtdocumentacion.Text.Trim, _formato, DdlDocumentacionTipo.SelectedValue.ToEntero, _estatus, TxtOrden.Text.ToEntero, _requerido, TxtDiasLimite.Text.ToEntero, ChkAplicaDiasLimite.Checked, ChkAplicaFechaVencimiento.Checked, UsuarioActual.Empresa.CveEmpresa, + TxtPeriodicidad.Text.ToEntero) Then + + RegistraScript(String.Format("$('#{0}').modal('hide');", "divAgregarDocumentacion")) + Alert("Documento Actualizado correctamente.", TipoMensaje.MsgInformacion) + CargaDocumentacion() + End If + + Else + If objRH.DocumentacionAdd(Txtdocumentacion.Text.Trim, _formato, DdlDocumentacionTipo.SelectedValue.ToEntero, _estatus, TxtOrden.Text.ToEntero, _requerido, TxtDiasLimite.Text.ToEntero, ChkAplicaDiasLimite.Checked, ChkAplicaFechaVencimiento.Checked, UsuarioActual.Empresa.CveEmpresa, TxtPeriodicidad.Text.ToEntero) Then + + CveDocumentacion = objRH.DtResultados(0)(0).ToString.ToEntero + _formato = GuardarArchivo(CveDocumentacion) + If objRH.DocumentacionUpdate(CveDocumentacion, Txtdocumentacion.Text.Trim, _formato, DdlDocumentacionTipo.SelectedValue.ToEntero, _estatus, TxtOrden.Text.ToEntero, _requerido, TxtDiasLimite.Text.ToEntero, ChkAplicaDiasLimite.Checked, ChkAplicaFechaVencimiento.Checked, UsuarioActual.Empresa.CveEmpresa, + TxtPeriodicidad.Text.ToEntero) Then + + End If + + RegistraScript(String.Format("$('#{0}').modal('hide');", "divAgregarDocumentacion")) + Alert("Documento agregado correctamente.", TipoMensaje.MsgInformacion) + CargaDocumentacion() + End If + End If + + ActualizarDocumentacion = False + End Using End Sub diff --git a/Nomina/ISRCalculoAnual.aspx b/Nomina/ISRCalculoAnual.aspx deleted file mode 100644 index 6de631038..000000000 --- a/Nomina/ISRCalculoAnual.aspx +++ /dev/null @@ -1,128 +0,0 @@ -<%@ Page Title="" Language="C#" MasterPageFile="~/Site.master" AutoEventWireup="true" CodeFile="ISRCalculoAnual.aspx.cs" Inherits="Nomina_ISCalculoAnual" %> - - - - - - - Calculo anual de ISR - - - - - - - - - - - - -
    -
    -
    -
    - -
    - -
    -
    - - -
    - -
    -
    -
    - <%----%> -
    -
    - -
    -     -     - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -     - - - diff --git a/Nomina/ISRCalculoAnual.aspx.cs b/Nomina/ISRCalculoAnual.aspx.cs deleted file mode 100644 index f6528e3b0..000000000 --- a/Nomina/ISRCalculoAnual.aspx.cs +++ /dev/null @@ -1,47 +0,0 @@ -using System; -using System.Collections.Generic; -using System.Data; -using System.Linq; -using System.Web; -using System.Web.UI; -using System.Web.UI.WebControls; -using Extensiones; - -public partial class Nomina_ISCalculoAnual : ClsPaginas -{ - protected void Page_Load(object sender, EventArgs e) - { - - DataTable dtejercicio = new DataTable(); - using (ClsNominas objnom = new ClsNominas()) - { - if (objnom.GetEjercicios(UsuarioActual.CveEmpresa)) - { - dtejercicio = objnom.DtResultados; - } - } - DdlEjercicios.DataSource = dtejercicio; - DdlEjercicios.DataBind(); - } - - protected void LnkConsultar_Click(object sender, EventArgs e) - { - CargaPersonalISRAnual(); - } - - protected void CargaPersonalISRAnual() - { - DataTable dtdatos = new DataTable(); - int ejercicio = DdlEjercicios.SelectedValue.ToEntero(); - using (ClsNominas objnom = new ClsNominas()) - { - if (objnom.PersonalISRAnual(-1, UsuarioActual.CveEmpresa, ejercicio)) - { - dtdatos = objnom.DTSetResultados.Tables[0]; - } - } - GVPersonalISRAnual.DataSource = dtdatos; - GVPersonalISRAnual.DataBind(); - upDatosPers.Update(); - } -} \ No newline at end of file diff --git a/RH/CatPersonal.aspx b/RH/CatPersonal.aspx index 0e9b885e3..c491e9881 100644 --- a/RH/CatPersonal.aspx +++ b/RH/CatPersonal.aspx @@ -622,6 +622,13 @@ + + Riesgo de puesto + + + + + @@ -794,6 +801,7 @@
    +
    diff --git a/RH/CatPersonal.aspx.vb b/RH/CatPersonal.aspx.vb index 952096265..5ffc3dff2 100644 --- a/RH/CatPersonal.aspx.vb +++ b/RH/CatPersonal.aspx.vb @@ -564,6 +564,11 @@ Partial Class RH_CatPersonal Else GvDatos.Columns(42).Visible = False End If + If ChkRiesgoPuesto.Checked Then + GvDatos.Columns(43).Visible = True + Else + GvDatos.Columns(42).Visible = False + End If If (GvDatos.Rows.Count > 0) Then diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 6ae82b361..c81997889 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -2468,6 +2468,24 @@ Partial Class Ventas HlFacturasRelaciondas.Visible = True End If + If Request("CveEmbarqueManifiesto") IsNot Nothing AndAlso IsNumeric(Request("CveEmbarqueManifiesto")) AndAlso Request("CveEmbarqueManifiesto").ToEntero() > 0 Then + Using ObjVentas As New ClsNominas + + If ObjVentas.ManifiestoForVtaGet(UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, "", Request("CveEmbarqueManifiesto").ToEntero()) Then + TmpDT = ObjVentas.DtResultados + TmpDT.Columns.Add("EntregaDirecta", GetType(Integer)) + TmpDT.Columns.Add("CveMovimientoDetallePedido", GetType(Integer)) + TmpDT.Columns.Add("CveVentaDetalleRNC", GetType(Integer)) + TmpDT.Columns.Add("TieneProntoPago", GetType(String)) + TmpDT.Columns.Add("ImporteProntoPago", GetType(Decimal)) + GvPS.DataSource = ObjVentas.DtResultados + GvPS.DataBind() + + 'IEPS A NIVEL DETALLE + 'TxtIEPS.Text = If(TmpDT.SUM("IEPS") > 0, TmpDT.SUM("IEPS").FormatoNumero, TxtIEPS.Text) + End If + End Using + End If 'Carga Venta If Request("CveVenta") IsNot Nothing AndAlso IsNumeric(Request("CveVenta")) AndAlso Request("CveVenta").ToEntero() > 0 Then diff --git a/vwd.webinfo b/vwd.webinfo index af2a2c734..5b42c0490 100644 --- a/vwd.webinfo +++ b/vwd.webinfo @@ -398,6 +398,12 @@ + + + + + + From d42a496be045c06532c45feb24dede929614b3ed Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Mon, 24 Jan 2022 17:29:58 -0700 Subject: [PATCH 07/30] Pantalla de bloqueo en ventas.aspx y pv.aspx, asignar forma de pago en base al pago mas alto --- Ventas/PV.aspx | 83 ++++++++++++++++++++++++++++++++++++++++++ Ventas/PV.aspx.vb | 44 +++++++++++++++++++--- Ventas/Ventas.aspx | 85 ++++++++++++++++++++++++++++++++++++++++++- Ventas/Ventas.aspx.vb | 61 ++++++++++++++++++++++++++----- 4 files changed, 256 insertions(+), 17 deletions(-) diff --git a/Ventas/PV.aspx b/Ventas/PV.aspx index e26c3d98f..ad071e15d 100644 --- a/Ventas/PV.aspx +++ b/Ventas/PV.aspx @@ -1891,12 +1891,89 @@
    Cliente <%# DataBinder.Eval(Container.DataItem, "Documentacion") %> ><%# DataBinder.Eval(Container.DataItem, "Documentacion") %>
    <%# String.Format("{0:dd/MM/yyyy} - {1:dd/MM/yyyy}", DataBinder.Eval(Container.DataItem, "InicioPeriodo"), DataBinder.Eval(Container.DataItem, "FinPeriodo")) %> <%# DataBinder.Eval(Container.DataItem, "Antiguedad") %> XML Timbrados PDF Timbrados - Enviar + @@ -249,9 +288,9 @@
    - Procesar + Procesar
    - +
    @@ -360,33 +399,37 @@ - + - Fecha
    inicio + Fecha
    + inicio     - + - Fecha
    fin + Fecha
    + fin     - + - Fecha
    pago + Fecha
    + pago     - + - Días
    pago + Días
    + pago     @@ -439,9 +482,9 @@ - +
    - Guardar + Guardar
    @@ -621,6 +664,93 @@ + + + diff --git a/Documentacion/TableroMaterialidad.aspx.cs b/Documentacion/TableroMaterialidad.aspx.cs index d232db48c..5524b48a0 100644 --- a/Documentacion/TableroMaterialidad.aspx.cs +++ b/Documentacion/TableroMaterialidad.aspx.cs @@ -19,6 +19,16 @@ public partial class Documentacion_TableroMaterialidad : ClsPaginas { #region "Propiedades" + public Boolean ActualizarDocumentacion + { + get { return ViewState["ActualizarDocumentacion"] != null ? (Boolean)ViewState["ActualizarDocumentacion"] : false; } + set { ViewState["ActualizarDocumentacion"] = value; } + } + public int CveDocumentacion + { + get { return ViewState["CveDocumentacion"] != null ? ViewState["CveDocumentacion"].ToString().ToEntero() : 0; } + set { ViewState["CveDocumentacion"] = value; } + } public int anio { get { return ViewState["anio"] != null ? ViewState["anio"].ToString().ToEntero() : 0; } @@ -67,6 +77,26 @@ public partial class Documentacion_TableroMaterialidad : ClsPaginas { RptDatos.DataSource = edoc.DSResultados.Tables[0]; dt = edoc.DSResultados.Tables[1]; + LtlThs.Text = "
    GeneralesPor ClienteNivel empleado
    + + + + + + + + + + + + + + + + + + +
    Pantalla Bloqueada 
      
    +
    +
    +
    +
    + Información: + +
    +
    +
    +
    + +
    +
    +
    + +
    +
    +
    + Estado de caja +
    +
    +
    +
    +
    +
    +
    +
    +
    +
    + + +
    +
    + + + + +
    +
    + + +
    +
    +
    +
    +
    +
    +
    +
      
    + + +