-- cmabios guias

2020-06-03 12:33:05 -07:00
parent d9c953e6cb
commit 9deddb32b8
10 changed files with 54 additions and 18 deletions
--- a/Inventarios/EntregaAlmacen.aspx
+++ b/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="RbEntregaInterna" runat="server" OnCheckedChanged="EntregaRadioGroup_Click" Width="33%" 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="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="25%" GroupName="EntregaRadioGroup" Text="Entrega Interna" 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>
-                                    <ajax:MaskedEditExtender ID="MEENoCajas" runat="server" TargetControlID="TxtNoCajas" Mask="9999" MaskType="Number" AcceptNegative="None"></ajax:MaskedEditExtender>
+                                    <asp:TextBox ID="TxtNoCajas" runat="server" CssClass="form-control" Width="200px" Height="30px" Style="padding: 0px"></asp:TextBox>                                     
                                </td>

                            </tr>
--- a/Inventarios/EntregaAlmacen.aspx.vb
+++ b/Inventarios/EntregaAlmacen.aspx.vb
@@ -2,10 +2,7 @@
 Option Explicit On

 Imports System.Data
-Imports System.IO
-Imports System.Linq
-Imports CrystalDecisions.[Shared].Json
-Imports ExcelLibrary.BinaryFileFormat
+Imports System.IO
 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
--- a/Inventarios/EntregasPorRealizar.aspx
+++ b/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>
--- a/Inventarios/EntregasPorRealizar.aspx.cs
+++ b/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();
+    }
 }
--- a/Inventarios/PaquetesArmadoDesarmado.aspx.vb
+++ b/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
--- a/Inventarios/ResguardoMaterial.aspx
+++ b/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>
--- a/Inventarios/ResguardoMaterial.aspx.vb
+++ b/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