Merge branch 'master' of http://192.168.10.111:8383/SIG

2020-08-19 13:46:32 -07:00
parent 1745d8ea45 ced72df011
commit f543ad098c
26 changed files with 1749 additions and 242 deletions
--- a/Inventarios/InventarioFisico.aspx
+++ b/Inventarios/InventarioFisico.aspx
@@ -28,7 +28,7 @@
                    </div>
                    <div class="titlefiltros  caption">
                        <div class="row">
-                            <div class="col-md-1 truncate">SubProyecto:</div>
+                            <div class="col-md-1 truncate"><asp:Label runat="server" ID="LblFiltroSubProyecto">SubProyecto:</asp:Label></div>
                            <div class="col-md-4">
                                <asp:DropDownList ID="DdlFiltroSubProyecto" CssClass="form-control select2me" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="70%"></asp:DropDownList>
                            </div>
@@ -148,7 +148,7 @@
                                                    <div class="portlet-body">
                                                        <div class="row">
                                                            <div class="col-md-5">
-                                                                <label for="<%= DdlSubProyecto.ClientID.ToString()%>">SubProyecto:</label>
+                                                                <asp:Label runat="server" ID="LblSubProyecto" for="<%= DdlSubProyecto.ClientID.ToString()%>">SubProyecto:</asp:Label>
                                                                <asp:DropDownList ID="DdlSubProyecto" AutoPostBack="true" CssClass="form-control select2me" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="100%">
                                                                </asp:DropDownList>
                                                            </div>
--- a/Inventarios/InventarioFisico.aspx.vb
+++ b/Inventarios/InventarioFisico.aspx.vb
@@ -88,6 +88,7 @@ Partial Class Inventarios_InventarioFisico
        Inventario.Dispose()
        gvIF.DataSource = dt
        gvIF.EditIndex = -1
+        gvIF.Columns(1).HeaderText = LblSubProyecto.Text
        gvIF.DataBind()
        gvIF.Columns(6).Visible = UsuarioActual.TienePermisoProceso(178)
    End Sub
@@ -125,11 +126,8 @@ Partial Class Inventarios_InventarioFisico
        UPPPSExcluye.Update()
    End Sub
    Private Sub CargaDdlSubProyectos()
-        DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
-        DdlSubProyecto.DataBind()
-        DdlFiltroSubProyecto.Items.Insert(0, New ListItem("Todas", "-1"))
-        DdlFiltroSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
-        DdlFiltroSubProyecto.DataBind()
+        CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyecto)
+        CargarCentrosDeCosto(Nothing, DdlFiltroSubProyecto, Nothing, LblFiltroSubProyecto)
    End Sub
    Private Sub CargaDdlClasificacion()
        DdlClasificacion.Items.Insert(0, New ListItem("Todos", "-1"))
@@ -552,6 +550,7 @@ Partial Class Inventarios_InventarioFisico
        If ObjInventario.GetInventarioFisico(-1, UsuarioActual.CveEmpresa, DdlFiltroSubProyecto.SelectedValue.ToEntero, DdlEstado.SelectedValue) Then
            gvIF.DataSource = ObjInventario.DtResultados
            gvIF.DataBind()
+            gvIF.Columns(1).HeaderText = LblSubProyecto.Text
        End If
        UppInventarioFisico.Update()
        ObjInventario.Dispose()
--- a/Inventarios/RepMaximoMinimo.aspx
+++ b/Inventarios/RepMaximoMinimo.aspx
@@ -277,9 +277,12 @@
                        </div>

                        <div class="form-group form-md-line-input input-iconright">
-                            <asp:DropDownList ID="DdlPSModal" CssClass="form-control input-sm select2me js-cuenta-programmatic" runat="server" AppendDataBoundItems="true" DataTextField="PSCodigo" DataValueField="CvePS" Width="240px" CausesValidation="true"></asp:DropDownList>
-                            <asp:RequiredFieldValidator ID="RFVPS" runat="server" ControlToValidate="DdlPSModal"  CssClass="help-block errorimput"  ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Producto / Servicio''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpDefinir"></asp:RequiredFieldValidator>
-                            <label for="<%= DdlPSModal.ClientID.ToString()%>">Producto/Servicios:</label>
+                            <label for="<%= DdlPSModal.ClientID.ToString()%>"><span style="color:#F3565D;">* </span>Producto/Servicios:</label>
+                             <ADS:Dropdownlost runat="server" ID="DdlPSModal" CssStyle="width: 100%;" CssClass="DdlPS " CssClassDdl="select2me " UsaWebService="true" 
+                                 IncluyeTodos="false" DataTextField="PSCodigo" DataValueField="CvePS"  />
+
+                            <%--<asp:DropDownList ID="DdlPSModal" CssClass="form-control input-sm select2me js-cuenta-programmatic" runat="server" AppendDataBoundItems="true" DataTextField="PSCodigo" DataValueField="CvePS" Width="240px" CausesValidation="true"></asp:DropDownList>--%>
+                            <%--<asp:RequiredFieldValidator ID="RFVPS" runat="server" ControlToValidate="DdlPSModal"  CssClass="help-block errorimput"  ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Producto / Servicio''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpDefinir"></asp:RequiredFieldValidator>--%>
                        </div>

                        <div class="form-group form-md-line-input input-iconright">
--- a/Inventarios/RepMaximoMinimo.aspx.vb
+++ b/Inventarios/RepMaximoMinimo.aspx.vb
@@ -64,9 +64,9 @@ Partial Class Inventarios_RepMaximoMinimo
        DdlAlmacenModal.DataBind()
        DdlAlmacenModal.Items.Insert(0, New ListItem("Seleccione Almacén", "-1"))

-        DdlPSModal.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa)
-        DdlPSModal.DataBind()
-        DdlPSModal.Items.Insert(0, New ListItem("Seleccione", "-1"))
+        'DdlPSModal.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa)
+        'DdlPSModal.DataBind()
+        'DdlPSModal.Items.Insert(0, New ListItem("Seleccione", "-1"))
        UpModalMaximoMinimo.Update()


@@ -195,7 +195,8 @@ Partial Class Inventarios_RepMaximoMinimo
    Private Sub LnkDefinir_Click(sender As Object, e As EventArgs) Handles LnkDefinir.Click
        HFDefinir.Value = "I"
        DdlAlmacenModal.SelectedIndex = 0
-        DdlPSModal.SelectedIndex = 0
+        DdlPSModal.SelectedValue = "-1"
+        DdlPSModal.SelectedText = "Seleccione"
        TxtMaximo.Text = ""
        TxtMinimo.Text = ""
        DdlAlmacenModal.Enabled = True
@@ -206,20 +207,26 @@ Partial Class Inventarios_RepMaximoMinimo
    End Sub

    Private Sub LbAgregarMaximoMinimo_Click(sender As Object, e As EventArgs) Handles LbAgregarMaximoMinimo.Click
-        Dim ObjInventario As New ClsInventarios
-        If HFDefinir.Value = "I" Then
-            If ObjInventario.AddAlmacenMaximoMinimo(DdlAlmacenModal.SelectedValue.ToEntero, DdlPSModal.SelectedValue.ToEntero, TxtMaximo.Text.ToDouble, TxtMinimo.Text.ToDouble, UsuarioActual.CveUsuario) Then
-                Alert("El Máximo/Mínimo se agregó correctamente.", TipoMensaje.MsgInformacion)
-            End If
-        ElseIf HFDefinir.Value = "U" Then
-            If ObjInventario.UpdateAlmacenMaximoMinimo(DdlAlmacenModal.SelectedValue.ToEntero, DdlPSModal.SelectedValue.ToEntero, TxtMaximo.Text.ToDouble, TxtMinimo.Text.ToDouble, UsuarioActual.CveUsuario) Then
-                Alert("El Máximo/Mínimo se actualizó correctamente.", TipoMensaje.MsgInformacion)
-            End If
-        End If
+        If DdlPSModal.SelectedValue.ToEntero > 0 Then

-        CargaGrid()
-        RegistraScript(String.Format("$('#{0}').modal('hide');", "ModalMaximoMinimo"))
-        ObjInventario.Dispose()
+            Using ObjInventario As New ClsInventarios
+
+                If HFDefinir.Value = "I" Then
+                    If ObjInventario.AddAlmacenMaximoMinimo(DdlAlmacenModal.SelectedValue.ToEntero, DdlPSModal.SelectedValue.ToEntero, TxtMaximo.Text.ToDouble, TxtMinimo.Text.ToDouble, UsuarioActual.CveUsuario) Then
+                        Alert("El Máximo/Mínimo se agregó correctamente.", TipoMensaje.MsgInformacion)
+                    End If
+                ElseIf HFDefinir.Value = "U" Then
+                    If ObjInventario.UpdateAlmacenMaximoMinimo(DdlAlmacenModal.SelectedValue.ToEntero, DdlPSModal.SelectedValue.ToEntero, TxtMaximo.Text.ToDouble, TxtMinimo.Text.ToDouble, UsuarioActual.CveUsuario) Then
+                        Alert("El Máximo/Mínimo se actualizó correctamente.", TipoMensaje.MsgInformacion)
+                    End If
+                End If
+            End Using
+
+            CargaGrid()
+            RegistraScript(String.Format("$('#{0}').modal('hide');", "ModalMaximoMinimo"))
+        Else
+            Alert("Seleccione un producto o servicio", TipoMensaje.MsgAdvertencia)
+        End If
    End Sub

    Protected Sub UpdateMaximoMinimo(sender As Object, e As EventArgs)
@@ -227,13 +234,15 @@ Partial Class Inventarios_RepMaximoMinimo
        HFDefinir.Value = "U"
        Dim CveAlmacen As Integer = GvRow.DataKey("CveAlmacen").ToString.ToEntero
        Dim CvePS As Integer = GvRow.DataKey("CvePS").ToString.ToEntero
+        Dim strPS As String = GvRow.DataKey("PS").ToString()
        Dim Maximo As String = GvRow.DataKey("Maximo").ToString
        Dim Minimo As String = GvRow.DataKey("Minimo").ToString

        DdlAlmacenModal.Enabled = False
        DdlPSModal.Enabled = False

-        DdlAlmacenModal.SelectedValue = CveAlmacen.ToString
+        DdlAlmacenModal.SelectedValue = CveAlmacen.ToString()
+        DdlPSModal.SelectedText = strPS
        DdlPSModal.SelectedValue = CvePS.ToString
        TxtMaximo.Text = Maximo
        TxtMinimo.Text = Minimo