diff --git a/App_Code/ClsNominas.vb b/App_Code/ClsNominas.vb index aff44610d..767eee53e 100644 --- a/App_Code/ClsNominas.vb +++ b/App_Code/ClsNominas.vb @@ -673,7 +673,7 @@ Public Class ClsNominas ' End Try ' Return retorno 'End Function - Public Function GetDispersionnomina(CvePeriodo As Int32, CveEmpresa As Int32, CveSATBanco As Int32) As Boolean + Public Function GetDispersionNomina(CvePeriodo As Int32, CveEmpresa As Int32, CveSATBanco As Int32) As Boolean Dim retorno As Boolean = False DataAdapter("PA_Nom_Dispersionnomina", CommandType.StoredProcedure) With SqlAdapter.SelectCommand.Parameters diff --git a/Ashx/CargaEventos.ashx b/Ashx/CargaEventos.ashx index 75b6ae9e5..8574dd9a6 100644 --- a/Ashx/CargaEventos.ashx +++ b/Ashx/CargaEventos.ashx @@ -58,7 +58,7 @@ Public Class CargaEventos : Implements IHttpHandler, IRequiresSessionState Dim FechaF As Date = context.Request("end").ToDate Dim Cvecliente As Integer = -1 'DdlClienteSucursalCliente() Dim CveClienteSucursal As Integer = -1 ' DdlClienteSucursalSucursal() - Dim CveVendedor As Integer = -1 + Dim CveVendedor As Integer = If(context.Request("CveVendedor") IsNot Nothing, context.Request("CveVendedor").ToEntero, -1) Dim CveEstatus As Integer = -1 Dim ObjOS As New ClsOS diff --git a/Compras/Compras.aspx b/Compras/Compras.aspx index c43a2ee8b..b7975235e 100644 --- a/Compras/Compras.aspx +++ b/Compras/Compras.aspx @@ -1644,7 +1644,7 @@ + DataKeyNames="CantidadF,FolioREQ,CveProveedorSucursal,CveTipoPS,PS,CantidadPendienteVincular,IEPSPS,IVA,RetIVA,RetISR,Descuento,IVAPorcentaje,RetIVAPorcentaje,RetISRPorcentaje,IEPSPSPorcentaje,IEPSPSIVAPorcentaje,Cantidad,CveProveedorOC,Importe,CveSATPS,NumeroParte"> diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 61edd533d..0d7f05061 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -3812,6 +3812,7 @@ Partial Class Compras_Compras Dim PorcentajeIEPS As Decimal = 0 Dim PorcentajeRetISR As Decimal = 0 Dim PorcentajeRetIVA As Decimal = 0 + Dim NoIdentificacion As String = "" Dim DtTemporalGuardados As DataTable = New DataTable DtTemporalGuardados.Columns.Add("Contador", GetType(Integer)) DtTemporalGuardados.Columns.Add("Tipo", GetType(Integer)) @@ -3871,6 +3872,7 @@ Partial Class Compras_Compras PorcentajeIEPS = 0 PorcentajeRetISR = 0 PorcentajeRetIVA = 0 + NoIdentificacion = "" 'CARGA NODO ACTUAL @@ -3896,6 +3898,8 @@ Partial Class Compras_Compras 'OBTIENE SUBTOTAL SubTotalTemp += If(Total > 0, Total, PU * ValorXML(node, "cantidad").ToDecimal) + 'OBTIENE NoIdentificacion + If ValorXML(node, "noIdentificacion") IsNot Nothing Then NoIdentificacion = ValorXML(node, "noIdentificacion").Trim 'OBTIENE UM If ValorXML(node, "unidad") IsNot Nothing Then UMM = ValorXML(node, "unidad").Trim @@ -14535,9 +14539,26 @@ Partial Class Compras_Compras DTOCGV = If(ArrayCveOC.Length > 1, DTOCGV.FiltraParametros("", "Producto"), DTOCGV) CargaTipoCentroCostoOC() + GvOC1.DataSource = DTOCGV GvOC1.DataBind() + 'PROCESO DE ASIGNACION DE CANTIDAD DEPENDIENDO DEL NoIdentificacion DEL XML Y EL NumeroParte DEL PRODUCTO + If UsuarioActual.Empresa.Funcionalidad(382).ToEntero > 0 Then + For Each Gvr As GridViewRow In GvOC1.Rows + Dim Change As Boolean = False + For Each Dr2 As DataRow In TmpDT.Rows + If Gvr.DataKey("NumeroParte").ToString = Dr2("NoIdentificacion").ToString() Then + Gvr.FCTextBox("TxtCantidad").Text = Dr2("Cantidad").ToString + Change = True + End If + Next + If Not Change Then + Gvr.FCTextBox("TxtCantidad").Text = "0" + End If + Next + End If + Dim DTCVEOGV As DataTable = DTOCGV.FiltraParametros("", "", {"CveOrdenCompra"}) If DTCVEOGV.Rows.Count > 1 Then GvOC1.Columns(0).Visible = True @@ -22011,6 +22032,7 @@ Public Class ClsCompraManagerCompras TmpDT.Columns.Add("CveCultivoCuadroDetalle", GetType(Integer)) TmpDT.Columns.Add("TemporadaCuadro", GetType(String)) + TmpDT.Columns.Add("NoIdentificacion", GetType(String)) TmpDT.AcceptChanges() diff --git a/Contabilidad/RepAnexoCatalogo.aspx.vb b/Contabilidad/RepAnexoCatalogo.aspx.vb index ce41eaabc..d2d660bd2 100644 --- a/Contabilidad/RepAnexoCatalogo.aspx.vb +++ b/Contabilidad/RepAnexoCatalogo.aspx.vb @@ -118,7 +118,6 @@ Partial Class AC2_RepAnexoCatalogo End If End If - If Request("CM") IsNot Nothing AndAlso IsNumeric(Request("CM")) AndAlso Request("CM").ToEntero > 0 Then DdlCuenta.SelectedValueExist(Request("CM").ToString) End If @@ -127,6 +126,7 @@ Partial Class AC2_RepAnexoCatalogo CveProyecto = Request("CveProyecto").ToString DdlProyecto.SelectedValueExist(CveProyecto) DdlProyecto_SelectedIndexChanged(Nothing, Nothing) + divProyecto.Visible = True End If If Request("CveSubProyecto") IsNot Nothing AndAlso IsNumeric(Request("CveSubProyecto")) Then @@ -172,7 +172,7 @@ Partial Class AC2_RepAnexoCatalogo DdlCuentas.DataBind() - CargarCentrosDeCosto(DdlProyecto, DdlSubproyecto, LblProyecto, LblSubProyecto, divProyecto:=divProyecto) + CargarCentrosDeCosto(DdlProyecto, DdlSubproyecto, LblProyecto, LblSubProyecto, divProyecto:=divProyecto, VisualizacionReporte:=1) End Sub diff --git a/Contabilidad/RepEstadoResultadosHorizontal.aspx.vb b/Contabilidad/RepEstadoResultadosHorizontal.aspx.vb index 72712ad98..63bf9822c 100644 --- a/Contabilidad/RepEstadoResultadosHorizontal.aspx.vb +++ b/Contabilidad/RepEstadoResultadosHorizontal.aspx.vb @@ -2745,7 +2745,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal e.Row.ControlStyle.Font.Size = 13 End If Dim CveCuenta As Integer = e.Row.DataKey("CveCuenta").ToEntero - 'setgraficaCC(e) + setgraficaProy(e) 'Dim CveProyecto As Integer = e.Row.DataKey("CveProyecto").ToEntero If e.Row.DBCampo("CtaMayor").ToString.ToEntero > 0 Then @@ -2860,7 +2860,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal End If End Sub - Public Sub setgraficaProyCC(e As GridViewRowEventArgs) + Public Sub setgraficaProy(e As GridViewRowEventArgs) Dim lista As New List(Of Object) Dim colorindex As Integer = 0 For Each campo As String() In listaCampos @@ -2893,18 +2893,17 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal ExportToExcelG(GvIngresosMesH, GvGastosMesH, TMesT1, "Reporte_Mensual_Horizontal", UsuarioActual, "Mensual Horizontal", Gv3:=GvTotalesMesH) ElseIf Tab.ActiveTabIndex = 2 AndAlso GvIngresosAnualH.Rows.Count > 0 Then ExportToExcelG(GvIngresosAnualH, GvGastosAnualH, TMesT1, "Reporte_Anual_Horizontal", UsuarioActual, "Anual Horizontal", Gv3:=GvTotalesAnualH) - ElseIf Tab.ActiveTabIndex = 3 AndAlso GvIngresosSubProyectoH.Rows.Count > 0 Then - - ExportToExcelG(GvIngresosSubProyectoH, GvGastosSubProyectoH, TMesT1, "Reporte_Proyecto_Horizontal", UsuarioActual, $"Estado de Resultados Horizontal por {LblSubProyecto.Text}", Gv3:=GvTotalesSubProyectoH, EsPorSubProtyecto:=True) - + ExportToExcelG(GvIngresosSubProyectoH, GvGastosSubProyectoH, TMesT1, "Reporte_CentroCosto_Horizontal", UsuarioActual, $"Estado de Resultados Horizontal por {LblSubProyecto.Text}", Gv3:=GvTotalesSubProyectoH, EsPorSubProyecto:=True) + ElseIf Tab.ActiveTabIndex = 4 AndAlso GvIngresosProyectoH.Rows.Count > 0 Then + ExportToExcelG(GvIngresosProyectoH, GvGastosProyectoH, TMesT1, "Reporte_Proyecto_Horizontal", UsuarioActual, $"Estado de Resultados Horizontal por Proyecto", EsPorSubProyecto:=True) End If End Sub 'Public Sub ExportToExcelG(Gv1 As GridView, Gv2 As GridView, NombreArchivoXLSx As String, Optional Titulo As String = "Reporte", Optional Usuario As Usuario = Nothing, Optional Filtros As String = "", Optional AlturaImagen As Double = 100, Optional AnchoImagen As Double = 100) - Public Sub ExportToExcelG(Gv1 As GridView, Gv2 As GridView, TablaResultados As HtmlTable, NombreArchivoXLSx As String, Usuario As Usuario, Titulo As String, Optional AlturaImagen As Double = 100, Optional AnchoImagen As Double = 100, Optional Gv3 As GridView = Nothing, Optional EsPorSubProtyecto As Boolean = False) + Public Sub ExportToExcelG(Gv1 As GridView, Gv2 As GridView, TablaResultados As HtmlTable, NombreArchivoXLSx As String, Usuario As Usuario, Titulo As String, Optional AlturaImagen As Double = 100, Optional AnchoImagen As Double = 100, Optional Gv3 As GridView = Nothing, Optional EsPorSubProyecto As Boolean = False) Dim sw1 As New StringWriter() Dim htw1 As New HtmlTextWriter(sw1) @@ -3023,7 +3022,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal RangoFechas.Style.VerticalAlignment = GemBox.Spreadsheet.VerticalAlignmentStyle.Center - If EsPorSubProtyecto And DdlSubproyecto.SelectedValue.ToEntero > 0 Then + If EsPorSubProyecto And DdlSubproyecto.SelectedValue.ToEntero > 0 Then Dim RangoSubProyecto = worksheet.Cells.GetSubrangeAbsolute(5, celdasConTexto.FirstColumnIndex, 5, celdasConTexto.LastColumnIndex) RangoSubProyecto.Merged = True RangoSubProyecto.Value = DdlSubproyecto.SelectedItem.Text @@ -3042,9 +3041,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal worksheet.Rows(8).Cells(i).Style.FillPattern.SetPattern(GemBox.Spreadsheet.FillPatternStyle.Solid, GemBox.Spreadsheet.SpreadsheetColor.FromArgb(75, 119, 190), GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255)) worksheet.Rows(8).Cells(i).Style.Font.Color = GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255) - - - If Not EsPorSubProtyecto Then + If Not EsPorSubProyecto Then worksheet.Rows(8 + Gv1.Rows.Count + 2).Cells(i).Style.FillPattern.SetPattern(GemBox.Spreadsheet.FillPatternStyle.Solid, GemBox.Spreadsheet.SpreadsheetColor.FromArgb(75, 119, 190), GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255)) worksheet.Rows(8 + Gv1.Rows.Count + 2).Cells(i).Style.Font.Color = GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255) Else @@ -3052,8 +3049,6 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal worksheet.Rows(18).Cells(i).Style.Font.Color = GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255) End If - - If i > 0 Then Try worksheet.Columns(i).AutoFit(1) @@ -3081,11 +3076,6 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal End Using End If - - - - - For I = celdasConTexto.FirstColumnIndex To celdasConTexto.LastColumnIndex If I > 0 Then @@ -3108,7 +3098,6 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal excel.Save(HttpContext.Current.Response, $"{NombreArchivoXLSx}.xlsx") - End Sub Public Overrides Sub VerifyRenderingInServerForm(ByVal control As Control) @@ -3117,9 +3106,6 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal #End Region - - - End Class diff --git a/Inventarios/TraspasoAlmacen.aspx.vb b/Inventarios/TraspasoAlmacen.aspx.vb index 616051072..68399421d 100644 --- a/Inventarios/TraspasoAlmacen.aspx.vb +++ b/Inventarios/TraspasoAlmacen.aspx.vb @@ -656,7 +656,7 @@ Partial Class Inventarios_TraspasoAlmacen End If End Sub - Private Function ValidaExistencia(Cantidad As Double, CvePS As Integer, CveUnidadMedida As Integer, CveSeccionAlmacen As Integer, Serie As String, Lote As String, FechaCaducidad As Date) As Boolean + Private Function ValidaExistencia(Cantidad As Decimal, CvePS As Integer, CveUnidadMedida As Integer, CveSeccionAlmacen As Integer, Serie As String, Lote As String, FechaCaducidad As Date) As Boolean Dim Retorno As Boolean = True Dim ExistenciaEspecificada As Decimal @@ -2956,7 +2956,7 @@ Partial Class Inventarios_TraspasoAlmacen Dim CveProducto As Integer = RowPS("CvePS").ToString().ToEntero() Dim CveUnidadMedida As Integer = RowPS("CveUnidadMedida").ToString().ToEntero() - Dim Cantidad As Double = RowExcel("Cantidad").ToString().ToDecimal() + Dim Cantidad As Decimal = RowExcel("Cantidad").ToString().ToDecimal() Dim Serie As String = RowExcel("Serie").ToString() Dim Lote As String = RowExcel("Lote").ToString() Dim FechaCaducidad As Date = If(RowExcel("FechaCaducidad").ToString = "", MinFecha, RowExcel("FechaCaducidad").ToString.ToDate) @@ -3156,9 +3156,9 @@ Partial Class Inventarios_TraspasoAlmacen ElseIf DrAlmO("CveTipoAlmacen").ToString.Contiene("22") Then 'Recepcion de Usados If ChkTransitorio.Checked Then - DdlAlmacenDestino.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltraParametros(" CveTipoAlmacen IN (21,22) AND Estatus = 'Activo' ") + DdlAlmacenDestino.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltraParametros(" CveTipoAlmacen IN (21,22,2) AND Estatus = 'Activo' ") Else - DdlAlmacenDestino.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoAlmacen:=-1).FiltraParametros("CveTipoAlmacen IN (21,22) ") + DdlAlmacenDestino.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoAlmacen:=-1).FiltraParametros("CveTipoAlmacen IN (21,22,2) ") End If DdlAlmacenDestino.DataBind() @@ -3172,6 +3172,16 @@ Partial Class Inventarios_TraspasoAlmacen DdlAlmacenDestino.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoAlmacen:=-1).FiltraParametros("CveTipoAlmacen IN (1,21,22) ") End If + DdlAlmacenDestino.DataBind() + DdlAlmacenDestino.Items.Insert(0, New ListItem("Seleccione", "-1")) + ElseIf DrAlmO("CveTipoAlmacen").ToString.Contiene("2") Then 'herramientas -- puede regresar a usados + + If ChkTransitorio.Checked Then + DdlAlmacenDestino.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltraParametros(" CveTipoAlmacen IN (21,22) AND Estatus = 'Activo' ") + Else + DdlAlmacenDestino.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoAlmacen:=-1).FiltraParametros("CveTipoAlmacen IN (1,21,22) ") + End If + DdlAlmacenDestino.DataBind() DdlAlmacenDestino.Items.Insert(0, New ListItem("Seleccione", "-1")) Else @@ -3456,8 +3466,3 @@ Partial Class Inventarios_TraspasoAlmacen #End Region End Class - - - - - diff --git a/Nomina/Nomina.aspx b/Nomina/Nomina.aspx index fa8c75001..f7fce04d7 100644 --- a/Nomina/Nomina.aspx +++ b/Nomina/Nomina.aspx @@ -149,13 +149,14 @@ padding-top: 2px; padding-bottom: 2px; } + #ModalConceptos table.table > tbody > tr > td, #ModalConceptos table.table > tbody > tr > th, #ModalConceptos table.table > thead > tr > td, #ModalConceptos table.table > thead > tr > th { font-size: 11px; padding-top: 2px; - padding-bottom: 2px; + padding-bottom: 2px; } .GvConceptos.table > tbody > tr.ConceptosTotales td { @@ -215,7 +216,7 @@ - +
  • Autorizar
    • @@ -288,6 +289,9 @@
  • Nómina tabular
    • +
  • + Nómina Personalizar +
  • Nómina Fiscal
    • @@ -305,7 +309,8 @@
  • Procesar archivo SUA EBA PDF -
    • <%-- + + <%--
  • CancelarTimbre
    • --%> @@ -1438,7 +1443,7 @@     - + @@ -3826,8 +3831,8 @@ Cargar - - + + @@ -4929,7 +4934,7 @@ - +