diff --git a/App_Code/ClsContPAQi.vb b/App_Code/ClsContPAQi.vb index a191b7b11..cbe00b5ee 100644 --- a/App_Code/ClsContPAQi.vb +++ b/App_Code/ClsContPAQi.vb @@ -3322,7 +3322,7 @@ Public Class ClsContPAQi StrSQL.Append(" AND (@Codigo = '-1' OR C.Codigo = @Codigo) ") StrSQL.Append(" AND (@Afectable = -1 OR C.Afectable = @Afectable) ") StrSQL.Append(" AND (@IdPadre = -1 OR CFad.Id = @IdPadre) ") - StrSQL.Append(" ORDER BY C.id ") + StrSQL.Append(" ORDER BY C.Codigo ") ''JJMQ - 20150210: Agregué la cuenta contable padre 'StrSQL.Append(" SELECT Top(@RowNum) Id, Codigo, Nombre, ") diff --git a/App_Code/ClsGenerales.vb b/App_Code/ClsGenerales.vb index 53081a2e4..86122f871 100644 --- a/App_Code/ClsGenerales.vb +++ b/App_Code/ClsGenerales.vb @@ -117,7 +117,7 @@ Public Class ClsGenerales SqlAdapter.Fill(Data) Catch ex As Exception - OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + OnError("Ocurrió un error registrar el cierre de conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End Try CveConexion = 0 End If diff --git a/Ashx/SIGWeb.ashx b/Ashx/SIGWeb.ashx index 752e8074c..ae2cd9e34 100644 --- a/Ashx/SIGWeb.ashx +++ b/Ashx/SIGWeb.ashx @@ -219,7 +219,7 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState Dim CvePS = IfNull(context.Request("cveps"), "0").ToString.ToEntero Dim objInv As New ClsInventarios - If objInv.GetExistenciasPS(CvePS, -1, CveEmpresa, -1, FechaMovto:=DateTime.Today.AddDays(1).ToString("yyyy/MM/dd HH:mm")) Then + If objInv.GetExistenciasProducto(CvePS, -1, CveEmpresa, -1, FechaMovto:=DateTime.Today.AddDays(1).ToString("yyyy/MM/dd HH:mm")) Then ' limpio los almacenes donde no tiene ningun producto existencia For i = objInv.DtResultados.Columns.Count - 1 To 1 Step -1 @@ -300,7 +300,7 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState End If - If usuario.Empresa.Funcionalidad(558) = 1 Then + If usuario.Empresa.Funcionalidad(558) = "1" Then Try Dim NobreFiltroColumna As String = DtPSRetorno.Columns(3).ColumnName DtPSRetorno = DtPSRetorno.FiltraParametros($"{NobreFiltroColumna} > 0") diff --git a/Bin/GoCfdi.dll b/Bin/GoCfdi.dll index edecce87c..6fabb13d8 100644 Binary files a/Bin/GoCfdi.dll and b/Bin/GoCfdi.dll differ diff --git a/Contabilidad/OCDetalleAlmacen.aspx b/Contabilidad/OCDetalleAlmacen.aspx index 49a17fbd0..c9cd7bbd9 100644 --- a/Contabilidad/OCDetalleAlmacen.aspx +++ b/Contabilidad/OCDetalleAlmacen.aspx @@ -37,7 +37,8 @@ - + + diff --git a/Contabilidad/OCDetalleAlmacen.aspx.vb b/Contabilidad/OCDetalleAlmacen.aspx.vb index 1c74b5520..840691ef0 100644 --- a/Contabilidad/OCDetalleAlmacen.aspx.vb +++ b/Contabilidad/OCDetalleAlmacen.aspx.vb @@ -35,7 +35,7 @@ Partial Class Contabilidad_OCDetalleAlmacen - If ObjConta.GetOCDetalleAlmacen(1000D, UsuarioActual.CveEmpresa) Then + If ObjConta.GetOCDetalleAlmacen(100000D, UsuarioActual.CveEmpresa) Then If ObjConta.DtResultados.Rows.Count > 0 Then DTDatos = ObjConta.DtResultados @@ -95,7 +95,7 @@ Partial Class Contabilidad_OCDetalleAlmacen If Chk IsNot Nothing AndAlso Chk.Checked Then - CvePrePoliza = ObjConta.AddPrePolizas(modulo, 3, Diferencia, Diferencia, CveMoneda, Fecha, modulo, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) + CvePrePoliza = ObjConta.AddPrePolizas(modulo, 3, Diferencia, Diferencia, CveMoneda, Fecha, Referencia, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoPoliza:=3) GvDrow.Cells(1).Text = CvePrePoliza.ToString mensaje = mensaje & $"CvePrePoliza {CvePrePoliza } OC: {Folio} Importe :{Diferencia}
" diff --git a/OS/Asignaciones.aspx b/OS/Asignaciones.aspx index 9d347427f..ea189147a 100644 --- a/OS/Asignaciones.aspx +++ b/OS/Asignaciones.aspx @@ -155,8 +155,8 @@ Ordenes Sin Asignar
- - + +
diff --git a/OS/Asignaciones.aspx.vb b/OS/Asignaciones.aspx.vb index f3cbf201b..f54cc4ea9 100644 --- a/OS/Asignaciones.aspx.vb +++ b/OS/Asignaciones.aspx.vb @@ -48,6 +48,7 @@ Partial Class OS_Asignaciones BtnAsignar.Visible = False End If End If + ObjEstatusPermisos.Dispose() End If End Sub diff --git a/OS/CatEstatusOrdenServicio.aspx.vb b/OS/CatEstatusOrdenServicio.aspx.vb index cead5cc0d..71ccfd3a3 100644 --- a/OS/CatEstatusOrdenServicio.aspx.vb +++ b/OS/CatEstatusOrdenServicio.aspx.vb @@ -191,7 +191,7 @@ Partial Class OS_CatEstatusOrdenServicio Protected Sub CargaGridEstatusUsuarios() GvEstatusUsuarios.DataSource = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa) GvEstatusUsuarios.DataBind() - UPPEmp.Update() + 'UPPEmp.Update() End Sub Protected Sub btnGuardarEstatusUsuariosREQ_Click(sender As Object, e As EventArgs) Handles btnGuardarEstatusUsuariosREQ.Click diff --git a/OS/OrdenesServicios.aspx.vb b/OS/OrdenesServicios.aspx.vb index a86041d35..19c6aa3e4 100644 --- a/OS/OrdenesServicios.aspx.vb +++ b/OS/OrdenesServicios.aspx.vb @@ -222,6 +222,14 @@ Partial Class OS_OrdenesServicios ViewState("TmpDTCuentaEquipo") = value End Set End Property + Private Property EstatusOSDelUsuario As DataTable + Get + Return CType(ViewState("EstatusOSDelUsuario"), DataTable) + End Get + Set(value As DataTable) + ViewState("EstatusOSDelUsuario") = value + End Set + End Property Private Property MensajeAlert As StringBuilder Get Return CType(ViewState("MensajeAlert"), StringBuilder) @@ -263,6 +271,16 @@ Partial Class OS_OrdenesServicios CreaDtSolicitarMateriales() CveSub = -1 'Carga estatus + Dim ObjEstatusPermisos As New ClsOS + If ObjEstatusPermisos.GetEstatusUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then + EstatusOSDelUsuario = ObjEstatusPermisos.DtResultados + Dim PermisoEstatus As New DataTable + PermisoEstatus = ObjEstatusPermisos.DtResultados.FiltraParametros("TipoEstatus = 1") + If PermisoEstatus.Rows.Count = 0 Then + UpGuardar.Visible = False + End If + End If + ObjEstatusPermisos.Dispose() CargaEstatusOS(2) 'Carga cliente @@ -298,7 +316,7 @@ Partial Class OS_OrdenesServicios 'Carga OS If CveOS > 0 Then CargaDatos() - PermisosSegunEstatus() + 'PermisosSegunEstatus() CargaDetalles() CargaMateriales() @@ -324,15 +342,6 @@ Partial Class OS_OrdenesServicios hdnEsThickbox.Value = "S" hdnClientIDLink.Value = "NoDefinido" - Dim ObjEstatusPermisos As New ClsOS - If ObjEstatusPermisos.GetEstatusUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then - Dim PermisoEstatus As New DataTable - PermisoEstatus = ObjEstatusPermisos.DtResultados.FiltraParametros("TipoEstatus = 1") - If PermisoEstatus.Rows.Count = 0 Then - UpGuardar.Visible = False - End If - End If - ObjEstatusPermisos.Dispose() End If End Sub @@ -367,13 +376,13 @@ Partial Class OS_OrdenesServicios TmpDT.AcceptChanges() End Sub Protected Sub DdlEstatusOS_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlEstatusOS.SelectedIndexChanged - Dim TipoEstatus = GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa).FiltroPrimeroValor("TipoEstatus", String.Format("CveEstatusOrdenServicio = {0}", DdlEstatusOS.SelectedValue), "CveEstatusOrdenServicio ASC") + Dim tipoDeEstatusSeleccionado As String = EstatusOSDelUsuario.FiltroPrimero(String.Format("CveEstatusOrdenServicio = {0}", DdlEstatusOS.SelectedValue)).Item("TipoEstatusTexto").ToString - Select Case TipoEstatus.ToEntero - Case 2 + Select Case tipoDeEstatusSeleccionado + Case "Inicial" 'Proceso - Case 3 + Case "Terminado" 'Terminada 'Checar que todos los detalles esten terminados para poder cambiar a terminada If TmpDT.COUNT("Estatus", "Estatus = 'False'").ToEntero > 0 Then @@ -382,18 +391,23 @@ Partial Class OS_OrdenesServicios 'Regresar a estatus Atendiendo 'DdlEstatusOS.SelectedValue = "2" End If - Case 4 - 'Cancelada - Case 5 - 'Entregada - Guardar(True) + ' Case 4 + ' 'Cancelada + ' Case 5 + ' 'Entregada + ' Guardar(True) + Case "Cancelada" + Dim CanceladoOrdenMinimo As String = EstatusOSDelUsuario.FiltroPrimeroValor("CveEstatusOrdenServicio", "TipoEstatus = 5", "Orden ASC").ToString + DdlEstatusOS.SelectedValue = CanceladoOrdenMinimo + + 'DdlEstatusOS.SelectedIndex = CanceladoOrdenMinimo End Select - 'CargaEstatusOS(DdlEstatusOS.SelectedValue.ToEntero) - PermisosSegunEstatus() + ''CargaEstatusOS(DdlEstatusOS.SelectedValue.ToEntero) + 'PermisosSegunEstatus() - GvPS.DataSource = TmpDT - GvPS.DataBind() + 'GvPS.DataSource = TmpDT + 'GvPS.DataBind() End Sub #End Region @@ -647,9 +661,9 @@ Partial Class OS_OrdenesServicios End Sub Private Sub CargaEstatusOS(ValorSeleccionado As Integer) DdlEstatusOS.Items.Clear() - DdlEstatusOS.DataSource = GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa) + DdlEstatusOS.DataSource = EstatusOSDelUsuario DdlEstatusOS.DataBind() - DdlEstatusOS.SelectedValue = GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveEstatusOrdenServicio", "TipoEstatus = 1", "CveEstatusOrdenServicio ASC") + DdlEstatusOS.SelectedValue = GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveEstatusOrdenServicio", "TipoEstatus = 1", "Orden ASC") End Sub Private Sub CargaPS(CveClasificacion As Integer, Objeto As DropDownList) Objeto.Items.Clear() @@ -1455,7 +1469,9 @@ Partial Class OS_OrdenesServicios Dim DetallesPendientes As Integer = TmpDT.COUNT("Estatus", "Estatus = 'False'").ToEntero - If DetallesPendientes = 0 Then + Dim TipoEstatusSeleccionado As Integer = EstatusOSDelUsuario.FiltroPrimeroValor("TipoEstatus", String.Format("CveEstatusOrdenServicio = {}", DdlEstatusOS.SelectedValue), "Orden ASC").ToEntero + + If DetallesPendientes = 0 AndAlso TipoEstatusSeleccionado = 2 Then 'Se estatus de OS a TERMINADO DdlEstatusOS.SelectedValueExist(GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveEstatusOrdenServicio", "TipoEstatus = 3", "CveEstatusOrdenServicio ASC")) DdlEstatusOS_SelectedIndexChanged(sender, New EventArgs) diff --git a/RH/CatPersonalRequerido.aspx.vb b/RH/CatPersonalRequerido.aspx.vb index b63e39969..875b934e7 100644 --- a/RH/CatPersonalRequerido.aspx.vb +++ b/RH/CatPersonalRequerido.aspx.vb @@ -76,7 +76,7 @@ Partial Class RH_CatPersonalRequerido End Sub Private Sub CargaProyectos() - ReqProyectoDdl.DataSource = GlobalDTProyectos(UsuarioActual.Empresa.CveEmpresa, 1) + ReqProyectoDdl.DataSource = GlobalDTProyectos(UsuarioActual.Empresa.CveEmpresa, 1).FiltraParametros("", "", {"CveProyecto", "Proyecto"}) ReqProyectoDdl.DataBind() ReqProyectoDdl.Items.Insert(0, New ListItem("Seleccione el Proyecto", "-1")) End Sub diff --git a/Ventas/Clientes.aspx b/Ventas/Clientes.aspx index db1a5ffda..71d0fff76 100644 --- a/Ventas/Clientes.aspx +++ b/Ventas/Clientes.aspx @@ -425,7 +425,7 @@
- + diff --git a/Ventas/PV.aspx.vb b/Ventas/PV.aspx.vb index f9e85dfc2..52a13be90 100644 --- a/Ventas/PV.aspx.vb +++ b/Ventas/PV.aspx.vb @@ -4582,7 +4582,7 @@ Partial Class PV Private Sub BtnValidarRFC_Click(sender As Object, e As EventArgs) Handles BtnValidarRFC.Click - If TxtRFCCliente.Text = "XAXX010101000" Then + If TxtRFCCliente.Text.ToUpper = "XAXX010101000" Then DivNombreCliente.Visible = True DivDireccionCliente.Visible = True DivNumeroCPCliente.Visible = True diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx index 61fab4d79..93e5d8659 100644 --- a/Ventas/Ventas.aspx +++ b/Ventas/Ventas.aspx @@ -2952,14 +2952,14 @@
-
+
-
- - Meses +
+ + MSI 3M 6M 9M diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 926400c13..c98f83d31 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -1813,7 +1813,7 @@ Partial Class Ventas 'ImgCerrarTerminoCorte.Attributes.Add("OnClick", "$('#DivTerminarCorte').hide();") 'ImgCerrarIE.Attributes.Add("OnClick", "$('#DivIngresoEgreso').hide();")DdlTipoComprobante 'ImgCerrarEstadoCaja.Attributes.Add("OnClick", "$('#DivEstadoCaja').hide();") - TabAlmacen.Enabled = UsuarioActual.Empresa.UsaInventarios + TabAlmacen.Enabled = UsuarioActual.Empresa.UsaInventarios Or UsuarioActual.Empresa.Funcionalidad(567) = "1" TxtPorDescP.Attributes.Add("onKeyUp", "CalculaDescuento();") TxtDescP.Attributes.Add("onKeyUp", "CalculaDescuento();") TxtCantidadPyME.Attributes.Add("onkeypress", "cambiaFoco('TxtPrecioPyME')") @@ -2436,7 +2436,7 @@ Partial Class Ventas If UsuarioActual.Empresa.Funcionalidad(558).ToEntero = 1 Then DivMesesSinIntereses.Visible = True - DivDdlCuentaTarjetaCredito.Attributes.Add("class", "col-md-3") + DivDdlCuentaTarjetaCredito.Attributes.Add("class", "col-md-4") DivContadoOtros.Visible = True End If @@ -5705,6 +5705,10 @@ Partial Class Ventas Private Sub GvInv_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvInv.RowDataBound If e.Row.RowType = DataControlRowType.DataRow Then + If UsuarioActual.Empresa.Funcionalidad(567) = "1" Then + e.Row.FCCheckBox("cbInv").Checked = True + End If + 'SERIE ALMACEN If e.Row.DBCampo("CveTipoInvPS").ToEntero = 5 Then If CveVenta > 0 Then @@ -10328,7 +10332,7 @@ Partial Class Ventas Dim OcurrioError As Boolean = False Try - If UsuarioActual.Empresa.UsaInventarios AndAlso factura.TipoDocto.Contiene("Ing", "Egs", "Rem") Then + If (UsuarioActual.Empresa.UsaInventarios Or UsuarioActual.Empresa.Funcionalidad(567) = "1") AndAlso factura.TipoDocto.Contiene("Ing", "Egs", "Rem") Then If RemisionesLista.Count > 0 Then For Each CveRemision As Integer In RemisionesLista @@ -16143,7 +16147,7 @@ Partial Class Ventas Case 1 'CREDITO TxtFechaPago.Text = If(DdlTipoComprobante.SelectedValue = "Rem", Now.AddDays(PlazoCobranzaRemision), Now.AddDays(PlazoCobranza)).ToShortDateString Case 2 'CONTADO - If DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Rem") Then + If DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Rem") Or (UsuarioActual.Empresa.Funcionalidad(558).ToEntero = 1 And DdlTipoComprobante.SelectedValue = "Cot") Then DivContado.Visible = True TxtImporteContado.Text = TxtTotal.Text End If @@ -22595,50 +22599,55 @@ Partial Class Ventas #Region " EMITIR DOCUMENTO NUEVO " Private Sub EmitirDocumentoNuevo(TipoDoctoNuevo As String) - Dim FolioFijo As Integer = 0 - 'CARGA LO PENDIENTE POR FACTURAR DE COTIZACION - If EraCotizacion = 1 Then - If Not PreparaFacturarCotizacion() Then - EraCotizacion = 0 - DdlTipoComprobante.SelectedValue = "Cot" - Exit Sub + If GvPagos.Rows.Count = 0 And UsuarioActual.Empresa.Funcionalidad(558).ToEntero = 1 And RBLPago.SelectedValue.ToEntero = 2 Then + Alert("No se puede facturar hasta que se haya especificado detalladamente la forma de pago", TipoMensaje.MsgAdvertencia) + Else + Dim FolioFijo As Integer = 0 + + 'CARGA LO PENDIENTE POR FACTURAR DE COTIZACION + If EraCotizacion = 1 Then + If Not PreparaFacturarCotizacion() Then + EraCotizacion = 0 + DdlTipoComprobante.SelectedValue = "Cot" + Exit Sub + End If End If - End If - 'CARGA LO PENDIENTE POR FACTURAR DE REMISION - If DdlTipoComprobante.SelectedValue = "Rem" Then - If Not PreparaFacturarRemision() Then - DdlTipoComprobante.SelectedValue = "Rem" - Exit Sub + 'CARGA LO PENDIENTE POR FACTURAR DE REMISION + If DdlTipoComprobante.SelectedValue = "Rem" Then + If Not PreparaFacturarRemision() Then + DdlTipoComprobante.SelectedValue = "Rem" + Exit Sub + End If End If - End If - 'CARGA LO PENDIENTE POR FACTURAR DE PEDIDO2 - If DdlTipoComprobante.SelectedValue = "Pd2" Then - If Not PreparaFacturarPedido() Then - DdlTipoComprobante.SelectedValue = "Pd2" - Exit Sub + 'CARGA LO PENDIENTE POR FACTURAR DE PEDIDO2 + If DdlTipoComprobante.SelectedValue = "Pd2" Then + If Not PreparaFacturarPedido() Then + DdlTipoComprobante.SelectedValue = "Pd2" + Exit Sub + End If End If + + 'CARGA LO PENDIENTE POR FACTURAR DE PEDIDO AUTORIZACION + If DdlTipoComprobante.SelectedValue = "PA" Then ' que tome el folio fijo de la autorización + FolioFijo = TxtFolio.Text.ToEntero + ViewState("FolioActual") = FolioFijo + ViewState("EstablecioFolio") = True + TxtFolio.Text = FolioFijo.ToString + End If + + Dim TipoDoctoViejo As String = DdlTipoComprobante.SelectedValue + DdlTipoComprobante.SelectedValue = TipoDoctoNuevo + TxtFecha.Text = Now.ToString + TxtFechaPago.Text = If(TipoDoctoViejo = "Rem" AndAlso EsDiasCreditoFijo, Now.AddDays(DiasCredito), If(DdlTipoComprobante.SelectedValue = "Rem", Now.AddDays(PlazoCobranzaRemision), Now.AddDays(PlazoCobranza))).ToShortDateString + TxtFechaEjecucion.Text = Now.ToString + + + If FolioFijo = 0 Then CargaFolios() 'RECARGA FOLIOS CON EL NUEVO TIPO DOCTO + EmitirImprimir() 'MANDA A EMITIR - PROCESO VIEJO End If - 'CARGA LO PENDIENTE POR FACTURAR DE PEDIDO AUTORIZACION - If DdlTipoComprobante.SelectedValue = "PA" Then ' que tome el folio fijo de la autorización - FolioFijo = TxtFolio.Text.ToEntero - ViewState("FolioActual") = FolioFijo - ViewState("EstablecioFolio") = True - TxtFolio.Text = FolioFijo.ToString - End If - - Dim TipoDoctoViejo As String = DdlTipoComprobante.SelectedValue - DdlTipoComprobante.SelectedValue = TipoDoctoNuevo - TxtFecha.Text = Now.ToString - TxtFechaPago.Text = If(TipoDoctoViejo = "Rem" AndAlso EsDiasCreditoFijo, Now.AddDays(DiasCredito), If(DdlTipoComprobante.SelectedValue = "Rem", Now.AddDays(PlazoCobranzaRemision), Now.AddDays(PlazoCobranza))).ToShortDateString - TxtFechaEjecucion.Text = Now.ToString - - - If FolioFijo = 0 Then CargaFolios() 'RECARGA FOLIOS CON EL NUEVO TIPO DOCTO - EmitirImprimir() 'MANDA A EMITIR - PROCESO VIEJO - End Sub #End Region