diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb index 456a2cf9b..09af84a3e 100644 --- a/App_Code/ClsInventarios.vb +++ b/App_Code/ClsInventarios.vb @@ -1453,7 +1453,7 @@ Public Class ClsInventarios Return Retorno End Function - Public Function GetKardexAlmacenHorizontal(CvePS As Integer, FechaFin As Date, CveAlmacen As Integer, CveUnidadMedida As Integer, CveProveedor As Integer, CveTipoAlmacen As Integer, IncluyeTransitorios As Integer, CveUsuario As Integer, CveEmpresa As Integer) As Boolean + Public Function GetKardexAlmacenHorizontal(CvePS As Integer, FechaFin As Date, CveAlmacen As Integer, CveUnidadMedida As Integer, CveProveedor As Integer, CveTipoAlmacen As Integer, IncluyeTransitorios As Integer, CveUsuario As Integer, CveEmpresa As Integer, Optional CondicionExistencias As Integer = 0) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Inv_KardexAlmacenHorizontalGet") @@ -1469,6 +1469,7 @@ Public Class ClsInventarios .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario .Add("@CveProveedorCompra", SqlDbType.Int).Value = CveProveedor .Add("@CveTipoAlmacen", SqlDbType.Int).Value = CveTipoAlmacen + .Add("@ExistenciasCondicion", SqlDbType.Int).Value = CondicionExistencias End With Try @@ -4493,7 +4494,7 @@ Public Class ClsInventarios #Region "INVENTARIOS - REPORTE UNIFORMES RESGUARDO" - Public Function GetResguardoUniformesRep(CveEmpresa As Integer, Optional CvePersonal As Integer = -1, Optional CveSubProyecto As Integer = -1, Optional CveDepartamento As Integer = -1) As Boolean + Public Function GetResguardoUniformesRep(CveEmpresa As Integer, Optional CvePersonal As Integer = -1, Optional CveSubProyecto As Integer = -1, Optional CveDepartamento As Integer = -1, Optional FechaInicio As String = "-1", Optional FechaFin As String = "-1") As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Inv_ResguardoUniformesRep") @@ -4502,8 +4503,8 @@ Public Class ClsInventarios .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto .Add("@CveDepartamento", SqlDbType.Int).Value = CveDepartamento - - + .Add("@FechaInicio", SqlDbType.VarChar).Value = FechaInicio + .Add("@FechaFin", SqlDbType.VarChar).Value = FechaFin End With Try SqlAdapter.Fill(Data) diff --git a/App_Code/clsGemBoxDocument.vb b/App_Code/clsGemBoxDocument.vb index 6177426df..ea81a4af3 100644 --- a/App_Code/clsGemBoxDocument.vb +++ b/App_Code/clsGemBoxDocument.vb @@ -7,8 +7,8 @@ Public Class clsGemBoxDocument Implements IDisposable - Private documento As DocumentModel - Private rutaSalvado As String + Public documento As DocumentModel + Public rutaSalvado As String Public StremFile As String Public memoryStream As New MemoryStream() diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 1fcc023fd..24ceab07b 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -1662,9 +1662,11 @@ Partial Class Compras_Compras SWatch.Stop() + Dim SegundosRespuesta As Double = SWatch.ElapsedMilliseconds / 1000 + SegundosRespuesta = SegundosRespuesta.ToEntero If SWatch.ElapsedMilliseconds >= 5000 Then - Alert("Los servicios de validacion del SAT presentan lentitud en la respuesta.", TipoMensaje.MsgAdvertencia) + Alert($"Los servicios de validacion del SAT presentan lentitud en la respuesta [{ SegundosRespuesta } s].", TipoMensaje.ToastError, "", 0) End If If UsuarioActual.CveEmpresa < 2 Then diff --git a/Empresas/119/Formatos/RepClientesCxC.rpt b/Empresas/119/Formatos/RepClientesCxC.rpt index f8e06f121..094db97be 100644 Binary files a/Empresas/119/Formatos/RepClientesCxC.rpt and b/Empresas/119/Formatos/RepClientesCxC.rpt differ diff --git a/Empresas/140/Formatos/Factura.rdlc b/Empresas/140/Formatos/Factura.rdlc index 02372f4e0..35ca50a70 100644 --- a/Empresas/140/Formatos/Factura.rdlc +++ b/Empresas/140/Formatos/Factura.rdlc @@ -601,6 +601,20 @@ 9pt + + - + + + + =Parameters!ClienteNombre.Value + + @@ -14,9 +19,50 @@ +
+ + +
+
+
+
+ +
+ + + +
+ + +
+ + + + + + +
+ + +
+ + + +
+ +
+ + + +
+
+
+
+
+ - + @@ -86,12 +116,14 @@
- + Nombre + @@ -100,15 +132,17 @@ Acumulado Actual + - + Acumulado Anterior + @@ -118,6 +152,7 @@ Acumulado Anual + diff --git a/RH/Personal.aspx b/RH/Personal.aspx index 76e79d612..e1ae3ceb6 100644 --- a/RH/Personal.aspx +++ b/RH/Personal.aspx @@ -2270,7 +2270,7 @@ diff --git a/RH/Personal.aspx.vb b/RH/Personal.aspx.vb index 9cfdf863e..acfc103cb 100644 --- a/RH/Personal.aspx.vb +++ b/RH/Personal.aspx.vb @@ -4531,8 +4531,9 @@ Partial Class RH_Personal Response.ContentType = "application/force-download" Response.AddHeader("content-disposition", "attachment; filename=" & CvePersonal & "_Solicitud_Vacaciones_" & Now.ToString("yyyyMMddhhmmss") & ".pdf") Response.BinaryWrite(bytesInStream) - Response.End() - + Response.End() + Else + Alert("No se encontro el Formato, favor de revisarlo con soporte tecnico.", TipoMensaje.MsgAdvertencia) End If End Sub @@ -4581,8 +4582,9 @@ Partial Class RH_Personal Response.ContentType = "application/force-download" Response.AddHeader("content-disposition", "attachment; filename=" & CvePersonal & "_Solicituddepermiso_" & Now.ToString("yyyyMMddhhmmss") & ".pdf") Response.BinaryWrite(bytesInStream) - Response.End() - + Response.End() + Else + Alert("No se encontro el Formato, favor de revisarlo con soporte tecnico.", TipoMensaje.MsgAdvertencia) End If End Sub diff --git a/RH/RepUniformesResguardo.aspx b/RH/RepUniformesResguardo.aspx index d9240e9f2..3d84a60b2 100644 --- a/RH/RepUniformesResguardo.aspx +++ b/RH/RepUniformesResguardo.aspx @@ -25,9 +25,9 @@
-
+
- + <%-- --%>
@@ -59,8 +59,33 @@
- diff --git a/RH/RepUniformesResguardo.aspx.vb b/RH/RepUniformesResguardo.aspx.vb index 60ff1b216..d121d3035 100644 --- a/RH/RepUniformesResguardo.aspx.vb +++ b/RH/RepUniformesResguardo.aspx.vb @@ -51,7 +51,19 @@ Partial Class RH_RepUniformesResguardo Dim ObjInv As New ClsInventarios - If ObjInv.GetResguardoUniformesRep(UsuarioActual.CveEmpresa, CvePersonal:=DdlPersonal.SelectedValue.ToEntero, CveSubProyecto:=DdlSubProyecto.SelectedValue.ToEntero, CveDepartamento:=DdlDepartamento.SelectedValue.ToEntero) Then + Dim strFechaInicio As String = "-1" + Dim strFechaFin As String = "-1" + + Dim dfecha As Date = TxtFechaInicio.Text.ToDate() + If dfecha.Year > 1900 Then + strFechaInicio = dfecha.ToString("yyyy/MM/dd") + End If + + dfecha = TxtFechaFin.Text.ToDate() + If dfecha.Year > 1900 Then + strFechaFin = dfecha.ToString("yyyy/MM/dd") + End If + If ObjInv.GetResguardoUniformesRep(UsuarioActual.CveEmpresa, CvePersonal:=DdlPersonal.SelectedValue.ToEntero, CveSubProyecto:=DdlSubProyecto.SelectedValue.ToEntero, CveDepartamento:=DdlDepartamento.SelectedValue.ToEntero, FechaInicio:=strFechaInicio, FechaFin:=strFechaFin) Then GvUniformes.DataSource = ObjInv.DtResultados DTDatos = ObjInv.DtResultados Else diff --git a/Scripts/custom.js b/Scripts/custom.js index 034aef08c..39e2ae95b 100644 --- a/Scripts/custom.js +++ b/Scripts/custom.js @@ -1769,7 +1769,7 @@ jQuery(document).ready(function () { loadsortadscroll(); QuickSidebar.init(); - MoveFixedDiv(); + MoveFixedDiv(); setswitch(); function ocultarbtnmaster() { if ($('#btnmaster_actionssidebar + ul').text().trim() == "") { $('#btnmaster_actionssidebar').css('display', 'none'); } else { $('#btnmaster_actionssidebar').css('display', 'block'); } } diff --git a/Site.master.vb b/Site.master.vb index 6afa57abc..bd03f5832 100644 --- a/Site.master.vb +++ b/Site.master.vb @@ -405,7 +405,7 @@ Partial Class Site Case 8 Return "" Case 9 - Return "" + Return "" Case 10 Return "" Case Else diff --git a/Ventas/Clientes.aspx b/Ventas/Clientes.aspx index 8c43686a8..5f9618df9 100644 --- a/Ventas/Clientes.aspx +++ b/Ventas/Clientes.aspx @@ -594,7 +594,7 @@
- +
diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb index 54de8ab19..e45747c13 100644 --- a/Ventas/Clientes.aspx.vb +++ b/Ventas/Clientes.aspx.vb @@ -3862,7 +3862,7 @@ Partial Class Clientes Dim lista = New List(Of CrystalParametro) lista.Add(New CrystalParametro("Empresa", UsuarioActual.Empresa.Empresa)) lista.Add(New CrystalParametro("TipoCuentas", DdlTipoCuentasCxC.SelectedItem.Text)) - lista.Add(New CrystalParametro("NombreCliente", $"Cliente: {LtlCliente.Text}")) + lista.Add(New CrystalParametro("NombreCliente", LtlCliente.Text)) lista.Add(New CrystalParametro("FechaInicio", If(FI = "-1", "-", FI))) lista.Add(New CrystalParametro("FechaFin", If(FF = "-1", DateTime.Now.ToShortDateString, FF))) lista.Add(New CrystalParametro("UsuarioImprimio", UsuarioActual.Nombre)) @@ -3933,7 +3933,7 @@ Partial Class Clientes Dim lista = New List(Of CrystalParametro) lista.Add(New CrystalParametro("Empresa", UsuarioActual.Empresa.Empresa)) lista.Add(New CrystalParametro("TipoCuentas", DdlTipoCuentasCxC.SelectedItem.Text)) - lista.Add(New CrystalParametro("NombreCliente", $"Cliente: {LtlCliente.Text}")) + lista.Add(New CrystalParametro("NombreCliente", LtlCliente.Text)) lista.Add(New CrystalParametro("FechaInicio", If(FI = "-1", "-", FI))) lista.Add(New CrystalParametro("FechaFin", If(FF = "-1", DateTime.Now.ToShortDateString, FF))) lista.Add(New CrystalParametro("UsuarioImprimio", UsuarioActual.Nombre)) diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 15fbafaec..271b56f72 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -1697,6 +1697,7 @@ Partial Class Ventas DdlBPPS.setEsWebService(True) DdlBPPS.ddlWS.Attributes.Add("data-clear", "1") ViewState("ProcesoCorrecto") = True + ViewState("CargoUsado") = True ViewState("NuevaFactura") = -1 ViewState("CveDevolucion") = -1 ViewState("CvePedido") = -1 @@ -4729,6 +4730,7 @@ Partial Class Ventas DivClienteMsg.Visible = True LtlClienteMsg.Text = "Cálculo sin desglose de IEPS" End If + ViewState("CargoUsado") = ObjCliente.CargoUsados Dim dr As DataRow = Nothing dr = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("TipoSucursal = 1 And Estatus = 'Activo' AND CveEmpresa = " & UsuarioActual.CveEmpresa) @@ -6704,10 +6706,11 @@ Partial Class Ventas Obj2.Add(ObjFacturaDevolucion) End If Catch ex As Exception - ErrorList.Add("No se pudo generarse la nota de crédito de amortización") + OnError("Ocurrió un error al generar nota de crédito de amortización", ex) + ErrorList.Add("No se pudo generar la nota de crédito de amortización") End Try If Obj2 Is Nothing AndAlso Obj2.Count = 0 Then - ErrorList.Add("No se pudo generarse la nota de crédito de amortización") + ErrorList.Add("No se pudo generar la nota de crédito de amortización") End If End If End If @@ -15261,7 +15264,7 @@ Partial Class Ventas End If 'VALIDAR SI TIENE PRODUCTOS POR TRASPASAR - If DtMovimientos.Rows.Count > 0 AndAlso (DtMovimientosDetalles.Rows.Count > 0 AndAlso DtMovimientosDetalles.SUM("SaldoAlmacen") > 0) Then + If DtMovimientos.Rows.Count > 0 Then Dim GeneroMovimientoAlmacen As Boolean = False For Each dr As DataRow In DtMovimientos.Rows 'Obtenemos los Movimientos de salida @@ -15294,7 +15297,7 @@ Partial Class Ventas 'Le damos salida normal If ConSalida Then - GeneroMovimientoAlmacen = GenerarMovimientoAlmacen(ObjInventario, MovDetalle, CveAlmacenSalida, 40, CveMoneda, CveRemision, MovimientoPrePoliza:=True, ObjConta:=ObjConta) > 0 + GeneroMovimientoAlmacen = GenerarMovimientoAlmacen(ObjInventario, MovDetalle, CveAlmacenSalida, 40, CveMoneda, CveRemision, AplicaMovimientoDetalleEntrada:=AplicaMovimientoDetalleEntrada, MovimientoPrePoliza:=True, ObjConta:=ObjConta) > 0 If Not GeneroMovimientoAlmacen Then OcurrioError = True @@ -22492,23 +22495,23 @@ Partial Class Ventas End If 'VERIFICA QUE LAS FACTURAS TENGAN EL MISMO ESTATUS EN ALMACEN (NO MEZCLAR REMISIONES 'SURTIDAS' CON 'NO SURTIDAS') - 'If dtSeleccionadas.COUNT("Surtido", "Surtido = 'Si'") > 0 AndAlso dtSeleccionadas.COUNT("Surtido", "Surtido = 'No'") > 0 Then - ' Dim SbRem As New StringBuilder - ' SbRem.Append("Solo debe seleccionar remisiones con el mismo estatus de almacen. Por favor verifique y vuelva a intentar.
") + If dtSeleccionadas.COUNT("Surtido", "Surtido = 'Si'") > 0 AndAlso dtSeleccionadas.COUNT("Surtido", "Surtido = 'No'") > 0 Then + Dim SbRem As New StringBuilder + SbRem.Append("Solo debe seleccionar remisiones con el mismo estatus de almacen. Por favor verifique y vuelva a intentar.
") - ' SbRem.Append("Remisiones Surtidas:
") - ' For Each RowSurtida As DataRow In dtSeleccionadas.FiltraParametros("Surtido = 'Si'", DistinctColumns:={"Folio"}).Rows - ' SbRem.AppendFormat("{0}
", RowSurtida("Folio")) - ' Next + SbRem.Append("Remisiones Surtidas:
") + For Each RowSurtida As DataRow In dtSeleccionadas.FiltraParametros("Surtido = 'Si'", DistinctColumns:={"Folio"}).Rows + SbRem.AppendFormat("{0}
", RowSurtida("Folio")) + Next - ' SbRem.Append("Remisiones No Surtidas:
") - ' For Each RowSurtida As DataRow In dtSeleccionadas.FiltraParametros("Surtido = 'No'", DistinctColumns:={"Folio"}).Rows - ' SbRem.AppendFormat("{0}
", RowSurtida("Folio")) - ' Next + SbRem.Append("Remisiones No Surtidas:
") + For Each RowSurtida As DataRow In dtSeleccionadas.FiltraParametros("Surtido = 'No'", DistinctColumns:={"Folio"}).Rows + SbRem.AppendFormat("{0}
", RowSurtida("Folio")) + Next - ' Alert(SbRem.ToString(), TipoMensaje.MsgAdvertencia) - ' Exit Sub - 'End If + Alert(SbRem.ToString(), TipoMensaje.MsgAdvertencia) + Exit Sub + End If DdlMoneda.SelectedValue = GlobalDTMonedas.FiltroPrimeroValor("CveMoneda", $"Abreviatura = '{dtSeleccionadas.FiltroPrimeroValor("Abreviatura")}'") DdlMoneda.Enabled = False @@ -23514,6 +23517,9 @@ Partial Class Ventas TmpDT.AcceptChanges() + If ViewState("CargoUsado").ToString = "False" Then + Exit Sub + End If Dim ObjProductosServicios As New ClsProductosServicios()
@@ -24,58 +70,42 @@ Datos del Concepto - + + + - - - - - +
Concepto: Tipo: - - - - Codigo:
Tipo: - +
+ +
Datos del Periodo - - + + + - + - - - - - + + + + +
Ejercicio:
- - - - - - -
Tipo Periodo: - - -
Periodo: - - -