diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb index 85a36307a..34e86a88a 100644 --- a/App_Code/ClsInventarios.vb +++ b/App_Code/ClsInventarios.vb @@ -2008,7 +2008,7 @@ Public Class ClsInventarios Return Retorno End Function - Public Function RepNotasSinAlmacen(Opcion As Integer, CveClienteProveedor As Integer, FechaIni As Date, FechaFin As Date, TipoDocumento As String, CveSubProyecto As Integer, CveEmpresa As Integer) As Boolean + Public Function RepNotasSinAlmacen(Opcion As Integer, CveClienteProveedor As Integer, FechaIni As Date, FechaFin As Date, TipoDocumento As String, CveSubProyecto As Integer, CveEmpresa As Integer, CveUsuario As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Inv_RepNotasSinAlmacen") @@ -2021,6 +2021,7 @@ Public Class ClsInventarios .Add("@Opcion", SqlDbType.Int).Value = Opcion .Add("@TipoDocumento", SqlDbType.VarChar).Value = TipoDocumento .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario End With Try diff --git a/Bancos/Devoluciones.aspx b/Bancos/Devoluciones.aspx index d63c1c52f..512e5d298 100644 --- a/Bancos/Devoluciones.aspx +++ b/Bancos/Devoluciones.aspx @@ -160,7 +160,7 @@
- +
diff --git a/Bancos/Devoluciones.aspx.cs b/Bancos/Devoluciones.aspx.cs index bc166e690..67049b026 100644 --- a/Bancos/Devoluciones.aspx.cs +++ b/Bancos/Devoluciones.aspx.cs @@ -24,6 +24,7 @@ public partial class Bancos_Devoluciones : ClsPaginas TxtComisiones.Attributes.Add("disabled", "disabled"); TxtTotal.Attributes.Add("disabled", "disabled"); TipoDevolucion.SelectedValue = "1"; + CargarCentrosDeCosto(null, null, null, LblSubProyecto); } } diff --git a/Bancos/PagoAcreedor.aspx b/Bancos/PagoAcreedor.aspx index 56deee488..eeca92ae5 100644 --- a/Bancos/PagoAcreedor.aspx +++ b/Bancos/PagoAcreedor.aspx @@ -101,8 +101,7 @@
- - +
@@ -249,8 +248,8 @@
-
-
SubProyecto +
+
diff --git a/Bancos/PagoAcreedor.aspx.cs b/Bancos/PagoAcreedor.aspx.cs index de1d871ad..2605d9662 100644 --- a/Bancos/PagoAcreedor.aspx.cs +++ b/Bancos/PagoAcreedor.aspx.cs @@ -50,6 +50,8 @@ public partial class Bancos_PagoAcreedor : ClsPaginas txtFechaI.Text = NowADS().FirstDayOfMonth().ToShortDateString(); txtFechaF.Text = NowADS().ToShortDateString(); TxtImporte.Attributes.Add("disabled", "disabled"); + CargarCentrosDeCosto(null, null, null, LblSubProyecto); + LblSubProyecto2.Text = LblSubProyecto.Text; } } diff --git a/Bancos/PagoDeudor.aspx b/Bancos/PagoDeudor.aspx index 6e9e0970b..09e008c7e 100644 --- a/Bancos/PagoDeudor.aspx +++ b/Bancos/PagoDeudor.aspx @@ -121,8 +121,8 @@
-
- +
+
@@ -304,8 +304,8 @@
-
- +
+
diff --git a/Bancos/PagoDeudor.aspx.cs b/Bancos/PagoDeudor.aspx.cs index 46a3b1198..e2af4114e 100644 --- a/Bancos/PagoDeudor.aspx.cs +++ b/Bancos/PagoDeudor.aspx.cs @@ -54,6 +54,8 @@ public partial class Bancos_PagoDeudor : ClsPaginas TxtTCDolaresPrestamo.Text = get_GlobalTipoCambio(TxtFechaPrestamo.Text.ToDateTime()).FormatoNumero(4); TxtTCDolaresPago.Text = get_GlobalTipoCambio(TxtFechaDocumento.Text.ToDateTime()).FormatoNumero(4); TxtImporte.Attributes.Add("disabled", "disabled"); + CargarCentrosDeCosto(null, null, null, LblSubProyecto); + LblSubProyecto2.Text = LblSubProyecto.Text; } } diff --git a/Compras/Compras.aspx b/Compras/Compras.aspx index fff9c865e..022c5ac6b 100644 --- a/Compras/Compras.aspx +++ b/Compras/Compras.aspx @@ -4576,7 +4576,9 @@ <%-- --%> - +
diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 43418882f..1cbfaed4d 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -1406,6 +1406,9 @@ Partial Class Compras_Compras End If + + CargarCentrosDeCosto(Nothing, Nothing, Nothing, LblSubProyecto) + 'Carga Proveedor If Request("CveProveedor") IsNot Nothing AndAlso IsNumeric(Request("CveProveedor")) AndAlso Request("CveProveedor").ToEntero > 0 Then ViewState("CveProveedor") = Request("CveProveedor") @@ -1502,6 +1505,9 @@ Partial Class Compras_Compras DVModalAnticipoFechaEjecucion.Visible = True HlEvento.Visible = True HlEvento.NavigateUrl = "/OI/PopUpAgenda.aspx?CveTipoEvento=2&CveCompra=" & CveCompra & "&TB_iframe=true&height=370&width=600;" + If UsuarioActual.CveEmpresa = 189 Then + BtnCancelarCompra.Visible = False + End If Else ViewState("CveProveedor") = -1 diff --git a/General/SaldosIniciales.aspx.vb b/General/SaldosIniciales.aspx.vb index c44dd0399..fdfba80f9 100644 --- a/General/SaldosIniciales.aspx.vb +++ b/General/SaldosIniciales.aspx.vb @@ -2727,7 +2727,8 @@ Partial Class General_SaldosIniciales If Not ErrorVentas Then If Not ObjVentas.AddVentaDetalle(CveVenta, CvePS, CantidadDetalle, CveUnidadMedida, PuDetalle, IVADetalle, TotalDetalles, "Saldo Inicial", 0, 0, Sucursal.ToEntero(), 0, - PorcentajeIVA:=PorcentajeIVA, PorcentajeRetIVA:=PorcentajeRetIVA, ImporteRetIVA:=0, IEPS:=IEPSDetalle, PorcentajeRetISR:=0, PorcentajeIEPS:=PorcentajeIEPSDetalle) Then + PorcentajeIVA:=PorcentajeIVA, PorcentajeRetIVA:=PorcentajeRetIVA, ImporteRetIVA:=0, IEPS:=IEPSDetalle, PorcentajeRetISR:=0, PorcentajeIEPS:=PorcentajeIEPSDetalle, + EstatusAlmacen:=2) Then ErrorVentas = True Exit For End If diff --git a/Inventarios/KardexAlmacenHorizontal.aspx b/Inventarios/KardexAlmacenHorizontal.aspx index a791a8f1d..64acb2d20 100644 --- a/Inventarios/KardexAlmacenHorizontal.aspx +++ b/Inventarios/KardexAlmacenHorizontal.aspx @@ -257,33 +257,36 @@
- - - - Código - - -
- -
- - - - - - Producto - - -
- -
- - - - - - + DataKeyNames="CvePS" + CssClass="ADSCROLLER2 table table-striped table-advance table-hover " data-cols="2" data-heightmenos="300" GridLines="None"> + + + + Código + + +
+ +
+ + + + + + + Producto + + +
+ +
+ + + + + + +
diff --git a/Inventarios/KardexAlmacenHorizontal.aspx.vb b/Inventarios/KardexAlmacenHorizontal.aspx.vb index 7547ddfe2..90f797949 100644 --- a/Inventarios/KardexAlmacenHorizontal.aspx.vb +++ b/Inventarios/KardexAlmacenHorizontal.aspx.vb @@ -4,6 +4,7 @@ Imports ADSNetLibrary.SIGAPI.Models.CGame Imports Extensiones Imports GemBox.Spreadsheet Imports Microsoft.Reporting.WebForms +Imports Telerik.Web.UI Partial Class Inventarios_KardexAlmacenHorizontal Inherits ClsPaginas @@ -144,7 +145,7 @@ Partial Class Inventarios_KardexAlmacenHorizontal End Sub Private Sub CargarKardex(CvePS As Integer) - Dim dt As DataTable = Nothing + Dim dt As New DataTable Dim ObjMovimientos As New ClsInventarios Dim FechaI As String = "-1" ' If(TxtFechaI.Text <> "" AndAlso TxtFechaI.Text <> "__/__/____", TxtFechaI.Text, "-1") ' Dim FechaF As String = If(TxtFechaF.Text <> "" AndAlso TxtFechaF.Text <> "__/__/____", TxtFechaF.Text, "-1") @@ -163,9 +164,10 @@ Partial Class Inventarios_KardexAlmacenHorizontal If ObjMovimientos.DtResultados IsNot Nothing AndAlso ObjMovimientos.DtResultados.Rows.Count > 0 Then dt = ObjMovimientos.DtResultados Dim ListaBorrar As New List(Of DataColumn) - If Not TienePermisoImportes Then - dt.Columns.RemoveAt(dt.Columns.Count - 1) 'CP-quito columna de importe total - dt.Columns.RemoveAt(dt.Columns.Count - 1) 'Valor-quito columna de importe total + + If Not TienePermisoImportes AndAlso DdlExistencia.SelectedValue.ToEntero = 2 Then + dt.Columns.RemoveAt(dt.Columns.Count - 2) 'CP-quito columna de importe total + dt.Columns.RemoveAt(dt.Columns.Count - 2) 'Valor-quito columna de importe total End If For index As Integer = 3 To dt.Columns.Count - 1 Dim TotColumna As Double = 0 @@ -195,8 +197,23 @@ Partial Class Inventarios_KardexAlmacenHorizontal End If GvDatos.DataBind() - For index = 4 To GvDatos.Rows(0).Cells.Count - 1 - GvDatos.HeaderRow.Cells(index).Text = GvDatos.HeaderRow.Cells(index).Text.Split("|"c)(0) + For index = 0 To GvDatos.Rows(0).Cells.Count - 1 + + + If GvDatos.HeaderRow.Cells(index).Text = "CvePS" Then + GvDatos.HeaderRow.Cells(index).Text = "" + End If + + If GvDatos.HeaderRow.Cells(index).Text = "PS" Then + GvDatos.HeaderRow.Cells(index).Text = "Producto" + GvDatos.HeaderRow.Cells(index).Width = 300 + End If + + If index >= 2 Then + GvDatos.HeaderRow.Cells(index).Text = GvDatos.HeaderRow.Cells(index).Text.Split("|"c)(0) + End If + + Next End Sub @@ -242,13 +259,26 @@ Partial Class Inventarios_KardexAlmacenHorizontal Cells.Text = Cells.Text.FormatoNumero(2) 'ElseIf ce.ContainingField.HeaderText = "Total" Then ' Cells.Text = Cells.Text.FormatoNumero(2) + ElseIf ce.ContainingField.HeaderText = "Codigo" Then + + ElseIf ce.ContainingField.HeaderText = "PS" Then + Cells.Width = 300 + ElseIf ce.ContainingField.HeaderText = "CvePS" Then + Cells.Text = "" + Cells.Width = 1 + ElseIf ce.ContainingField.HeaderText = "Total" Then + Cells.Text = String.Format("{0:#,###.##}", Cells.Text.ToDecimal) Else Cells.Text = String.Format("{0:#,###.##}", Cells.Text.ToDecimal) + If Not e.Row.RowIndex = 0 And Ddlgrupo.SelectedValue.ToEntero = 1 Then + Dim Liga2 As String = String.Format($"/Inventarios/Kardex.aspx?CvePS={e.Row.DataKey("CvePS")}&CveAlmacen={CveAlmacen2}&CveUM={DdlUnidadMedida.SelectedValue.ToEntero}&FechaI={txtFechaI.Text}&FechaF={TxtFechaF.Text}") + Cells.Text = String.Format("{0}", Celda.FormatoNumero(), Liga2) + End If + End If End If e.Row.Cells(e.Row.Cells.GetCellIndex(Cells)).Width = Unit.Pixel(80) - 'Dim Liga2 As String = String.Format($"/Inventarios/Kardex.aspx?CvePS={ddlProducto2.SelectedValue.ToEntero}&CveAlmacen={CveAlmacen2}&CveUM={DdlUnidadMedida.SelectedValue.ToEntero}&FechaI={TxtFechaI.Text}&FechaF={TxtFechaF.Text}") - 'Cells.Text = String.Format("{0}", Celda.FormatoNumero(), Liga2) + End If Index = Index + 1 Next @@ -261,8 +291,20 @@ Partial Class Inventarios_KardexAlmacenHorizontal Private Sub GvDatos_RowCreated(sender As Object, e As GridViewRowEventArgs) Handles GvDatos.RowCreated 'Escondo CvePS y CveAlmacén (Se generan por autogeneratecolumns por eso se borran por aqui). ' e.Row.Cells(0).Width = New Unit("200px") - e.Row.Cells(2).Visible = False - e.Row.Cells(3).Visible = False + + + If DdlExistencia.SelectedValue.ToEntero = 2 Then + Try + e.Row.Cells(2).Visible = False + e.Row.Cells(3).Visible = False + Catch ex As Exception + + End Try + + Else + e.Row.Cells(0).Visible = False + End If + If e.Row.RowType = DataControlRowType.Header Then 'e.Row.Cells(6).ToolTip = "Costo" End If diff --git a/Inventarios/RepAlmacenCompras.aspx b/Inventarios/RepAlmacenCompras.aspx index f4bf3cd07..47a5849e0 100644 --- a/Inventarios/RepAlmacenCompras.aspx +++ b/Inventarios/RepAlmacenCompras.aspx @@ -33,7 +33,7 @@
    -
  • SubProyecto:
    • +
  • :
    • <%--SubProyecto--%>
  • diff --git a/Inventarios/RepAlmacenCompras.aspx.vb b/Inventarios/RepAlmacenCompras.aspx.vb index 8c14250c5..304edecf6 100644 --- a/Inventarios/RepAlmacenCompras.aspx.vb +++ b/Inventarios/RepAlmacenCompras.aspx.vb @@ -34,6 +34,7 @@ Partial Class Inventarios_RepAlmacenCompras Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load If Not Page.IsPostBack Then + CargarCentrosDeCosto(Nothing, Nothing, Nothing, LblSubProyecto) CargaDatos() CargaPermisos() End If diff --git a/Inventarios/RepNotasSinAlmacen.aspx.vb b/Inventarios/RepNotasSinAlmacen.aspx.vb index e7d5a7c78..ee85d829e 100644 --- a/Inventarios/RepNotasSinAlmacen.aspx.vb +++ b/Inventarios/RepNotasSinAlmacen.aspx.vb @@ -140,7 +140,7 @@ Partial Class RepNotasSinAlmacen CveClienteProveedor = DdlCliente.SelectedValue.ToEntero End If Dim Reporte As New ClsInventarios - If Reporte.RepNotasSinAlmacen(Opcion, CveClienteProveedor, FechaInicial, FechaFinal, TipoDocumento, DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.Empresa.CveEmpresa) Then + If Reporte.RepNotasSinAlmacen(Opcion, CveClienteProveedor, FechaInicial, FechaFinal, TipoDocumento, DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.Empresa.CveEmpresa, UsuarioActual.CveUsuario) Then Dim dtt As DataTable = Reporte.DtResultados GvVentas.DataSource = Reporte.DtResultados @@ -159,7 +159,7 @@ Partial Class RepNotasSinAlmacen CveClienteProveedor = DdlProveedor.SelectedValue.ToEntero End If Dim Reporte As New ClsInventarios - If Reporte.RepNotasSinAlmacen(2, CveClienteProveedor, FechaInicial, FechaFinal, DdlTipoDocto2.SelectedValue, DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.Empresa.CveEmpresa) Then + If Reporte.RepNotasSinAlmacen(2, CveClienteProveedor, FechaInicial, FechaFinal, DdlTipoDocto2.SelectedValue, DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.Empresa.CveEmpresa, UsuarioActual.CveUsuario) Then GvCompras.DataSource = Reporte.DtResultados DtNotasSinAlmacenCompras = Reporte.DtResultados Else diff --git a/Ventas/Promociones.aspx.vb b/Ventas/Promociones.aspx.vb index 1fa9a6812..84be68fd3 100644 --- a/Ventas/Promociones.aspx.vb +++ b/Ventas/Promociones.aspx.vb @@ -198,7 +198,7 @@ Partial Class Ventas_Promociones ChkEstatus.Enabled = False End If - If (ChkEstatus.Checked = True And Not PermisoAutorizPromocionPorcentaje) Or (ReqAutorizacion And Not PermisoAutorizPromocionPorcentaje) Then + If (ChkEstatus.Checked = False And Not PermisoAutorizPromocionPorcentaje And ReqAutorizacion) Or (ReqAutorizacion And Not PermisoAutorizPromocionPorcentaje) Then BtnGuardar.Visible = False ButBtnEliminar.Visible = False End If