GDiaz Pendientes de implementación 2025-01-09

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

Bancos/Devoluciones.aspx

@@ -160,7 +160,7 @@
 
                                     <div class="row" style="padding-bottom: 5px;">
                                         <div class="col-md-4">
-                                            <label>Subproyecto:</label>
+                                            <label><asp:Label  runat="server" id="LblSubProyecto"></asp:Label>:</label>
                                         </div>
                                         <div class="col-md-8" style="width:175px;">
                                             <asp:DropDownList ID="DdlSubProyecto" runat="server" CssClass="form-control input-sm select2me" DataTextField="SubProyecto" DataValueField="CveSubProyecto" ValidationGroup="GrpGuardar" Width="145px">

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);
         }
     }
 

Bancos/PagoAcreedor.aspx

@@ -101,8 +101,7 @@
 
                                         </div>
                                          <div class="col-md-1 control-label" >
-                                             <asp:Label ID="LblSubproyecto" runat="server" Text="SubProyecto:"></asp:Label>
+                                             <label><asp:Label  runat="server" id="LblSubProyecto"></asp:Label>:</label>                                             
-                                             
                                           </div>
                                          <div class="col-md-3">
                                             <asp:DropDownList runat="server" ID="DdlSubProyecto" DataTextField="SubProyecto" DataValueField="CveSubProyecto"  Width="150px" CssClass="select2me" ></asp:DropDownList>
@@ -250,7 +249,7 @@
                                                     <asp:TextBox ID="TxtTotal" runat="server" CssClass="form-control input-sm" Visible="false" MaxLength="12" Width="140px" placeholder="Total" Enabled="false" ClientIDMode="Static" Style="text-align: right;"></asp:TextBox>
                                                 </div>
                                                  <div class="row">                                                        
-                                                        <div class="col-md-3 input-icon">SubProyecto
+                                                        <label><asp:Label  runat="server" id="LblSubProyecto2"></asp:Label>:</label> 
                                                  </div>
 
                                                   <div class="col-md-3">

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;
 
         }
     }

Bancos/PagoDeudor.aspx

@@ -122,7 +122,7 @@
                                                 <div class="row">
 
                                                     <div class="col-md-2">                                                        
-                                                        <label>SubProyecto:</label>
+                                                        <label><asp:Label  runat="server" id="LblSubProyecto"></asp:Label>:</label> 
                                                     </div>
                                                     <div class="col-md-4">
                                                         <asp:DropDownList runat="server" ID="DdlSubProyecto" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="145px" CssClass="select2me"></asp:DropDownList>
@@ -305,7 +305,7 @@
                                                 <div class="row">
 
                                                     <div class="col-md-2">                                                        
-                                                        <label>SubProyecto:</label>
+                                                            <label><asp:Label  runat="server" id="LblSubProyecto2"></asp:Label>:</label>
                                                     </div>
                                                     <div class="col-md-4">
                                                         <asp:DropDownList runat="server" ID="DdlSubProyectoPago" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="145px" CssClass="select2me"></asp:DropDownList>

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;
         }
     }
 

Compras/Compras.aspx

@@ -4576,7 +4576,9 @@
                                                             </asp:DropDownList>
                                                             <%--<asp:RequiredFieldValidator runat="server" Enabled="true" Display="None" ID="RFVSubProyecto" ControlToValidate="DdlSubProyecto"  ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''SubProyecto''</b> es necesario, por favor seleccione uno." ValidationGroup="GprAgregaPS"></asp:RequiredFieldValidator>
                                                                             <ajax:ValidatorCalloutExtender ID="VCORVSubProyecto" runat="server" HighlightCssClass="vco" TargetControlID="RFVSubProyecto" Width="300px"></ajax:ValidatorCalloutExtender>--%>
-                                                            <label runat="server" id="LblSubProyecto" for="<%= DdlSubProyecto.ClientID.ToString()%>">SubProyecto:</label>
+                                                            <label runat="server" id="LblSubProyectoEx" for="<%= DdlSubProyecto.ClientID.ToString()%>">
+                                                                <asp:Label  runat="server" id="LblSubProyecto"></asp:Label>:
+                                                            </label>
 
                                                         </div>
                                                     </div>

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

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

Inventarios/KardexAlmacenHorizontal.aspx

@@ -257,6 +257,7 @@
                         <div class="row">
                             <div class="col-md-12">
                                 <asp:GridView ID="GvDatos" runat="server" ShowHeader="true" EmptyDataText="No hay registros." AutoGenerateColumns="True" ShowHeaderWhenEmpty="true"
+                                    DataKeyNames="CvePS"
                                     CssClass="ADSCROLLER2  table table-striped table-advance table-hover " data-cols="2" data-heightmenos="300" GridLines="None">
                                     <Columns>
                                         <asp:TemplateField ItemStyle-HorizontalAlign="Left" ItemStyle-Width="120px">
@@ -270,6 +271,7 @@
                                             </ItemTemplate>
                                             <HeaderStyle HorizontalAlign="Left" Width="120px" />
                                         </asp:TemplateField>
+
                                         <asp:TemplateField ItemStyle-HorizontalAlign="Left" ItemStyle-Width="250px">
                                             <HeaderTemplate>
                                                 Producto                                   
@@ -281,6 +283,7 @@
                                             </ItemTemplate>
                                             <HeaderStyle HorizontalAlign="Left" Width="250px" />
                                         </asp:TemplateField>
+
                                     </Columns>
                                     <RowStyle Height="31" />
                                 </asp:GridView>

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 
+                If Not TienePermisoImportes AndAlso DdlExistencia.SelectedValue.ToEntero = 2 Then
-                    dt.Columns.RemoveAt(dt.Columns.Count - 1)  'Valor-quito columna de importe total 
+                    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
+        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("<a target='_blank' href=""{1}"">{0}</a>", 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("<a href=""{1}"">{0}</a>", 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")
+
+
+        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

Inventarios/RepAlmacenCompras.aspx

@@ -33,7 +33,7 @@
                     </div>
                     <div class="titlefiltros caption ">
                         <ul class="list-inline" style="font-size: 12px;">
-                           <li>SubProyecto:</li>
+                           <li><asp:Label  runat="server" id="LblSubProyecto"></asp:Label>:</li>
                             <%--SubProyecto--%>
                         <li>
                             <div >

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

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

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