-- cmabios guias

App_Code/ClsInventarios.vb

@@ -4749,13 +4749,17 @@ Public Class ClsInventarios
 
 #Region "MOVIMIENTOS SALIDA"
 
-    Public Function GetRepMovimientosSalida(FechaI As Date, FechaF As Date, CveEmpresa As Integer) As Boolean
+    Public Function GetRepMovimientosSalida(FechaI As Date, FechaF As Date, CveSubProyecto As Integer, CveCliente As Integer, CveClasificacion As Integer, Grupo As Integer, CveEmpresa As Integer) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Inv_RepMovimientosSalidaGet")
         With SqlAdapter.SelectCommand.Parameters
             .Add("@FechaI", SqlDbType.Date).Value = FechaI
             .Add("@FechaF", SqlDbType.Date).Value = FechaF
+            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
+            .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
+            .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@Grupo", SqlDbType.Int).Value = Grupo
         End With
         Try
             SqlAdapter.Fill(Data)

Inventarios/EntregaAlmacen.aspx

@@ -244,9 +244,9 @@
                                             <td colspan="2">
                                                
                                                     <asp:Panel ID="PnlEntrega" runat="server" Visible="false">
-                                                         <asp:RadioButton id="RbSinEntrega" runat="server" OnCheckedChanged="EntregaRadioGroup_Click" Width="33%" GroupName="EntregaRadioGroup" Text="Sin Entrega" AutoPostBack="true"></asp:RadioButton>
+                                                        <asp:RadioButton id="RbSinEntrega" runat="server" OnCheckedChanged="EntregaRadioGroup_Click" Width="25%" GroupName="EntregaRadioGroup" Text="Sin Entrega" AutoPostBack="true"></asp:RadioButton>
-                                                        <asp:RadioButton id="RbEntregaInterna" runat="server" OnCheckedChanged="EntregaRadioGroup_Click" Width="33%" GroupName="EntregaRadioGroup" Text="Entrega Interna" AutoPostBack="true"></asp:RadioButton>
+                                                        <asp:RadioButton id="RbEntregaInterna" runat="server" OnCheckedChanged="EntregaRadioGroup_Click" Width="25%" GroupName="EntregaRadioGroup" Text="Entrega Interna" AutoPostBack="true"></asp:RadioButton>
-                                                        <asp:RadioButton id="RbEntregaExterna" runat="server" OnCheckedChanged="EntregaRadioGroup_Click" Width="33%" GroupName="EntregaRadioGroup" Text="Entrega Externa" AutoPostBack="true"></asp:RadioButton>
+                                                        <asp:RadioButton id="RbEntregaExterna" runat="server" OnCheckedChanged="EntregaRadioGroup_Click" Width="25%" GroupName="EntregaRadioGroup" Text="Entrega Externa" AutoPostBack="true"></asp:RadioButton>
                                                     </asp:Panel>
                                                  
                                             </td>
@@ -883,8 +883,7 @@
                             <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>
+                                    <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>

Inventarios/EntregaAlmacen.aspx.vb

@@ -2,10 +2,7 @@
 Option Explicit On
 
 Imports System.Data
-Imports System.IO
+Imports System.IO
-Imports System.Linq
-Imports CrystalDecisions.[Shared].Json
-Imports ExcelLibrary.BinaryFileFormat
 Imports Extensiones
 
 Imports Microsoft.Reporting.WebForms
@@ -2424,7 +2421,9 @@ Partial Class Inventarios_EntregaAlmacen
             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, 9, CveEstatus, CveSubProyecto, Fecha, "-1", "-1", NoCajas, 0.00, "-1", FechaEstimada, Observaciones, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, EsEntregaInterna:=True)
+            Dim CvePaqueteria As Integer = GlobalDTPaqueterias().FiltroPrimeroValor("CvePaqueteria", String.Format("CveEmpresa={0} AND TipoPaqueteria = 0", UsuarioActual.CveEmpresa)).ToEntero
+
+            Dim CvePaqueteriaGuia As Integer = ObjGeneral.AddPaqueteriasGuias(CvePaqueteria, 9, CveEstatus, CveSubProyecto, Fecha, "", "", NoCajas, 0.00, "-1", FechaEstimada, Observaciones, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, EsEntregaInterna:=True)
 
             If CvePaqueteriaGuia > 0 Then
 
@@ -2783,7 +2782,7 @@ Partial Class Inventarios_EntregaAlmacen
             Dim drC As DataRow = GlobalDTCliente(UsuarioActual.CveEmpresa, CveCliente:=tCvecliente).FiltroPrimero("")
             Destinatario += String.Format("{0};{1}", drC("CorreoEntregaCompras"), drC("CorreoEntregaAlmacen"))
 
-            Cuerpo.AppendLine(String.Format("Estimado {0} le informamos que los productos de la factura {1}  han sido enviados a entrega. <br><br>", dr("NombreCliente"), dr("SerieFolio")))
+            Cuerpo.AppendLine(String.Format("Estimado {0} le informamos que los productos de la factura {1}  han sido enviados a entrega. <br><br>", dr("ClienteNombre"), dr("SerieFolio")))
             Cuerpo.AppendLine("<br><br>Dudas y aclaraciones con su coordinador empresarial.")
 
         End If

Inventarios/EntregasPorRealizar.aspx

@@ -15,9 +15,13 @@
     </style>
 </asp:Content>
 <asp:Content ID="Content3" ContentPlaceHolderID="E" runat="Server">
-    <%--Paqueterías Guías--%>Entrega Interna
+     Entregas por Realizar
 </asp:Content>
 <asp:Content ID="Content4" ContentPlaceHolderID="HB" runat="Server">
+    <li>
+        <asp:LinkButton ID="LnkImprimir" runat="server" OnClick="LnkImprimir_Click"> <i class="fa fa-file-pdf-o" style="font-weight:bold;"></i> PDF</asp:LinkButton>
+    </li>
+
 </asp:Content>
 <asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
 </asp:Content>
@@ -70,9 +74,10 @@
                                     &nbsp;<asp:CheckBox ID="ChkAsigna" runat="server" Checked="false" />
                                 </ItemTemplate>
                             </asp:TemplateField>
+                            <asp:BoundField HeaderText="Cons" DataField="Num" HeaderStyle-Width="25px" ItemStyle-HorizontalAlign="Center" />
                             <asp:TemplateField HeaderText="Folio" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="10%" HeaderStyle-Width="10%">
                                 <ItemTemplate>
-                                    &nbsp;<asp:Literal ID="LblFolio" runat="server" Text='<%# Eval("Folio") %>'></asp:Literal>
+                                    &nbsp;<asp:Literal ID="LblFolio" runat="server" Text='<%# Eval("SerieFolio") %>'></asp:Literal>
                                 </ItemTemplate>
 
                             </asp:TemplateField>

Inventarios/EntregasPorRealizar.aspx.cs

@@ -76,4 +76,27 @@ public partial class Inventarios_EntregasPorRealizar : ClsPaginas
         DdlUsuario.DataBind();
         DdlUsuario.Items.Insert(0, new ListItem("Seleccione", "-1"));
     }
+
+    private void ImprimirPDF()
+    {
+        
+            //  params As New List(Of ReportParameter);
+ 
+            //params.Add(New ReportParameter("Fecha", FechaI));
+            //params.Add(New ReportParameter("AsignadoA", ""));
+            //params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre));
+ 
+            ////If Imagen.Exists Then
+            ////    params.Add(New ReportParameter("LogoPath", logouri))
+            ////Else
+            ////    params.Add(New ReportParameter("LogoPath", ""))
+            ////End If
+            //ImprimirPDF("Empresas/Grales/Formatos/RepVentas.rdlc", dt, params, String.Format("EntregasAsignadas-{0}", Now.ToDateTime.ToShortDateString), Formato:= "PDF")
+        
+    }
+
+    protected void LnkImprimir_Click(object sender, EventArgs e)
+    {
+        ImprimirPDF();
+    }
 }

Inventarios/PaquetesArmadoDesarmado.aspx.vb

@@ -200,6 +200,10 @@ Partial Class Inventarios_PaquetesArmadoDesarmado
     End Sub
 #End Region
 
+    Protected Sub BtnSerie_Click(sender As Object, e As EventArgs)
+
+    End Sub
+
 #Region "  PROCESAR  - VERIFICAR EXISTENCIAS  "
     Protected Sub BtnVerificarExistenciasArmado_Click(sender As Object, e As EventArgs)
         TipoMovimiento = 1

Inventarios/ResguardoMaterial.aspx

@@ -208,7 +208,7 @@
                                     <th width="40%">Clasificación<br />
                                         Producto </th>
                                     <th width="10%">U.M.</th>
-                                    <th style="width: 20%" runat="server" id="ThSerie" visible="false">Serie - Lote</th>
+                                    <th style="width: 20%" runat="server" id="ThSerie" visible="false">Serie</th>
                                     <th style="width: 10%;">Observaciones</th>
                                     <th width="10%"></th>
                                 </tr>

Inventarios/ResguardoMaterial.aspx.vb

@@ -787,7 +787,7 @@ Partial Class Inventarios_ResguardoMaterial
                 Dim Cont As Integer = 0
                 For Each Gvr As GridViewRow In GvMLiberacion.Rows
                     If Gvr.FCTextBox("TxtCantidad").Text.ToDouble > 0 Then
-                        If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, Gvr.FCTextBox("TxtCantidad").Text.ToDouble, Gvr.DataKey("CveUM").ToString.ToEntero, Gvr.DataKey("CvePS").ToString.ToEntero, Gvr.DataKey("PU").ToString.ToDecimal, -1, -1, Gvr.DataKey("SerieLote").ToString, Gvr.DataKey("Observaciones").ToString) Then
+                        If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, Gvr.FCTextBox("TxtCantidad").Text.ToDouble, Gvr.DataKey("CveUM").ToString.ToEntero, Gvr.DataKey("CvePS").ToString.ToEntero, Gvr.DataKey("PU").ToString.ToDecimal, -1, -1, Gvr.DataKey("Serie").ToString, Gvr.DataKey("Observaciones").ToString) Then
                             MensajeError = "Ocurrió un error al guardar los detalles del movimiento de salida. Por favor vuelva a intentar."
                             TieneError = True
                             Exit For
@@ -809,7 +809,7 @@ Partial Class Inventarios_ResguardoMaterial
                         If ObjInventario.GetMovimientosDetalle(CveMovimientoSalida, UsuarioActual.CveEmpresa) Then
                             Cont = 0
                             For Each Dr As DataRow In ObjInventario.DtResultados.Rows
-                                If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, Dr("CveAF").ToString.ToEntero, -1, Dr("SerieLote").ToString, Dr("Observaciones").ToString) Then
+                                If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, Dr("CveAF").ToString.ToEntero, -1, Dr("Serie").ToString, Dr("Observaciones").ToString) Then
                                     TieneError = True
                                     MensajeError = "Ocurrió un error al guardar los movimientos de entrada"
                                     Exit For

Ventas/Ventas.aspx

@@ -3288,7 +3288,7 @@
                                                 <asp:TextBox ID="TxtKilometraje" runat="server" Width="250px" CssClass="form-control input-sm"></asp:TextBox></td>
                             </tr>
                             <tr align="left" id="trCorreoNotif1" runat="server" visible="false">
-                                <td id="Td1" runat="server">Correo Notificaciones:&nbsp;</td>
+                                <td id="Td1" runat="server">Correo Notificacion:&nbsp;</td>
                             </tr>
                             <tr align="left" id="trCorreoNotif2" runat="server" visible="false">
                                 <td>

Ventas/Ventas.aspx.vb

@@ -3938,6 +3938,8 @@ Partial Class Ventas
                 TxtSubTotal2.Text = (TxtSubTotal.Text.Replace(",", "").Trim.Trim.ToDouble - LblDescuentos.Text.Replace(",", "").Trim.Trim.ToDouble - LblAmortizacion.Text.Replace(",", "").Trim.Trim.ToDouble).FormatoNumero(2)
                 TxtIVA.Text = DbRowVenta("IVA").ToString().FormatoNumero(2)
                 TxtRetIVA.Text = DbRowVenta("RetIVA").ToString().FormatoNumero(2)
+                TxtCorreoNotificaciones.Text = DbRowVenta("CorreoNotificacion").ToString()
+
                 If TxtRetIVA.Text.ToDecimal() > 0 Then
                     TrRetIVA.Style.Add("display", "")
                     UsuarioActual.Empresa.MostrarRetIVA = True