From 2bb4d34483f6cf3254f4b1c019fb4ce796aaf63f Mon Sep 17 00:00:00 2001
From: Antonio Gonzalez <jose_antony11@hotmail.com>
Date: Tue, 9 Jun 2020 13:39:20 -0700
Subject: [PATCH] -

---
 Inventarios/ResguardoMaterial.aspx    | 19 +++++---
 Inventarios/ResguardoMaterial.aspx.vb | 63 +++++++++++++++++++++------
 Ventas/Clientes.aspx                  |  3 --
 Ventas/Clientes.aspx.vb               | 17 +++++---
 4 files changed, 76 insertions(+), 26 deletions(-)

diff --git a/Inventarios/ResguardoMaterial.aspx b/Inventarios/ResguardoMaterial.aspx
index a543fe7b5..c53ce3ca7 100644
--- a/Inventarios/ResguardoMaterial.aspx
+++ b/Inventarios/ResguardoMaterial.aspx
@@ -208,7 +208,8 @@
                                     <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</th>
+                                    <th style="width: 10%" runat="server" id="ThSeccion" visible="false">Seccion almacen</th>
+                                    <th style="width: 10%" runat="server" id="ThSerie" visible="false">Serie</th>
                                     <th style="width: 10%;">Observaciones</th>
                                     <th width="10%"></th>
                                 </tr>
@@ -238,6 +239,11 @@
                                         <asp:CompareValidator ID="CVUnidad" runat="server" ControlToValidate="ddlUnidad" Type="Integer" Operator="GreaterThan" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Unidad Medida''</b> es necesario, por favor selecione una." Display="None" ValueToCompare="0" ValidationGroup="CVUnidad"></asp:CompareValidator>
                                         <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender4" runat="server" HighlightCssClass="vco" TargetControlID="CVUnidad" Width="300px"></ajax:ValidatorCalloutExtender>
                                     </td>
+                                    <td runat="server" id="TrSeccion" visible="false">
+                                        <asp:DropDownList ID="DdlSeccionAlmacen" DataTextField="Seccion" AppendDataBoundItems="true" DataValueField="CveSeccion" Class="form-control input-sm select2me" Style="width: 95% !important" runat="server" CausesValidation="true">
+                                            <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
+                                        </asp:DropDownList>
+                                    </td>
                                     <td runat="server" id="TrSerie" visible="false">
                                         <asp:TextBox ID="TxtnSerie" runat="server" Width="80px" Visible="false"></asp:TextBox>
                                     </td>
@@ -263,19 +269,22 @@
                                 <asp:Button ID="BtnVinculaAFEdit" ClientIDMode="Static" Style="display: none;" runat="server" />
                                 <asp:HiddenField runat="server" ID="HdnCodAFEdit" Value="-1" ClientIDMode="Static" />
 
-                                <asp:GridView ID="GvM" runat="server" GridLines="none" CssClass="table table-striped table-hover Widthall" EmptyDataText="Aún no hay registros." DataKeyNames="No,CveMovimientoDetalle,CveUM,CvePS,Serie,Observaciones,Cantidad" AutoGenerateColumns="False" AllowPaging="False" ShowFooter="True" ShowHeaderWhenEmpty="True" OnRowDataBound="GvM_RowDataBound">
+                                <asp:GridView ID="GvM" runat="server" GridLines="none" CssClass="table table-striped table-hover Widthall" EmptyDataText="Aún no hay registros." 
+                                              DataKeyNames="No,CveMovimientoDetalle,CveUM,CvePS,Serie,Observaciones,Cantidad,SeccionAlmacen,CveSeccionAlmacen" AutoGenerateColumns="False" AllowPaging="False" 
+                                              ShowFooter="True" ShowHeaderWhenEmpty="True" OnRowDataBound="GvM_RowDataBound">
                                     <Columns>
                                         <asp:BoundField HeaderText="#" DataField="No" ItemStyle-Width="3%" ItemStyle-HorizontalAlign="Center" />
                                         <asp:BoundField HeaderText="Cantidad" DataField="Cantidad" DataFormatString="{0:#,###,###.##}" ItemStyle-Width="7%" ItemStyle-HorizontalAlign="Right" />
                                         <asp:BoundField HeaderText="Producto" DataField="PS" ItemStyle-Width="40%" />
                                         <asp:BoundField HeaderText="Unidad" DataField="UnidadMedida" ItemStyle-Width="10%" />
-                                        <asp:BoundField HeaderText="Serie" DataField="Serie" ItemStyle-Width="20%" />
+                                        <asp:BoundField HeaderText="Sección Almacén" DataField="SeccionAlmacen" ItemStyle-Width="10%" Visible="false"/>
+                                        <asp:BoundField HeaderText="Serie" DataField="Serie" ItemStyle-Width="10%" />
                                         <asp:BoundField HeaderText="Observaciones" DataField="Observaciones" ItemStyle-Width="10%" />
-                                        <asp:TemplateField HeaderText="Sección Almacén" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="10%" Visible="false">
+                                        <%--<asp:TemplateField HeaderText="Sección Almacén" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="10%" Visible="false">
                                             <ItemTemplate>
                                                 ss
                                             </ItemTemplate>
-                                        </asp:TemplateField>
+                                        </asp:TemplateField>--%>
                                         <asp:TemplateField ItemStyle-Width="10%">
                                             <ItemTemplate>
                                                 <asp:LinkButton ID="lnkRemove" runat="server" AlternateText="Eliminar" CommandName="Delete" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="¿Seguro que desea eliminar el concepto?" data-btn-ok-label="si" />
diff --git a/Inventarios/ResguardoMaterial.aspx.vb b/Inventarios/ResguardoMaterial.aspx.vb
index debb185dc..c384fe179 100644
--- a/Inventarios/ResguardoMaterial.aspx.vb
+++ b/Inventarios/ResguardoMaterial.aspx.vb
@@ -187,6 +187,8 @@ Partial Class Inventarios_ResguardoMaterial
         dt.Columns.Add("Observaciones")
         dt.Columns.Add("CvePersonal", Type.GetType("System.Int32"))
         dt.Columns.Add("Checado", Type.GetType("System.Boolean"))
+        dt.Columns.Add("CveSeccionAlmacen", Type.GetType("System.Int32"))
+        dt.Columns.Add("SeccionAlmacen")
 
         DtMovimientos = dt
 
@@ -272,14 +274,17 @@ Partial Class Inventarios_ResguardoMaterial
         DdlAlmacenDestinoLiberacion.DataBind()
         DdlAlmacenDestinoLiberacion.Items.Insert(0, New ListItem("Seleccione", "-1"))
 
+        DdlSeccionAlmacen.DataSource = GlobalDTSeccionAlmacen(UsuarioActual.CveEmpresa, -1)
+        DdlSeccionAlmacen.DataBind()
+
         CargaPS()
     End Sub
     Private Sub CargaPS()
         DdlProducto2.setEsWebService(UsuarioActual.Empresa.Funcionalidad(105) = "1")
 
         If DdlProducto2.UsaWebService Then
-            DdlProducto2.ddlWS.Attributes.Add("data-pagina", "Inventarios")
-            DdlProducto2.ddlWS.Attributes.Add("data-cveclasificacion", DdlClasificacion.SelectedValue.ToString)
+            'DdlProducto2.ddlWS.Attributes.Add("data-pagina", "Inventarios")
+            'DdlProducto2.ddlWS.Attributes.Add("data-cveclasificacion", DdlClasificacion.SelectedValue.ToString)
         End If
         If Not DdlProducto2.UsaWebService AndAlso CType(DdlProducto2.DataSource, DataTable) Is Nothing Then
             DdlProducto2.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa)
@@ -333,6 +338,10 @@ Partial Class Inventarios_ResguardoMaterial
                 ThSerie.Visible = True
                 TrSerie.Visible = True
                 TxtnSerie.Visible = True
+
+                ThSeccion.Visible = True
+                TrSeccion.Visible = True
+
                 GvM.Columns(4).Visible = True
             Else
                 TxtnSerie.Visible = False
@@ -415,10 +424,12 @@ Partial Class Inventarios_ResguardoMaterial
                 registro.Item("PS") = DdlProducto2.SelectedText
                 registro.Item("Estatus") = ""
                 registro.Item("Serie") = TxtnSerie.Text
+                registro.Item("SeccionAlmacen") = If(DdlSeccionAlmacen.SelectedValue.ToEntero > 0, DdlSeccionAlmacen.SelectedItem.Text, "")
+                registro.Item("CveSeccionAlmacen") = If(DdlSeccionAlmacen.SelectedValue.ToEntero > 0, DdlSeccionAlmacen.SelectedValue.ToEntero, -1)
                 registro.Item("Observaciones") = TxtObservacionesdetalle.Text
                 DtMovimientos.Rows.Add(registro)
                 CargaGvM()
-
+                UPDatos.Update()
                 txtCantidad.Text = ""
                 txtCantidad.Focus()
 
@@ -439,15 +450,37 @@ Partial Class Inventarios_ResguardoMaterial
         ThSerie.Visible = False
         TrSerie.Visible = False
         TxtnSerie.Visible = False
+        GvM.Columns(5).Visible = False
         GvM.Columns(4).Visible = False
-        For Each Dr As DataRow In DtMovimientos.Rows
-            If Dr("Serie").ToString <> "" Then
-                ThSerie.Visible = True
-                TrSerie.Visible = True
-                GvM.Columns(4).Visible = True
-                Exit For
-            End If
-        Next
+
+        Dim Contador As Integer = 0
+        Dim UltimoRenglon As Integer = DtMovimientos.Rows.Count - 1
+        Dim MostrarSerie As Boolean = False
+        Dim MostrarSeccion As Boolean = False
+        While Contador <= UltimoRenglon And (Not MostrarSerie And Not MostrarSeccion)
+            Dim Dr As DataRow = DtMovimientos.Rows(Contador)
+            MostrarSerie = If(Not MostrarSerie, Dr("Serie").ToString <> "", True)
+            MostrarSeccion = If(Not MostrarSerie, Dr("SeccionAlmacen").ToString <> "", True)
+            Contador += 1
+        End While
+
+        ThSerie.Visible = MostrarSerie
+        TrSerie.Visible = MostrarSerie
+        GvM.Columns(5).Visible = MostrarSerie
+
+        GvM.Columns(4).Visible = MostrarSeccion
+
+        'For Each Dr As DataRow In DtMovimientos.Rows
+        '    If Dr("Serie").ToString <> "" Then
+        '        ThSerie.Visible = True
+        '        TrSerie.Visible = True
+        '        GvM.Columns(5).Visible = True
+        '        Exit For
+        '    End If
+        '    If Dr("SeccionAlmacen").ToString <> "" Then
+        '        GvM.Columns(4).Visible = True
+        '    End If
+        'Next
 
         GvM.DataSource = DtMovimientos
         GvM.DataBind()
@@ -460,6 +493,7 @@ Partial Class Inventarios_ResguardoMaterial
 
         GvM.EditIndex = -1
         CargaGvM()
+        UPDatos.Update()
     End Sub
 
     Protected Sub GvM_RowDataBound(sender As Object, e As GridViewRowEventArgs)
@@ -740,7 +774,8 @@ Partial Class Inventarios_ResguardoMaterial
 
                 Dim Cont As Integer = 0
                 For Each Dr As DataRow In DtMovimientos.Rows
-                    If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, 0, -1, -1, Serie:=Dr("Serie").ToString, Observaciones:=Dr("Observaciones").ToString) Then
+                    If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, 0,
+                                                              -1, CveSeccionAlmacen:=Dr("CveSeccionAlmacen").ToString.ToEntero, Serie:=Dr("Serie").ToString, Observaciones:=Dr("Observaciones").ToString) Then
                         MensajeError = "Ocurrió un error al guardar los detalles del movimiento de salida. Por favor vuelva a intentar."
                         TieneError = True
                         Exit For
@@ -759,7 +794,9 @@ Partial Class Inventarios_ResguardoMaterial
                     Else
                         If ObjInventario.GetMovimientosDetalle(CveMovimientoSalida, UsuarioActual.CveEmpresa) Then
                             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, Serie:=Dr("Serie").ToString, Observaciones:=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, CveSeccionAlmacen:=Dr("CveSeccionAlmacen").ToString.ToEntero,
+                                                                          Serie:=Dr("Serie").ToString, Observaciones:=Dr("Observaciones").ToString) Then
                                     TieneError = True
                                     MensajeError = "Ocurrió un error al guardar los movimientos de entrada"
                                     Exit For
diff --git a/Ventas/Clientes.aspx b/Ventas/Clientes.aspx
index 376ee22cf..09ea53ad9 100644
--- a/Ventas/Clientes.aspx
+++ b/Ventas/Clientes.aspx
@@ -3776,9 +3776,6 @@
                                                                         <asp:TextBox ID="TxtObservaciones" OnTextChanged="TxtObservaciones_TextChanged" AutoPostBack="true" Width="300" MaxLength="100" runat="server" Text='<%# Eval("Observacion") %>'></asp:TextBox>
                                                                     </ItemTemplate>
                                                                 </asp:TemplateField>
-
-
-
                                                                 <asp:TemplateField ItemStyle-HorizontalAlign="Left" HeaderText="Vigencia" ItemStyle-Width="115">
                                                                     <ItemTemplate>
                                                                         <div class="input-group input-sm input-small date date-picker" data-date-format="dd/mm/yyyy" style="width: 115px !important; padding: 0px;">
diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb
index ff52d9a63..9bec50325 100644
--- a/Ventas/Clientes.aspx.vb
+++ b/Ventas/Clientes.aspx.vb
@@ -6922,7 +6922,15 @@ Partial Class Clientes
     Public Sub DownLoad_ClickDocumentacion(sender As Object, e As EventArgs)
         Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
         Dim Adjunto As String = GvRow.DataKey("Adjunto")
-        linkDescargaPagare = ModExtensiones.DirectorioBaseEmpresas & String.Format("Empresas\{0}\DocElectronica\Clientes\{1}\{2}", UsuarioActual.CveEmpresa, CveCliente, Adjunto)
+
+        Dim stringDescargaDocumento As String = ""
+        If GvRow.DataKey("Documentacion") = "Pagaré" AndAlso UsuarioActual.CveEmpresa = 140 Then
+            stringDescargaDocumento = ModExtensiones.DirectorioBaseEmpresas & String.Format("Empresas\{0}\Formatos\Pagaré.docx", UsuarioActual.CveEmpresa)
+        Else
+            stringDescargaDocumento = ModExtensiones.DirectorioBaseEmpresas & String.Format("Empresas\{0}\DocElectronica\Clientes\{1}\{2}", UsuarioActual.CveEmpresa, CveCliente, Adjunto)
+        End If
+        linkDescargaPagare = stringDescargaDocumento
+
         TxtDireccionAval.Text = ""
         TxtAval.Text = ""
         RegistraScript("$('#ModalDivPagare').modal('show')")
@@ -7053,14 +7061,13 @@ Partial Class Clientes
                 LnkDownLoadDoc.Visible = True
             End If
 
-            txtFechaLimite.Text = e.Row.DBCampo("FechaLimite").ToString.ToDate.ToString("dd/MM/yyyy")
+            txtFechaLimite.Text = e.Row.DBCampo("FechaLimite").ToString.ToDate.ToString("dd/MM/yyyy")
 
-            If Adjunto.Trim.Length > 0 Then
+            If Adjunto.Trim.Length > 0 Or (Documentacion = "Pagaré" AndAlso UsuarioActual.CveEmpresa = 140) Then
 
                 Dim linkDescarga = "/Empresas/" & UsuarioActual.Empresa.CveEmpresa & "\DocElectronica\Clientes\" & CveCliente & "/" & Adjunto
                 Dim linkDescargaArchivo = UsuarioActual.Empresa.Ruta & "\DocElectronica\Clientes\" & CveCliente & "/" & Adjunto
-
-                If File.Exists(linkDescargaArchivo) Then
+                If File.Exists(linkDescargaArchivo) Or (Documentacion = "Pagaré" AndAlso UsuarioActual.CveEmpresa = 140) Then
 
                     LnkDownLoadDoc.Visible = True
                     ScriptManager.GetCurrent(Me).RegisterPostBackControl(LnkDownLoadDoc)