se agrego nuevo campo en las paqueterias guias, documento detalle recibió cambios de retroalimentación

App_Code/ClsGenerales.vb

@@ -2728,7 +2728,7 @@ Public Class ClsGenerales
 #Region "P A Q U E T E R I A S    G U I A S"
     Public Function AddPaqueteriasGuias(CvePaqueteria As Integer, CvePaqueteriaGuiaTipo As Integer, CveEstatus As Integer, CveSubProyecto As Integer, Fecha As String, Rastreo As String, Guia As String, NumCajas As Integer,
                                         Peso As Double, Dimensiones As String, FechaEstimada As String, Observaciones As String, CveUsuario As Integer, CveEmpresa As Integer, Optional ImplicaCosto As Boolean = True,
-                                        Optional EsEntregaInterna As Boolean = False) As Integer
+                                        Optional EsEntregaInterna As Boolean = False, Optional PolizaSeguro As String = "-1") As Integer
 
         Dim Retorno As Integer = -1
 
@@ -2755,6 +2755,7 @@ Public Class ClsGenerales
             .Add("@CvePaqueteriaGuiaTipo", SqlDbType.SmallInt).Value = CvePaqueteriaGuiaTipo
 
             .Add("@EsEntregaInterna", SqlDbType.Bit).Value = EsEntregaInterna
+            .Add("@PolizaSeguro", SqlDbType.NVarChar).Value = PolizaSeguro
 
             .Add("@CvePaqueteriaGuia", SqlDbType.Int).Direction = ParameterDirection.Output
 

General/PopUpPaqueteriasGuias.aspx

@@ -208,6 +208,10 @@
                         <asp:RequiredFieldValidator ID="RfvPaqueteriaGuiaTipo" runat="server" ControlToValidate="DdlPaqueteriaGuiaTipo" InitialValue="-1" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Documento''</b> es necesario." ValidationGroup="GrpCrearGuia"></asp:RequiredFieldValidator>
                         <ajax:ValidatorCalloutExtender ID="VcePaqueteriaGuiaTipo" runat="server" HighlightCssClass="vco" TargetControlID="RfvPaqueteriaGuiaTipo" Width="220px" PopupPosition="Left"></ajax:ValidatorCalloutExtender>
                     </td>
+                    <td runat="server" id="tdLblPolizaSeguro" class="text-right" align="left" valign="top" style="width: 140px; padding-top: 4px;"><b>Poliza de Seguro:</b></td>
+                    <td runat="server" id="tdTxtPolizaSeguro" align="left" valign="top" style="width: 200px;">
+                        <asp:TextBox runat="server" ID="TxtPolizaSeguro" CssClass="form-control" Width="200px" Height="30px" Style="padding: 0px"></asp:TextBox>
+                    </td>
                 </tr>
 
                 <tr></tr>

General/PopUpPaqueteriasGuias.aspx.cs

@@ -181,6 +181,10 @@ public partial class General_PopUpPaqueteriasGuias : ClsPaginas
             if (CveVenta > 0 || CveOC > 0 || CveMovimiento > 0 || CveCompra > 0)
             {
                 CargaGuiasVinculadas();
+                if(CveVenta > 0)
+                {
+                    CondicionesVenta();
+                }
             }
             else
             {
@@ -381,7 +385,10 @@ public partial class General_PopUpPaqueteriasGuias : ClsPaginas
         String Observaciones = TxtObservaciones.Text;
         Boolean ImplicaCosto = ChkImplicaCosto.Checked;
 
-        int CvePaqueteriaGuia = ObjGeneral.AddPaqueteriasGuias(CvePaqueteria, CvePaqueteriaGuiaTipo,CveEstatus, CveSucursal, Fecha, Rastreo, Guia, NoCajas, Peso, Dimensiones, FechaEstimada, Observaciones, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, ImplicaCosto);
+        string PolizaSeguro = (tdLblPolizaSeguro.Visible) ? TxtPolizaSeguro.Text : "-1";
+
+        int CvePaqueteriaGuia = ObjGeneral.AddPaqueteriasGuias(CvePaqueteria, CvePaqueteriaGuiaTipo,CveEstatus, CveSucursal, Fecha, Rastreo, Guia, NoCajas, Peso, Dimensiones, 
+                                                                FechaEstimada, Observaciones, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, ImplicaCosto,PolizaSeguro: PolizaSeguro);
 
         if (CvePaqueteriaGuia > 0)
         {
@@ -853,4 +860,21 @@ public partial class General_PopUpPaqueteriasGuias : ClsPaginas
     }
     #endregion
 
+    private void CondicionesVenta()
+    {
+
+        ClsVentas ObjVenta = new ClsVentas();
+        if (ObjVenta.GetVentaDetalle(CveVenta))
+        {
+            DataTable VentasDetalle = ObjVenta.DtResultados;
+            if (VentasDetalle.Rows.Count > 0)
+            {
+                double Total = VentasDetalle.SUM("Total");
+                bool Mostrar = (Total >= 100000.00);
+                tdLblPolizaSeguro.Visible = Mostrar;
+                tdTxtPolizaSeguro.Visible = Mostrar;
+            }
+        }
+    }
+
 }

General/RepPaqueteriasGuias.aspx

@@ -190,7 +190,7 @@
                 <input type="text" id="TxtBusqueda" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GVDatos.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
                 <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GVDatos.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
             </div>
-            <asp:GridView ID="GVDatos" runat="server" DataKeyNames="CvePaqueteriaGuia, CveSubProyecto, SubProyecto, CveAgrupador, TipoAgrupador, Folio, CvePaqueteria, Paqueteria, Liga, CveEstatus, Estatus, Rastreo, Guia, NumCajas, Peso, Dimensiones, Fecha, FechaEstimada, CveUsuario, CveEmpresa, FechaIng, Observaciones, ImplicaCosto, CvePaqueteriaGuiaTipo,EsEntregaInterna"
+            <asp:GridView ID="GVDatos" runat="server" DataKeyNames="CvePaqueteriaGuia, CveSubProyecto, SubProyecto, CveAgrupador, TipoAgrupador, Folio, CvePaqueteria, Paqueteria, Liga, CveEstatus, Estatus, Rastreo, Guia, NumCajas, Peso, Dimensiones, Fecha, FechaEstimada, CveUsuario, CveEmpresa, FechaIng, Observaciones, ImplicaCosto, CvePaqueteriaGuiaTipo,EsEntregaInterna,PolizaSeguro"
                 AutoGenerateColumns="False" EmptyDataText="No se encontraron Registros con los filtros especificados" CssClass="table table-striped table-advance table-hover Widthall mysmallbtn ScrollAD" data-sort="true" GridLines="None"
                 EmptyDataRowStyle-HorizontalAlign="Center" OnRowDataBound="GVDatos_RowDataBound">
                 <Columns>
@@ -208,6 +208,7 @@
                     <asp:BoundField DataField="Guia" HeaderText="Guía" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Left" />
 
                     <asp:BoundField DataField="Rastreo" HeaderText="Rastreo" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Left" />
+                    <asp:BoundField DataField="PolizaSeguro" HeaderText="Póliza de seguro" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Left" />
                     <asp:BoundField DataField="Fecha" HeaderText="Fecha" ItemStyle-Width="4%" DataFormatString="{0:dd/MM/yyyy}" ItemStyle-HorizontalAlign="Center" />
                     <asp:BoundField DataField="FechaEstimada" HeaderText="Fecha Est." ItemStyle-Width="4%" DataFormatString="{0:dd/MM/yyyy}" ItemStyle-HorizontalAlign="Center" />
                     <asp:BoundField DataField="FechaIng" HeaderText="Fecha Ing" ItemStyle-Width="4%" DataFormatString="{0:dd/MM/yyyy}" ItemStyle-HorizontalAlign="Center" />

OI/DocumentoDetalle.aspx.cs

@@ -89,15 +89,16 @@ public partial class OI_DocumentoDetalle : ClsPaginas
             ViewState["CveAsignacion"] = value;
         }
     }
+    #endregion
 
     protected void Page_Load(object sender, EventArgs e)
     {
         if (!IsPostBack)
         {
             Cargar();
+            CargarMensajeNuevoEditado();
         }
     }
-    #endregion
 
     #region "CARGAS"
     private void CargarCveDocumento()
@@ -120,7 +121,7 @@ public partial class OI_DocumentoDetalle : ClsPaginas
         switch (MensajeNuevoEditado)
         {
             case "Nuevo":
-                Alert("El Documento ha sido creado correctamente");
+                Alert("El Documento ha sido creado correctamente",JSBtnAceptar: "document.location.href=\"/OI/Documentos.aspx\";");
                 break;
             case "NuevaVersion":
                 Alert("Nueva versión del Documento creado correctamente");
@@ -343,7 +344,7 @@ public partial class OI_DocumentoDetalle : ClsPaginas
                 ConfiguracionActualizar();
                 ConfigurarGridUsuariosParticipantes();
                 ConfigurarCamposDetalleSegunUsuario();
-                CargarMensajeNuevoEditado();
+                
                 MostrarBotonRechazar();
             }
         }

RH/Personal.aspx

@@ -829,7 +829,7 @@
 
                                                     <asp:UpdatePanel ID="UpUniformesResguardo" runat="server" UpdateMode="Conditional">
                                                         <ContentTemplate>
-                                                            <asp:GridView ID="GvUniformesResguardo" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron registros" DataKeyNames="CveAlmacen,CodigoPS,PU,CveUM,CveMovimiento,CveMovimientoDetalle,CvePS,AplicaSeccion,AplicaSerie,CveSeccionAlmacen" ToolTip=""
+                                                            <asp:GridView ID="GvUniformesResguardo" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron registros" DataKeyNames="CveAlmacen,CodigoPS,PU,CveUM,CveMovimiento,CveMovimientoDetalle,CvePS,AplicaSeccion,AplicaSerie,CveSeccionAlmacen,Cantidad" ToolTip=""
                                                                 CssClass="table  table-hover table-advance  Widthall" GridLines="None">
                                                                 <Columns>
                                                                     <asp:HyperLinkField DataNavigateUrlFields="CveMovimiento" Target="_blank" HeaderText="Folio" DataNavigateUrlFormatString="../Inventarios/EntradasSalidas.aspx?CveMovimiento={0}" DataTextField="Folio" />
@@ -3869,23 +3869,43 @@
                 <div class="modal-body">
                     <asp:UpdatePanel runat="server" ID="UPPLiberarUniforme" UpdateMode="Conditional">
                         <ContentTemplate>
-                            <div class="row" style="width: 75%;">
+                            <div class="row" style="width: 100%;">
-                                <asp:Label Text="Almacen: " runat="server" Style="width: 20%" />
+                                <div class="col-md-1" style="width:30%;text-align:right">
-                                <asp:DropDownList runat="server" ID="DdlAlmacenDestinoLiberarUniforme" CssClass="form-control input-sm select2me" Style="width: 50%" DataTextField="Almacen" DataValueField="CveAlmacen"></asp:DropDownList>
+                                    <asp:Label Text="Almacen: " runat="server" />
+                                </div>
+                                <div class="col-md-1" style="width:70%">
+                                    <asp:DropDownList runat="server" ID="DdlAlmacenDestinoLiberarUniforme" Width="100%" CssClass="form-control input-sm select2me" DataTextField="Almacen" DataValueField="CveAlmacen"></asp:DropDownList>
+                                </div>
                             </div>
-                            <div runat="server" id="divSeccionAlmacen" class="frow" visible="false">
+                            <br />
-                                <asp:Label Text="Sección: " runat="server" Style="width: 20%" />
+                            <div runat="server" id="divSeccionAlmacen" class="row" style="width: 100%;" visible="false">
-                                <asp:DropDownList ID="DdlSeccionAlmacen" DataTextField="SeccionAlmacen" AppendDataBoundItems="true" DataValueField="CveSeccionAlmacen" Class="form-control input-sm select2me" Style="width: 50% !important" runat="server" CausesValidation="true">
+                                <div class="col-md-1" style="width:30%;text-align:right">
-                                    <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
+                                    <asp:Label Text="Sección: " runat="server" />
-                                </asp:DropDownList>
+                                </div>
+                                <div class="col-md-1" style="width:70%">
+                                    <asp:DropDownList ID="DdlSeccionAlmacen" DataTextField="SeccionAlmacen" Width="100%" AppendDataBoundItems="true" DataValueField="CveSeccionAlmacen" Class="form-control input-sm select2me" runat="server" CausesValidation="true">
+                                        <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
+                                    </asp:DropDownList>
+                                </div>
                             </div>
+                            <br />
+                            <div class="row" style="width: 100%;">
+                                <div class="col-md-1" style="width:30%;text-align:right">
+                                    <asp:Label runat="server" ID="LblCantidadResguardo">Cantidad:</asp:Label>
+                                </div>
+                                <div class="col-md-1" style="width:70%">
+                                    <asp:TextBox runat="server" ID="TxtCantidadResguardo" CssClass="form-control " Width="100%"></asp:TextBox>
+                                    <asp:RangeValidator ID="RvTxtCantidadResguardo" Display="Dynamic" ControlToValidate="TxtCantidadResguardo" runat="server" MinimumValue="0" MaximumValue="1" Type="Integer" ErrorMessage="Se supera la cantidad maxima disponibled" ValidationGroup="GpoResguardo"></asp:RangeValidator>
+                                </div>
+                            </div>
+                            <br />
                         </ContentTemplate>
                     </asp:UpdatePanel>
                 </div>
                 <div class="modal-footer">
                     <asp:UpdatePanel runat="server">
                         <ContentTemplate>
-                            <asp:Button ID="BtnLiberarUniforme" runat="server" OnClick="LiberarUniforme" ClientIDMode="Static" Text="Guardar" CssClass="btn btn-primary" />
+                            <asp:Button ID="BtnLiberarUniforme" runat="server" OnClick="LiberarUniforme" ClientIDMode="Static" Text="Guardar" ValidationGroup="GpoResguardo" CssClass="btn btn-primary" />
                             <button type="button" class="btn btn-danger" data-dismiss="modal">Cancelar</button>
 
                         </ContentTemplate>

RH/Personal.aspx.vb

@@ -5143,6 +5143,9 @@ Partial Class RH_Personal
         CvePS = row.DataKey("CvePS").ToString().ToEntero
         CveMovimientoUniforme = row.DataKey("CveMovimiento").ToString().ToEntero
         CveMovimientoDetalleUniforme = row.DataKey("CveMovimientoDetalle").ToString().ToEntero
+        Dim Cantidad As Integer = row.DataKey("Cantidad").ToString().ToEntero
+        TxtCantidadResguardo.Text = Cantidad.ToString
+        RvTxtCantidadResguardo.MaximumValue = Cantidad.ToString
         If row.DataKey("AplicaSeccion").ToString = "True" Then
             divSeccionAlmacen.Visible = True
             DdlSeccionAlmacen.Items.Clear()
@@ -5168,11 +5171,13 @@ Partial Class RH_Personal
         Dim ObjInventario As New ClsInventarios
         ObjInventario.IniciaTransacSQL()
 
+        Dim Cantidad As Double = TxtCantidadResguardo.Text.ToDouble()
+
         Dim CveResultadoSalida As Integer = ObjInventario.AddMovimiento(CveAlmacenUniforme, 3, 1, Date.Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, CveAlmacenDestino:=DdlAlmacenDestinoLiberarUniforme.SelectedValue.ToEntero, CvePersonal:=CvePersonal, Observaciones:=DescripcionUniforme)
-        Dim ResultadoDetalleSalida As Boolean = ObjInventario.AddMovimientoDetalle(CveResultadoSalida, 1.0, CveUM, CvePS, PU, CveSeccionAlmacen:=CveSeccionAlmacenUniforme, CveMovimientoDetalleEntrada:=CveMovimientoDetalleUniforme)
+        Dim ResultadoDetalleSalida As Boolean = ObjInventario.AddMovimientoDetalle(CveResultadoSalida, Cantidad, CveUM, CvePS, PU, CveSeccionAlmacen:=CveSeccionAlmacenUniforme, CveMovimientoDetalleEntrada:=CveMovimientoDetalleUniforme)
         Dim CveSeccionAlmacen As Integer = DdlSeccionAlmacen.SelectedValue.ToEntero
         Dim CveResultadoEntrada As Integer = ObjInventario.AddMovimiento(DdlAlmacenDestinoLiberarUniforme.SelectedValue.ToEntero, 2, 1, Date.Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, CvePersonal:=CvePersonal, Observaciones:=DescripcionUniforme, CveMovimientoRelacionado:=CveMovimientoUniforme)
-        Dim ResultadoDetalleEntrada As Boolean = ObjInventario.AddMovimientoDetalle(CveResultadoEntrada, 1.0, CveUM, CvePS, PU, CveSeccionAlmacen:=CveSeccionAlmacen)
+        Dim ResultadoDetalleEntrada As Boolean = ObjInventario.AddMovimientoDetalle(CveResultadoEntrada, Cantidad, CveUM, CvePS, PU, CveSeccionAlmacen:=CveSeccionAlmacen)
 
         If ResultadoDetalleSalida And ResultadoDetalleEntrada Then
             ObjInventario.Commit()