OC Es Temporal, PS Actualziar Utimo Costo

Ventas/ProductosServicios.aspx

@@ -1203,9 +1203,12 @@
                                                 </div>
                                                 <div class="row" style="margin-top: 5px;">
                                                     <label class="col-md-6 truncate">Ultimo Costo</label>
-                                                    <div class="col-md-6">
+                                                    <div class="col-md-1">
                                                         <asp:Label ID="LblUltimoCosto" runat="server"></asp:Label>
                                                     </div>
+                                                    <div class="col-md-5" runat="server" id="DVEditaUltimoCosto" visible="false" style="text-align:left">
+                                                        <asp:LinkButton ID="LnkEditarUltimoCostoMostrarModal" runat="server" CssClass="btn btn-circle btn-sm green" OnClick="LnkEditarUltimoCostoMostrarModal_Click" Text="<i class='fa fa-pencil'></i>" />
+                                                    </div>
                                                 </div>
                                                 <div class="row" style="margin-top: 5px;">
                                                     <label class="col-md-6 truncate">Costo Promedio</label>
@@ -2523,6 +2526,69 @@
     </asp:UpdatePanel>
 
 
+<%--    <asp:UpdatePanel runat="server" ID="UpUltimoCostoModal" UpdateMode="Conditional">
+    <ContentTemplate>
+        <div id="" class="modal fade" role="dialog">
+            <div class="modal-dialog">
+
+                <!-- Modal content-->
+                <div class="modal-content">
+                    <div class="modal-header-warning">
+                        <button type="button" class="close" data-dismiss="modal">&times;</button>
+                        <h4 class="modal-title">
+                            <asp:Label ID="Label1" runat="server" ClientIDMode="Static" Text=""></asp:Label></h4>
+                    </div>
+                    <div class="modal-body">
+                        <div class="row">
+                            <div class="col-md-12">
+                                
+                            </div>
+                        </div>
+                    </div>
+                    <div class="modal-footer">
+                        
+                    </div>
+                </div>
+
+            </div>
+        </div>
+    </ContentTemplate>
+</asp:UpdatePanel>--%>
+
+
+ 
+ <div id="DVUltimoCostoModal" class="modal ADS fade" role="dialog">
+     <div class="modal-dialog">
+         <asp:UpdatePanel ID="UpUltimoCostoModal" class="modal-content rowpadding" tabindex="-1" runat="server" UpdateMode="Conditional">
+             <ContentTemplate>
+                 <div class="modal-header">
+                     <button type="button" class="close" data-dismiss="modal" aria-label="Close">
+                         <span aria-hidden="true">&times;</span>
+                     </button>
+                     <h4 class="modal-title">Actualizar Ultimo Costo</h4>
+                 </div>
+                 <div class="modal-body">
+                     <div class="form-group form-md-line-input input-iconright" style="width:100px">
+                        <asp:TextBox ID="TxtUltimoCostoModal" runat="server" Width="100px" CausesValidation="true" CssClass="form-control"  onkeyup="FormatoMoneda(this)" ></asp:TextBox>
+                        <label for="<%= TxtUltimoCostoModal.ClientID.ToString()%>">Ultimo Costo:</label>
+                        <asp:RequiredFieldValidator ID="RfvTxtUltimoCostoModal" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtUltimoCostoModal" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Ultimo Costo''</b> es necesario, por favor ingréselo." ValidationGroup="GrpUltimoCostoModal"></asp:RequiredFieldValidator>
+                        <i></i>
+                    </div>
+                 </div>
+                 <div class="modal-footer" style="display: block">
+                     <asp:UpdatePanel ID="UpdatePanel4" runat="server" UpdateMode="Conditional">
+                         <ContentTemplate>
+                             <asp:Button ID="BtnGuardarUltimoCostoModal" runat="server" Text="Guardar" CssClass="btn  btn-sm blue" OnClick="BtnGuardarUltimoCostoModal_Click" ValidationGroup="GrpUltimoCostoModal"  />
+                             <asp:Button ID="Button2" runat="server" Text="Cancelar" CssClass="btn  btn-sm default" data-dismiss="modal" />
+                         </ContentTemplate>
+                     </asp:UpdatePanel>
+                 </div>
+             </ContentTemplate>
+         </asp:UpdatePanel>
+     </div>
+ </div>
+
+
 
 
 </asp:Content>

Ventas/ProductosServicios.aspx.vb

@@ -364,6 +364,9 @@ Partial Class ProductosyServicios
             End If
 
 
+            If CvePS > 0 And UsuarioActual.TienePermisoProceso(402) Then
+                DVEditaUltimoCosto.Visible = True
+            End If
 
         End If
     End Sub
@@ -3843,4 +3846,31 @@ Partial Class ProductosyServicios
 
         Ps.Dispose()
     End Sub
+
+    Protected Sub LnkEditarUltimoCostoMostrarModal_Click(sender As Object, e As EventArgs)
+        TxtUltimoCostoModal.Text = LblUltimoCosto.Text
+        UpUltimoCostoModal.Update()
+        RegistraScript("$('#DVUltimoCostoModal').modal('show');")
+    End Sub
+
+    Protected Sub BtnGuardarUltimoCostoModal_Click(sender As Object, e As EventArgs)
+
+        Dim ProcesoOK As Boolean = False
+
+        Dim objPS As New ClsProductosServicios
+
+        If objPS.UpdateUltimoCosto(CvePS, TxtUltimoCostoModal.Text.ToDecimal, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
+            ProcesoOK = True
+        End If
+
+        objPS.Dispose()
+
+
+        If ProcesoOK Then
+            RegistraScript("$('#DVUltimoCostoModal').modal('hide');")
+            Alert("Ultimo Costo guardado correctamente", TipoMensaje.MsgInformacion, "window.location.reload();")
+        End If
+
+    End Sub
+
 End Class

Ventas/RepVentas.aspx.vb

@@ -260,8 +260,12 @@ Partial Class Ventas_RepVentas
         Dim Sucursales As String = If(DdlSubProyecto.GetSelectedValuesM = "", "-1", DdlSubProyecto.GetSelectedValuesM)
         Dim Estatus As String = If(DdlEstatus.GetSelectedValuesM = "", "-1", DdlEstatus.GetSelectedValuesM)
         Dim Vendedores As String = If(DdlVendedor.GetSelectedValuesM = "", "-1", DdlVendedor.GetSelectedValuesM)
-        Dim CveCliente As Integer = If(DdlClientes.SelectedValue = "", -1, DdlClientes.SelectedValue.ToEntero)
-
+        Dim CveCliente As Integer = If(DdlClientes.SelectedValue = "", -1, DdlClientes.SelectedValue.ToEntero)
+
+        If TipoComprobante.Contiene("Rem") And Not Estatus.Contiene("11") Then
+            Estatus = Estatus & ",11"
+        End If
+
         If RblTipoCambio.SelectedValue.ToEntero = 3 And TxtEspecifico.Text <> "" Then
             TCEspecifico = TxtEspecifico.Text.ToDecimal
         Else
@@ -340,7 +344,19 @@ Partial Class Ventas_RepVentas
             DdlEstatus.DataSource = GlobalDTEstatusFactura
         End If
         'DdlEstatus.Items.Add(New ListItem("Todos", "-1"))
-        DdlEstatus.DataBind()
+        DdlEstatus.DataBind()
+
+        If DdlTipoComprobante.GetSelectedValuesM(True).Contains("Rem") Then
+            For Each item As ListItem In DdlEstatus.Items
+                If item.Value = "11" Then
+                    DdlEstatus.Items.Remove(item)
+                    DdlEstatus.Items.Insert(0, New ListItem("Registrada", "2"))
+                    Exit For
+                End If
+            Next
+        End If
+
+
     End Sub
 
     Private Sub RblTipoCambio_SelectedIndexChanged(sender As Object, e As EventArgs) Handles RblTipoCambio.SelectedIndexChanged

Ventas/RepVentasDetalle.aspx.vb

@@ -362,6 +362,17 @@ Partial Class RepVentasDetalle
         End If
         ' DdlEstatus.Items.Add(New ListItem("Todos", "-1"))
         DdlEstatus.DataBind()
+
+        If DdlTipoComprobante.GetSelectedValuesM(True).Contains("Rem") Then
+            For Each item As ListItem In DdlEstatus.Items
+                If item.Value = "11" Then
+                    DdlEstatus.Items.Remove(item)
+                    DdlEstatus.Items.Insert(0, New ListItem("Registrada", "2"))
+                    Exit For
+                End If
+            Next
+        End If
+
     End Sub
 
 #End Region
@@ -430,6 +441,10 @@ Partial Class RepVentasDetalle
         FechaIEjec = If(IsDate(TxtFechaIEjec.Text.Trim()), TxtFechaIEjec.Text.Trim.ToDate, MinFecha)
         FechaFEjec = If(IsDate(TxtFechaFEjec.Text.Trim()), TxtFechaFEjec.Text.Trim.ToDate, MaxFecha)
 
+        If TipoComprobante.Contiene("Rem") And Not Estatus.Contiene("11") Then
+            Estatus = Estatus & ",11"
+        End If
+
         Dim ModalidadContable As Boolean = CBool(If(Request("ModalidadContable") IsNot Nothing, Request("ModalidadContable").ToEntero(), 0))
 
         ChkLecturaAdmin.Checked = Not ModalidadContable