-

Inventarios/EntregaAlmacen.aspx

@@ -65,11 +65,15 @@
                             <ul class="list-inline">
                                 <li>Cliente:
                                    
+                                   
+
                                     <ADS:Dropdownlost ID="DdlClientes" CssClassDdl="select2me" runat="server" CssStyle="width: 350px;" DataTextField="NombreComercial" Onselectedindexchange="DdlCliente_SelectedIndexChanged" DataValueField="CveCliente"></ADS:Dropdownlost>
                                     <%--<asp:DropDownList ID="DdlClientes" runat="server" DataValueField="CveCliente" DataTextField="Nombre" OnSelectedIndexChanged="DdlCliente_SelectedIndexChanged" AutoPostBack="true" CssClass="form-control input-sm select2me" Width="350px"></asp:DropDownList>--%>
                                 </li>
                                 <li>Serie-Folio:
                                    
+                                   
+
                                     <asp:DropDownList ID="DdlFolio" runat="server" DataValueField="CveVenta" DataTextField="SerieFolio" CssClass="form-control input-sm select2me" Width="250px"></asp:DropDownList>
                                     <asp:RequiredFieldValidator ID="RFVFolio" runat="server" ControlToValidate="DdlFolio" InitialValue="-1" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Folio''</b> es necesario, por favor ingréselo." ValidationGroup="GrpBuscar"></asp:RequiredFieldValidator>
                                     <ajax:ValidatorCalloutExtender ID="VCEFolio" runat="server" HighlightCssClass="vco" TargetControlID="RFVFolio" Width="300px"></ajax:ValidatorCalloutExtender>
@@ -283,6 +287,8 @@
                                             </code>
                                             &nbsp; 
                                            
+                                           
+
                                             <b>Sucursal:</b>
                                             <asp:DropDownList ID="DdlSubProyectos" runat="server" CssClass="form-control input-sm select2me" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="90px"></asp:DropDownList>
 
@@ -812,6 +818,97 @@
         </asp:UpdatePanel>
     </div>
 
+    <div id="ModalPaqueteriaInterna" class="modal ADS fade" role="dialog">
+        <asp:UpdatePanel ID="UpPaqInterna" class="modal-dialog rowpadding" tabindex="-1" runat="server" UpdateMode="Conditional">
+            <ContentTemplate>
+                <div class="modal-content">
+                    <div class="modal-header">
+                        <button type="button" class="close" data-dismiss="modal">&times;</button>
+                        <h4 class="modal-title">Paqueterías Interna</h4>
+                    </div>
+                    <div class="modal-body">
+                        <table class="Widthall">
+
+
+                            <tr runat="server" id="RowPaqueteria" align="left" visible="true">
+                                <td class="text-right"><b>Estatus:</b></td>
+                                <td>
+                                    <asp:DropDownList ID="DdlEstatus" runat="server" Class="table-group-action-input form-control input-inline input-sm select2me" Width="200px">
+                                        <%-- <asp:ListItem Selected="False" Text="Seleccione" Value="-1"></asp:ListItem>--%>
+                                        <asp:ListItem Selected="True" Text="En Proceso" Value="1"></asp:ListItem>
+                                        <asp:ListItem Selected="False" Text="Confirmado por Proveedor" Value="2"></asp:ListItem>
+                                        <asp:ListItem Selected="False" Text="Entregado" Value="3"></asp:ListItem>
+                                        <asp:ListItem Selected="False" Text="Confirmado por Cliente" Value="4"></asp:ListItem>
+                                    </asp:DropDownList>
+                                    <%-- <asp:RequiredFieldValidator ID="RFVDdlEstatus" runat="server" ControlToValidate="DdlEstatus" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Estatus''</b> es necesario." InitialValue="-1" ValidationGroup="GrpCrearGuia"></asp:RequiredFieldValidator>
+                                    <ajax:ValidatorCalloutExtender ID="VCEDdlEstatus" runat="server" HighlightCssClass="vco" TargetControlID="RFVDdlEstatus" Width="250px"></ajax:ValidatorCalloutExtender>--%>
+                                </td>
+
+                            </tr>
+
+                            <tr runat="server" id="RowRastreo" align="left" visible="true">
+                                <td class="text-right" style="width: 140px"><b>Fecha:</b></td>
+                                <td style="width: 200px">
+                                    <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 117px !important; padding: 0px;">
+                                        <asp:TextBox ID="TxtFechaPaqInterna" runat="server" CssClass="form-control" Width="170px" Height="30px" Style="padding: 0px" CausesValidation="true" MaxLength="10"></asp:TextBox>
+                                        <span class="input-group-btn ">
+                                            <asp:LinkButton ID="LnkFechaInterna" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server" Width="30px"></asp:LinkButton>
+                                        </span>
+                                        <ajax:MaskedEditExtender ID="MeFechaPaqInterna" runat="server" TargetControlID="TxtFechaPaqInterna" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                        <ajax:CalendarExtender runat="server" ID="CalendarExtender1" TargetControlID="TxtFechaPaqInterna" PopupButtonID="LnkFechaInterna" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+                                        <asp:RequiredFieldValidator ID="RfvFechaPaqInterna" runat="server" ControlToValidate="TxtFechaPaqInterna" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha''</b> es necesario." ValidationGroup="GrpCrearGuia"></asp:RequiredFieldValidator>
+                                        <ajax:ValidatorCalloutExtender ID="VCEFecha" runat="server" HighlightCssClass="vco" TargetControlID="RfvFechaPaqInterna" Width="250px"></ajax:ValidatorCalloutExtender>
+
+                                    </div>
+                                </td>
+
+                            </tr>
+
+                            <tr runat="server" id="RowFechas" align="left" visible="true">
+
+                                <td class="text-right" style="width: 140px;"><b>Fecha Estimada:</b></td>
+                                <td style="width: 200px">
+                                    <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 117px !important; padding: 0px;">
+                                        <asp:TextBox ID="TxtFechaEstimada" runat="server" CssClass="form-control" Width="170px" Height="30px" Style="padding: 0px"></asp:TextBox>
+                                        <span class="input-group-btn ">
+                                            <asp:LinkButton ID="LnkFechaEstimada" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server" Width="30px"></asp:LinkButton>
+                                        </span>
+                                        <ajax:MaskedEditExtender ID="MEEFechaEstimada" runat="server" TargetControlID="TxtFechaEstimada" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                        <ajax:CalendarExtender runat="server" ID="CEFechaEstimada" TargetControlID="TxtFechaEstimada" PopupButtonID="LnkFechaEstimada" PopupPosition="BottomLeft" Enabled="True"></ajax:CalendarExtender>
+
+                                    </div>
+                                </td>
+                            </tr>
+
+                            <tr runat="server" id="RowDimensiones" align="left" visible="true">
+                                <td class="text-right" style="width: 140px"><b># Cajas:</b></td>
+                                <td style="width: 200px">
+                                    <asp:TextBox ID="TxtNoCajas" runat="server" CssClass="form-control" Width="200px" Height="30px" Style="padding: 0px"></asp:TextBox>
+                                    <ajax:MaskedEditExtender ID="MEENoCajas" runat="server" TargetControlID="TxtNoCajas" Mask="9999" MaskType="Number" AcceptNegative="None"></ajax:MaskedEditExtender>
+                                </td>
+
+                            </tr>
+
+                            <tr runat="server" id="RowCajas" align="left" visible="true">
+                                <td class="text-right" align="left" valign="top" style="width: 140px; padding-top: 4px;"><b>Observaciones:</b></td>
+                                <td style="width: 200px;">
+                                    <asp:TextBox ID="TxtObservacionesPaqInterna" runat="server" CssClass="form-control MultiLineTextBox" Width="200px" Height="60px" Style="padding: 0px" TextMode="MultiLine"></asp:TextBox>
+                                </td>
+                            </tr>
+
+                            <tr></tr>
+
+                        </table>
+                    </div>
+                    <div class="modal-footer">
+                        <asp:Button ID="BtnGuiaInterna" runat="server" ClientIDMode="Static" Text="Aplicar" data-dismiss="modal" CssClass="btn btn-primary" />
+                        <button id="BtnCancelarGuiaInterna" type="button" class="btn btn-default" data-dismiss="modal">Cerrar</button>
+                    </div>
+                </div>
+            </ContentTemplate>
+        </asp:UpdatePanel>
+    </div>
+
 </asp:Content>
 <asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
     <script src="/Metronic/assets/global/plugins/jquery.pulsate.min.js"></script>

Inventarios/EntregaAlmacen.aspx.vb

@@ -325,7 +325,7 @@ Partial Class Inventarios_EntregaAlmacen
         CargaPendientes()
 
 
-
+        LimpiaCampos()
     End Sub
 
 #End Region
@@ -1595,6 +1595,7 @@ Partial Class Inventarios_EntregaAlmacen
         Dim ObjVentas As New ClsVentas(ObjInventario.IniciaTransacSQL())
         Dim ObjEventos As New ClsOIEventos(ObjInventario.IniciaTransacSQL())
         Dim ObjAcumuladores As New ClsAcumuladores(ObjInventario.IniciaTransacSQL())
+        Dim ObjGeneral As New ClsGenerales(ObjInventario.IniciaTransacSQL())
         Dim CveMovimiento As Integer
         Dim Folio As Integer
         Dim ErrorMovInv As Boolean
@@ -2415,8 +2416,33 @@ Partial Class Inventarios_EntregaAlmacen
             OnError("Ocurrió un error al guardar", ex)
         End Try
 
+        'Paqueterias guias
+        If RbEntregaInterna.Checked AndAlso Not ErrorMovInv Then
+            Dim CveEstatus As Integer = DdlEstatus.SelectedValue.ToEntero()
+            Dim Fecha As String = TxtFechaPaqInterna.Text
+            Dim FechaEstimada As String = If(TxtFechaEstimada.Text = "", "-1", TxtFechaEstimada.Text)
+            Dim NoCajas As Integer = TxtNoCajas.Text.ToEntero()
+            Dim Observaciones As String = TxtObservacionesPaqInterna.Text
+            Dim CvePaqueteriaGuia As Integer = ObjGeneral.AddPaqueteriasGuias(-1, -1, CveEstatus, CveSubProyecto, Fecha, "-1", "-1", NoCajas, 0.00, "-1", FechaEstimada, Observaciones, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, EsEntregaInterna:=True)
+
+            If CvePaqueteriaGuia > 0 Then
+
+                If CveVentaSurtir > 0 OrElse CveSubProyecto > 0 Then
+                    ErrorMovInv = Not ObjGeneral.AddPaqueteriasGuiasDetalles(CvePaqueteriaGuia, CveVentaSurtir, -1, CveMovimiento, -1)
+                End If
+                If ErrorMovInv Then
+                    Alert("Error en el paqueteria guia detalle", TipoMensaje.MsgError)
+                End If
+            Else
+                ErrorMovInv = True
+                Alert("Error en el paqueteria guia", TipoMensaje.MsgError)
+            End If
+        End If
+
         If Not ErrorMovInv Then
+
             ObjInventario.Commit()
+            ObjGeneral.Dispose()
             RegistraScript("playsonidito('beep-07.wav')")
             Dim Msg As New StringBuilder
 
@@ -2446,10 +2472,15 @@ Partial Class Inventarios_EntregaAlmacen
                 Msg.AppendFormat("<br/><a class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={0}"">Imprimir Movimiento</a> ", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimientoVirtual)))
             End If
 
+            If RbEntregaInterna.Checked Then
+                Msg.AppendFormat("<br/><br/>Se agregó una guía de paquetería interna")
+            End If
+
             Alert(Msg.ToString, TipoMensaje.MsgInformacion)
 
             Limpia()
             CargaPendientes()
+            LimpiaCampos()
         Else
             ObjInventario.RollBack()
             Alert(TextoError.ToString, TipoMensaje.MsgError)
@@ -2493,6 +2524,7 @@ Partial Class Inventarios_EntregaAlmacen
         End If
 
         Dim ObjInventario As New ClsInventarios : ObjInventario.IniciaTransacSQL()
+        Dim ObjGeneral As New ClsGenerales(ObjInventario.IniciaTransacSQL())
         Dim CveMovimientoSalida As Integer
         Dim ConceptoMovimiento = 0
         Dim FolioSalida As Integer
@@ -2669,9 +2701,32 @@ Partial Class Inventarios_EntregaAlmacen
             End If
         End If
 
+        'Paqueterias Guias
+        If RbEntregaInterna.Checked AndAlso Not ErrorMovInv Then
+            Dim CveEstatus As Integer = DdlEstatus.SelectedValue.ToEntero()
+            Dim Fecha As String = TxtFechaPaqInterna.Text
+            Dim FechaEstimada As String = If(TxtFechaEstimada.Text = "", "-1", TxtFechaEstimada.Text)
+            Dim NoCajas As Integer = TxtNoCajas.Text.ToEntero()
+            Dim Observaciones As String = TxtObservacionesPaqInterna.Text
+            Dim CvePaqueteriaGuia As Integer = ObjGeneral.AddPaqueteriasGuias(-1, -1, CveEstatus, CveSubProyecto, Fecha, "-1", "-1", NoCajas, 0.00, "-1", FechaEstimada, Observaciones, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, EsEntregaInterna:=True)
+
+            If CvePaqueteriaGuia > 0 Then
+
+                If CveVentaSurtir > 0 OrElse CveSubProyecto > 0 Then
+                    ErrorMovInv = Not ObjGeneral.AddPaqueteriasGuiasDetalles(CvePaqueteriaGuia, CveVentaSurtir, -1, CveMovimiento, -1)
+                End If
+                If ErrorMovInv Then
+                    Alert("Error en el paqueteria guia detalle", TipoMensaje.MsgError)
+                End If
+            Else
+                ErrorMovInv = True
+                Alert("Error en el paqueteria guia", TipoMensaje.MsgError)
+            End If
+        End If
 
         If Not ErrorMovInv Then
             ObjInventario.Commit()
+            ObjGeneral.Dispose()
             RegistraScript("playsonidito('beep-07.wav')")
 
             Dim Msg As New StringBuilder
@@ -2681,9 +2736,14 @@ Partial Class Inventarios_EntregaAlmacen
             Msg.AppendFormat("<br/><br/> Movimiento Entrada (Traspaso): <b><a href=""/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}"" target=""_blank"">{1}</a></b>", CveMovimientoEntrada, FolioEntrada)
             Msg.AppendFormat("<br/> <a class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={0}"">Imprimir Movimiento</a> ", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimientoEntrada)))
 
+            If RbEntregaInterna.Checked Then
+                Msg.AppendFormat("<br/><br/>Se agregó una guía de paquetería interna")
+            End If
+
             Alert(Msg.ToString, TipoMensaje.MsgInformacion)
 
             Limpia()
+            LimpiaCampos()
             CargaPendientes()
         Else
             Alert(TextoError, TipoMensaje.MsgError)
@@ -3114,11 +3174,22 @@ Partial Class Inventarios_EntregaAlmacen
         If RbEntregaExterna.Checked Then
             RegistraScript("AbrirVentana('/General/PopUpPaqueteriasGuias.aspx',800,547,'N')")
         ElseIf RbEntregaInterna.Checked Then
-            RegistraScript($"AbrirVentana('/General/PopUpPaqueteriasGuiasInternas.aspx?CveVenta={CveVentaSurtir}&CveSubProyecto={CveSubProyecto}',800,547,'N')")
+            RegistraScript("$('#ModalPaqueteriaInterna').modal('show')")
+            'RegistraScript($"AbrirVentana('/General/PopUpPaqueteriasGuiasInternas.aspx?CveVenta={CveVentaSurtir}&CveSubProyecto={CveSubProyecto}',800,547,'N')")
             'CveVentaSurtir
+        ElseIf RbSinEntrega.Checked Then
+            LimpiaCampos()
         End If
     End Sub
 
+    Protected Sub LimpiaCampos()
+        DdlEstatus.SelectedValue = "1"
+        TxtFechaPaqInterna.Text = ""
+        TxtFechaEstimada.Text = ""
+        TxtNoCajas.Text = ""
+        TxtObservacionesPaqInterna.Text = ""
+        UpPaqInterna.Update()
+    End Sub
 #End Region
 
 

Inventarios/PopUpBuscarMovto.aspx.vb

@@ -58,7 +58,7 @@ Partial Class PopUpBuscarFolio
             Dim FechaIngF = If(TxtFechaIngFin.Text.Trim <> "" AndAlso TxtFechaIngFin.Text <> "__/__/____", TxtFechaIngFin.Text.ToDate, MaxFecha)
 
             If Reporte.GetMovimientosRep(DdlAlmacen.SelectedValue.ToEntero, DdlTipoMovimiento.SelectedValue.ToEntero, If(TxtFolio.Text = "", "-1", TxtFolio.Text.Trim).ToEntero,
-                                     FechaIngI, FechaIngF, FechaInicial, FechaFinal, -1, UsuarioActual.CveEmpresa) Then
+                                     FechaIngI, FechaIngF, FechaInicial, FechaFinal, -1, UsuarioActual.CveEmpresa, TopSelect:=100) Then
                 GvM.DataSource = Reporte.DtResultados
                 LtlTotalRegistros.Text = Reporte.DtResultados.Rows.Count.ToString.FormatoNumero(0)
             Else

Inventarios/PopUpExistenciasAlmacen.aspx.vb

@@ -97,7 +97,8 @@ Partial Class Inventarios_Default
 
         If ValidarFiltrosSeleccionados() Then
             Dim ObjInventarios As New ClsInventarios()
-            If ObjInventarios.GetExistenciasProducto(CvePS, -1, UsuarioActual.CveEmpresa, -1, FechaMovto:=DateTime.Today.AddDays(1).ToString("yyyy/MM/dd HH:mm"), ExcluyeApartados:=-1, ExcluyeAdelantado:=1, CveSubProyecto:=DdlSubProyecto.SelectedValue.ToEntero) Then
+            If ObjInventarios.GetExistenciasProducto(CvePS, -1, UsuarioActual.CveEmpresa, -1, FechaMovto:=DateTime.Today.AddDays(1).ToString("yyyy/MM/dd HH:mm"),
+                                                     ExcluyeApartados:=-1, ExcluyeAdelantado:=1, CveSubProyecto:=DdlSubProyecto.SelectedValue.ToEntero, TopSelect:=100) Then
                 Dim dr As Data.DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePS).FiltroPrimero("")
 
                 If dr IsNot Nothing Then