From 95014d0b73cfc11bbca5bfc3c1a52ebabb0baa07 Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 23 Jul 2024 18:27:16 -0700 Subject: [PATCH 01/16] =?UTF-8?q?--=20mejora=20visual=20para=20colores=20-?= =?UTF-8?q?-=20limitar=20visibilidad=20de=20vendedores=20=20y=20t=C3=A9cni?= =?UTF-8?q?cos?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Ashx/CargaEventos.ashx | 2 +- OS/RepServiciosMedicos.aspx | 7 +++++-- OS/RepServiciosMedicos.aspx.vb | 12 ++++++++++-- 3 files changed, 16 insertions(+), 5 deletions(-) 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/OS/RepServiciosMedicos.aspx b/OS/RepServiciosMedicos.aspx index 7659d6de4..e6698a695 100644 --- a/OS/RepServiciosMedicos.aspx +++ b/OS/RepServiciosMedicos.aspx @@ -151,7 +151,9 @@
- + + +
@@ -758,7 +760,8 @@ E: '<%= UsuarioActual.CveEmpresa %>', METODO: 'servicio_medicos', CveUsuarioPara: $('#DdlTecnico').val(), - CveSubProyecto: $('#DdlSubProyecto').val() + CveSubProyecto: $('#DdlSubProyecto').val(), + CveVendedor: $('#HdnCveVendedor').val() } }, eventDrop: eventDropped, diff --git a/OS/RepServiciosMedicos.aspx.vb b/OS/RepServiciosMedicos.aspx.vb index d6ba29431..13b6520e6 100644 --- a/OS/RepServiciosMedicos.aspx.vb +++ b/OS/RepServiciosMedicos.aspx.vb @@ -259,7 +259,9 @@ Partial Class OS_RepServiciosMedicos CargaUsuariosTecnicos() CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyectoEtiqueta) LblSubProyectoFiltro.Text = LblSubProyectoEtiqueta.Text - ' LblModalSubProyectoLabel.Text = LblSubProyectoEtiqueta.Text + If UsuarioActual.CveVendedor > 0 Then + HdnCveVendedor.Value = UsuarioActual.CveVendedor.ToString + End If CargaTecnicos() ConsultaOrdenesServiciosNoAsignadas() CargaOrdenesServiciosNoAsignadas() @@ -273,7 +275,7 @@ Partial Class OS_RepServiciosMedicos Private Sub CargaUsuariosTecnicos() - If not UsuarioActual.TienePermisoProceso(171) Then Exit Sub + ' If not UsuarioActual.TienePermisoProceso(171) Then Exit Sub Dim DTTecnicosresultado As DataTable = Nothing DTTecnicos = New DataTable @@ -295,6 +297,8 @@ Partial Class OS_RepServiciosMedicos End If ObjOS.Dispose() + DTTecnicos = DTTecnicos.FiltraParametros("", DistinctColumns:={"CveUsuario", "Nombre"}) + DdlTecnicoAsignar.DataSource = DTTecnicos DdlTecnicoAsignar.DataBind() DdlTecnicoAsignar.Visible = True @@ -345,6 +349,10 @@ Partial Class OS_RepServiciosMedicos DdlTecnico.DataSource = DTTecnicos 'GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa) DdlTecnico.DataBind() DdlTecnico.Items.Insert(0, New ListItem("Todos", "-1")) + If UsuarioActual.TienePermisoProceso(376) Then + DdlTecnico.Enabled = False + DdlTecnico.SelectedValueExist(UsuarioActual.CveUsuario) + End If End Sub Private Sub CargaTecnicosAsignar() From 641bc3b45b8a6b63e97282ded6f4be9495edd984 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 24 Jul 2024 03:40:15 -0700 Subject: [PATCH 02/16] - mejora para el uso de Zona --- Contabilidad/RepAnexoCatalogo.aspx.vb | 4 +-- .../RepEstadoResultadosHorizontal.aspx.vb | 30 +++++-------------- 2 files changed, 10 insertions(+), 24 deletions(-) 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 From 050d2d1aba4a1ce01551fc08ddacbd1109f4a1ef Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 26 Jul 2024 12:30:37 -0700 Subject: [PATCH 03/16] =?UTF-8?q?--=20activaci=C3=B3n=20especial=20para=20?= =?UTF-8?q?layoutbbva=20Gdiaz?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- App_Code/ClsNominas.vb | 2 +- Nomina/Nomina.aspx.cs | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) 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/Nomina/Nomina.aspx.cs b/Nomina/Nomina.aspx.cs index de3b59033..34b16d180 100644 --- a/Nomina/Nomina.aspx.cs +++ b/Nomina/Nomina.aspx.cs @@ -10097,7 +10097,7 @@ public partial class Nomina_Nomina2 : ClsPaginas StringBuilder SbErrores = new StringBuilder(); bool ErroresValidaciones = false; int modalidadnomina = 1; - if (UsuarioActual.CveEmpresa == 189) modalidadnomina = 2; + if (UsuarioActual.CveEmpresa.Contiene(189,193,195,196,197)) modalidadnomina = 2; SbErrores.AppendLine("Se detectaron los siguientes errores en la generación del layout:
"); From 47d632e06e6db142c1b17615d5c2a77e2eb0bd55 Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 26 Jul 2024 12:32:38 -0700 Subject: [PATCH 04/16] -- parmetro empresa en GlobaldtSubProyectos --- Ventas/Ventas.aspx.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 848f93764..0a504a2a7 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -37241,7 +37241,7 @@ Partial Class Ventas Dim Respuesta As Boolean = False If UsuarioActual.CveEmpresa.Contiene(13, 83) Then - Dim DTSubproyectoActual As DataTable = GlobalDTSubProyectos(-1, DdlSubProyectoDatos.SelectedValue.ToEntero) + Dim DTSubproyectoActual As DataTable = GlobalDTSubProyectos(-1, DdlSubProyectoDatos.SelectedValue.ToEntero, CveEmpresa:=UsuarioActual.CveEmpresa) If (DTSubproyectoActual.Rows(0)("TipoSucursal").ToString.ToEntero = 1) Then Respuesta = True From 774dd329f88aadc13fae90228452125967c7ca12 Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 26 Jul 2024 12:39:02 -0700 Subject: [PATCH 05/16] - dev almacen --- Inventarios/TraspasoAlmacen.aspx.vb | 23 ++++++++++++++--------- 1 file changed, 14 insertions(+), 9 deletions(-) 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 - - - - - From 9bb16ddc029801b315a502e0dd8f8aa7e5cda8b2 Mon Sep 17 00:00:00 2001 From: RPimienta Date: Fri, 26 Jul 2024 13:38:23 -0700 Subject: [PATCH 06/16] Ajuste en vinculacion OC en compras con la funcionalidad 382 --- Compras/Compras.aspx | 2 +- Compras/Compras.aspx.vb | 22 ++++++++++++++++++++++ 2 files changed, 23 insertions(+), 1 deletion(-) diff --git a/Compras/Compras.aspx b/Compras/Compras.aspx index 438ad97d9..b9e726e82 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 dbd4e0133..34ae5d558 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 @@ -14534,9 +14538,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 @@ -22010,6 +22031,7 @@ Public Class ClsCompraManagerCompras TmpDT.Columns.Add("CveCultivoCuadroDetalle", GetType(Integer)) TmpDT.Columns.Add("TemporadaCuadro", GetType(String)) + TmpDT.Columns.Add("NoIdentificacion", GetType(String)) TmpDT.AcceptChanges() From c87c9d75a5c96ca9c3b692f820ac3b26820bc250 Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 26 Jul 2024 17:37:41 -0700 Subject: [PATCH 07/16] -- mejora en manejo de vendedores asignados a distribuidores --- Ventas/PV.aspx.vb | 18 +++++++++++++----- 1 file changed, 13 insertions(+), 5 deletions(-) diff --git a/Ventas/PV.aspx.vb b/Ventas/PV.aspx.vb index 31faf3fc8..9215c6c91 100644 --- a/Ventas/PV.aspx.vb +++ b/Ventas/PV.aspx.vb @@ -2639,6 +2639,10 @@ Partial Class PV LbVendedor.Text = GlobalDTVendedores(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Vendedor", $"CveVendedor = {ObjCliente.Vendedor}") End If + If ObjCliente.Vendedor <> "" Then + DdlVendedor.SelectedValueExistInsert(ObjCliente.DtResultados(0)("CveVendedor"), LbVendedor.Text) + End If + ' si es empresa acumuladores If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then CargaPorcentajeMarcas() @@ -3023,9 +3027,11 @@ Partial Class PV Dim DtVendedores As DataTable = Nothing - Dim ObjVendedores As New ClsVtaVendedores - If ObjVendedores.GetVendedores(UsuarioActual.CveEmpresa) Then DtVendedores = ObjVendedores.DtResultados.Copy - ObjVendedores.Dispose() + 'Dim ObjVendedores As New ClsVtaVendedores + 'If ObjVendedores.GetVendedores(UsuarioActual.CveEmpresa) Then DtVendedores = ObjVendedores.DtResultados.Copy + 'ObjVendedores.Dispose() + + DtVendedores = GlobalDTVendedores(UsuarioActual.CveEmpresa) If DtVendedores IsNot Nothing Then If UsuarioActual.Empresa.Funcionalidad(302) = "1" AndAlso DdlSubProyectoDatos.SelectedValue.ToEntero > 0 Then @@ -3035,12 +3041,14 @@ Partial Class PV End If End If - DdlVendedor.SelectedValue = "0" DdlVendedor.Items.Insert(0, New ListItem("Sin Asignar", "0")) DdlVendedor.DataBind() - DdlVendedor.SelectedValueExist(CveVendedorActual) + If CveVendedorActual > 0 Then + Dim tt As String = GlobalDTVendedores(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Vendedor", "CveVendedor =" & CveVendedorActual) + DdlVendedor.SelectedValueExistInsert(CveVendedorActual, tt) + End If If Not DdlVendedor.SelectedValue.ToEntero > 0 Then DdlVendedor.SelectedValueExist(UsuarioActual.CveVendedor.ToString) From 12ac2b0561724091985a760596fc809c7e2f0e92 Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 26 Jul 2024 17:49:58 -0700 Subject: [PATCH 08/16] =?UTF-8?q?--=20validaci=C3=B3n=20de=20carga=20excel?= =?UTF-8?q?,=20cuando=20no=20existe=20el=20PS?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Inventarios/TraspasoAlmacen.aspx.vb | 21 +++++++++------------ 1 file changed, 9 insertions(+), 12 deletions(-) diff --git a/Inventarios/TraspasoAlmacen.aspx.vb b/Inventarios/TraspasoAlmacen.aspx.vb index 68399421d..852727307 100644 --- a/Inventarios/TraspasoAlmacen.aspx.vb +++ b/Inventarios/TraspasoAlmacen.aspx.vb @@ -2953,16 +2953,14 @@ Partial Class Inventarios_TraspasoAlmacen Dim RowPS As DataRow = DtPS.FiltroPrimero(String.Format("Codigo='{0}'", RowExcel("Codigo").ToString())) - Dim CveProducto As Integer = RowPS("CvePS").ToString().ToEntero() - Dim CveUnidadMedida As Integer = RowPS("CveUnidadMedida").ToString().ToEntero() - - 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) - Dim Observaciones As String = RowExcel("Observaciones").ToString() - - If CveProducto > 0 Then + If RowPS IsNot Nothing Then + Dim CveProducto As Integer = RowPS("CvePS").ToString().ToEntero() + Dim CveUnidadMedida As Integer = RowPS("CveUnidadMedida").ToString().ToEntero() + 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) + Dim Observaciones As String = RowExcel("Observaciones").ToString() Dim Valido As Boolean = True Dim ValidarLote As Boolean = True @@ -3001,10 +2999,9 @@ Partial Class Inventarios_TraspasoAlmacen RowsNoCargados = RowsNoCargados + 1 ProductosNoCargados.AppendFormat("{0},", RowPS("PSCodigo").ToString()) End If - Else RowsNoCargados = RowsNoCargados + 1 - ProductosNoCargados.AppendFormat("{0},", RowExcel("Producto").ToString()) + ProductosNoCargados.AppendFormat("{0}, ", RowExcel("Producto").ToString()) End If End If Next From f8017daa3323bb27eb644d2cea638ebbd280a1f1 Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 26 Jul 2024 18:12:57 -0700 Subject: [PATCH 09/16] -- cambio a globaldtvendedores --- Ventas/PV.aspx.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Ventas/PV.aspx.vb b/Ventas/PV.aspx.vb index 9215c6c91..9d5c24792 100644 --- a/Ventas/PV.aspx.vb +++ b/Ventas/PV.aspx.vb @@ -3031,7 +3031,7 @@ Partial Class PV 'If ObjVendedores.GetVendedores(UsuarioActual.CveEmpresa) Then DtVendedores = ObjVendedores.DtResultados.Copy 'ObjVendedores.Dispose() - DtVendedores = GlobalDTVendedores(UsuarioActual.CveEmpresa) + DtVendedores = GlobalDTVendedores(UsuarioActual.CveEmpresa, VendedorTipo:=-1).Copy If DtVendedores IsNot Nothing Then If UsuarioActual.Empresa.Funcionalidad(302) = "1" AndAlso DdlSubProyectoDatos.SelectedValue.ToEntero > 0 Then From 63acae79b3cbc7d5c3a459e1fbe8e4d96872c261 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Fri, 26 Jul 2024 18:54:30 -0700 Subject: [PATCH 10/16] Puntos GDiaz -- Mostrar precio en ddl lista de precios -- Boton para ver existencias FIX. --Vendedor al facturar remision JAM --- Ventas/Ventas.aspx | 34 ++++++++++++++++- Ventas/Ventas.aspx.vb | 88 +++++++++++++++++++++++++++++++++++++------ 2 files changed, 108 insertions(+), 14 deletions(-) diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx index 5317cb7fc..b3d372a30 100644 --- a/Ventas/Ventas.aspx +++ b/Ventas/Ventas.aspx @@ -1478,6 +1478,8 @@ <%--19--%> + - - + +
+ + +
diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb index 5688cc07e..af33ff1b5 100644 --- a/Bancos/IE.aspx.vb +++ b/Bancos/IE.aspx.vb @@ -815,6 +815,11 @@ Partial Class Bancos_IE NumComplementos = ObjIE.DtResultados(0)("NumComplementos").ToString.ToEntero Dim CveIEEstadoCuenta As Integer = ObjIE.DtResultados(0)("CveIEEstadoCuenta").ToString.ToEntero + If Not String.IsNullOrEmpty(ObjIE.DtResultados(0)("CveAutorizacion").ToString) Then + DivCveAutorizacion.Visible = True + LblCveAutorizacion.Text = ObjIE.DtResultados(0)("CveAutorizacion").ToString() + End If + If UsuarioActual.TienePermisoProceso(99) Then 'BtnActualizar.Visible = True TxtFechaDocumento.Enabled = True diff --git a/Ventas/PVCobranza.aspx b/Ventas/PVCobranza.aspx index 35db02691..080d75df6 100644 --- a/Ventas/PVCobranza.aspx +++ b/Ventas/PVCobranza.aspx @@ -11,7 +11,7 @@ width: 200px; } - .btn-xs { + .btn-xs { padding: 0px 5px; } @@ -200,9 +200,9 @@
  • Retiro de Efectivo
    • -
  • - Cobros en Transcurso -
    • +
  • + Cobros en Transcurso +
    • @@ -273,13 +273,13 @@
    @@ -335,13 +335,18 @@
    Folio:
      
    -
    -
    -
    - -
    +
    + + +
    +
    + + + +
    -
    + + @@ -423,6 +428,20 @@ +
    +
    +
    + +
    + +
    + +
    + +
    +
    +
    +
    @@ -515,43 +534,44 @@
    - - - - - Serie - Folio - - - - - - - - - - - - - - - - - - - - - - + + + + + Serie - Folio + + + + + + + + + + + + + + + + + + + + + + + + -
    - + @@ -574,7 +594,7 @@     - + Sucursal: @@ -591,7 +611,7 @@ - +     @@ -763,7 +783,7 @@ - +
    @@ -913,54 +933,54 @@ -
    +
    +
    + + + + +
    +