From 1dc5056b1d03427f7c7f46db14bb498f4ce5d2eb Mon Sep 17 00:00:00 2001
From: Antonio Gonzalez <jose_antony11@hotmail.com>
Date: Sat, 17 Oct 2020 09:58:44 -0700
Subject: [PATCH 1/9] se acomodo un layout de reporte de repAlmacen y en portal
 proveedor se agrego una columna y un filtro sobre las sucursales

---
 Inventarios/RepAlmacen.aspx             | 12 ++-------
 Inventarios/RepAlmacen.aspx.vb          | 10 ++++---
 PortalProveedor/PortalProveedor.aspx    | 30 ++++++++++++++++-----
 PortalProveedor/PortalProveedor.aspx.vb | 36 +++++++++++++++++++++----
 4 files changed, 63 insertions(+), 25 deletions(-)

diff --git a/Inventarios/RepAlmacen.aspx b/Inventarios/RepAlmacen.aspx
index f347f623e..f9839c246 100644
--- a/Inventarios/RepAlmacen.aspx
+++ b/Inventarios/RepAlmacen.aspx
@@ -171,16 +171,8 @@
                             <asp:Label ID="LtlAlmacen" runat="server" Text='<%# Eval("TipoAlmacen")%>'></asp:Label>
                         </ItemTemplate>
                     </asp:TemplateField>
-                    <asp:TemplateField HeaderText="Existencia" ItemStyle-HorizontalAlign="Right">
-                        <ItemTemplate>
-                            <asp:Label ID="LtlExist" runat="server" Text='<%# Eval("Existencia", "{0:#,###.##}")%>'></asp:Label>
-                        </ItemTemplate>
-                    </asp:TemplateField>
-                    <asp:TemplateField HeaderText="Total" ItemStyle-HorizontalAlign="Right">
-                        <ItemTemplate>
-                            <asp:Label ID="LtlTotal" runat="server" Text='<%# Eval("Total", "{0:#,##0.00}")%>'></asp:Label>
-                        </ItemTemplate>
-                    </asp:TemplateField>
+                    <asp:BoundField HeaderText="Existencia" DataField="Existencia" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
+                    <asp:BoundField HeaderText="Total" DataField="Total" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
                 </Columns>
             </asp:GridView>
         </ContentTemplate>
diff --git a/Inventarios/RepAlmacen.aspx.vb b/Inventarios/RepAlmacen.aspx.vb
index 9f7fd0836..e3608d3e7 100644
--- a/Inventarios/RepAlmacen.aspx.vb
+++ b/Inventarios/RepAlmacen.aspx.vb
@@ -4,6 +4,8 @@ Option Explicit On
 Imports Extensiones
 Imports System.Data
 Imports Microsoft.Reporting.WebForms
+Imports GemBox.Spreadsheet
+Imports System.IO
 
 Partial Class Inventarios_RepAlmacen
     Inherits ClsPaginas
@@ -76,10 +78,10 @@ Partial Class Inventarios_RepAlmacen
     End Sub
 
 #Region "I M P R I M I R  <i class='fa fa-print'></i>"
-    Protected Sub LnkExportar_Click(sender As Object, e As EventArgs) Handles LnkExportar.Click
-        'GVAlmacen.ExportToExcel("RepFacturas_" & Now.ToShortDateString())
-        GenerarPDF("EXCEL")
-
+    Protected Sub LnkExportar_Click(sender As Object, e As EventArgs) Handles LnkExportar.Click
+
+        GenerarPDF("EXCEL")
+
     End Sub
     Private Sub GenerarPDF(Optional Formato As String = "PDF")
         Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
diff --git a/PortalProveedor/PortalProveedor.aspx b/PortalProveedor/PortalProveedor.aspx
index 16c1ca692..c4114baf4 100644
--- a/PortalProveedor/PortalProveedor.aspx
+++ b/PortalProveedor/PortalProveedor.aspx
@@ -167,9 +167,17 @@
                                     <asp:LinkButton ID="BtnPDFHistorial" OnClick="LbPDFHistorial_Click" runat="server" ToolTip="Imprime PDF del Historial" Style="float: right;"><i class="fa fa-print" style="margin-right: 10px;"></i></asp:LinkButton>
                                     <asp:LinkButton ID="BtnExcelHistorial" OnClick="BtnExcelHistorial_Click" runat="server" ToolTip="Descarga Excel del Historial" Style="float: right;"><i style="margin-right: 10px;" class='fa fa-download'></i></asp:LinkButton>
                                 </legend>
-                                <div class="text-right" style="margin-top: -5px!important">
-                                    <input type="text" id="TxtBusqueda1" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda1','{0}')", GvCxP.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
-                                    <a href="javascript:;" onclick="FiltrarTabla('TxtBusqueda1','C_Tab_TabCxP_GvCxPPanelItem')" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
+                                <div style="width:100%" class="row">
+                                    <div class="col-md-1 text-left" style="margin-top: -5px!important;width:50%">
+                                        <div class="row" runat="server" id="DivSucursalCxC">
+                                            <asp:Label runat="server" ID="lblSucursal" Text="Sucursal:" class="col-sm-1" Style="Width:85px" />
+                                            <asp:DropDownList ID="DdlProveedorSucursalCxCSucursal" DataValueField="CveProveedorSucursal" DataTextField="ProveedorSucursal" AutoPostBack="true" runat="server" OnSelectedIndexChanged="DdlProveedorSucursalCxCSucursal_Changed" CssClass="col-md-1 form-control input-sm input-small" />
+                                        </div>
+                                    </div>
+                                    <div class="col-md-1 text-right" style="margin-top: -5px!important;width:50%" runat="server" id="DivSearch">
+                                        <input type="text" id="TxtBusqueda1" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda1','{0}')", GvCxP.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
+                                        <a href="javascript:;" onclick="FiltrarTabla('TxtBusqueda1','C_Tab_TabCxP_GvCxPPanelItem')" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
+                                    </div>
                                 </div>
                                 <asp:UpdatePanel ID="UPPCxP" runat="server" UpdateMode="Conditional">
                                     <ContentTemplate>
@@ -185,6 +193,7 @@
                                                 <asp:BoundField DataField="PorPagado" DataFormatString="{0:N2}%" HeaderText="% Abonado" />
                                                 <asp:BoundField DataField="Saldo" DataFormatString="{0:N2}" HeaderText="Saldo" />
                                                 <asp:BoundField DataField="PorXPagar" DataFormatString="{0:N2}%" HeaderText="% A Cobrar" ItemStyle-HorizontalAlign="Center" />
+                                                <asp:BoundField DataField="AplicaNC" HeaderText="Aplica NC" ItemStyle-Width="10%" />
 
                                             </Columns>
                                         </asp:GridView>
@@ -205,9 +214,17 @@
                                     <asp:LinkButton ID="BtnPDFPagadas" OnClick="LbPDFPagadas_Click" runat="server" ToolTip="Imprime PDF del Historial" Style="float: right;"><i class="fa fa-print" style="margin-right: 10px;"></i></asp:LinkButton>
                                     <asp:LinkButton ID="BtnExcelPagadas" OnClick="BtnExcelPagadas_Click" runat="server" ToolTip="Descarga Excel del Historial" Style="float: right;"><i style="margin-right: 10px;" class='fa fa-download'></i></asp:LinkButton>
                                 </legend>
-                                <div class="text-right">
-                                    <input type="text" id="TxtBusqueda2" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda2','{0}')", GvCxPHistorial.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
-                                    <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda2','{0}')", GvCxPHistorial.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
+                                <div style="width:100%" class="row">
+                                    <div class="col-md-1 text-left" style="margin-top: -5px!important;width:50%">
+                                        <%--<div class="row" runat="server" id="DivProveedorSucursalHistorial">
+                                            <asp:Label runat="server" ID="lblProveedorSucursalHistorial" Text="Sucursal: " class="col-md-1" Style="Width:85px" />
+                                            <asp:DropDownList ID="DdlProveedorSucursalPHistorial" DataValueField="CveProveedorSucursal" DataTextField="ProveedorSucursal" runat="server" CssClass="col-md-1 form-control input-sm input-small" />
+                                        </div>--%>
+                                    </div>
+                                    <div class="col-md-1 text-right" style="width:100%">
+                                        <input type="text" id="TxtBusqueda2" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda2','{0}')", GvCxPHistorial.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
+                                        <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda2','{0}')", GvCxPHistorial.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
+                                    </div>
                                 </div>
                                 <asp:UpdatePanel ID="UPGvCxPHistorial" runat="server" UpdateMode="Conditional">
                                     <ContentTemplate>
@@ -223,6 +240,7 @@
                                                 <asp:BoundField DataField="PorPagado" DataFormatString="{0:N2}%" HeaderText="% Abonado" />
                                                 <asp:BoundField DataField="FolioPago" DataFormatString="{0:N2}" HeaderText="Cheque" />
                                                 <asp:BoundField DataField="PorXPagar" DataFormatString="{0:N2}%" HeaderText="% A Cobrar" />
+                                                <asp:BoundField DataField="AplicaNC" HeaderText="Aplica NC" ItemStyle-Width="10%"/>
 
                                             </Columns>
                                         </asp:GridView>
diff --git a/PortalProveedor/PortalProveedor.aspx.vb b/PortalProveedor/PortalProveedor.aspx.vb
index 4b1f46663..370954255 100644
--- a/PortalProveedor/PortalProveedor.aspx.vb
+++ b/PortalProveedor/PortalProveedor.aspx.vb
@@ -250,6 +250,7 @@ Partial Class Portal_PortalProveedor
 
         If Not IsPostBack Then
             CveProveedor = UsuarioActual.CveProveedor
+            CargarSucursalesProveedor()
             Session("FileUpload") = ""
             ViewState("Orden") = ""
 
@@ -355,7 +356,7 @@ Partial Class Portal_PortalProveedor
     Private Sub CargaCxP()
         Dim ObjMovtos As New ClsMovimientos()
 
-        If ObjMovtos.GetCxPProveedor(CveProveedor, "-1", "-1", -1, -1, -1, -1, -1, -1, -1, -1) Then
+        If ObjMovtos.GetCxPProveedor(CveProveedor, "-1", "-1", -1, -1, -1, -1, -1, -1, DdlProveedorSucursalCxCSucursal.SelectedValue.ToEntero, -1) Then
 
             GvCxP.DataSource = ObjMovtos.DtResultados.FiltraParametros("Tipo = 'Act'", "Moneda,OrdenVencimiento, FechaVencimiento")
 
@@ -1813,9 +1814,34 @@ Partial Class Portal_PortalProveedor
 
         CargaDocumentacion()
         objDocumentos.Dispose()
-    End Sub
-
+    End Sub
+
 #End Region
-
-
+
+#Region "Sucursales del proveedor"
+    Private Sub CargarSucursalesProveedor()
+        Dim ObjProveedores As New ClsCompProveedores()
+        If ObjProveedores.GetSucursales(CveProveedor, UsuarioActual.CveEmpresa) Then
+            If ObjProveedores.DtResultados.Rows.Count > 0 Then
+                DdlProveedorSucursalCxCSucursal.DataSource = ObjProveedores.DtResultados
+                'DdlProveedorSucursalPHistorial.DataSource = ObjProveedores.DtResultados
+            Else
+                DivSucursalCxC.Visible = False
+                DivSearch.Attributes("style") = "width:100%"
+                'DivProveedorSucursalHistorial.Visible = False
+            End If
+        End If
+        ObjProveedores.Dispose()
+        DdlProveedorSucursalCxCSucursal.DataBind()
+        'DdlProveedorSucursalPHistorial.DataBind()
+        DdlProveedorSucursalCxCSucursal.Items.Insert(0, New ListItem("Todas", "-1"))
+        'DdlProveedorSucursalPHistorial.Items.Insert(0, New ListItem("Seleccione", "-1"))
+    End Sub
+
+    Protected Sub DdlProveedorSucursalCxCSucursal_Changed(sender As Object, e As EventArgs)
+        CargaCxP()
+    End Sub
+#End Region
+
+
 End Class
\ No newline at end of file

From befde50d25de1bd96df858e1425003b1c7447eb8 Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Sat, 17 Oct 2020 14:28:50 -0700
Subject: [PATCH 2/9] Pendientes BDH

---
 Compras/PopUpVerFactura.aspx.vb      |  42 ++++++++-
 Empresas/140/Formatos/Salidas.rdlc   |  41 ++++++++-
 Inventarios/RecepcionAlmacen.aspx.vb |   6 ++
 Inventarios/RecepcionUsados.aspx.vb  |  87 +++++++++++--------
 Inventarios/TraspasoAlmacen.aspx     |  96 ++++++++++-----------
 Inventarios/TraspasoAlmacen.aspx.vb  |  43 ++++++++--
 Ventas/Clientes.aspx.vb              | 123 ++++++++++++++-------------
 7 files changed, 282 insertions(+), 156 deletions(-)

diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb
index aadc8ad8e..8dd046ff6 100644
--- a/Compras/PopUpVerFactura.aspx.vb
+++ b/Compras/PopUpVerFactura.aspx.vb
@@ -1281,10 +1281,10 @@ Partial Class PopUpVerFactura
         'VERIFICA SI TIENE MOVIMIENTO VIRTUAL RELACIONADO
         If UsuarioActual.CveEmpresa = 140 AndAlso ObjInventarios.DtResultados.Rows.Count > 0 Then
             CveMovimientoRelacionado = ObjInventarios.DtResultados.Rows(0)("CveMtoRel").ToString().ToEntero()
-            If CveConcepto.Contiene(3, 26) AndAlso ObjInventarios.DtResultados.FiltroPrimeroValor("CveMovimientoVirtual").ToEntero() > 0 Then
+            If CveConcepto.Contiene(2, 3, 26, 27) AndAlso ObjInventarios.DtResultados.FiltroPrimeroValor("CveMovimientoVirtual").ToEntero() > 0 Then
                 FolioRelacionado = ObjInventarios.DtResultados.FiltroPrimeroValor("FolioVirtual")
                 CveConceptoMovtoRelacionado = 37
-            ElseIf CveConcepto = 37 Then
+            ElseIf CveConcepto.Contiene(36, 37) Then
                 FolioRelacionado = ObjInventarios.DtResultados.FiltroPrimeroValor("FolioRelacionado")
                 CveConceptoMovtoRelacionado = 3
             End If
@@ -1413,7 +1413,7 @@ Partial Class PopUpVerFactura
                     ImprimirPDF("Empresas/Grales/Formatos/Inicial.rdlc", DtMovimientos, params, String.Format("Inventario Inicial - {0}", Folio), RDSName:="DsInventarios")
                 End If
 
-            Case 2, 32, 33  ' E N T R A D A S
+            Case 2, 32, 33, 36  ' E N T R A D A S
 
                 Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/Entradas.rdlc", UsuarioActual.Empresa.Ruta))
                 Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
@@ -1501,7 +1501,39 @@ Partial Class PopUpVerFactura
                         End If
 
                         ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Entradas.rdlc", DtMovimientos, params, String.Format("Entrada de Almacen - {0}", Folio), RDSName:="DsInventarios")
+                    ElseIf UsuarioActual.CveEmpresa = 140 Then
+                        Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+                        If Imagen.Exists Then
+                            params.Add(New ReportParameter("LogoPath", logouri))
+                        Else
+                            params.Add(New ReportParameter("LogoPath", ""))
+                        End If
+                        Dim concepto As String = ""
+                        If CveConcepto.Contiene(2, 32, 33) Then
+                            concepto = "ENTRADA DE ALMACÉN"
+                        ElseIf CveConcepto.Contiene(36) Then
+                            concepto = "ENTRADA VIRTUAL"
+                        End If
+
+                        params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
+                        params.Add(New ReportParameter("Concepto", concepto))
+                        params.Add(New ReportParameter("Almacen", Almacen))
+                        params.Add(New ReportParameter("Fecha", Fecha))
+                        params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
+                        params.Add(New ReportParameter("Folio", Folio))
+                        params.Add(New ReportParameter("FacturadoA", NombreCliente))
+                        params.Add(New ReportParameter("FacturaProveedor", If(CveCompra > 0 AndAlso dr IsNot Nothing, dr("SerieFolio").ToString, "")))
+                        params.Add(New ReportParameter("Descuentos", If(CveCompra > 0 AndAlso dr IsNot Nothing, (dr("Descuentos").ToString.ToDouble).FormatoNumero(2), "")))
+                        params.Add(New ReportParameter("IVA", If(CveCompra > 0 AndAlso dr IsNot Nothing, dr("IVA").ToString.FormatoNumero(2), "")))
+                        params.Add(New ReportParameter("Total", If(CveCompra > 0 AndAlso dr IsNot Nothing, dr("Total").ToString.FormatoNumero(2), "")))
+                        'params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo)))
+                        params.Add(New ReportParameter("NombreRecibio", String.Format("RECIBIÓ{0}{1}", vbCrLf, Recibio)))
+                        params.Add(New ReportParameter("CveConceptoMovRelacionado", CveConceptoMovRelacionado.ToString()))
+                        params.Add(New ReportParameter("FolioRelacionado", FolioRelacionado))
+
+                        ImprimirPDF(String.Format("{0}Formatos/Entradas.rdlc", UsuarioActual.Empresa.Ruta), DtMovimientos, params, String.Format("Entrada de Almacen - {0}", Folio.ToString), RDSName:="DsInventarios")
                     Else
+
                         params.Add(New ReportParameter("TipoDocumento", String.Format("Compras {0}", Almacen)))
                         params.Add(New ReportParameter("Fecha", If(CveCompra > 0, dr("Fecha").ToString.ToDate.ToShortDateString, "")))
                         params.Add(New ReportParameter("Folio", Folio.ToString))
@@ -2255,7 +2287,9 @@ Partial Class PopUpVerFactura
 
                         params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
                         params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
-                        params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
+                        params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
+                        params.Add(New ReportParameter("CveConceptoMovRelacionado", CveConceptoMovRelacionado.ToString()))
+                        params.Add(New ReportParameter("FolioRelacionado", FolioRelacionado))
                     End If
 
 
diff --git a/Empresas/140/Formatos/Salidas.rdlc b/Empresas/140/Formatos/Salidas.rdlc
index ff50a2ecb..595add00f 100644
--- a/Empresas/140/Formatos/Salidas.rdlc
+++ b/Empresas/140/Formatos/Salidas.rdlc
@@ -434,6 +434,9 @@
             </TablixMember>
             <TablixMember>
               <Group Name="Details" />
+              <TablixMembers>
+                <TablixMember />
+              </TablixMembers>
             </TablixMember>
           </TablixMembers>
         </TablixRowHierarchy>
@@ -465,8 +468,8 @@
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>Textbox2</rd:DefaultName>
-        <Top>1.39318cm</Top>
-        <Left>0.25984cm</Left>
+        <Top>1.99643cm</Top>
+        <Left>0.22809cm</Left>
         <Height>0.6cm</Height>
         <Width>11.36782cm</Width>
         <ZIndex>1</ZIndex>
@@ -480,8 +483,40 @@
           <PaddingBottom>2pt</PaddingBottom>
         </Style>
       </Textbox>
+      <Textbox Name="Textbox28">
+        <CanGrow>true</CanGrow>
+        <KeepTogether>true</KeepTogether>
+        <Paragraphs>
+          <Paragraph>
+            <TextRuns>
+              <TextRun>
+                <Value>= "Total: " &amp; FormatNumber(Sum(Fields!Cantidad.Value, "DsInventarios"),0)</Value>
+                <Style>
+                  <FontWeight>Bold</FontWeight>
+                </Style>
+              </TextRun>
+            </TextRuns>
+            <Style />
+          </Paragraph>
+        </Paragraphs>
+        <rd:DefaultName>Textbox28</rd:DefaultName>
+        <Top>1.33674cm</Top>
+        <Left>0.22985cm</Left>
+        <Height>0.6cm</Height>
+        <Width>2.5cm</Width>
+        <ZIndex>2</ZIndex>
+        <Style>
+          <Border>
+            <Style>None</Style>
+          </Border>
+          <PaddingLeft>2pt</PaddingLeft>
+          <PaddingRight>2pt</PaddingRight>
+          <PaddingTop>2pt</PaddingTop>
+          <PaddingBottom>2pt</PaddingBottom>
+        </Style>
+      </Textbox>
     </ReportItems>
-    <Height>0.82291in</Height>
+    <Height>1.05208in</Height>
     <Style />
   </Body>
   <Width>8.1198in</Width>
diff --git a/Inventarios/RecepcionAlmacen.aspx.vb b/Inventarios/RecepcionAlmacen.aspx.vb
index 668575094..bc337fbef 100644
--- a/Inventarios/RecepcionAlmacen.aspx.vb
+++ b/Inventarios/RecepcionAlmacen.aspx.vb
@@ -2882,6 +2882,12 @@ Partial Class Inventarios_RecepcionAlmacen
                 End If
             End If
 
+            If UsuarioActual.CveEmpresa = 140 AndAlso TipoMovimiento = 3 Then
+                If Not ObjCompras.UpdateEstatusAlmacen(CveCompraSurtir, 2, UsuarioActual.CveUsuario) Then
+                    ErrorMovInv = True
+                End If
+            End If
+
             'AGREGA BITACORA TEMPORAL
             If DtBitacora IsNot Nothing AndAlso DtBitacora.Rows.Count > 0 Then
                 ErrorMovInv = GuardaBitacoraTemporal(ObjBitacora, CveMovimiento)
diff --git a/Inventarios/RecepcionUsados.aspx.vb b/Inventarios/RecepcionUsados.aspx.vb
index fb0d561d4..f6d0d68aa 100644
--- a/Inventarios/RecepcionUsados.aspx.vb
+++ b/Inventarios/RecepcionUsados.aspx.vb
@@ -2077,6 +2077,8 @@ Partial Class Inventarios_RecepcionUsados
         Me.ObjRemisionNC.TipoDocumento = "Remisión"
         'NUM 1- CARGO 2- BONIFICACION
         Me.ObjRemisionNC.Num1 = 1
+        'NUM 0- USADO 1- AJUSTE/GARANTIA
+        Me.ObjRemisionNC.Num2 = RblUsadosAjuste.SelectedValue.ToEntero()
         Me.ObjRemisionNC.Alfa1 = ""
         Me.ObjRemisionNC.Alfa2 = ""
         Me.ObjRemisionNC.Alfa3 = ""
@@ -2093,8 +2095,6 @@ Partial Class Inventarios_RecepcionUsados
         Me.ObjRemisionNC.SetCliente()
         Me.ObjRemisionNC.CveAlmacen = -1
 
-
-
         Dim ObjCliente As New ClsClientes
         If ObjCliente.GetClientes(CveCliente, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa, -1, TipoCliente:=-1) Then
             If ObjCliente.DtResultados.Rows.Count > 0 Then
@@ -2133,6 +2133,9 @@ Partial Class Inventarios_RecepcionUsados
         'DETALLES
         Me.ObjRemisionNC.DtDetalle = CreaDTDetalleRNC()
 
+        'GUARDAR AJUSTES
+        Me.ObjRemisionNC.DtAjustes = TmpDTAjustes
+
         'VALIDA PROMOCIONES Y EXISTENCIAS
         Dim ObjVentas As New ClsVentas
         If ObjVentas.GetPromocionesPS(-1, Now, CveSubProyecto, Me.ObjRemisionNC.CveCliente, Me.ObjRemisionNC.CveVendedor, UsuarioActual.CveEmpresa) Then
@@ -2517,37 +2520,6 @@ Partial Class Inventarios_RecepcionUsados
         TmpDTAjustes.Columns.Add("CveVenta", GetType(Integer))
         TmpDTAjustes.Columns.Add("PUFactura", GetType(Double))
     End Sub
-    Private Sub CargaAjusteDetalle()
-        Dim Dr As DataRow = Nothing
-        IndexAjuste = 0
-        For Each Dr2 As DataRow In TmpDTAjustes.Rows
-            If Dr2("ConsecutivoVenta").ToString.ToEntero = ConsecutivoVenta Then
-                Dr = Dr2
-                Exit For
-            End If
-            IndexAjuste += 1
-        Next
-        If Dr IsNot Nothing Then
-            IndexAjuste = TmpDTAjustes.Rows.IndexOf(Dr)
-            DdlFolioGarantia.SelectedValueExist(Dr("CveFolioGarantia").ToString)
-            TxtConsecutivoAjuste.Text = Dr("Consecutivo").ToString
-            TxtCodEnsamble.Text = Dr("CodigoEnsamble").ToString
-            DdlTipoUso.SelectedValueExist(Dr("CveTipoUso").ToString)
-            TxtCodLinea.Text = Dr("CodigoLinea").ToString
-            TxtCodInspeccion.Text = Dr("CodigoInspeccion").ToString
-            TxtMesesUso.Text = Dr("Meses").ToString
-            DdlTipoDefecto.SelectedValueExist(Dr("CveTipoDefecto").ToString)
-            TxtPorcentajeAjuste.Text = Dr("PorcentajeAjuste").ToString
-            TxtPoliza.Text = Dr("NumPoliza").ToString
-            TxtImporteAjuste.Text = Dr("Importe").ToString
-            'DdlFacturas.SelectedValueExist(Dr("CveVenta").ToString)
-            CargaPSAjuste()
-            DdlPSAjuste.SelectedValue = (Dr("CvePS").ToString)
-            TxtFechaAjuste.Text = Dr("FechaAjuste").ToString.ToDate.ToShortDateString
-            txtPrecio.Text = Dr("PUFactura").ToString.ToDecimal.FormatoNumero(2)
-            txtPrecio.Enabled = Not Dr("CveVenta").ToString.ToEntero > 0
-        End If
-    End Sub
     Private Sub CargaPSAjuste()
         DdlPSAjuste.setEsWebService(True)
     End Sub
@@ -2561,7 +2533,14 @@ Partial Class Inventarios_RecepcionUsados
             Dim drPS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePSParametro).FiltroPrimero("")
 
             If drPS IsNot Nothing Then
-                PrecioSugerido = drPS("Precio").ToString.ToDecimal
+                Dim CvePrecioListaPS As Integer = GlobalDTCliente(UsuarioActual.CveEmpresa, Estatus:=-1, CveCliente:=DdlClientes.SelectedValue.ToEntero).FiltroPrimeroValor("CvePrecioLista").ToEntero()
+                If CvePrecioListaPS > 0 Then
+                    Dim ObjPS As New ClsProductosServicios
+                    If ObjPS.GetPSPreciosLista(UsuarioActual.CveEmpresa, CvePrecioListaPS, CvePS:=CvePSParametro) Then
+                        PrecioSugerido = ObjPS.DtResultados.FiltroPrimeroValor("PrecioLista").ToDecimal
+                    End If
+                    ObjPS.Dispose()
+                End If
                 Dim PS As String = drPS("PS").ToString
                 CveMarca = drPS("CveMarca").ToString.ToEntero
                 CveClasificacion = drPS("CveClasificacion").ToString.ToEntero
@@ -2720,7 +2699,45 @@ Partial Class Inventarios_RecepcionUsados
 
         UpAjuste.Update()
     End Sub
+    Private Sub GuardaAjuste()
 
+        Dim CargoAnterior As Double = 0
+        Dim CargoActual As Double = 0
+
+        Dim Row As DataRow = Nothing
+        Row = TmpDTAjustes.NewRow
+        Row("CveFolioGarantia") = DdlFolioGarantia.SelectedValue.ToEntero
+        Row("CveTipoUso") = DdlTipoUso.SelectedValue.ToEntero
+        Row("CveTipoDefecto") = DdlTipoDefecto.SelectedValue.ToEntero
+        Row("CodigoEnsamble") = TxtCodEnsamble.Text
+        Row("CodigoLinea") = TxtCodLinea.Text
+        Row("CodigoInspeccion") = TxtCodInspeccion.Text
+        Row("Consecutivo") = TxtConsecutivoAjuste.Text
+        Row("FechaAjuste") = TxtFechaAjuste.Text.ToDate
+        Row("Meses") = TxtMesesUso.Text.ToEntero
+        Row("PorcentajeAjuste") = TxtPorcentajeAjuste.Text.ToDouble
+        Row("NumPoliza") = TxtPoliza.Text
+        Row("Importe") = TxtImporteAjuste.Text.ToDouble
+        Row("ConsecutivoVenta") = TxtConsecutivoAjuste.Text.ToEntero()
+        Row("CvePS") = DdlPSAjuste.SelectedValue
+        Row("PS") = DdlPSAjuste.SelectedText
+        Row("CveVenta") = -1
+        Row("PUFactura") = TxtPUFactura.Text.ToDouble
+        Row("Cantidad") = 1
+        Dim CveUM As Integer = -1
+        If DdlPSAjuste.SelectedValue.ToEntero > 0 Then
+            Dim Dr As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, DdlPSAjuste.SelectedValue.ToEntero).Rows(0)
+            If Dr IsNot Nothing Then
+                CveUM = Dr("CveUnidadMedida").ToString.ToEntero
+                CargoAnterior = Dr("Cargo").ToString.ToDouble
+            End If
+        End If
+        Row("CveUM") = CveUM
+        Row("CveVentaDetalle") = -1
+        TmpDTAjustes.Rows.Add(Row)
+
+
+    End Sub
     Protected Sub BtnCalculaMesesUso_Click(sender As Object, e As EventArgs)
         CalculaMesesUso()
     End Sub
@@ -2774,6 +2791,8 @@ Partial Class Inventarios_RecepcionUsados
             Alert("No se pudo cargar el producto", TipoMensaje.MsgError)
         End If
         ObjPS.Dispose()
+
+        GuardaAjuste()
     End Sub
 
     Protected Sub CargarDescuento()
diff --git a/Inventarios/TraspasoAlmacen.aspx b/Inventarios/TraspasoAlmacen.aspx
index b347d8638..b7137112d 100644
--- a/Inventarios/TraspasoAlmacen.aspx
+++ b/Inventarios/TraspasoAlmacen.aspx
@@ -146,8 +146,8 @@
 
                                         <div id="DivTransitorio" style="display: none;">
                                             <div class="row">
-                                                 
-                                                <asp:Label AssociatedControlID="TxtResponsable" ID="LblResponsable" runat="server" Text="Responsable:"  CssClass="col-md-2"></asp:Label>
+
+                                                <asp:Label AssociatedControlID="TxtResponsable" ID="LblResponsable" runat="server" Text="Responsable:" CssClass="col-md-2"></asp:Label>
                                                 <asp:Panel CssClass="col-md-2" ID="divResponsable" runat="server">
                                                     <asp:TextBox runat="server" Text="" CssClass="form-control" ID="TxtResponsable" />
                                                 </asp:Panel>
@@ -156,8 +156,8 @@
                                                 <div class="col-md-2">
                                                     <asp:DropDownList ID="DdlAlmacenTransitorio" runat="server" DataTextField="Almacen" DataValueField="CveAlmacen" CssClass="form-control input-sm select2me" Width="100%"></asp:DropDownList>
                                                 </div>
-                                                <asp:Label AssociatedControlID="ChkEmitirTimbrado" runat="server" Text="Emitir Timbrado:" ID="LblEmitirTimbrado" CssClass="col-md-2 "  Visible="false"></asp:Label>
-                                                <asp:Panel id="DivEmitirTimbrado" runat="server" Visible="false" class="col-md-2">
+                                                <asp:Label AssociatedControlID="ChkEmitirTimbrado" runat="server" Text="Emitir Timbrado:" ID="LblEmitirTimbrado" CssClass="col-md-2 " Visible="false"></asp:Label>
+                                                <asp:Panel ID="DivEmitirTimbrado" runat="server" Visible="false" class="col-md-2">
                                                     <asp:CheckBox ID="ChkEmitirTimbrado" runat="server" CssClass="chksino" Text=" " />
                                                 </asp:Panel>
 
@@ -166,9 +166,9 @@
 
                                         <div id="DivTransitorio2" class="rowpadding" runat="server" visible="false">
                                             <div class="row">
-                                                 
-                                                <asp:Label AssociatedControlID="TxtGastoIndirecto" Visible="false" id="LblGastoIndirecto" runat="server" Text="Gasto Indirecto:" CssClass="col-md-2"></asp:Label>
-                                                <div class="col-md-2" id="divGastoIndirecto" Visible="false" runat="server">
+
+                                                <asp:Label AssociatedControlID="TxtGastoIndirecto" Visible="false" ID="LblGastoIndirecto" runat="server" Text="Gasto Indirecto:" CssClass="col-md-2"></asp:Label>
+                                                <div class="col-md-2" id="divGastoIndirecto" visible="false" runat="server">
                                                     <asp:TextBox runat="server" Text="" CssClass="form-control" ID="TxtGastoIndirecto" />
                                                 </div>
                                                 <label class="col-md-2">Chofer:</label>
@@ -194,7 +194,7 @@
                                             <div class="row">
                                                 <label class="col-md-1">Unidad:</label>
                                                 <div class="col-md-1 ">
-                                                    <asp:HyperLink runat="server" ID="HplNuevaUnidad" CssClass ="btn btn-sm btn-primary" NavigateUrl="#" data-toggle="modal" data-target="#DivAgregarNuevoCamion"><i class='fa fa-plus'></i></asp:HyperLink>
+                                                    <asp:HyperLink runat="server" ID="HplNuevaUnidad" CssClass="btn btn-sm btn-primary" NavigateUrl="#" data-toggle="modal" data-target="#DivAgregarNuevoCamion"><i class='fa fa-plus'></i></asp:HyperLink>
                                                 </div>
                                                 <div class="col-md-2">
                                                     <asp:DropDownList runat="server" ID="DdlUnidadCamion" AutoPostBack="true" Width="100%" AppendDataBoundItems="true" CssClass="form-control input-sm select2me" DataValueField="CveCamion" DataTextField="Placa"></asp:DropDownList>
@@ -391,7 +391,7 @@
 
                                         <th width="160px">Comandos</th>
                                     </tr>
-                                </thea>
+                                    </thea>
                                 <tr>
                                     <td></td>
                                     <td align="center">
@@ -621,7 +621,6 @@
                 </div>
                 <br />
 
-
                 <asp:UpdatePanel ID="UPDivCodigoSeriePSRecepcion" runat="server" UpdateMode="Conditional">
                     <ContentTemplate>
                         <div class="row" runat="server" id="DivCodigoSeriePSRecepcion" visible="false">
@@ -647,46 +646,47 @@
                         </div>
                     </ContentTemplate>
                 </asp:UpdatePanel>
-
-                <asp:UpdatePanel runat="server" ID="UpDatosRecepcion" UpdateMode="Conditional">
-                    <ContentTemplate>
-                        <asp:GridView ID="GvDatosRecepcion" DataKeyNames="CveMovimiento,CveUM,CvePS,PS,CveAF,CodigoBarras,CveAlmacen,CveAlmacenDestino,AplicaSerie,CveMovimientoDetalle,PU,CveAlmacenSalida,CveMovimientoSalida,Serie,Lote,FechaCaducidad,Cantidad, GastoIndirectoSalida, Importe,Codigo" runat="server" AutoGenerateColumns="False" EmptyDataText="No hay movimientos pendientes" ToolTip="Listado de Movimientos" CssClass="table table-hover Widthall" GridLines="None">
-                            <Columns>
-                                <asp:TemplateField ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Center">
-                                    <%--<HeaderTemplate>
+                <div class="row">
+                    <div class="col-md-12">
+                        <asp:UpdatePanel runat="server" ID="UpDatosRecepcion" UpdateMode="Conditional">
+                            <ContentTemplate>
+                                <asp:GridView ID="GvDatosRecepcion" DataKeyNames="CveMovimiento,CveUM,CvePS,PS,CveAF,CodigoBarras,CveAlmacen,CveAlmacenDestino,AplicaSerie,CveMovimientoDetalle,PU,CveAlmacenSalida,CveMovimientoSalida,Serie,Lote,FechaCaducidad,Cantidad, GastoIndirectoSalida, Importe,Codigo" runat="server" AutoGenerateColumns="False" EmptyDataText="No hay movimientos pendientes" ToolTip="Listado de Movimientos" CssClass="table table-hover Widthall" GridLines="None">
+                                    <Columns>
+                                        <asp:TemplateField ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Center">
+                                            <%--<HeaderTemplate>
                                         <input type="checkbox" id="ChkAll" onclick="CheckAll();" />
                                     </HeaderTemplate>--%>
-                                    <ItemTemplate>
-                                        <asp:CheckBox ID="Chk" Checked="true" runat="server"></asp:CheckBox>
-                                    </ItemTemplate>
-                                </asp:TemplateField>
-                                <asp:TemplateField HeaderText="Cantidad" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Center">
-                                    <ItemTemplate>
-                                        <asp:TextBox ID="TxtCantidad" Visible="false" Width="60px" runat="server" Text="0"></asp:TextBox>
-                                        <ajax:FilteredTextBoxExtender ID="SoloNumeros2" runat="server" TargetControlID="TxtCantidad" FilterType="Custom, Numbers" ValidChars="." />
-                                    </ItemTemplate>
-                                </asp:TemplateField>
-                                <asp:BoundField HeaderText="Disponible" DataField="Cantidad" DataFormatString="{0:#,##0.00####}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="10%" />
-                                <asp:BoundField HeaderText="Unidad" DataField="UnidadMedida" ItemStyle-Width="10%" />
-                                <asp:BoundField HeaderText="Código" DataField="Codigo" ItemStyle-Width="10%" />
-                                <asp:BoundField HeaderText="Producto" DataField="PS" ItemStyle-Width="40%" />
-                                <asp:BoundField HeaderText="Serie" DataField="Serie" ItemStyle-Width="15%" />
-                                <asp:BoundField HeaderText="Lote" DataField="Lote" ItemStyle-Width="15%" />
-                                <asp:BoundField HeaderText="Caducidad" DataField="FechaCaducidad" DataFormatString="{0:d}" ItemStyle-Width="15%" />
-                                <asp:TemplateField HeaderText="Sección Almacén" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="10%" Visible="false">
-                                    <ItemTemplate>
-                                        <asp:DropDownList ID="DdlSeccionAlmacen" DataTextField="SeccionAlmacen" AppendDataBoundItems="true" DataValueField="CveSeccionAlmacen" Class="form-control input-sm select2me" Style="width: 95% !important" runat="server" CausesValidation="true">
-                                        </asp:DropDownList>
-                                    </ItemTemplate>
-                                </asp:TemplateField>
-                            </Columns>
-                        </asp:GridView>
-                        <br />
-                        <br />
-                    </ContentTemplate>
-                </asp:UpdatePanel>
-
-
+                                            <ItemTemplate>
+                                                <asp:CheckBox ID="Chk" Checked="true" runat="server"></asp:CheckBox>
+                                            </ItemTemplate>
+                                        </asp:TemplateField>
+                                        <asp:TemplateField HeaderText="Cantidad" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Center">
+                                            <ItemTemplate>
+                                                <asp:TextBox ID="TxtCantidad" Visible="false" Width="60px" runat="server" Text="0"></asp:TextBox>
+                                                <ajax:FilteredTextBoxExtender ID="SoloNumeros2" runat="server" TargetControlID="TxtCantidad" FilterType="Custom, Numbers" ValidChars="." />
+                                            </ItemTemplate>
+                                        </asp:TemplateField>
+                                        <asp:BoundField HeaderText="Disponible" DataField="Cantidad" DataFormatString="{0:#,##0.00####}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="10%" />
+                                        <asp:BoundField HeaderText="Unidad" DataField="UnidadMedida" ItemStyle-Width="10%" />
+                                        <asp:BoundField HeaderText="Código" DataField="Codigo" ItemStyle-Width="10%" />
+                                        <asp:BoundField HeaderText="Producto" DataField="PS" ItemStyle-Width="40%" />
+                                        <asp:BoundField HeaderText="Serie" DataField="Serie" ItemStyle-Width="15%" />
+                                        <asp:BoundField HeaderText="Lote" DataField="Lote" ItemStyle-Width="15%" />
+                                        <asp:BoundField HeaderText="Caducidad" DataField="FechaCaducidad" DataFormatString="{0:d}" ItemStyle-Width="15%" />
+                                        <asp:TemplateField HeaderText="Sección Almacén" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="10%" Visible="false">
+                                            <ItemTemplate>
+                                                <asp:DropDownList ID="DdlSeccionAlmacen" DataTextField="SeccionAlmacen" AppendDataBoundItems="true" DataValueField="CveSeccionAlmacen" Class="form-control input-sm select2me" Style="width: 95% !important" runat="server" CausesValidation="true">
+                                                </asp:DropDownList>
+                                            </ItemTemplate>
+                                        </asp:TemplateField>
+                                    </Columns>
+                                </asp:GridView>
+                                <br />
+                                <br />
+                            </ContentTemplate>
+                        </asp:UpdatePanel>
+                    </div>
+                </div>
             </ContentTemplate>
         </ajax:TabPanel>
 
diff --git a/Inventarios/TraspasoAlmacen.aspx.vb b/Inventarios/TraspasoAlmacen.aspx.vb
index 58ddb7411..9ddb38f67 100644
--- a/Inventarios/TraspasoAlmacen.aspx.vb
+++ b/Inventarios/TraspasoAlmacen.aspx.vb
@@ -859,7 +859,13 @@ Partial Class Inventarios_TraspasoAlmacen
 
             'Dim CveSubProyecto As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen= {DdlAlmacenOrigen.SelectedValue}").ToEntero()
 
-            Dim CveAlmacenVirtual As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa, 24).FiltroPrimeroValor("CveAlmacen", $"CveSubProyecto={CveSubProyectoOrigen}").ToEntero()
+            Dim CveAlmacenVirtual As Integer = -1
+            If TipoAlmacenOrigen = 27 Then
+                CveAlmacenVirtual = GlobalDTAlmacen(UsuarioActual.CveEmpresa, 25).FiltroPrimeroValor("CveAlmacen", $"CveSubProyecto={CveSubProyectoOrigen}").ToEntero()
+            Else
+                CveAlmacenVirtual = GlobalDTAlmacen(UsuarioActual.CveEmpresa, 24).FiltroPrimeroValor("CveAlmacen", $"CveSubProyecto={CveSubProyectoOrigen}").ToEntero()
+            End If
+
 
             CveMovimientoVirtualSalida = ObjInventario.AddMovimiento(CveAlmacenVirtual, 37, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, Modulo:="TA/V", CveMovimientoRelacionado:=CveMovimientoSalida)
             FolioVirtualSalida = ObjInventario.Folio
@@ -916,9 +922,15 @@ Partial Class Inventarios_TraspasoAlmacen
                 If UsuarioActual.Empresa.Funcionalidad(573) = "1" Then
                     'Dim CveSubProyecto As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen= {DdlAlmacenDestino.SelectedValue}").ToEntero()
 
-                    Dim CveAlmacenVirtual As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveAlmacen", $" CveTipoAlmacen =24 AND CveSubProyecto={CveSubProyectoDestino }").ToEntero()
+                    'SI EL ALMACEN DESTINO ES DE APOPYO LOGISTICO EL ALMACEN VIRTUAL DEBE SER DE APOYO LOGISTICO
+                    Dim CveAlmacenVirtual As Integer = -1
+                    If TipoAlmacenDestino = 27 Then
+                        CveAlmacenVirtual = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveAlmacen", $" CveTipoAlmacen =25 AND CveSubProyecto={CveSubProyectoDestino }").ToEntero()
+                    Else
+                        CveAlmacenVirtual = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveAlmacen", $" CveTipoAlmacen =24 AND CveSubProyecto={CveSubProyectoDestino }").ToEntero()
+                    End If
 
-                    CveMovimientoVirtualEntrada = ObjInventario.AddMovimiento(CveAlmacenVirtual, 36, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, CveMovimientoRelacionado:=CveMovimientoSalida, Modulo:="TA/S3")
+                    CveMovimientoVirtualEntrada = ObjInventario.AddMovimiento(CveAlmacenVirtual, 36, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, CveMovimientoRelacionado:=CveMovimientoEntrada, Modulo:="TA/S3")
                     FolioVirtualEntrada = ObjInventario.Folio
                     Dim dtvirtual As DataTable = Nothing
 
@@ -1021,12 +1033,12 @@ Partial Class Inventarios_TraspasoAlmacen
 
             MensajeAlert.AppendFormat("<br/> Folio de Salida: <b><a href=""/Inventarios/EntradasSalidas.aspx?CveMovimiento={1}"" target=""_blank"">{0}</a></b>", FolioSalida, CveMovimientoSalida)
             MensajeAlert.AppendFormat("<br/><a target='_blank' href='/Compras/PopUpVerFactura.aspx?P={0}'>Imprimir Reporte</a>", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimientoSalida)))
-            If CveMovimientoVirtualSalida > 0 Then MensajeAlert.AppendFormat("<br/>Folio: <a href=""/Inventarios/EntradasSalidas.aspx?CveMovimiento={1}"" target=""_blank"">{2}</a>&nbsp;<a target='_blank' href='/Compras/PopUpVerFactura.aspx?P={0}'>Imprimir Salida Virtual</a>", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimientoVirtualSalida)), CveMovimientoVirtualSalida, FolioVirtualSalida)
+            If CveMovimientoVirtualSalida > 0 Then MensajeAlert.AppendFormat("<br/>Folio Virtual: <b><a href=""/Inventarios/EntradasSalidas.aspx?CveMovimiento={1}"" target=""_blank"">{2}</a></b>&nbsp;<br/><a target='_blank' href='/Compras/PopUpVerFactura.aspx?P={0}'>Imprimir Salida Virtual</a>", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimientoVirtualSalida)), CveMovimientoVirtualSalida, FolioVirtualSalida)
 
             If Not ChkTransitorio.Checked Then
                 MensajeAlert.AppendFormat("<br/><br/> Folio de Entrada: <b><a href=""/Inventarios/EntradasSalidas.aspx?CveMovimiento={1}"" target=""_blank"">{0}</a></b>", FolioEntrada, CveMovimientoEntrada)
                 MensajeAlert.AppendFormat("<br/><a target='_blank' href='/Compras/PopUpVerFactura.aspx?P={0}'>Imprimir Reporte</a>", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimientoEntrada)))
-                If CveMovimientoVirtualEntrada > 0 Then MensajeAlert.AppendFormat("<br/>Folio: <a href=""/Inventarios/EntradasSalidas.aspx?CveMovimiento={1}"" target=""_blank"">{2}</a>&nbsp;<a target='_blank' href='/Compras/PopUpVerFactura.aspx?P={0}'>Imprimir Entrada Virtual</a>", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimientoVirtualEntrada)), CveMovimientoVirtualEntrada, FolioVirtualEntrada)
+                If CveMovimientoVirtualEntrada > 0 Then MensajeAlert.AppendFormat("<br/>Folio Virtual: <b><a href=""/Inventarios/EntradasSalidas.aspx?CveMovimiento={1}"" target=""_blank"">{2}</a></b>&nbsp;<br/><a target='_blank' href='/Compras/PopUpVerFactura.aspx?P={0}'>Imprimir Entrada Virtual</a>", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimientoVirtualEntrada)), CveMovimientoVirtualEntrada, FolioVirtualEntrada)
 
             End If
 
@@ -1666,7 +1678,15 @@ Partial Class Inventarios_TraspasoAlmacen
                 If UsuarioActual.Empresa.Funcionalidad(573) = "1" Then
                     Dim CveSubProyecto As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen= {GvDatosRecepcion.Rows(0).DataKey("CveAlmacenSalida").ToEntero}").ToEntero()
 
-                    Dim CveAlmacenVirtual As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveAlmacen", $" CveTipoAlmacen =24 AND CveSubProyecto={CveSubProyecto}").ToEntero()
+                    Dim CveTipoAlmacenOrigen As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=GvDatosRecepcion.Rows(0).DataKey("CveAlmacenSalida").ToEntero).FiltroPrimeroValor("CveTipoAlmacen").ToEntero()
+
+                    'SI EL ALMACEN ORIGEN ES DE APOPYO LOGISTICO EL ALMACEN VIRTUAL DEBE SER DE APOYO LOGISTICO
+                    Dim CveAlmacenVirtual As Integer = -1
+                    If CveTipoAlmacenOrigen = 27 Then
+                        CveAlmacenVirtual = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveAlmacen", $" CveTipoAlmacen =25 AND CveSubProyecto={CveSubProyecto}").ToEntero()
+                    Else
+                        CveAlmacenVirtual = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveAlmacen", $" CveTipoAlmacen =24 AND CveSubProyecto={CveSubProyecto}").ToEntero()
+                    End If
 
                     If CveAlmacenVirtual > 0 Then
 
@@ -1733,7 +1753,7 @@ Partial Class Inventarios_TraspasoAlmacen
             Dim Mensaje As StringBuilder = New StringBuilder
             Mensaje.AppendFormat("Se realizo correctamente la cancelación. <br/> Folio de Entrada: <b><a href=""/Inventarios/EntradasSalidas.aspx?CveMovimiento={1}"" target=""_blank"">{0}</a></b>", Folio, CveMovimientoEntrada)
             Mensaje.AppendFormat("<br/><a target='_blank' href='/Compras/PopUpVerFactura.aspx?P={0}'>Imprimir Reporte</a>", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimientoEntrada))) 'onclick='ImprimirTraslado()'
-            If CveMovimientoVirtualEntrada > 0 Then Mensaje.AppendFormat("<br/>Folio: <a href=""/Inventarios/EntradasSalidas.aspx?CveMovimiento={1}"" target=""_blank"">{2}</a>&nbsp;<a target='_blank' href='/Compras/PopUpVerFactura.aspx?P={0}'>Imprimir Entrada Virtual</a>", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimientoVirtualEntrada)), CveMovimientoVirtualEntrada, FolioVirtualEntrada)
+            If CveMovimientoVirtualEntrada > 0 Then Mensaje.AppendFormat("<br/>Folio Virtual: <b><a href=""/Inventarios/EntradasSalidas.aspx?CveMovimiento={1}"" target=""_blank"">{2}</a></b>&nbsp;<br/><a target='_blank' href='/Compras/PopUpVerFactura.aspx?P={0}'>Imprimir Entrada Virtual</a>", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimientoVirtualEntrada)), CveMovimientoVirtualEntrada, FolioVirtualEntrada)
 
             Alert(Mensaje.ToString, TipoMensaje.MsgInformacion)
 
@@ -1870,7 +1890,12 @@ Partial Class Inventarios_TraspasoAlmacen
             If UsuarioActual.Empresa.Funcionalidad(573) = "1" Then
                 Dim CveSubProyecto As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen= {DdlAlmacenRecepcion.SelectedValue}").ToEntero()
 
-                Dim CveAlmacenVirtual As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveAlmacen", $" CveTipoAlmacen =24 AND CveSubProyecto={CveSubProyecto}").ToEntero()
+                Dim CveAlmacenVirtual As Integer = -1
+                If TipoAlmacenDestino = 27 Then
+                    CveAlmacenVirtual = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveAlmacen", $" CveTipoAlmacen =25 AND CveSubProyecto={CveSubProyecto}").ToEntero()
+                Else
+                    CveAlmacenVirtual = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveAlmacen", $" CveTipoAlmacen =24 AND CveSubProyecto={CveSubProyecto}").ToEntero()
+                End If
 
                 If CveAlmacenVirtual > 0 Then
 
@@ -1974,7 +1999,7 @@ Partial Class Inventarios_TraspasoAlmacen
                 Dim Mensaje As StringBuilder = New StringBuilder
                 Mensaje.AppendFormat("Se realizo correctamente la recepción. <br/> Folio de Entrada: <b><a href=""/Inventarios/EntradasSalidas.aspx?CveMovimiento={1}"" target=""_blank"">{0}</a></b>", Folio, CveMovimientoSalida)
                 Mensaje.AppendFormat("<br/><a target='_blank' href='/Compras/PopUpVerFactura.aspx?P={0}'>Imprimir Reporte</a>", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimientoSalida))) 'onclick='ImprimirTraslado()'
-                If CveMovimientoVirtualEntrada > 0 Then Mensaje.AppendFormat("<br/><br/>Virtual<a href=""/Inventarios/EntradasSalidas.aspx?CveMovimiento={1}"" target=""_blank"">{2}</a><a target='_blank' href='/Compras/PopUpVerFactura.aspx?P={0}'>Imprimir Reporte</a>", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimientoVirtualEntrada)), CveMovimientoVirtualEntrada, FolioVirtualEntrada) 'onclick='ImprimirTraslado()'
+                If CveMovimientoVirtualEntrada > 0 Then Mensaje.AppendFormat("<br/><br/><br/>Folio Virtual <b> <a href=""/Inventarios/EntradasSalidas.aspx?CveMovimiento={1}"" target=""_blank"">{2}</a> </b> <br/><a target='_blank' href='/Compras/PopUpVerFactura.aspx?P={0}'>Imprimir Reporte</a>", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimientoVirtualEntrada)), CveMovimientoVirtualEntrada, FolioVirtualEntrada) 'onclick='ImprimirTraslado()'
 
 
                 Alert(Mensaje.ToString, TipoMensaje.MsgInformacion)
diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb
index 9741e5338..a5662f6da 100644
--- a/Ventas/Clientes.aspx.vb
+++ b/Ventas/Clientes.aspx.vb
@@ -772,8 +772,8 @@ Partial Class Clientes
                         UpAccionesCRM.Update()
                     End If
 
-                    If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(309) Then
-                        DeshabilitarDatosClienteCajas()
+                    If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(309) Then
+                        DeshabilitarDatosClienteCajas()
                     End If
 
                 End If
@@ -845,8 +845,8 @@ Partial Class Clientes
             If Request("CveEmpresaCRM") IsNot Nothing AndAlso IsNumeric(Request("CveEmpresaCRM")) AndAlso Request("CveEmpresaCRM").ToEntero > 0 Then
                 ViewState("CveEmpresaCRM") = Request("CveEmpresaCRM")
                 CargaDatosCRM()
-            End If
-
+            End If
+
             If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then ' Funcionalidad Es Distribuidor
                 DivEsDistribuidor.Visible = True
                 DivCargoUsado.Visible = True
@@ -912,33 +912,33 @@ Partial Class Clientes
     End Function
     Private Function PermiteEliminar() As Boolean
         Return UsuarioActual.TienePermisoProceso(194)
-    End Function
-
-    Private Sub DeshabilitarDatosClienteCajas()
-        DdlSubProyecto.Enabled = False
-        DdlPrecioLista.Enabled = False
-        DdlClasificacion.Enabled = False
-        DdlVendedor.Enabled = False
-        DdlCorporativo.Enabled = False
-        ChkRequiereOC.Enabled = False
-        ChkEsDistribuidor.Enabled = False
-        DdlTipoCliente.Enabled = False
-        TxtCorreoEntregaCompras.Enabled = False
-        TxtCorreoEntregaAlmacen.Enabled = False
-        ChkCargoUsado.Enabled = False
-        ChkBonificacionUsado.Enabled = False
-    End Sub
-
-
+    End Function
+
+    Private Sub DeshabilitarDatosClienteCajas()
+        DdlSubProyecto.Enabled = False
+        DdlPrecioLista.Enabled = False
+        DdlClasificacion.Enabled = False
+        DdlVendedor.Enabled = False
+        DdlCorporativo.Enabled = False
+        ChkRequiereOC.Enabled = False
+        ChkEsDistribuidor.Enabled = False
+        DdlTipoCliente.Enabled = False
+        TxtCorreoEntregaCompras.Enabled = False
+        TxtCorreoEntregaAlmacen.Enabled = False
+        ChkCargoUsado.Enabled = False
+        ChkBonificacionUsado.Enabled = False
+    End Sub
+
+
 #End Region
-
-
+
+
 #Region "C A R G A S"
-
-
-
-
-
+
+
+
+
+
     Private Sub CreaDtPago()
         DtPagos = New DataTable
         DtPagos.Columns.Add("CveTipoMovimiento", GetType(String))
@@ -1223,14 +1223,14 @@ Partial Class Clientes
 
 
     End Sub
-    Private Sub CargaSubProyectoss()
-
-        'DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1).FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+    Private Sub CargaSubProyectoss()
+
+        'DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1).FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
         DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
 
-        DdlSubProyecto.DataBind()
-
-
+        DdlSubProyecto.DataBind()
+
+
     End Sub
     Private Sub CargaMetodosPago()
         DdlMetodoPago.DataSource = GlobalDTMetodosPago.FiltraParametros("Estatus = 'Activo'", "ClaveSAT") '.FiltraParametros("CveMetodoPago > 0 ")
@@ -1926,14 +1926,14 @@ Partial Class Clientes
             GvDireccionesEnvio.DataSource = ObjClientes.DtResultados
         End If
         ObjClientes.Dispose()
-        GvDireccionesEnvio.DataBind()
-
-        If TxtRFC.Text = "XAXX010101000" Then
-            If GvDireccionesEnvio.HeaderRow IsNot Nothing AndAlso GvDireccionesEnvio.HeaderRow.FCLiteral("LtlNombreSucursal") IsNot Nothing Then GvDireccionesEnvio.HeaderRow.FCLiteral("LtlNombreSucursal").Text = "Cliente"
-            LtlNombreSucursal.Text = "Cliente"
-            LtlNombreSucursalTitulo.Text = "Cliente"
-            LtlTituloSurcusalCliente.Text = "Datos del cliente"
-            LtlGvSucursalesCliente.Text = "Clientes"
+        GvDireccionesEnvio.DataBind()
+
+        If TxtRFC.Text = "XAXX010101000" Then
+            If GvDireccionesEnvio.HeaderRow IsNot Nothing AndAlso GvDireccionesEnvio.HeaderRow.FCLiteral("LtlNombreSucursal") IsNot Nothing Then GvDireccionesEnvio.HeaderRow.FCLiteral("LtlNombreSucursal").Text = "Cliente"
+            LtlNombreSucursal.Text = "Cliente"
+            LtlNombreSucursalTitulo.Text = "Cliente"
+            LtlTituloSurcusalCliente.Text = "Datos del cliente"
+            LtlGvSucursalesCliente.Text = "Clientes"
         End If
         UpAgregarSucursal.Update()
         UpDatos.Update()
@@ -2758,7 +2758,7 @@ Partial Class Clientes
             'HLRemision.HRef = $"/Ventas/Ventas.aspx?CveRemision={e.Row.DBCampo("CveVenta")}"
 
             Dim Liga As String = String.Format("< a class=""Texto"" href=""/Ventas/Ventas.aspx?CveVenta={0}"">", e.Row.DBCampo("CveVenta"))
-            HLSendMail.HRef = String.Format("javascript:(function mail(){{$get('HdnTipoDocto').value='{0}';$get('HdnCveVenta').value='{1}';$get('HdnFolioVenta').value='{2}';$get('TxtParaMail').value='{3}';$get('HdnSerieFolio').value='{4}';$get('HdnSubProyecto').value='{5}';$('#ModalDivMail').modal();}})();", e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("CveVenta"), e.Row.DBCampo("folio"), e.Row.DBCampo("Correo"), e.Row.DBCampo("SerieFolio"), e.Row.DBCampo("SubProyecto"))
+            HLSendMail.HRef = String.Format("javascript:(function mail(){{$get('HdnTipoDocto').value='{0}';$get('HdnCveVenta').value='{1}';$get('HdnFolioVenta').value='{2}';$get('TxtParaMail').value='{3}';$get('HdnSerieFolio').value='{4}';$get('HdnSubProyecto').value='{5}';$('#ModalDivMail').modal();return false;}})();", e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("CveVenta"), e.Row.DBCampo("folio"), e.Row.DBCampo("Correo"), e.Row.DBCampo("SerieFolio"), e.Row.DBCampo("SubProyecto"))
             e.Row.FCLiteral("LtlFactura").Text = String.Format("<a class=""Texto"" href=""/Ventas/Ventas.aspx?CveVenta={0}"">{1}</a>", e.Row.DBCampo("CveVenta"), e.Row.DBCampo("Folio"))
 
             UpSendMail.Update()
@@ -9082,7 +9082,14 @@ Partial Class Clientes
                     e.Row.FCCheckBox("ChkBonificacion").Visible = False
                 Else
                     e.Row.FCCheckBox("ChkBonificacion").Checked = False
-                    e.Row.FCCheckBox("ChkBonificacion").Visible = True
+                    'VERIFICA SI ES USADO O AJUSTE/GARANTIA
+                    'SI ES USADO
+                    If e.Row.DBCampo("EsUsadoAjuste") = "0" Then
+                        e.Row.FCCheckBox("ChkBonificacion").Visible = True
+                        'SI ES AJUSTE/GARANTIA
+                    ElseIf e.Row.DBCampo("EsUsadoAjuste") = "1" Then
+                        e.Row.FCCheckBox("ChkBonificacion").Visible = False
+                    End If
                 End If
 
             Else
@@ -10196,18 +10203,18 @@ Partial Class Clientes
             GvPagosNoBancarios.DataBind()
         End If
         ObjBancos.Dispose()
-    End Sub
-    Protected Sub TxtCodigo_TextChanged(sender As Object, e As EventArgs)
-
-        If CveCliente <= 0 AndAlso UsuarioActual.CveEmpresa = 140 Then
-            DdlTipoCliente.SelectedValueExist("1")
-            ChkEsDistribuidor.Checked = True
-            ChkCargoUsado.Checked = True
-            ChkBonificacionUsado.Checked = True
-        End If
-
-        UpDatos.Update()
-
-    End Sub
+    End Sub
+    Protected Sub TxtCodigo_TextChanged(sender As Object, e As EventArgs)
+
+        If CveCliente <= 0 AndAlso UsuarioActual.CveEmpresa = 140 Then
+            DdlTipoCliente.SelectedValueExist("1")
+            ChkEsDistribuidor.Checked = True
+            ChkCargoUsado.Checked = True
+            ChkBonificacionUsado.Checked = True
+        End If
+
+        UpDatos.Update()
+
+    End Sub
 End Class
 

From 1e030e7eeccda0cbf5636d7987a6efc489cd219d Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Sat, 17 Oct 2020 14:29:08 -0700
Subject: [PATCH 3/9] Cambio en GLOBAL Almacen

---
 App_Code/Modelos.vb              | 44 ++++++++++++++++++++++++++------
 Inventarios/CatAlmacenes.aspx.vb | 10 ++++----
 2 files changed, 41 insertions(+), 13 deletions(-)

diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb
index 1a6d06c81..5a6c518e0 100644
--- a/App_Code/Modelos.vb
+++ b/App_Code/Modelos.vb
@@ -7503,20 +7503,48 @@ Namespace Modelos
                 HttpContext.Current.Application("GlobalDTSeccionAlmacen") = value
             End Set
         End Property
-        Property GlobalDTAlmacen(CveEmpresa As Integer) As DataTable
+        Property GlobalDTAlmacen(CveEmpresa As Integer, Optional CveTipoAlmacen As Integer = -1, Optional CveEstatus As Integer = 1, Optional CveAlmacen As Integer = -1) As DataTable
             Get
-                If CveEmpresa <> -1 Then
-                    Dim Dv As New DataView(DirectCast(HttpContext.Current.Application("GlobalDTAlmacen"), DataTable), String.Format("CveEmpresa = {0}", CveEmpresa), "", DataViewRowState.CurrentRows)
-                    GlobalDTAlmacen = Dv.ToTable
-                    Dv.Dispose()
-                Else
-                    GlobalDTAlmacen = DirectCast(HttpContext.Current.Application("GlobalDTAlmacen"), DataTable)
+                Dim AppNombre As String = String.Format("GlobalDTAlmacen-{0}", CveEmpresa)
+                'sino existe, recarga los datos
+                If HttpContext.Current.Application(AppNombre) Is Nothing Then
+                    Dim ObjUsr As New ClsInventarios
+                    If ObjUsr.GetAlmacenes(-1, -1, CveEmpresa, -1) Then HttpContext.Current.Application(AppNombre) = ObjUsr.DtResultados
+                    ObjUsr.Dispose()
                 End If
 
+                Dim Str As New StringBuilder
+                Str.Append("1=1 AND ")
+                If CveEmpresa <> -1 Then Str.AppendFormat(" CveEmpresa = {0} ", CveEmpresa)
+                If CveTipoAlmacen > 0 Then Str.AppendFormat("AND CveTipoAlmacen = {0}", CveTipoAlmacen)
+                If CveEstatus > 0 Then Str.AppendFormat("AND CveEstatus = {0}", CveEstatus)
+                If CveAlmacen > 0 Then Str.AppendFormat("AND CveAlmacen = {0}", CveAlmacen)
+
+                Dim Dv As New DataView(DirectCast(HttpContext.Current.Application(AppNombre), DataTable), Str.ToString, "", DataViewRowState.CurrentRows)
+                GlobalDTAlmacen = Dv.ToTable
+                Dv.Dispose()
             End Get
             Set(value As DataTable)
-                HttpContext.Current.Application("GlobalDTAlmacen") = value
+                Dim AppNombre As String = String.Format("GlobalDTAlmacen-{0}", CveEmpresa)
+                HttpContext.Current.Application(AppNombre) = value
             End Set
+            'Get
+
+            '    Dim Str As New StringBuilder
+            '    Str.Append("1=1 AND ")
+            '    If CveEmpresa <> -1 Then Str.AppendFormat(" CveEmpresa = {0} ", CveEmpresa)
+            '    If CveTipoAlmacen > 0 Then Str.AppendFormat("AND CveTipoAlmacen = {0}", CveTipoAlmacen)
+            '    If CveEstatus > 0 Then Str.AppendFormat("AND CveEstatus = {0}", CveEstatus)
+            '    If CveAlmacen > 0 Then Str.AppendFormat("AND CveAlmacen = {0}", CveAlmacen)
+
+            '    Dim Dv As New DataView(DirectCast(Application("GlobalDTAlmacen"), DataTable), Str.ToString, "", DataViewRowState.CurrentRows)
+            '    GlobalDTAlmacen = Dv.ToTable
+            '    Dv.Dispose()
+
+            'End Get
+            'Set(value As DataTable)
+            '    Application("GlobalDTAlmacen") = value
+            'End Set
         End Property
         Property GlobalDTAlmacenUsuarios(CveUsuario As Integer, CveEmpresa As Integer, Optional CveTipoAlmacen As Integer = 1) As DataTable
             Get
diff --git a/Inventarios/CatAlmacenes.aspx.vb b/Inventarios/CatAlmacenes.aspx.vb
index a0b990035..f1327a229 100644
--- a/Inventarios/CatAlmacenes.aspx.vb
+++ b/Inventarios/CatAlmacenes.aspx.vb
@@ -215,11 +215,11 @@ Partial Class Inventarios_CatAlmacenes
 
     Private Sub RecargaGlobalAlmacenes()
         GlobalDTAlmacen(UsuarioActual.CveEmpresa) = Nothing
-        'Dim ObjAlmacen As New ClsInventarios
-        'If ObjAlmacen.GetAlmacenes(-1, -1, -1, -1) Then
-        '    GlobalDTAlmacen(-1) = ObjAlmacen.DtResultados
-        'End If
-        'ObjAlmacen.Dispose()
+        Dim ObjAlmacen As New ClsInventarios
+        If ObjAlmacen.GetAlmacenes(-1, -1, -1, -1) Then
+            HttpContext.Current.Application("GlobalDTAlmacen") = ObjAlmacen.DtResultados
+        End If
+        ObjAlmacen.Dispose()
     End Sub
 
     Private Sub RecargaGlobalAlmacenesUsuarios()

From b2a43ffd1bd128927eb8b6caad3f07e616b63011 Mon Sep 17 00:00:00 2001
From: Rakcsle Supertramp <rakcsle@outlook.com>
Date: Sat, 17 Oct 2020 16:23:46 -0700
Subject: [PATCH 4/9] Tareas Programadas 119

---
 .../FormatosThalamus/FormatoAlmacenes.xlsx    | Bin 0 -> 8370 bytes
 .../FormatosThalamus/FormatoClientes.xlsx     | Bin 0 -> 8424 bytes
 .../FormatosThalamus/FormatoProductos.xlsx    | Bin 0 -> 8326 bytes
 .../FormatosThalamus/FormatoVentas.xlsx       | Bin 0 -> 8471 bytes
 TareasProgramadas/Tareas119.ashx              | 187 +++++++++---------
 5 files changed, 89 insertions(+), 98 deletions(-)
 create mode 100644 TareasProgramadas/FormatosThalamus/FormatoAlmacenes.xlsx
 create mode 100644 TareasProgramadas/FormatosThalamus/FormatoClientes.xlsx
 create mode 100644 TareasProgramadas/FormatosThalamus/FormatoProductos.xlsx
 create mode 100644 TareasProgramadas/FormatosThalamus/FormatoVentas.xlsx

diff --git a/TareasProgramadas/FormatosThalamus/FormatoAlmacenes.xlsx b/TareasProgramadas/FormatosThalamus/FormatoAlmacenes.xlsx
new file mode 100644
index 0000000000000000000000000000000000000000..a1ee0618629588e551276d9bbeb7ec7d48fe478b
GIT binary patch
literal 8370
zcmeHM1y>x|)@>X@aHny13+_Pzp##B#6WpB;EJ!1b1qklJ-QC?KNFc#o0>Rz+dNMOF
zGnx5*!F#t?*Im7;_E}w3``mrbzKS3?cw7J?02u%PPy!71Q_b~Y0Dwq%000Mo467|^
zXX|WY>#VQpW^dx8%jRlhO_2!?%a9I$g<k)^@n8G|ierWpx;QYUFJx~e*IDJ}E5(s{
z_P~AEOiH5d-O;^;M%rl>77uB`H<%I`c$Rz>*rW3vTt_43m9{pu;Go_n<;S7E{q1Uc
zKtA@KzFpcj0-`8KEzN^;T%b57k-q+W(_}z`LtU3Lx75m0xng2-JbY1~wba=@b*!b{
zhR20k`2ziO9m@*pi&*@F1)nk3#&ISsEf_uYPS#kT!-rCN%;UT0<tS2Ws4yBTH#lC$
zgIb*!>Yq%#HiBK`2#jn&U--0y*wo5LCeKY=SrBqssMQ;3#oXqp<LTbU5FUD}c-_d0
zXRgnxohI%}37(h+C|ZS9<Ck#Rj=t*_!^?Uxbl6F;a6`L-L(;tjG;U0bh%{Cpq_SaI
z&gn~&dMUui1oq17AE@VVf4OHw;%S>Zj<gOheffZUj<wx*(k_8H&`wG74zjo0zb)jk
zJGP<iw|^A3?ag(M2mm}hzyTEhmX<YY9Mq>!uDyU}9V#>}^&L&Do!HraJN_>n|BG|*
zFSlMCCI7OE<8k1D>@B4KVrn50Qv&q%scaLas+Z66d5oI(Sv0_fHhL0FRboFl8SfUa
z+rha7;rBcJl;^A5#i7`^Le#ZyO9JDs9o`@@(K*IFb0}Wv#&VfDn>tUFk#l2kX^CJe
zs?W~=4J=VV`+Ou-fjP?diWmhaha?bRB+*x^S6*|`@Uj$UN<w9?B(S`WFMTI^G}-%W
zT<$iSSdhSr-HAlJekVh-nNrVwYs#}LVl@?W0gH0OG)F-yH+^I4_7kb(Hk><8R)v&)
zWh!p$ORiCwKHBs%Z>?(XqoGu{Za$Q*qW;4Ha432HB2=ONnIy!_*mpV51R;W^5C-(g
zxLUKnwR5yGw6nANO}DaDmF#9YFugujKfJyYktdPx$<JUKvzDFnS6A1IWQry<<f(Wv
z$Ed3IaKnb;t9(9If;BDh@#Lzh>A=&iX6VUjf6S(`e}WD_At%<5f2e$r_Xu@S#0Oqg
z8t!Otz-6$7C(rHewj=XYm)sx{JU{}%&y$O6t=-2sRL~lUfU~R#idBKjot<t}45Je?
z8D3A^6AZW8ib0*HfZq`zbZpt=Ozy8APUJufG9=;=*UxJnW7Q&SLt@L@$zUng*hCO7
zcI_QeK?_kLL;CzaGNhCX*+Zt$Ja2ic>mxr${oeCsK_RBCiYTqp5d`r$wC$?PU?UvI
zDDZ+C`XXd~CPd`8Fc3+7@ZqKUJ<O087;CG`96npkiq>cSj$Z4ceWa&rh-Y+Kms(dU
zbQNi&NX~@NL^V0t9~kFfkCZ!Kxdw)OU<y?lcyicCx_VwNBHZtm+wL=~Zx+b-6b%S6
z5V!Q$A&*siFQPyjM0jW11}Y^yMVCeH^!?Baqq|MS!^otDzv@uF4o=L}VI>Id**hI_
zZcR}!rxsCh%raNNDU4TIFjgK_Ng8jS9C|g8z4h)8V>R0$76?2Zx3^tf+C<DRO2=Cs
zW`IBVJiy1$$@<PeN_-{yU7rHwR<;wnAztLoR>gtaS0ld4XLtE_ZX!z+i0{0O7al)b
z%>Ei7sI=ZD&M}B#_#70yU!?mKGX4F&=PY$!3&Q~%MK41<`su!+@M>i2TCdQj$YU?O
zszh`rlWW|zLz=3NvNj0ysYq(l+-$>g@bjk{aD9HPBeSo1`4~Cq7QAYZugekwF8#-|
z4RAY*)VffpZ}4)i5fLoU!lX*Bzq90V;@Ashxi@@zf-I6BuJqY|@{M&{m<9eQZegx_
z)&aU~-s1S;PL~*zum5DUuV_sC3G_@Ol-0xlWEd!;e_#3k%IiN>00vr=LG$9jdlW0n
zgSt5|TTt&I9B-3d@UUi_*{OEbzGEN{R5Q-eQ9kiHT>>&S>S}xevBTK~x*d%4xm@s|
zufpM+buj0LV8grPSRV)>*o~Zwz#$v%m5_mD5OA<}cfJ?xp`s@_;WUUw^|Pem@^4-;
z&=Ntia;c<F8zus|EkAL*;j(lZBOQdUf<x8oKG*&#yCvZ2x;ly^M$?Ul2FbZ|#E)P%
z^6?WQl;^@|Zh-M`la$Pt9n$B>$IZ8<@@}83I<l@GZ;%v$$O?HxJOiC6ApJ7r-i%RB
z8<~ksY6mOM5;ud4ZF9#gL#GF(>jQmLOVBs{Ps&t&(>RWV(j^1|03d{3@y8<QWNu>O
z?8N?K;{0tjOi>-Oo#Vi4Cio_X+1wXJ(ie;{^pu#|9Gx{p&}NjorZPxTD>hr7@%lhl
zIc~RI1fJ74WS!0IoOAWm<&{M(j1k@!qL+xAW{RL;wU)ulh&)Ir@KZ6)8#eAQkw+pL
zUP3pQ2944u)*wJ1az-r?d#cq0LuIAE+%ycYVswtU3W^M<D#Y4Ie0@bRC(D2&B1<km
zsSdfo4HXeTAc{k#p)}ovH3){4q{j|4HH}^pW#?Pu@21B`fL#<w5hur7hmoG5#`R8T
z%Dh`yWwFVahGve)J@B+`*SzzdNF^uxX=nft({ZxbGwq%xNlM~ecI&DQg^oxXk#~^q
z5ShnQUv@w(f=3vv+lpg7?|0>x=v;Cf_7IHGhU!l56%-+9b~9x5Sw{)-PJLMX!%-7W
zD!p)$yq}jB)AVe#fRkYZ0Br)sfhMJeLLHTn+w%-|vYH^ey2U&`X!QP)TA;VvsEc!y
zI$H%;k0ig}-LrepE_^Y3^lfv;efKI$)aSDs!La1m4PRGWXQ#-HKGWMAvn>{gL~)If
ztpefz0~tn{`{%dwUWheJq@?K!=_TAtqaAYCLIFY)W{;j`(uopl=6ow6{h-mq)?CNB
zfHl+D5^tBUGns~ZG#Y?YRnWmoJ#(c4ToGHPp)G$n!Opm7p*DNeqrAae<w|Um|LFMj
zjk6_4Z*KpkP1o02#a+y25uP(1Qn<#iwt07+6)%T!Fso_jW*`SNYz|k)h9YsloxXI`
zRl$q@Mxwq@m<>c`c<(Bn#Db|?mtN^Uk5K=ni+J2eGoPSv-hV#Eqf?T)Ai`kgEclB#
z?i>1faU#1he(IRD;_N#D8oxBYLC}bPmBI%)46Cx7d;HWpxPN2ub}ntbDOAQ)fWNh&
zKUnN+ZenA?{^R(Az`L3wwm?42R)TLrm>w@#W}*y<KEQ$ER(Tx^r{zLO3Un>wvEDXN
zFbXx|4OEExW?GDcd>7prW)Wq5^d|Bgk~8Ifn<XIYa#~ud*7S(i1f<ri7i+hp_JNJ=
zdrt?)D6yiBi}6(1U%^UMM#^x9YImf19Zb0UWOr)%6OGC;Ctwok%y~Yv6uC;$($FHG
zn>oVOfu#yOjZCBi%fmKI(xM+PqBY1?fMu}Cq+rQm7Gg?@)tTPM;(lfkCsOd;-CKza
zgg@gMc<m(DJhaTIqRj69g2a5Hd&Z!AJiidjkxJ-Ay5z7H%wh1Q(nn!M7()#v*YQV8
zn>fYRdb%CJ9=hDPUDmzti7zY4rZL~EqrJq!Fnv+fqIEKO9@YxOQ4{ptr76|+&9hN}
zJs~((J&tQc%dTZMZGy#j_p9`5s$7e*(-G~p6)G3s+@4E|X1`%Dapawrc6-??;+hgQ
zBs+0@ef{>Yv)ZW&T^+#49zOiT7Uq#>BRxRHPIF!@aVyBVJHi=}asNy>K`Z*<nH<c=
zEDB=N@f^*^Zn<$iS|JBc<8VHRT*c;rlQi^_Boer9?FBJ$tq@)PmM4HsxPt+-Bd7z4
zV>&fp45!CLoOu^JR~KbzV$#sBfY;^j<;u&x2r^Q!+wloU-u-13HapL&Ju`2wJI?F1
zZ9aB#@0GqGuKTa#qE{PRqj%!{=?zlst)9noRrKtw*QXZ;WFE`fuo#1fqVmB~b^Tbg
zTa4dKAFs(NAg+1}U8CfFLQetMU~HGlkt~;>n2PEo*Y`Ftr@LPIeC@j+)x^N&RG;j+
zdKM+vuKP(d8MO??)?AMk^`cL6*Nm;#WL~rvBDzSLB2c;)?v$VOIo;WM>3I<KCRtZv
zC+9$r#5E~7*6R2^Sx&g_TMLHzb;*EzrODn&t0+-YeqZjTYDtyDq3*mV^|KWt`?`~x
z!+B@C0?r>IF%#VU4{$aUjs(e=Q?6yt9R>#x+k(|ragJY8b#j$5<GBjbg=N`FWuNXf
zu!=85eYSg@|4Og!pz`?+RX`>+`ABlY372DXgdmE7Q`s;#XmA>19a#c5OQh8EP<P)n
z$O}<y*}9<VKzX(P=2XHS(i<*&0vNaJ&CH)wxRbXyZ!{ccP+fc5<LWMG(=omd3QonL
zbtT%@*Kn;n;-90&{2q!l+SGVcx{vs9)!4)mKdNQ3g@B*5?xt_uxbAEbEu0-jnvX)w
zm$MyBOM<V2fiDkdms>wG7DInn!?2IehCjXg6kHUMFNcnuA{n8}L#@w(I#D4d5YI7}
zX!67}3a5I6|9Qp;Z?u8#=;K;4*<u$r<M^+GRV!g(iMU2jycLK_EMUz{YF#$=64Xjm
zK_i=m>O7f=%3JxoDny?3`NS-ricxft!HWpR^FCO*L+Di~rZf{SbxtRftVw49jk0w7
zQ~?pyi=m>0#Psq;CdALk$hQR!aLHrqd3a{(mR<1aV`rw~%9Gs>Y?`@AZMXC$+&rjA
zHPsaq;xe+-$BN6oz~Qbo<2^Pg4k)ug*NbmF>S76O%1}fBp6Ah3p?q!NOTI5J?vxLx
zxdC@7koE_t&S}u`at{|#!E2ZX+EYJRk`B8oJ(`yFhGYElg_7`|m$5y()M~(9Rzl6i
z#iD0kiBMcg?n(p8AyP`lyuH_u-0$X1K3Ehh)?UZ}YA5&<aogCO46=Tbo`_{HfBdP`
zD2~3Kp-xabFVT91F2al}fu6Yp3&Z(j&^AV>jfrl9T{hN{@L^PSd<#W~pjdhqj&gqe
zQJ8aUEi9XAXU3xq6f_T5wuTpbKIXpPHC)l2B3uk?woyQ?+eQRHUD-S@-dTR^l~v@A
zP^Chi@vAh>Jis-aTHURr(R|u3rTSbaQM&?ZJ+i#D)EDhtEfRyTBHvUt103R8uKW2d
zDnG;uTgUr?)Cl>_lUk%kp>o!^1@B(HY;~sVoUHV1k((DUd6<#P1g1ybCTBxx(vK|f
zhGlHf<3(j3d`}`mB4^0yPkm>%ZWOh#Zoj;qV}@6HH^56KOCYOFhBU@MBMp3!6l0?i
zvVYz=$58))O>luozkh;n+j-PtSJP>;(#i4YY+>svOjl#N;!VTnvjpO(bK{Vmb92Fd
z!oCFknn5w)qmFm>r@T5x5s6XfmJcvGM;$Q+-ZVbzb)R^&`5vGp)IW=>mC*)?a_AXf
zs5GJdE=x|%Zq_DFKl)3xCA;L``^%1FAs)s4DCGROT-n%0OJyO8GW3M*LT?Hq!AgsV
zn@^FLnF`upTe`Q_ZWrEOq^7PHM#G9c`D|aJOrmp1$f@=%s>mj!O?Y#WB&%0hO*sP(
zbd<(($>j0CX0fYR4k0zdhw-;mZmz1;!=AtuqO)+yu*zKq<-E_vuQdfF&2nh*?nmO%
zoZb<Ah+!6{U@<u&#(X}aqU{k7$5Z3kg-~}xhDxo;Vpk^zY{U|;L8a14XG=)Le6yL5
zebL%a?PlPd#q0r7FZBwKeHzq=T1ipOPYH887YR<dT+!T1b)#06dhD^OAeurOt6uvw
zz%~|v(>LF$<M{cu9n;&7DNaFyQJX^Uxv;`8behWM8EBOhq|T)m3`{ea4)O>~g!`RA
zL-rcP;;Ry2R}x5Q;Vdu)EKisqXoAxbH^e@8!()KYeRs6(R^LRC*9KrF=!c`;^U@CQ
z7EEL@gW!u;FnK(ioQkG+Zf&b;(yiiRQfzB7J7c+g!VqIrI4H^Hb-YVHl{Y;qP~V(b
zjAIN0t|r-YXGHo5ETaJ-V$#5J`tnlE2lUWJ%Wg3tQdYe#OW|;H-O#&t%zVS^cL*Xu
zi_wTl(RwLw42w}3j%1HogjimWp*N4^Zge`HC9?rcXHu_sgfvT<3f}egv5YN7sa4~h
zJKQF$M&AX;Hpi|Io+XM|%}Hio8ZQZ4`6Ui@2zq>NAMOm%>QcE~Gd(k?XdRHW+b`SH
za~?3X!z%ltN1|Ky<-6w!<o;}Qz~hL#O!}eOcj9TaHGDJUrs8f!Hzb<9CwfG@jodR`
zWTO???7olxu;q3FquKn~)}p5ik%t?J|98#m#^4jzP7$xQqSa^$!bN%+Q9UiT#O0m*
zDW!}80x9qwc?g9JZU1%~^$oN$_$Rg7b|&bWp_GP!wvf1gP}|(V(ZpEA+0nw*><7bj
zB04Ogj<3`~z^&i32TNTHHaMHa+7UxuOuT<iV^T|C_D%4EC{vE2qvw<1_9qbSq)9&f
z@I)42K30b8NQf)}D*4u$3sOkW=jFT?<_6M%esjV^rb=%>)&{tV7g|n)oNl(qVXDca
zI#KZ<8<}ow-;l_#XyvbSY?hplKZpl3M{2kt)F?KyP2W{KAxXvhx&iYZ-|Q6Q!8ETY
zT1u1rgiIiYAEf41yhsaSpYphRn_C2K`q%nWfjO=D3G`0UpvjB{ZLE#$j1(R1?48(+
z>>N%0*yQ+MKMkdU^#^@W7YA<75<;8gfJbt!k%Gir1`w_zqda(3TXw(p^$CP#c5g1(
zrAmQreZ%q7ox}cffrTQvE7+}^aXc!`aO|;p<bpapcTM&Q?U>8<>euhb6*J&mxl78*
z<ZK!F(9=>Ymcj5JrJ~Mb<{s@yl;awWzD-XU&6JdJFiJ6`47UwsT_d+ft?xep7E^F^
zz;=;x)WBh-MuIV9Z?==jDEI>ralb8d4j|v3A=(c<G>tKvDbRLx^d>7fjLv|`dpcS!
z964%jl54U=pAEk}oI7@y`j{lQ@TLc5DrY%H=ygYZWA~OMOR0e<i%}mCW%XWhY2?)e
zq_i*(q8ZGNhV{iPZ>Kt@oBx#XUdEktWb->hVQ6!|3igt*JY6-R3YXUb>@7m~3j%Tt
z?|)_5ivSbZSSZtg(6g9-WtxG#{r`vtW!N7hC8`7JM?mdsxO4Qt{r4%h41wb6O4&fi
z>2knxk1b<CC1wz~n{Z&!bhMHHXp>b?wO<V!_;`I5oY^Q+Tl$T|1n5b-S*48oO+LS5
zNp02OW@9Isfy=k710f=o-vGbv`c9}ufzpsFwBa@CN9GFp5LCvh86#A;-b%9^lmdiR
z?mc63Vyi>Z1j*2}^*5S}vclNc#NUftd2zGWGP53dO8mC3j@Qm{i8P9u2vd2)Z{_Yr
zl5ic(^DjNQzs014glzMgqYq3xkC#(Wso`9<ALwm_iB}r<3f7`LmDKi=*DMOhCnbJV
z(0@)Jv8RPAMqw185{w>&@G@+w?)?B}Qv&0*nk!gmQX^rhEk&R{o#x{GET%%l3!@vQ
zQ3xVB8_>h=10(=6Q9=v3@~8@wdH{TU*?|;@<<Z^X#7cOYutb3#u{CsGsUOG-7OSui
zZ`FE8Az$U4hg%tX%^qr51@Y&3=y5yT0&5+;i2g1g=W!@htna?~=#E%8ys31Huj*KG
zKuoxR@v3p^`ZxFdcZq<3WrfPYzwZwJ`Re|h|7EXO5%l)}f8WRY6ZqR456zFi>}vfA
z{MFn432lbfV!t^3zk>g6qyB^f0O2S<!2ge_`fHqDy|tf_I#B=fC;s8I{Tk(0Z{uea
z2>QP|9lr+nwF><ifDG?PfS)z#uh3sr{wMT`;CJY+n*VErzbofYJOHo-wHyDTqrbxc
kz8wA)t^~Du{saGGaa05$K;JF^@Cf?xfl4(A*>Au84}BeLGXMYp

literal 0
HcmV?d00001

diff --git a/TareasProgramadas/FormatosThalamus/FormatoClientes.xlsx b/TareasProgramadas/FormatosThalamus/FormatoClientes.xlsx
new file mode 100644
index 0000000000000000000000000000000000000000..32cae5fc832cfcd91eecce397e40dc7c7154ba6c
GIT binary patch
literal 8424
zcmeHMg<F(q_a3@?K)So7OS)sErMnx34k-aa6r>vzkWQr~1`rrhI;BGd29Oj4ezShN
zpS$k<{(^7cx#oSYx#qpkHFKW(KIc5=XsRJ00|BT2bN~QA2e5+WI+!5<0Ex%|01*Hk
z(OAyi&D++^+gvxm!xn7H?eFSB`x+UMwE%z!fBxU=f7k<+DMO$hUVMcM<?nKvT&hd;
z(&&N*5&eYhT9RG8$$jP4#(9p8cX_eb__D8vorLQM$CiTljz=8o-CP?Zp7ynAV?PTY
z=+ZNz5a#*Nzt7Zpk1WZ{$ndZLNFjZn%-sCBT{a-Yv#Cd0Kz>a|wUXR{m_#ycBX^-+
zpJ1i01-sm+RCHhwvI^2)CJ-4co5bH3Cz^6{WD7Do+2B$^enua(MB-~!tVw5}!)B%3
z;&qj-)&XX1=AX8(MqK8NPHe~hG`fP?)*(!-AwXVV7I#{1)R*YY(HU$K9N5YF;@PR@
zRjUxOgE^ORo^&`}#Kasx)A`vuk}5v8v5;OV;zISIqi)(y*Gy|fl)WnyHm!LHi8dfo
zdRNZX;{H7OhoZvl5sym-pv@v(4-c#<gWcYYqirH9T;2iC33gjgx@7U8U382gF$b#y
zyW&CnAGeGnVaI8^p?tTf0KnZH5<v4WvTV@fWjKX%O&zW}EVwMqy=+~;JlwzC|CQta
zum=D1*DI4W9`^8JM;|JGj~Td_{*;I>tL7)8+(xJSI80>;ui<$iBgLmq7D{|w@<=45
z(DujQ2Nyp{JpVF4cfKxA`HT=K&d}&r6`g+N>4V13?3JeIS-I9r;5&UbeV(bL8o=t?
zp1@wwT>454y27A1c`RRtKgRut9D}HsGMeN;X1GzGhT*c+Wi`UItj<AIbZwJx!I$K*
z?9kb?H@i4ePes-DCo+i#z*hG2)xiTUbZ6hl^>iFW9c!)fyu|1O%xzq{PUN#YiEe_q
zKsf{2^a6yJd}B)eOa*75M(+fUhjIgYg)w?629BT+&uB`Q;Th`hB2hu^FD--%gcL3z
zJh*54U3mQ5y_~Jw-JO5STSdAn?hCy5kMrN%LB0lMi9AVB#F-vUz;Vp}I5>!<ZA&Ou
zDduY@9##J3u0u_>AmxF#E3)tCPVg-ZCT?!#3J#~v5Hf+1CiCMlFcYPEwY)e!oS)mZ
zwBbx;BUY^^mEw!6xyqL^bxY|mXZJ|}NN17S&yc*_%VM+^6|^t6Ae7)J20KBfoM(Yq
z<5M>A^Crz5J5g?+mR=m$qLqkO`W$(+uT%$fR2IV=m`hQvm^Y#v$G>iJd5BJ5*sd|M
z^8l=%C`}21tcn4I8Z+9Ctw8+qH1Bc!9-b#s#}-G6$z48Px}!u@@kaCfVZIa-EXPD+
zOq;AIi<6Y^ao9WrgI4u$E-Jk*LHcXd91>v!hdmC+MS9Lm5u5EqRc$-l8@F3=SiXzO
z_r_mes+^Q-BQnT5rz&2m7wFruD8~`!L?+#>Z{}_R)U43miuzs$i9Qr0)x75E=Hn`}
zMPlMoc2&A5tS_%a%S0q7G~a&+6^vX)z>pE)onU;e#$PNXS4?uBS{{o#lWTCxN-}>%
zy#r+Tj4VosPp4`oYg?e$?tXQ)dZwWw%81%qe>#o81++UlP?m0sCmjvW&i0LuTUhH0
zBLq;D;*liT;~4s-k7%qIK*>)&`^a7(F+aX>f|ek1WX7YL@qy!-$X7((H!mhn6gwvO
zu=_0CdB2#TLHLmidswyJy_>IIAoh-rgh`o5eQrF%=V1>BEI8ggpf1TW$EiAO!EA1w
zbrW68h~#D`a@{d`<3wZ~bBRB-QP)zI3(i}>e&Vx+Qd?|z-FGR5)K|1vK_YWU{FapF
zKDkhQ-;v0)NAEz0Oj(CaxX}X!!-~hWB2R%ZJKdTYN7P)UX|}+mq}KR@7z|>lZlP1T
zaP%$8?v(g~TKnC-f8ukvWJ>x8oX4$jPLl)B5#W6OPu%}AtN+LW2=I~&u8RNdt5RD-
zt(O<S9qTrR*Du?bm|)(Uhkjpg4-Xysj%|^dj{ouL3I%(sslkjI50ZOyz~M;0?}Z@l
zIug+tgrhW$5IK;@<xm{OedJ^W3Ek?TiaJ6Gg@|zf%U;C+7H$@ps6{eqfHMy$vVF<Q
zL>5!{hF<=(Wg=R@X_VK8&k6jIY7ia+hu&?5T|Lp+uZnor)I^)bX18_MBDZ*snjaBB
zGk!vbp(24302u!~MaOXoQ8-8c`u@9}M!={ur0@!Ri?TwEx?J!<aI`mV%zzS2C|eSE
z>vd+E-r<_J?DZg9=i*n+q0>XVO=$o03Vf&k9s*AYBST8ybTNU4KvMV<zlT7ugRQMM
znCHiG|F>9}lWOX|NDGWUWI2$cg*j&nXiyA+rUmz|>hvckTxXGK`b+2hrIQ*bZ?ADd
zIdfIadd~^b{8t}P`a__*)@1{j@u{t<Y*_TF1%zVB)AYqsFdkeGYu$@SWRF@SQY6ER
zOOg|4k{X2Y8UY^2#O&D<-7R9cavYefEjZpd#7QREN#d1R3J%Ul63(cp?3D83teh>C
zpB3qZ+{Zr#aHFU<7^G>oJb#MtfogPxq`tArh;5nvk=IFWCEgQm=adXJrcXKysw!;j
z6$-^T`5eR7FL7FE6Hq&mzEd??W}QEJsmd1LDCUR29+NHF2@0irA;;~jT5}Sbj7<@Z
zsz2erYUXs*!B$t8J7dA)dkLx=2MzP2$ENeC?dCgNi*|)>(~RGa*LQj+*%128*(+dg
zvOTaqrYc-xbo_pz)4kw3*n9j98;FiZ8maZQ(nplY1d=OU(A|h$b)X?Wdj-Mk?0!Me
zS2w~-6NAO_$O9L%ZH3qU`-+Bxd0*EWw^!5B==$sXSHg1JOWiH{oi^K;G-*lLULCq_
zD<ZgayyQ49d_T9DnMaraanUTCt;<D%vLc8-d*#@N<t{FjEFG&@on{qS^XeIcLvIa+
zqwgrhRGu6LN4IN@Sj|+Zq&(qJmv@;j;kFL(UAB#s%=VqP%nyOpTjra3&uis}?AB}L
zoBGas=9~J=tK^&d%{Py^1-5h=WYj#kw6b*zI{GkCV16+)a_&sDzT7~v;9@s&&tqsr
zRzHn(Ae&0+O|J_l0g8cd>$#+eV$g5{xYflOWw|UYn*zmu(5uSSSf<ne6IrvZhLc%j
zCe;4@VBefZYf!rnEBU*!M%3O`Awt*Lr82gv2G3|UC6(}lG4k-NnF$)|yLAu3hx3gv
zJSeQ4_Z!+jk$d+IQ?nhM*g6!yolSp`+uOm`)t2YS{Rgl24M*H4gz-D>eHO<LddNAS
zWJUH8NiA(%$kS?0HIA~()G3|7uZ5OPyp<SQCmsIUaa=8YIgoV$RXNOTqQo=%wMO`R
z*_cgLBO_fG7SyYIR4!Z>8{fw~qFVzGWClOd5hQ)BB-Z75geYI1s3h>r7?S(=a3V0Q
zsN3)f*_bj%20od|V(?vig})pVBNO_$y%$nbgnU`BwXH&QZTyyPUNZJFPK$C~gc3oG
zJR%Lkr<AHnefH<6z)4PNGEn&b!CGQ8@|hsi0<8LeX!X91HqR4vN{5NwdCS`I(sBYX
zdU5pvxnU!Oqu5KWd<jhiD+6}_aZL7YqDmJtQwYTe<~M2kTnBrZ59?~?@Sp4BJS4!g
zQ?F<@IvG5V??B*fc)I7?mh0xDI0o<_jd-J<#y4W*-oB7G!5O|ktFVx(+O7>gX1a35
z;uBsx@NG97u!<#5yfHHFs(D1-P^E|FE=^)?-Zi^moD1rKP$Yg3COK;77*QPgK%v>~
zAY>%%9CIFsaz<t|F#qCS2kz0CDnfoCExFxzu_1QAo3sx`afje>q%c&zN{8qvMix0r
zS)iYX7(UP$)jx7|f}#yL7{xS#1=aj$(hz|M#wNR8a`ENcMNOWR0{kud_;UYp?O}fc
zHI>x&@d+;>*eWNtd+@gd`_RWX_pdf~g?VT~*ZPO}Zf9vEzisV|-AE4<w8-;x1b<z8
z%fi!fb$W3~9kgnUh&Om7sSzvRG(fPh!}i$@dqWk3x*jZkh4E$-HwWN~w_B}Bxmtx`
zCux%1+}FlY;C~r5+kZi2h(~x|f2!x3Vv<;w>8N2gRt<uigBcUnMZe*`J$Ik&l4M_u
z<T6!`X!XGhaB0?Lfw#+w%2S4I>YmK*`_QMdS5!0v>*Fx$;uofVj;zg_a#1j?slF-a
zBuOffaDkO~aymyty(Rq33w0wf)2Z#@k~1Mu@0W@A839iYiMBJ2#i%)Qu9VL`2M19*
zWA)aFzFN?C^Hp;Y`-?Hh7rMz8ogTDsNv|YLx?7Y!GHW`lSNTF8^_qcZBs=4T&nr7Y
z3<CtN85U3*oWt8hmjxC+s180dh1orQj4HM2Qr32;z21C%D(ex`_d@vuFz(*>x^w|_
zqv3eoYBkKNyW#i2KTymSGQO!6n@hyxPX;qL@NYU6S!BT9dxkdF)_PqHL%sXf+Qyka
zX5_kqLXx!^VD8eo>Ft;-Q4~*AioqaUyqnBKNuq^EqJiZ8rg{Ej3d>OgD-4&LWNu$3
zq9UPG6_+qaF2Pig!JHFoqE22kop&+QmOnU&=-r5j%BvBfWJ}XA>_%$kO5XsR^x46;
zYw_`!Kx_U`5LuNYqP=aS@76(vUX`xe$acBD;Ok87ol+qkvf$=Ya?a683{&)oWt7UL
zFapyd+_xBZj1#_1;FBq?th1<AWo8ljsDyXR&m_yqSv0I|$rY(-c0~_?G^x#kg7ZzQ
zz9cNE^V4ay*@1_y?**vbcFZOMg6OFX^+BMtSB3f?D{E$ufa~vxu`Mg3Y8-LR(p!&v
zIHTKMX<|^EmoUG@m~9cxzOAk7)`)7jj_3wa4MgcK8ZZk93|G)28`wpAFx)v&4F_sr
z&MAi?vCYiTk=_cib-k!|hI%N=>iPOQepu2XmDW=IW<cPXD6izu)n`Q$dF@jgAxV(x
zA#MrpF@#kJxVoMUa*ZlXr1I2ak5*f!u{5(bi7Aw1x~wrL*z;wua8wcCd7lirrHFU3
zGjH)Ir+Sgzjp>f>V3^#iR9HZwTiV2o_wHy!<kszeg}H@+6NJd!qJ9wO5WZ*Nk0XO}
z0p0GTjk)R^5moCc5>yXy%I{Ow6iLvfN1u<Zw|RXCw3=SuuV*xr8IadiG08NpL)%QO
z?WhjN328)Q4c8Q&E@DMO_2au;+M$m`t#k9bEz3>N*gk1QYZb5MO8XSrXI7-oepOsp
zu>0Uz{h=TST8-%3SisamTtmUJ)6KAwD{i`^@?H2zLR{iJ4a;fx!p^m(F~Rp4i$xA(
ztq`aXweme>V`{XIBJ&Cq>RBnS263?S?nTz-m)v5X$jk>Ogm=Bi9QO^u+x1|t<FijY
z-{MUT=IVS}CeJd+lg@48zMMOV4UqO{m^TbcNgP8$JWhp7juSGI&YkWMOpYNbmZ6Mc
zn@yvF#=>{-%IfbmmyDbUBoY1%Cp<Ob{3k7ey#riq!9Nb2DaOu=yuh#(v}-)s!)h1d
z(IksDP7RzWH|zz78L=@)-sgT&jwr?Tp?E#m^YfhIwG|Z=bftx(eYZ$j+>UdWy=PqS
zDS=LLb@PJF<(>|~FmL^f@;J;YgXoLl_3ZCAZBwo77750El!#C2$(F@tInnF3(o~#k
zynBE-Qwz#pES!aUg`&p?ukwp%JxM{aMJ8+EwTWAI(u{&*u0$zDLQ}_r_m&QVNEGW$
zmfTZ>yt%rjxwAeJ`ixKYmhvkxw4X;&LDdSYsy`8X#8x|-)u+Qop*bJFsv~~gQ`VC0
zzN9}NeV-&i7k$voLo+&Q#9^;hX1rC9v0C~NvTnG0Sbn5rCb~4JbB%OR3eb3>l9y)W
z5J{PW%Qx!`Om%7YR6{YRfYlJVuhkmRdeVW;trAcb@?<S3`OCv_#0DN-qjq5iI&__0
z+<FFCf0m3(9>*&Z&M0wqW&b=6E>hCV!_*h|m^vDnsR0QenL6(jR0kM&wvNYP(hLGb
zG4MgqC;q1)H&q=LeuCOnoJDOleAq<m$sRzu#7L2&=;u2Lj!4%d22<1N!L%=yIy|my
zsK2S&UB0D}M|j{VUEnhmwebZH7wPSnQ8x4tlpLCJNl_M##Mrp$cf_z=?~Jv#-(&UO
zrylRl-0PUER<gO|l)6+^&~cCSfk9-0AaO=L{NGR9zFBs(a;#gBaN9#RvzQ<fhSd=^
zUTr2-aRH<;O`VE`H_;H7`D=-&mxcxi8}7IeYT00kJwAyAY}myEOt*xP{Qk)!Yr-fQ
zPbx)-jjBDwB`_CRf$&4cu1!EX5IS(NnTjW^{Mx}^_5BI7+Y^fXsNaZ+LtsYsrNwnR
z?LZyj=J(;9&VTHf^fu?W-M}f!1E(+Wcj`J=dfD3OczZdz+5cd0@XIk(r2F_WhY^SP
zUVd-6=;`NAHSq&KCQEiTXZj*RZAOMwFAko=DY<ulC4EykbbmYJbzo07oleOkjS6Dz
z{Ez~<lKgyFja!2i!dHBL%MyE=cF**CX@<HXYD>E^Ht+ePuMvnml9h^_&RZB013A%p
ztYwZQXjS9vJ~aw6%g|O`NxYm|a;{>=tRZp>4SP$OL)_1g^(MDTF-MSQ|JfnZ1-{=c
zLPBVTlCr;(Q#f6o>`@0T_{2~>bF8p~XG#X0drxxU{i(28*+|Xp>>ksDZE~un`FueE
zTpunCTEjF=`%V`}RUQLSBpJOI;?>q0?xl95e^UB(Z>PEd+>tnNcM-r3<TmcsnqKZ6
zU><9CFWcWoBmbVm;XHDAX|C483;eKx(kTZG%5Id~kzIU6fdqL~8@q0-3~RJFiD6tg
zSj_e{%~c;5+RC}!SW32PP4_v)nZc-1O<`h-lfFL^wUGANr~T=n=B9*R&Ww>vEbi*Z
zcdZ@l8FcE#{&fpsXNV?1<v{{F)psY$`0-SW;YHjSxWv8B8<Vbh7r2B{LMFIYB{baY
zkROVk0h_w!u;r&1L@5%thi0h4_^}0*HJ8^op+_~dk*TniD3B;vbq$YsX{!H$J=hnB
zcCj1_nG?{Mh;JpO3yoe$e^>#VGAM22KrLk#VHid{ThK?5q>=R$^m$Aswv4`t7xU$D
z2jOUw-UF#o%wR|KT5j=|H`>7UMC;4sQ=zPpSuEWx$Gkp6{|z4@=5J4y)Fl@Hp$K%7
zAJFur;Qso1Qn|w~2c^KNMh+(;{-3F4>EZD&)8H=q{mMy#xGnzH^+r0!jfOqXabt~^
z*4HYc@S3Xys08iUh>bI=Mf8$Fm+i*t?@_oGmQBK@D4_YbH?c*n4;rgK^V(7bGi|@s
z27cBkty<Arx4ho^lFZ5%UIRf%NENXpX}Y=*ZvfF*(LZakz{=;SV~N9JdpmE970_32
zUyM<PvMz97<3R3wB$*-iEN|1ta9LS`@QQq|!e0njxbeEMDQgCD8vM;OC=R=F+BANY
zoc3|?t(^v@sDN&;B)PXLNa2Gwg+PqWZjl;ON!bFaN3)Ifr?8>YO|VQA{?)50$eT(%
zrDwP}QMxwQ+5Ns;aWsi_{bllK&<K{kFN=LPPfdqYPT9XdF_|*R=nTyfZ7yKEc)oxS
zlFIBmFU-Tkp)?UXM`ggnN-r{2!#%mM!->5`lFX05!)7>t`qn$`UhFsGwIko#S*#0N
z2Zl=`tewvlXPsZ=mZF1bgR}N*wOr2=Yq#}sb{=z=5+?|>EZel8b@p79?KFHehiv$N
z34F}YA(ireRYe23Q#f-6-;@6^83B<Co=^UHru@gw{jvVTgjrMVuLk}){rUs=+nNrS
z$Dd|lzXE@q2>gV;hZk$V%m;o2|F!-46AA#tWBdUBKh4-*?flx4`)R2Y>%TwZZymZ{
zt^C^j_-Q2v_a9p!zZ&?pO#NwqpZJG?pGE7h&|k}hpHLXQaSeAP_}8N0R||j5oImjZ
v02LVk@V7krEBvp~@Xzq4@Lte=;lIa5O*Itw?g9Xq@K+c-RcllK_UZosoJ@QC

literal 0
HcmV?d00001

diff --git a/TareasProgramadas/FormatosThalamus/FormatoProductos.xlsx b/TareasProgramadas/FormatosThalamus/FormatoProductos.xlsx
new file mode 100644
index 0000000000000000000000000000000000000000..304ce51ae83257a69b002b2e92023fec5a91f360
GIT binary patch
literal 8326
zcmeHMg;!Kt-yTAwVMytc?i^Z58l)wM?(XgqP(egOQo2i!j-k5*N$HRnx<kJ4zW2V~
z>%HG!@ZLRZ&R(<5d46lo-p{X|t)hT{hzCFdAOipZDuBs;x)m4>0Ej~b0B`}w@OqMt
z4sPZSZiX7(PUfx#Y+m+ul-Y>z3|Rnp*z^C6|KSxVO&C<}<iLJ<A$u#i&MLo9Er!es
z4e7;UQWb6QdfQWMs+VDHeV-9^gDvp^-v(5LGrHi*bu?^M?O^{Y<V8=D8hT7{U%Mul
z1jOFmyGPqbNEGj)t8<WrM<T{aWN7%xA{CJAT-T|_BefzfUrKC+Paqn!mOj_31zhTB
zKrhxU6zH3WEGug*0{I7uK4Y(q<4)RGGx~y0)>!2bW2k)>2t2@fDpcC)j3#OgF4sv4
zt*#99+*3xT@QWM~aV?l%N0yM9T0!JWJjB&S(Wk|_J#n_oZGQTGK5Y!IV@_4B8~O09
z3|aLu#Db|pCT0LCwlOsXWn2!U{#{S-a});;J1D>2(5~Q;b}f;ZHD<)dnJGV_wr5$+
z>&=jQCIDgz2`K36ujg-n1~n!1bI2cmxQ_Vr@*eLTxZQZtE`i<OPW9M761v>CE#$j5
zwxJigf0Vc#$n_lw0Jy(L0I2-MEo(J7Xii~VQ-paP8q6&XUCixV+1Y+v|8>XzVITa{
ztCz+rJ?rE^k2sLMjqJOa`WlBVq2MVl+eD=i5G1#NRr@OEG0E39dQxl+;!p&cz?Oj9
zf%&h(uXg&V&R2O#V{q_<Xg+zCMI>E2yFX;2b4iqTE?wyYdQ6>7ou|midoy^n#4?rC
z7k*IaU!sxzd?ZzcJ<9f+7zH<vG=e}RC0MsdNoUdIvK($oLLFKbQCSDd+Ic&g8aSPp
zzm4(ag@EGTL<)YNtBK`oxnG|h)!7xXrn;4Yb)`v$iy*bPp_yI#iBxJE?wud2a$27n
zH4n}u*QiV{ZPr<!ZVk`TV7hk~2&J>6@3224hN5s0mZARcB!#vhj69fw5W!ps3$`*|
zcI=*xF199)j<!GYR<4GD;~WQ`e`d|S(Upi2sRV<nq^4*il{>Dkj<<O6OVbxqT_bh{
zDw=l(O>&nE=2!+K!RfoZq?x`44XyPH>qI{5bI7!&iX*}=>&=*eF8FIppKZ5DX-tb0
zt@0no9^ry6t1r$5yLGoC!_}~m0l87mHuk`Va%0BPA_4UWNy|D+>FQ|t;D-FMG&;JC
zh0T;*U+}k04cP@sscVr(HVt?$vGAE)+3XRry`@>lKt&8gn5>ou!GlEs3}}%>&43r-
zePRB^;+z9IJYc!JZR*fUQ0^-};sC1KsE46#LMZz5G8-Y*=93c{a5eLBqEVS%Y*aFg
zGijU4{<6U(S2=|?^_F>^Sk<T(+ADA`y)va~D9d!2fsYSDt)L<xiVL<x>NU?-Za~)P
zOr8p+cg6{-rZQ2L!coo-6>B#m!vQn~1b1p?%V&CB2S#;uNheaFaJ6j%EYtD2qAC+1
zlb<G^FqaVf#xY@YUU%OoNVt9@i^C2>pfLv;B%{<aGPx71iSrP~&u8loS$>>_Ue0?7
zW~y1yaF5&MSu5k(Y)-qsW#m?}mOhynGL(CpaSjQ5@wS=?#I~NZve4W%jG;0;t{jA0
z0&I?r1gV7ST_e*5chJwjCX*bI+XZuxy}8*Ew;Y2a`j1*;%xB<+L0ernV&MxY++;#k
z$1spOO9+vrBZ2BQHQS%&@ZDa9o<Grl^37t43ak;mF19v1FRIMjM&!|&#I(EvZo>7m
z$80QAtVuyhDRh5HwkoOetar1~V?@eC9b0P}%}C+nd3uZ{>PxwsW?jU)=R+obT~;$3
zjS;;?5j4{K%<^X#sFOQH{kmtAk-27Ckh|yX)80rQWTrTM(&8FlH?b29&q(Fi6oVoH
zl4^Fyn)F&O2>*%E!J-LCCom>A!dOiVK!$@c`ahBX&%FL43&6pOGMHcdZ;w(nC50{y
z>=v}|ksO|>9{9jnH+Jeh&0Q?y{u;)4Ix6mf(<Kt7Mg#3H3hW4u5#9&Gy&f05n5zi5
zXAtJXXdFZzT)P9I2adxh!wASG&@%E6nFqKydpo-&P&CZ<uDA`N@qH{Ac>J4}475a%
zIr-F5rwtPkJT@a7?p!vmV`KxcC^%TN9&{b1zE>7fQ&&g%p3!3CzCm*S94Rxzn_~Qg
z2t`g9!y7REZIX)l67uvM`MCMkLdko?7Ls#~zCl`|Kwiu%;uqmY8QCX85y%+tx{;mI
zq<OI7CUG;s*fxL6GI)AmvEJW1wFKMgzXw5xiQk45j4pH!0DwoZCw>otu2$yeZm#UV
zO`JcXVVcIg!#oGNKSgCA_9=MDM-P4e>2#Jh1s}RXod`1*8QMD~CAD~PWgx{ymvUq?
z9tMsKUcV&yj&}EyX~8T~srpQk@GG2=tR(G{0L|mfi#qyDepm2m?bwWDe`fnp$<A7&
zNz6H<7LWmyIFMiTaXjYts18@IN5(i^w;uE8cx(N<ikm=6<gvTpNc=kWe%Q_xCRLpy
zq&;61XOm%?>@?t^i8$J`yCy9nP`3Lqt5bR<maQvw6*pp)hVE4XT*61?P0teYGHsjH
zyW|X%esWfS?(6i|<`H)}^6BveWPGC3>t53*oOe3HG2v-(udmur=tN>z?KJq?5j4(Q
z6DLkkn1zDUTXFYH;L+BquXLwq1Le*$aj&0s(g+AkFByXIYqN1NOOwO%*Qc!m-X7O8
zA>G}oRk~Mv8H(9}=aI$IpxM|Xs?wAFu%d^ZmERJUOD5GM<%hiOiI=QG2FeW=l<=ty
zCK<yEP`dq^X|TbPY1z**`MO}WV%n6ZF7!*A-X}av2bFuRT1QFq5gV&6-J8x$7WvWm
zm_0w2yLKp{O34>>cqnG$z;1y6znnyY77Z%-_Gmbvrm^#&EKk=LA|M#TgB6M?FEUVy
zN@P;OnA}c!w5TBmbbJxHa3k7wo_Bv^bsE`hcicVM!5?MtOuBTrq>_0`DE|WyaohUP
zeljhvOys@TR=hUbxbL2HN!~nMVgF-lVvKAGjBGL|!sY1*BI9<pN$!>eZdCQ}<QJj&
z0$7{;GS%Zu?-!kf5*D(~v=~Np6mCXkF-1U3eU$pa;5XoN5B}Zlh?4LBn4-7yY3nUu
z=~<oRM|=4jJKe0z?akSLyZ%PZJ)L0(5)gJP;Wr^{-)Ahd@g_uX5EK$u`J7E=<fBQ8
z3~Z8so(+_YLXG(SRbs)}*5eAni#`l<NU}lTi2~=;Y^C64iO6+%U0n@3dZcSYGCS6b
zwcAmrh(;f%_`nzyF#fm{UxWQQyi|3Z3{Q+6Bt76@!Y3%VLnn-ARF*jzn@E4&@4ltP
zOOp06E%Ldg3qoCpRFR*l`O}EXmmB68Z_yVq8f2?NWPlY?@Dy-g6Us`pm|nfZ`^+Ln
zq#V2lU5Sf8Jmc**a+Pl$T;^0)V-Hg#wVLRfHLe^lEC#wz3n^wv4(Y-jMqR3A3ah}G
zXft_@qcUycmfC?0ASB&%`H6e1(A|`0RTVSXue30p0kJF;OImbK2F_o$!g18T*!5^i
zcW{>;1votl$=6Ec8rF4enah}93ErE2I+rfrqUL%;du@xx1)7I?wCMDiL=nf`>FTvt
zJSVO#(|qVCMqp^zK0T+GuG|SBiR%Ut9JVkIOAmLGsB~EI>5AD#p8GsFBQoooeNEVk
zd3YudmzhIJY%!jvgYKQ5*sU9V;5v>Fgv3>96*2jkUXoM-&(lc|8_yQWD|C5+qzP{z
zoOT$kUu8_cHU!HRortsGV(03jBIC(Z*jFIna_@5GS#K;k*^}Gx2^YToWfnF^zbmL^
zV89*c_1ZRwog#3hcaZD*G==EZ#@6VaSYK9y6nm@R@%%@6_SWmuivx1sWj%PTfkRQH
zD5<(W;M^ADHw*MNd1a(kKcQ=s{1MDFfIZfBxjgA|8H$CderkPB6LXf=Wzcl*1(^;O
z4yV>+=aqE4V7tMHPAXajoP!mZ7VV-}XU~$Y$9zGwCsK5gEKQ&s`r5Vd{pTz<yCu07
zG@Im|DIJ{sFC?zXD1fWu`{a4A4Lq$G>enU1_f;o*CT-(I$@qhLmTDx`4+pynxa;St
zhW8C7H-`$&_ypYE#9=3UhaKQ<CLalsGpAk4o;wc=AhktluHqgWQFm~aGvj*+(!I=a
zkjg!UHn55<#ea4*Dtr#EJE)f1p$^Zcp%_k0KH+jnjTJ;ucC8rVQ5cxPT1S?^%MmH}
zJ2cq0coBf~WZAB$=|F9@{^nG|DYECa><M7pu_wE5PWevB`n=I(h(Tk`v)ju@&>k|r
zt`L=uOY23nZ>a56cf>zWgS{K`aI~rMrhFgi{;IKwC23UGe(M3j`*m+ayT)}l>$k$W
zFUbl~Xh3<}Z)r&hRIvz@5FGRCXU7ug4{I6rG1&-a_QXR<VhiOlandAX4R~n`S<oh`
zqy&;U=2OhM{o-+JhWX__4D-D;HW)?!L@rzE;cb>QJ@9em<;xU2Q|>@zqB3iEOY=`2
z8_;CUG7W{{&0;Oy>=d=FLOyjOzxqOAmXT5v1LTm!2c-)^K!ZWdk0=(8Cp_w0PbOL4
zpM^Kd((zM=$JQ*yh!zvmE18-TOOsP<3mo84ysPKsovmB;AfSIYJC#_O>T_V<%tPj|
z1)lKsr6$wSQdUm<kfSwLTJZ$|Z?zd8-MBQo!Wt8t)Ogg%64CTQ1%>3ifbJv8bOR{$
zdu3^dQh4o6NQW|6U%1A+HXR?&Pzg1nwnc;!&AkoTkdG?rjBFqR<CiZ~kG}IUw!bd7
z?RS!u(Dd-I?p{!RB&I5Vr44kBlajG&?=hhWy>TxL5e2?;5;BI#1VJS{_Vy<OtRqh+
z-mzDrkCdAx($_Q82|g`Iv0I^wwd6{sXD$O`xt$C+BnY)J(QUBHzH@nWKdLdlg`!Vb
z`g9I~YGEDqrCaMKcs7lW52za`7{2gq4T{hptKeO2FAVVq7yX-Ul#$nM!vYGOxx9-0
zHkm!LD*Uk;)X1};)n?fTcqUV;d)1G1#QUT)<n&YYsvfS#RkoG~WB7l1$Plaon#yHB
zK=S1JzOY3did5y`^1UcMR%!F()5AugO4h`$fj!_{EvD<doUCn;8^ve5%nvIBW=6dy
z=b~$~j%@CRWb84ML}l-TPhz9vW+~`TgXgwxRP=ziUySCN5mo*B`N(AnW%bA(j`7bv
zB~g5zV6Pp$f8H_AQ2&Na@GFsF-vnseZPa>C$91#X)#d2y>(<pv1MQhA_lD1B$;9#J
zX3;z6R)T$xdXo)n2c8HYLHwOg`Sg!sQ{vBU?&0*0APL5SkAv3hMtJo=_ps9F??sci
zBtIk$c83L)nlS#8mR#Mu?aW<&>l+jFZ09-ff|efMU`ZU5+kr;njha}LFv1<s=OAEw
zJ!L6(&iFI|lA8meYFFoPGtxIEWMutI4a_auxne>VEYnP#<C-sk>Urh$b7q&j>cAn6
z>et25sAbv_7elM5w|7mGjV(s8dOf7@Vbw&7g3~O>RU3(NHWhB2cxjV!vO7k$d|iAI
z;{(^3xs=Y2l%sO>SAr|!Htxk9^N!l%Cg}1_9`O<`Kz#|MtMwNg6ZqU%+o#yxkKwqF
zPj(e@%h0r(hm-Xy<dl_v#dnG-w*^-x?T_@QjU6k(AMeVlN_1ROpN}-h^H4=V>)9zr
zKI<}Dsut;OWF;>bK7*|4Y#$UK%76tH2Gnm5poIXXFu9CGU8_*i1Wc}JTfBF6_09?p
z3`zDYfQ~Db+LX>z%I7ArNKZ2)j7hnRgD?d9p4}j|qxx92pI&@-_BH(`8vS-0D;Jbp
zU~A9xZPqncMl%CdOUP;RaQI7wGU(92b}OsgTi3a9JQ|f^03d*Zt=u2xb?Sdt)@tO*
zt5(L6+f>1Yj=TES36Cl+l>ac|)mE%E!p*Su<W!O$<?Dr3r)x9vD|w5{j}%gHBF<u2
z?t|fLJ6M<qA9qF=k^LW}Q51^`&@;zHMNie>?{B*$uYA0X(rkWrwEcy!^>ew5*(J-9
zOZlhjj-l@R5D8yMv~DN&?TN#cacd*<su2O3C1m|QEkszSJjBeUNxv-G`%z?Fn{>`y
z1Z3YZTR8lUjyBwyBPN7g!cTaYOLz`_|3U=SA=W>$_w%7CPPn);nKZ;q-V$QxlaBZl
zr@Lg^%sUCMzwcuG9hR7Eww0HB^GSb)b3fwqUR^R~o-Yz_jBb)B`>Jr(Z-=(p{;{Hh
z3LU}E!YE4)yNmZbb*+qD%+1u@T&x`|e`BzIEJPlW6I<#a<R1Ha-$F~=tlta^Erf73
zG(b#oE~P!!SMh@7+TaG|#?*pP<4{|pg=xV4$)FjgHZAvACD`34j=Dfm603qe7KCLa
zg^<U=X^dsaP<b}}Tv<xVRL<v-=GLoP92pjIEnynot#n(IIWw}-A$-Yrpz5HRW7Ga(
zVjPO%dU#Ew5C_^u>;umyb3*-#26TK}ku&*vkwzkvmtVJ&kJ~K_1z1&Qh2NOa@{JUG
zo-2Z_?uRzYvgP>iEbe8_x3ng(Pqt+P^X>0%L9iG7yB9-0ngnsdmH`9i$v{}QZ02aH
z;^OG!%5LiDV*dNd#lKB5Z0YRY7%Fsf;B_xOXp`*sO|^JH{{cGoDtK8%`{@zuV^6)x
zD@h#aIaH}hhaUIXMPTbY|3z*ZR5R5t_+;W6>Khgr6f1|Y$$8Wkp21TBT2T&GZCf6V
zZvgUPSeqQLH}ERd(vqc~5<>qbS7hUpL=!ek_sj_y!{*0tW2y^}3bbG3%$p2eKAeZo
zSii#1!cH~{ULjAOd-FnB79x{-=LQ8}lS-nYx*aB)A>R8S@Ne83JWAj$h+i>UQ!1$6
zvV+8~ep~bvAZ{ujY&3ZRJi)#F<fD&Okgs-O;4J3O$iIQ9%~8&FbcG#bn}Ss`b0i&7
z|76lLruOth#m=@dcvV3%3}d!Pkd>AbQzYX44LIg1TPNEm{@HOt7s$RZfk1$^+m~XQ
zozkN5vi%y?r~I904jT+q?_fkDK>z@-|4cMvC#QdT1|!(-BP|~CLt}_IKsd(?*?*Ph
zzz`v(rJ76PGE)hV^PPSyI8LV!()Fl+(PFfkki<Tx==1(0Nq^?|yEoa*BA+tc<6>ey
zY@X<J6CvW3p*6jKV%Mhczgn7wsde)xYm=VgR;wkDep-O8?^_l}HFDmjZ&wX=cCtuK
z<B%+7E)QoNG2^fhFtvxMK6Z0VLd@Af69oSn84}VWZz(A%$R_AlQuHc+i#c{)o!W@@
zK<#+MDwlBzWa+|EC4PQo)vmyaPdjekPFmghwm3IA-^H{hl9s4M`UYN2m~b7{t*xfk
zqk&;|B^x1>^W$p3=ecr$n-6HG{JaNl9)gs{XZEICU849yHu!-%9V{Ft7qOs+6nR;#
zsw5rT^q*(^HBLSRhYa>C8m&{U#JlZ|NnS0My7$}%jTS5;biNQ-9gBws_pnr8N3LvJ
zvhO8TDG8>@^2-<+Txya}@GaVg6?B6MHY_T*wS8hvR!1K+WT#s!rLtTI?zM}aH4|KO
zdyzUC3_Ds(MMi_Y)ZVUM6;C~ZZOVVB3<u8&OBMfo;`_(e{W1T;`LBw?Uk&{AZ0Zl-
zk2wkEAAdTj`W5)AUjGx?46DO_QSW~R|5Y0O2?YRNqx=T`e}vLs?fj~j{j>x@`|qFl
zn|k)Em0xv@pH>Vp|54@m)xfV6=uZRZu&fSSi=XxAuh3sBfS=GRn5g^%`fEM#Hw%AB
yoImjZKr>82{979R75>+7_-8mREPVbK{(Ep#QFs8`T>t<T_6dSz>O-<0zy1$06-~nc

literal 0
HcmV?d00001

diff --git a/TareasProgramadas/FormatosThalamus/FormatoVentas.xlsx b/TareasProgramadas/FormatosThalamus/FormatoVentas.xlsx
new file mode 100644
index 0000000000000000000000000000000000000000..9fef83a64c16a859283d6e537e72ed4cad940b32
GIT binary patch
literal 8471
zcmeHM1y@|z(rp}qy9U>w!6gBLBzW-P?oK!EG{F-bg1b8ecMA@U21{@a?!mvFyqTAo
z%zVG#&FR(mtX}t4t=s49T~%k7qAVOd9sm)53;+PA07eIC7J4uMKomRxfD1r|)fTt6
zb27Da(pPnNFa_zdx!KxKX2ZiWW&&WL&;L9AhgYC9Zb+e<155H!>Q;Q6Rpv{zC^FAJ
zxDV%vl5j^)Y;Uo#cDkkILwe{9mRJ_P6<-w&<clZg@rXsWooyXBq_<faE!@AqLrssA
zkNs2M9$h;jaSTvP^Dq;SRP-sazW#f&6hNY5eYY~V#L5eqQW6V%0%5<kwD~@D?4{mD
zv|_D7f&PWgWd-#`Z2rNbNvyST+$k$dCQrT7HCAc(aB9yl1TK1cic}gZOh(F$!0QjP
zZ6L-5u4w~f*hP+@s8)=xqf3a*ZG7bN+$7aSVQ0l!y;0W8?Or-w9_@?~;b)51O}zLP
z`mEaNqW)CiiCKW6b$AUy8K)h@yGH~+M{ek-i}LFY-3l&Q&l0IgQ+i~Si2@O|Ez5FV
zU%JF=0lp_-pMw5@2L6uM`^IEmcKPE->+q7_AMh@)cbZN+#IOcBsA#=|_m}&3ggp1g
zHnal{juUo#IqwkxfQJV-fZ|_hS*ylDa|Xql9F%paP+IB(O>IEzY`<OqrQ`oF2mkcf
zOJn3;cXOZx9ZKB>_g_wbjlvR>b$ub#Or`4MC;bJp_I(a5>DP7!GAvb+0JvAatv<Jd
z3tykT|JF}+vC3T<j)NyeQ|DS1^x@jk8R-c<FyW<R=}Hf_%k=s5Mbax7cSe`i$R{NY
zg;}x#OEfPhk0q+GAZ%|)P;m3ef(V```D^vcYc3jnFNc{HQ`s*Is;uYB{1yvI@tsM?
z-$54%5s=%PNW$+28JW+Od-dB;onMitsaObDRvM)P1*zTjO>8<&B~sdP@4Q$QQu~#u
zxpBU8LSFUJWuE(L)o>pVrMdU;p>&t@9}R%RDGC>%8S3vODIADP&x8_$07@ZD=*qa+
zu)Ep=t&QyMt$)i~xvER{^Bh<{88r``C!WcP6j>7J_yNx1-{@<qPr#~=L#fnpg+8W<
zsh#^S(NQT5k~i^!L3<!!U)RetcD8y=8S(~Rv4N;+u1Fj<8hq47jGe=|c#uM96{WFM
z{5qBQdXOH5uy4~Wqj$UNw{%KBZYufG5x5y1r7kWG^Cw$4&zbYMD*30aXV#O&ZE!|y
z6Pj2dr(e<D=JJSTE`hVunX!+n!ouFkY6n=PgC(!&u^TPNs<&Akh_`R3U8&<YkgM>D
zDkJe3=```=J}X;l<P%*aI1i|=LHa~a$7+&e$DDzx^weeVwC1?px>!#z9CJZT_ZSft
zCdpdRi`J~}DF;aoG%X*}N^hSh_yUX<gU5+vN+x9d20R(GTp?wWNQBJMCkt9l@F%wn
zCZ>7HGRhnm)+{WM;`7}_^GDrc!8p3>`j4Ws>!;1i$eocq1zz(gR9<vX0a-gwqGJg1
z>T>RtG}UHvB(g#V*zXIll8p~D-*S-EU?Eg;t5l*eIgv~#Rbs^~v}mwxo?eZtFPPLN
z!qi14S=D}ydVyx<sK%4T`4L{Z|ItS`DtZ3>fCnrF2~#_r;a4M#KE7$Bx#a;b{ZvX&
z+Ftk0XuKtL>xeN}S<~%P;MgklW}tao+05X}eQ?%03=-^CYUb80SlYi#jdmTK-(MNq
zJ)7e~%(<gfR-83?vyUT~n|2_gBVw@NmPm+4Ej;FS;u5J6Q6abH$p*)ESgYO1x0x9Z
zl&J$z8P}o|b!!n#tsOh52y9W;p*$)%bas$!y+{jp2EWt1Y|)Xp`!Fo#(PN>*)zsC;
zG=fcYiIDdVQPOH!$|UbvJC1RA<4u{G^vigp4Pp<RkHsM)=GeL8s<FUA-s>`9>o-El
z%-%<Y{{&`#;kXZ{P!Kmk0ZjrxhJk|lKSBS`kp3e9z(DIUC?)>4N2#*BY!3%kE9!kP
zhii%pKK7gwJN2I0E++Co4buWW6_?N166upBU5(GO>~Qu$?uR3NE|)wQt8lpIoy>({
zIPf00Hitq8_9LewaL7jcW#r&j2)H<V-*!v(Q8AK1xQ)Uw{VeHt{F~ny>4<}K@~I`x
z8YhCdtwuSVIjulrj|ZUvaHwY8@A|FEUKzNizMe9f$!z1HQGDS7F$3&QF@8#nBK-{A
z9WcH<MaBHRQ}P1&q~+F3-hI@%Gv^v@gRDfByqM>?SCA8BaQ`a`U#1w)Ms`xO+Tn_m
z*v%kQ`@#v!(AlBc`as|G5_G5k9{;+xZA+)2aCr-je?-tHevf}33sX}k5c`km>2HBB
zRc*j-0lH9x+ag#kuTosQfl<BA^Wx#z3JYBF?^&qh3S-U^vL6<+Oa_3l0odZ37eV#}
z!ZIHh#MuTgYOsq#EVmKjL_5`}!{p_BpRw8Z#t{vLy_HrIm5Vgk-oL$Tp3~c5h=tJr
zqXmXqn%N4Rdv|m7CmpMzAW#=g2z=z9CS8gn(NMM>%%ec)9D^h=T8wZ^&o~rv<C77D
z*@GBu<g;IJh99TM#pN3gUGX>xOuk+?2`Xuk2&;|iB4<{X0Se!>FvXc!hq_aA39qeZ
z9)}(+S$|R8Wq-B-wl-C@dTw&Do2Z{Ja?BvS#yUB4Tak@&(-xHGfaI1Rwn(7NZ_${|
zrFr<?q&s0aUiNi8b?8pU@>z4Iu#>!l9myVh8U)9mVXvB+WFm1fa56aL`cyM7BLns#
zpNl@B><y*AwkQP^9Ykh>d6d@688)tgAhRaTVn*h9<9^0Chp0&Y{N^o(-6xEL7ui>^
zr+n?q5PpezpWS*PJ0lHs&WHSgWa5T5Cm*D2HdB>jL<j38(g_*#W-)`tGXvX7?ijFA
zhF1}F%4m7yBTzZWcp{WMEZ$K$(2Y~n(Gt38-V`di6kgvA=&rv<3b=Q8CPrc$snDQ-
z+Qy^4Auq*{pKR>3+R?VM?S5y$K@!Z?!9&!H$5uY0aVwZv%z<h)=aoO5p80NkK5n=b
zuZxMZJsrzz)#h-F=rPf=(67%DuY_3GMGPsLG~7bJx>jxDXg2_gIkYwx^FH+*9Ng2@
z?HL8g?q!9eYY+GJEbOHL%SYN`H02y+Nq4qIK5Mx-d&}1Ov&-2_7>2y9nLs4am{~=6
zMy9PM_=z8(H2xFF-i)}-69$#s&5cwg&xY%TslX!stgW<+I#@5%Ty+$F<gK?V!%Ajc
zi6xC%Dl@BM=5#Y(e%^#Smm$-D!<{A-C1IY!hhcAn(vAhU<mTNeACb+6f26`rK3#(u
zlm;rKza3+LP{GN<)Yg>!$Mpvb_B2QANcphZ2)Bi>JYTcS#TXGs!^tMB@;VyL%7l>>
z=~{ijc5S3&5^BO9s1o(hwj7uBU-V#{N0jo@n<#Kh$(HwT5er_I(b7`2VL-eld~Cyd
zxpoV22x{`!e=#^lg&lKJim%H423Ddv>J@jmc4wN;;e>}@ZkOg;Vu%!TA{MdEg4aW9
ziJLebEgkZOIS{TMEK%fTY$_R4`EJ8BJr->dy-}(P{0h550+s^iYg}2W`jhwZc#|xm
z#0vg<`zujF@aH@O1|XT1q2;G4%It6D$Sfv$<_s&x3yZOV)IxHZ;=@`nN1@-9GM*{I
z7->9l8-Mg<6SvexPq&lw6McTd9_#*Y((9^<S*-W!=&!Lc&E!g2wN3{w-nGGS)Q0T3
zG^g1)zk~oBh`{;k37jKZ_O0{j6D<CFGm`UZGOfy>W4dc=R8GEyeV10vexp#5s5>p~
zj*2%VwPk8Z_M!y(`W-X#+Gz^ioupBp_y~?#nMYoZd?Hosvf$McwGO`UKsYBh>7R=r
zY{NJ@mx0O1p(HUI&(lP6&rkTI6?O<3hx0?^EVT%lqGb>#6T@?L5X8c>Msy2Uo*-?;
z8w{iyK^;&W)2Rhxg3ySc7F>S2x~xbSk%WE)e7^5}UwPdZN&Z;mc6<WJd$7#HX76>i
zZ|>`J_w;&ghmW1YccpKL^L~ax_-bPdawpoK*(kx@=5@00k%7JK`t0(M+;dqQ7IW}O
zSUyyuz8`yji)q^oZB0f2an(!c8YO=eBNbqaxl=Afwp@l{Cajav(A&(M>Gs`krtk8x
zCMM2P^{MWwmob7Jx}%yYs1-1F7J783mwlRh=4`#DUxa&ug%=;E3Y70hfC`f*Go5Uf
zq(f*n$-9%fo(_bFT|cJ4UL8Lm&x_D?wPb8q7Y{s8n(CdhjuC#$@6WwdBd&5Z)KkFK
zFkdxtpgXlWTyV}S;1nH&mFWKV5O*{2Sdg4K^;+t}ac~f^JydNK_r!p@i?f^=-%XJI
zU5=eZ?%94LtLRe9q`g7m8@>9&YUyv(f!Q<^BPofeoWPVwK@<g0#W1(*;4J1kvKU^@
z^K!2v-2<}_A4HL5o1*4J<<*9pGckwY-Uz8vz_@*HcHz9joxJ5mlhH7v>YD2(HxEJE
z&hd5G&@@~+H{t_*4Y&GZ{skJW-EbsGbJI=v0pi0|Q!~p4h?eaZ0zvY+yS`1+x|3z>
zv)p%&3sGqJ@^)hB$Ox1$3FP7I^Bd;I;uwx<84obn2xj+QfJ-6^WiW73#UpijX!Kc7
zC#oa_K5#4~nR0o>;MR=rOJ|Mn#v1BE(CWygN?qJdKFkb$TzU5{3D20zSAn?964u<b
z&ShgiQLRi>c4V_yohLg<d8?3Dh1jd1kc4Hl6h#*qyogZx#SdF|2;(D)8SR8iJ?M0b
zHTgWSNs6AIIxw<kF<iKqghAfel;kBj#g4!s9z}cu56@ivvI_x2{M>XxWs1k4Z438f
zyDhy5cTeian(7J)30XPnW2F_J;qX>l@X-uQ11l^s^gc8lce4aFXDOnPUKG%OM44&i
zOS!Ks?UE0yy#aSAJnj!vUC^NC<sL4fhSx9)a-eyzdOYl*^k`Pf7mn%kXDXt5UZ#$S
za_a#HDKRw{7t2pyl!!!?WUe%@9it>(S#<OoQ3TvL7lMVc;~j(yp>l*@3Ae57=^*Q<
z<U~AsCE94YaRNgFW4)kcL6Xf1eWW>OA_H?7Hm1|*pk16$`xE*NcByzE(E~(vd<#W~
zuvBs$j_S+$qjyeib+BxzU0IJdP|!VL*&5~c{Ve=<HQdl&AY2Y?wo?XQw~q+OcIWcQ
zd0S=lN-6S3s!}7*1yq}4AL1EJukKaTYQE@~P?gq6(yl^UkE(1d_eb}xLt^w-<eScA
zghO=Yy#KOA9e`M62fQyzi<I9ytwU-Os$@<0>f5WAtN!FVFDG;7`HkFb9%iHpfmw+A
z)O=WN=CRe?@GD!455iIp{-=>)QF9awXa4hBH;UTWx1S9bnBkSY2YAV)2&J^ik;eGv
zBuV9x<7_p;4lcSD7#pJ51iupN_fPQcI6*A;G(nryAmH)&*R88}x*D@p&W)4ji6k)>
zCSl($ECl<B`V#eP2SuJ8cX~UV@#-8$CdFJ>J;3N3cg7j|()z8}kMd~qJwWTQzgK91
zql@jG&^w#Z)P(+@v;=Z;w=o6%IG@IA+oy2g`7JT*i)i>1=)h{?z)Vlz6)C?_vtrnv
zhKbcU4<wF_mcKa^3VMs>{Gr@CG!pZ|wOlxqUAuEU;#)FPlEFh)cgUa)zMLJ-?bTC|
z8PRl5KiGlJ5`0<H`(fwC)zS7MRoI4!2N|nc;plUs)k>3dTON3dus9p1Elvj2$e@JJ
zPS;W<Y+euN3;HwrZ;!fY4^U8}+u^B0e5{@@yve2xDkC;GTdLx~xmq=&iKn;5D6jL8
z0#044JkC_7c<(fC?gBqlTdZcu=C@m1Z6e@(aPTFqnN}p)?^ZB|qEXL*z_UbO`jM`@
z>u>^Qfn!l_ky1H{WoF`Xp?v46bg@0>$Bfcyk@((o*BTl!Zef>6{x>?7CYerAjS4iO
znRlVgU2|Gop2M{S7_#WJy;lb8l@^M*Pw{#cS-EC218y5C04!O-9&)Y+6a{?Adv}y1
zx(-4CmM!W{e(BF8Jyi3a7UaRa;#siSw^BuDw>Cwa;(3qyl2-=DPJD+d0I;$icZ#$y
zqd&;yqD?&)BA1v#-FYNtgA+jw55)4+Yp=R}T4o+ui7WN_!B|Nf<M!ji$}OE9`V4l_
zleTv2p5$+(o|(bf?I_o^N<oX(TGe&CZ6d@woN$dqbhj*D#aE;DJK>i!F$J7XsoZMp
zi1_60>8Cqb=2ecLEeQ2S1eBKs;1?RckezTi<@b_1lD?Nf{TyPz?+kGnbP9pbSl3=K
zzMq=UENd)VG3*E<8Ns<-^SCl>YZ`?$-()pc;LnQYicDZ;cvO*4qQ-j(d-!e3g0a<*
z)|m@$egKn@C%7{Yvy)uRi+=~_+5FjoYX#~T@*82y{KdZh%T$}yD+PW!E_2>A2?c_y
zPAd|&iX0Y_EAm#LlY9B$rTCa21uGhE9G83Pbd{JfD;`RnFG|;Q^{(f4FY?;|u>^ZK
zRk@ph-cf}fO!0olx`iRo)I`MzXlZBu1M((OoigxGu_O+`4_H7~E)T3|+VBJFJtZBH
zOlc2S*x1p;1MIECk!-!yDm^7tC6}9chV#&P6{-Szz5sQptR4yTf~81yK1{7DfMnvM
ztV!nT#p_+>A(mp(&@^(%%~!_!?-Kp_OkY}!7EPf|m^>#<XBJz>Ryr{`2wGV*k;+wL
zL=BxRGs!xuT0VH~IW(Ys+)`~IEMeWF4KftDZG;W1Drm;3GPmc*nh&_;(j%mluD<Xu
z@FE_cG-ftIp72o)_TEZfvdwQ@ZU09_s=>&(g9~~G9m;uZ=po+3-dGW6?*L*qwg;O2
z-b?xS><$HoO|-sjHwWIQC4_eI0nd~gxPq+xvG@MVin9{OthBD$l~>|8`xpE2&1DMo
z>l?t)JI4cQfw?03E5xn5ar{9pFwWQ)<RU(N58aVT?YQq9H3sj;6|<hZaTiro$k;LQ
zVd$k+Era1RBw{Y&79QD(SK=8%>N67|+2XGpZBvb?BJ2WK*D`G28YtHhnUUoxI~<VY
z_C+OL<u1cb_%!AtAxC7vAPBmpnhV^YBRUK|G><WxE6{Z>_NGKQLgv5}J)NzmK#n@w
zl-eBOm%|xrm!Br9MR?+ycEjL`WjmQ%JHU?4p^#t=oo+9Uo`@Nop6<4`4AwkMT{TGL
zB#u4_btyz)+L0;LahvK^+JjWyyhNZFRXK_~(!OQzkddl}$kz$x9@Z#79JAE-AK8{E
z9a0<%MH&$t0D$#pq!~Im{0lVblKnnXV>+SQ2UI18yTAxKc%N#=7$mCxG?x@OTM3W`
zZJ7v;)60Sji3S$UAk~DVwmC(U2Q{Pv8TWUgxlJOq<=Y(5=xsQsnoN(*=%+p(G9NeG
zd7Zw%i|d?O2KULNM)$P(+`KGP2}!J$d@|dmLWd#H7Z_)PF$+7QaZ$=mRU0KB?@658
zOX7vRIhzeRsbe{$P3OEO*-deKikGvNJ@jC$g*16OZs!?+Ryy5Bl*SWv6@OjA!=z{d
zJl-)GV-mo}pR^q#iybl7eIg(~-Rsv)N4kqhmK6g*s1@4|u0u?bDq&+6<QB*U@3E6F
zlrgr!8AhsvV#FY15SQ4K#!|UN11Cz3;0g<?IDCDCKu#~D4@hgNQhhkz?|VL{AmMMY
z+e3dzPEamg&nuK`KSH8>kM!N^kub-*S(?#^8RWAtdpCiHoxn@Z8tmJoK-sfT*BNI-
z^(!!(!t&=$g}g{o8mH83D(!evVMxh3_SMh)mW=PFPPMk}4fx2L(w9aCUFj-Zl~qoz
za?kalTk@Y02?mxGnj-$W1^vgy{W1STLt0VxuMYm&Ec?UoxA_B<9e-+_{c8AY1L3D>
z3$$SSrJeAr@m~eopQZpnD9R7x|3|+4)z7ag-cL_0sQ-P5ziE2EdihlV`RSz(;~(Xa
zUmg5fs{VAKhyTOD&%*Ur(_b_HPg5DFED2pk(64pCuO9xIH-Fj#01Ctaz~8dyujYRZ
jhJQA1fa*d2HUB*{D#{{2cNYM71pW9y6SY72Z@>NzTBDeN

literal 0
HcmV?d00001

diff --git a/TareasProgramadas/Tareas119.ashx b/TareasProgramadas/Tareas119.ashx
index dc0163785..18ff8f5a9 100644
--- a/TareasProgramadas/Tareas119.ashx
+++ b/TareasProgramadas/Tareas119.ashx
@@ -10,7 +10,8 @@ using System.Web.Services.Protocols;
 using GemBox.Spreadsheet;
 using System.Data;
 using System.Text;
-using System.Collections.Generic;
+using System.Collections.Generic;
+using ClosedXML;
 
 public class TareasJam : IHttpHandler
 {
@@ -63,6 +64,13 @@ public class TareasJam : IHttpHandler
         string RutaClientes = $@"{ HttpContext.Current.Server.MapPath("~") }Temp\Clientes{DateTime.Now.ToString("yyyyMMdd")}.xlsx";
         string RutaAlmacenes = $@"{ HttpContext.Current.Server.MapPath("~") }Temp\Almacenes{DateTime.Now.ToString("yyyyMMdd")}.xlsx";
 
+
+        string FormatoVentas =  $@"{ HttpContext.Current.Server.MapPath("~") }\TareasProgramadas\FormatosThalamus\FormatoVentas.xlsx";
+        string FormatoClientes =  $@"{ HttpContext.Current.Server.MapPath("~") }\TareasProgramadas\FormatosThalamus\FormatoClientes.xlsx";
+        string FormatoAlmacenes =  $@"{ HttpContext.Current.Server.MapPath("~") }\TareasProgramadas\FormatosThalamus\FormatoAlmacenes.xlsx";
+        string FormatoProductos = $@"{ HttpContext.Current.Server.MapPath("~") }\TareasProgramadas\FormatosThalamus\FormatoProductos.xlsx";
+
+
         try
         {
             if (File.Exists(RutaProductos))
@@ -91,14 +99,14 @@ public class TareasJam : IHttpHandler
         }
 
 
-        string FTPServer = "ftp://127.0.0.1/";
-        string TFPUsr = "Toor";
-        string FTPPass = "agj-3500";
+        //string FTPServer = "ftp://127.0.0.1/";
+        //string TFPUsr = "Toor";
+        //string FTPPass = "agj-3500";
 
 
-        //string FTPServer = "ftp://us2.hostedftp.com";
-        //string TFPUsr = "agrojam";
-        //string FTPPass = "A12345678";
+        string FTPServer = "ftp://us2.hostedftp.com";
+        string TFPUsr = "agrojam";
+        string FTPPass = "A12345678";
 
         bool ErrorProceso = false;
 
@@ -158,7 +166,7 @@ public class TareasJam : IHttpHandler
             try
             {
 
-                DTProductos.Columns[0].ColumnName = "Código Producto Interno ";
+                DTProductos.Columns[0].ColumnName = "Código Producto Interno";
                 DTProductos.Columns[1].ColumnName = "Nombre del Producto";
                 DTProductos.Columns[2].ColumnName = "Presentación";
                 DTProductos.AcceptChanges();
@@ -196,9 +204,6 @@ public class TareasJam : IHttpHandler
 
 
 
-
-
-
                 DataTable dtCloned = DTVentas.Clone();
                 dtCloned.Columns[3].DataType = typeof(string);
 
@@ -210,7 +215,7 @@ public class TareasJam : IHttpHandler
                 DTVentas = dtCloned;
                 foreach (DataRow dRow in DTVentas.Rows)
                 {
-                    string tmpDate = dRow[3].ToString().ToDate().ToString("yyyy/MM/dd");//.ToDate().ToString("yyyy/MM/dd").ToDate();
+                    string tmpDate = dRow[3].ToString().ToDate().ToString("yyyy/MM/dd");
                     dRow[3] = tmpDate;
                 }
 
@@ -228,106 +233,98 @@ public class TareasJam : IHttpHandler
                 DTAlmacenes = dtCloned;
                 foreach (DataRow dRow in DTAlmacenes.Rows)
                 {
-                    //DateTime tmpDate = dRow[3].ToString().ToDate().ToString("yyyy/MM/dd").ToDate();
                     string tmpDate = dRow[3].ToString().ToDate().ToString("yyyy/MM/dd");
                     dRow[3] = tmpDate;
                 }
                 DTAlmacenes.AcceptChanges();
 
-
-
             }
             catch (Exception e)
             {
                 SBLog.AppendLine("<b>Error al renombrar columnas</b>");
             }
-
-
         }
 
 
 
-
         if (!ErrorProceso)
         {
 
-            int contador = 0;
 
-            SpreadsheetInfo.SetLicense(Extensiones.ModExtensiones.SerialGemBoxSpreadsheet());
+            //////////////////////////////////////////////////////////////
+            int count = 2;
+            var wbVentas = new ClosedXML.Excel.XLWorkbook(FormatoVentas);
+            var wsVentas = wbVentas.Worksheet(1);
 
-            var workbookAlmacenes = new ExcelFile();
-            var worksheetAlmacenes = workbookAlmacenes.Worksheets.Add("Almacenes");
-            worksheetAlmacenes.InsertDataTable(DTAlmacenes, new InsertDataTableOptions()
+            foreach (DataRow DRow in DTVentas.Rows)
             {
-                ColumnHeaders = true,
-                StartRow = 0
-            });
+                wsVentas.Cell(count, 1).Value = "'" + DRow["systemId"].ToString();
+                wsVentas.Cell(count, 2).Value = DRow["Branch"].ToString();
+                wsVentas.Cell(count, 3).Value = "'" + DRow["Code"].ToString();
+                wsVentas.Cell(count, 4).Value = "'" + DRow["Sale Date"].ToString();
+                wsVentas.Cell(count, 5).Value = DRow["Quantity"].ToString();
+                wsVentas.Cell(count, 6).Value = DRow["Amount"].ToString();
+                wsVentas.Cell(count, 7).Value = DRow["Transaction ID"].ToString();
+                count++;
+            }
+            wbVentas.SaveAs(RutaVentas);
+
+            var wbAlmacenes = new ClosedXML.Excel.XLWorkbook(FormatoAlmacenes);
+            var wsAlmacenes = wbAlmacenes.Worksheet(1);
+
+            count = 2;
 
             foreach (DataRow DRow in DTAlmacenes.Rows)
             {
-
-                //contador++;
-                //var cell = worksheetAlmacenes.Cells[contador, 3];
-                //cell.Style.WrapText = true;
-
-
+                wsAlmacenes.Cell(count, 1).Value = "'" + DRow["Code"].ToString();
+                wsAlmacenes.Cell(count, 2).Value = DRow["Quantity"].ToString();
+                wsAlmacenes.Cell(count, 3).Value = DRow["Description"].ToString();
+                wsAlmacenes.Cell(count, 4).Value = "'" + DRow["Stock Date"].ToString();
+                count++;
             }
-            //worksheetAlmacenes.Columns[3].Style.NumberFormat = "yyyy/MM/dd";            
-            workbookAlmacenes.Save(RutaAlmacenes);
+            wbAlmacenes.SaveAs(RutaAlmacenes);
 
-            var workbookProductos = new ExcelFile();
-            var worksheetProductos = workbookProductos.Worksheets.Add("Productos");
-            worksheetProductos.InsertDataTable(DTProductos, new InsertDataTableOptions()
+            var wbAClientes = new ClosedXML.Excel.XLWorkbook(FormatoClientes);
+            var wsClientes = wbAClientes.Worksheet(1);
+
+            count = 2;
+
+            foreach (DataRow DRow in DTClientes.Rows)
             {
-                ColumnHeaders = true,
-                StartRow = 0
-            });
-            workbookProductos.Save(RutaProductos);
-
-            var workbookVentas = new ExcelFile();
-            var worksheetVentas = workbookVentas.Worksheets.Add("Ventas");
-            worksheetVentas.InsertDataTable(DTVentas, new InsertDataTableOptions()
-            {
-                ColumnHeaders = true,
-                StartRow = 0
-            });
-
-
-            contador = 0;
-            foreach (DataRow DRow in DTVentas.Rows)
-            {
-
-                //var value = DateTime.Now;
-                contador++;
-
-                var cell = worksheetVentas.Cells[contador, 3];
-                cell.Style.WrapText = false;
-                cell.Style.IsTextVertical = false;
-                    cell.Style.Font.Italic = false;
-
-                //cell.Style.NumberFormat = "h:mm AM/PM";  // "yyyy-MM-dd";                
-                //cell.SetValue(value);
-
+                wsClientes.Cell(count, 1).Value = "'" + DRow["systemId"].ToString();
+                wsClientes.Cell(count, 2).Value = DRow["fiscalIdMex"].ToString();
+                wsClientes.Cell(count, 3).Value = DRow["fiscalName"].ToString();
+                wsClientes.Cell(count, 4).Value = DRow["email"].ToString();
+                wsClientes.Cell(count, 5).Value = DRow["address.countryId"].ToString();
+                wsClientes.Cell(count, 6).Value = DRow["address.stateId"].ToString();
+                wsClientes.Cell(count, 7).Value = DRow["address.city"].ToString();
+                wsClientes.Cell(count, 8).Value = DRow["address.street1"].ToString();
+                wsClientes.Cell(count, 9).Value = DRow["address.street2"].ToString();
+                wsClientes.Cell(count, 10).Value = "'" + DRow["address.postalCode"].ToString();
+                wsClientes.Cell(count, 11).Value = DRow["phone.intCode"].ToString();
+                wsClientes.Cell(count, 12).Value = DRow["phone.areaCode"].ToString();
+                wsClientes.Cell(count, 13).Value = "'" + DRow["phone.number"].ToString();
+                wsClientes.Cell(count, 14).Value = DRow["salesman"].ToString();
 
+                count++;
             }
+            wbAClientes.SaveAs(RutaClientes);
 
-            //worksheetVentas.Columns[3].Style.NumberFormat = "yyyy/MM/dd";
+            var wbProductos= new ClosedXML.Excel.XLWorkbook(FormatoProductos);
+            var wsProductos = wbProductos.Worksheet(1);
 
-            workbookVentas.Save(RutaVentas);
+            count = 2;
 
-
-            var workbookClientes = new ExcelFile();
-            var worksheetClientes = workbookClientes.Worksheets.Add("Clientes");
-            worksheetClientes.InsertDataTable(DTClientes, new InsertDataTableOptions()
+            foreach (DataRow DRow in DTProductos.Rows)
             {
-                ColumnHeaders = true,
-                StartRow = 0
-            });
-            workbookClientes.Save(RutaClientes);
-
-
-
+                wsProductos.Cell(count, 1).Value = "'" + DRow["Código Producto Interno"].ToString();
+                wsProductos.Cell(count, 2).Value = DRow["Nombre del Producto"].ToString();
+                wsProductos.Cell(count, 3).Value = DRow["Presentación"].ToString();
 
+                count++;
+            }
+            wbProductos.SaveAs(RutaProductos);
+            /////////////////////////////////////////////////////////////
 
             var FInfoProductos = new FileInfo(RutaProductos);
             var FInfoVentas = new FileInfo(RutaVentas);
@@ -363,21 +360,22 @@ public class TareasJam : IHttpHandler
                 CargaVentas = CargarArchivos(FInfoVentas, $"{FTPServer}/Ventas", TFPUsr, FTPPass);
                 if (CargaVentas)
                 {
-                    CargaVentas = VerificarArchivo(FInfoVentas, FInfoVentas.Length,  $"{FTPServer}/Ventas", TFPUsr, FTPPass);
+                    CargaVentas = VerificarArchivo(FInfoVentas, FInfoVentas.Length, $"{FTPServer}/Ventas", TFPUsr, FTPPass);
                 }
             }
 
             if (CargaVentas)
             {
                 SBLog.AppendLine($"<tr><td>Ventas</td><td>ok</td></tr>");
-            }else
+            }
+            else
             {
                 SBLog.AppendLine($"<tr><td>Ventas</td><td>Error carga</td></tr>");
             }
 
             if (CargaProductos & CargaVentas)
             {
-                CargaClientes = CargarArchivos(FInfoClientes,  $"{FTPServer}/Clientes", TFPUsr, FTPPass);
+                CargaClientes = CargarArchivos(FInfoClientes, $"{FTPServer}/Clientes", TFPUsr, FTPPass);
                 if (CargaClientes)
                 {
                     CargaClientes = VerificarArchivo(FInfoClientes, FInfoClientes.Length, $"{FTPServer}/Clientes", TFPUsr, FTPPass);
@@ -387,12 +385,13 @@ public class TareasJam : IHttpHandler
             if (CargaClientes)
             {
                 SBLog.AppendLine($"<tr><td>Clientes</td><td>ok</td></tr>");
-            }else
+            }
+            else
             {
                 SBLog.AppendLine($"<tr><td>Clientes</td><td>Error carga</td></tr>");
             }
 
-            if (CargaProductos & CargaVentas& CargaClientes )
+            if (CargaProductos & CargaVentas & CargaClientes)
             {
                 CargaAlmacenes = CargarArchivos(FInfoAlmacenes, $"{FTPServer}/Stock", TFPUsr, FTPPass);
                 if (CargaClientes)
@@ -404,7 +403,8 @@ public class TareasJam : IHttpHandler
             if (CargaAlmacenes)
             {
                 SBLog.AppendLine($"<tr><td>Almacenes</td><td>ok</td></tr>");
-            }else
+            }
+            else
             {
                 SBLog.AppendLine($"<tr><td>Almacenes</td><td>Error carga</td></tr>");
             }
@@ -431,8 +431,6 @@ public class TareasJam : IHttpHandler
         string Cuerpo = Respuesta ? $"<b>Correcto</b><br>Tarea de carga de archios Corteva realizada correctamente<br> {SBLog.ToString()}" : $"<b>Error</b><br> Error tarea de carga de archios Corteva<br> {SBLog.ToString()}" ;
 
 
-
-
         MandaCorreo(Cuerpo, Respuesta, RutaProductos, RutaVentas, RutaClientes, RutaAlmacenes);
 
         return Respuesta;
@@ -457,14 +455,7 @@ public class TareasJam : IHttpHandler
             Ventas.Ruta = RutaVentas;
             Clientes.Ruta = RutaClientes;
             Almacenes.Ruta = RutaAlmacenes;
-
-            //FileInfo FIp = new FileInfo(RutaProductos);
-            //FileInfo FIv = new FileInfo(RutaVentas);
-            //FileInfo FIc = new FileInfo(RutaClientes);
-            //FileInfo FIa = new FileInfo(RutaAlmacenes);
-
-
-
+                
             ListaArchivos.Add(Productos);
             ListaArchivos.Add(Ventas);
             ListaArchivos.Add(Clientes);
@@ -472,8 +463,8 @@ public class TareasJam : IHttpHandler
 
 
             ClsSisMail Correo = new ClsSisMail();
-            // string Para = "julian@adssistemas.mx;rene.molina@adssistemas.mx;oscar.irigoyen@adssistemas.mx";
-            string Para = "oscar.irigoyen@adssistemas.mx";
+            string Para = "julian@adssistemas.mx;rene.molina@adssistemas.mx;oscar.irigoyen@adssistemas.mx";
+            //string Para = "oscar.irigoyen@adssistemas.mx";
             string Asunto = ErrorProceso ? $"Carga Layout Corteva  {DateTime.Now.ToString("yyyy-MM-dd")}" : $"Carga Layout Corteva Error {DateTime.Now.ToString("yyyy-MM-dd")}";
 
             Correo.SendMail(ClsPaginas.EmpresaNotificaciones, Para, Asunto, Cuerpo, Archivos:ListaArchivos);
@@ -488,7 +479,7 @@ public class TareasJam : IHttpHandler
     private bool CargarArchivos(FileInfo FInfo, string FTPServer, string FTPUsr, string FTPPass )
     {
         bool Respuesta;
-        //var FInfo = new FileInfo(RutaArchivo);
+        
         if (FInfo.Exists)
         {
             FtpWebRequest request = (FtpWebRequest)WebRequest.Create($"{FTPServer}/{FInfo.Name}");

From e0c788e85f03a911ef7269f5c2cd02b1d5b3adce Mon Sep 17 00:00:00 2001
From: Rakcsle Supertramp <rakcsle@outlook.com>
Date: Wed, 21 Oct 2020 08:47:07 -0700
Subject: [PATCH 5/9] Compras corrrecion, no igualar poliza si no se unifico

---
 App_Code/ClsContabilidad.vb | 20 ++++++++++++++++++++
 Compras/Compras.aspx.vb     |  6 +++++-
 2 files changed, 25 insertions(+), 1 deletion(-)

diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb
index a3e36c05a..64f7f20dc 100644
--- a/App_Code/ClsContabilidad.vb
+++ b/App_Code/ClsContabilidad.vb
@@ -68,6 +68,11 @@ Public Class ClsContabilidad
     Public Property ValorPolizaDescuadre As Integer
     Public Property MensajePolizaDescuadre As String
     Public Property ValorDiferencia As String
+
+    Public Property SeUnifico As Boolean = False
+    Public Property YaEstabaUnifida As Boolean = False
+    Public Property EstaContabilizada As Boolean = False
+
 #End Region
 
     Public Function IniciaTransacSQL() As SqlTransaction
@@ -756,16 +761,30 @@ Public Class ClsContabilidad
 
         Dim Retorno As Boolean = False
 
+        SeUnifico = False
+        YaEstabaUnifida = False
+        EstaContabilizada = False
+
         DataAdapter("PA_Conta_PrePolizaUnificacion")
 
         With SqlAdapter.SelectCommand.Parameters
             .Add("@CvePrePoliza", SqlDbType.Int).Value = CvePrePoliza
             .Add("@CvePrePolizaVieja", SqlDbType.Int).Value = CvePrePolizaVieja
+            .Add("@SeUnifico", SqlDbType.Bit).Direction = ParameterDirection.Output
+            .Add("@YaEstabaUnifida", SqlDbType.Bit).Direction = ParameterDirection.Output
+            .Add("@EstaContabilizada", SqlDbType.Bit).Direction = ParameterDirection.Output
         End With
 
         Try
+
             SqlAdapter.Fill(Data)
+
+            SeUnifico = Boolean.Parse(SqlAdapter.SelectCommand.Parameters("@SeUnifico").Value.ToString)
+            YaEstabaUnifida = Boolean.Parse(SqlAdapter.SelectCommand.Parameters("@YaEstabaUnifida").Value.ToString)
+            EstaContabilizada = Boolean.Parse(SqlAdapter.SelectCommand.Parameters("@EstaContabilizada").Value.ToString)
+
             Retorno = True
+
         Catch ex1 As SqlException
             OnError("Ocurrió un error al actualizar la Poliza Original", ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
         Catch ex As Exception
@@ -773,6 +792,7 @@ Public Class ClsContabilidad
         End Try
 
         Return Retorno
+
     End Function
 
     Public Function PrePolizaSimplificacion(CvePrePoliza As Integer, CveEmpresa As Integer) As Boolean
diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 6109d4080..b32f4197b 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -9340,7 +9340,11 @@ Partial Class Compras_Compras
                                 ErrorMovtosCxP = 1
                                 Alert("No se pudo unificar la prepoliza", TipoMensaje.MsgError)
                             End If
-                            CvePrePolizaNueva = CvePrepolizaPadre 'para que se unifique siempre la prepolizanueva
+
+                            If ObjConta.SeUnifico Then
+                                CvePrePolizaNueva = CvePrepolizaPadre 'para que se unifique siempre la prepolizanueva
+                            End If
+
                         End If
 
                         'Simplificacion de PrePolizas

From 897b04e407edd7d3825a1df2c848b13785b86230 Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Wed, 21 Oct 2020 13:07:29 -0700
Subject: [PATCH 6/9] Validacion de autorizaciones, limitar remisiones de nota
 de credito

---
 App_Code/ClsClientes.vb | 45 +++++++++++++++++++++--------------------
 Ventas/Ventas.aspx      |  8 ++++----
 Ventas/Ventas.aspx.vb   | 21 ++++++++++++-------
 3 files changed, 41 insertions(+), 33 deletions(-)

diff --git a/App_Code/ClsClientes.vb b/App_Code/ClsClientes.vb
index 1a081cf99..a4eb2d97a 100644
--- a/App_Code/ClsClientes.vb
+++ b/App_Code/ClsClientes.vb
@@ -2021,7 +2021,7 @@ Public Class ClsClientes
         Return Retorno
     End Function
 
-    Public Function UpdateEstatusPedido(CveVenta As Integer, CveEstatusFactura As Integer, Dias As Integer, CveUsuario As Integer) As Boolean
+    Public Function UpdateEstatusPedido(CveVenta As Integer, CveEstatusFactura As Integer, Dias As Integer, CveUsuario As Integer, Optional CveRemision As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Vta_ClienteVentasPedidoEstatusUpdate")
         With SqlAdapter.SelectCommand.Parameters
@@ -2029,6 +2029,7 @@ Public Class ClsClientes
             .Add("@CveEstatusFactura", SqlDbType.Int).Value = CveEstatusFactura
             .Add("@Dias", SqlDbType.Int).Value = Dias
             .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+            .Add("@CveRemision", SqlDbType.Int).Value = CveRemision
         End With
         Try
             SqlAdapter.Fill(Data)
@@ -2037,28 +2038,28 @@ Public Class ClsClientes
             OnError("Ocurrió un error al actualizar el pedido del cliente.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
         End Try
         Return Retorno
-    End Function
-
-    'Public Function UpdateFechaPedido(CveVenta As Integer, DiasCredito As Integer) As Boolean
-    '    Dim Retorno As Boolean = False
-    '    DataAdapter("PA_Vta_ClienteVentasPedidoFechaUpdate")
-    '    With SqlAdapter.SelectCommand.Parameters
-    '        .Add("@CveVenta", SqlDbType.Int).Value = CveVenta
-    '        .Add("@DiasCredito", SqlDbType.Int).Value = DiasCredito
-    '    End With
-    '    Try
-    '        SqlAdapter.Fill(Data)
-    '        Retorno = True
-    '    Catch ex As Exception
-    '        OnError("Ocurrió un error al actualizar la fecha del pedido del cliente.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-    '    End Try
-    '    Return Retorno
-    'End Function
-
-
-
+    End Function
+
+    'Public Function UpdateFechaPedido(CveVenta As Integer, DiasCredito As Integer) As Boolean
+    '    Dim Retorno As Boolean = False
+    '    DataAdapter("PA_Vta_ClienteVentasPedidoFechaUpdate")
+    '    With SqlAdapter.SelectCommand.Parameters
+    '        .Add("@CveVenta", SqlDbType.Int).Value = CveVenta
+    '        .Add("@DiasCredito", SqlDbType.Int).Value = DiasCredito
+    '    End With
+    '    Try
+    '        SqlAdapter.Fill(Data)
+    '        Retorno = True
+    '    Catch ex As Exception
+    '        OnError("Ocurrió un error al actualizar la fecha del pedido del cliente.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+    '    End Try
+    '    Return Retorno
+    'End Function
+
+
+
 #End Region
-
+
 #Region "A P L I C A C I O N"
     Public Function AddClienteApp(Cliente As MCliente) As Boolean
         Dim Retorno As Boolean = False
diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx
index 5ac9815d2..32824988f 100644
--- a/Ventas/Ventas.aspx
+++ b/Ventas/Ventas.aspx
@@ -6235,8 +6235,8 @@
                                     </div>
                                     <div class="col-md-10">
                                         <asp:DropDownList ID="DdlVentaUsado" runat="server" AutoPostBack="true" AppendDataBoundItems="true" DataTextField="Folio" DataValueField="CveVenta" Width="100%" CssClass="select2me" OnSelectedIndexChanged="DdlVentaUsado_SelectedIndexChanged"></asp:DropDownList>
-                                        <asp:RequiredFieldValidator ID="RFVVentaUsado" runat="server" InitialValue="-1" ControlToValidate="DdlVentaUsado" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Factura''</b> es necesario, por favor ingréselo." ValidationGroup="VGAplicarRNC"></asp:RequiredFieldValidator>
-                                        <ajax:ValidatorCalloutExtender ID="VCEVentaUsado" runat="server" HighlightCssClass="vco" TargetControlID="RFVVentaUsado" Width="350px"></ajax:ValidatorCalloutExtender>
+<%--                                        <asp:RequiredFieldValidator ID="RFVVentaUsado" runat="server" InitialValue="-1" ControlToValidate="DdlVentaUsado" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Factura''</b> es necesario, por favor ingréselo." ValidationGroup="VGAplicarRNC"></asp:RequiredFieldValidator>
+                                        <ajax:ValidatorCalloutExtender ID="VCEVentaUsado" runat="server" HighlightCssClass="vco" TargetControlID="RFVVentaUsado" Width="350px"></ajax:ValidatorCalloutExtender>--%>
                                     </div>
                                 </div>
                             </div>
@@ -6293,14 +6293,14 @@
                                                         </asp:TemplateField>
                                                         <asp:TemplateField>
                                                             <ItemTemplate>
-                                                                <asp:TextBox ID="TxtImporte" CssClass="myvalue" runat="server" Width="75px" />
+                                                                <asp:TextBox ID="TxtImporte" CssClass="myvalue ImportesRNCCargo" runat="server" Width="75px" />
                                                             </ItemTemplate>
                                                         </asp:TemplateField>
                                                     </Columns>
                                                 </asp:GridView>
                                             </div>
                                         </div>
-                                        <div class="row">
+                                        <div class="row" id="DivSMU" runat="server" visible="false">
                                             <div class="col-md-12">
                                                 <table border="0" rules="none" class="well TextTab" style="float: right;" runat="server">
                                                     <tr align="right">
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 8df466012..e0d31aa62 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -2160,6 +2160,7 @@ Partial Class Ventas
             'Carga Venta
             If Request("CveVenta") IsNot Nothing AndAlso IsNumeric(Request("CveVenta")) AndAlso Request("CveVenta").ToEntero() > 0 Then
                 ViewState("CveVenta") = Request("CveVenta")
+
                 If CargaVenta() Then
 
                     'DdlSucursal.Enabled = False
@@ -2694,7 +2695,7 @@ Partial Class Ventas
                 TrPedido.Visible = False
                 ' TrKilometrajeTxt.Visible = True
             End If
-            LtlTareaNueva.Text = String.Format("<a class=""caption-subject bold font-green"" onclick=""OpenModalNewTareaUserControl(1,-1,{{CveVenta:{0}}});""> <i class=""fa fa-plus""'></i> Tarea</a>", CveVenta)
+            LtlTareaNueva.Text = String.Format("<a class=""caption-subject bold font-green"" onclick=""OpenModalNewTareaUserControl(1,-1,{{CveVenta:{0}}});""> <i class=""fa fa-plus""></i> Tarea</a>", CveVenta)
 
         End If
 
@@ -5415,7 +5416,7 @@ Partial Class Ventas
 
             DdlVentaUsado.DataBind()
 
-            DdlVentaUsado.Items.Insert(0, New ListItem("Seleccione", "-1"))
+            DdlVentaUsado.Items.Insert(0, New ListItem("No Aplica", "-1"))
 
             UpModalRemisionesNC.Update()
         End If
@@ -10190,7 +10191,7 @@ Partial Class Ventas
 
             'PedidoA'
             If ObjVentas.CveVenta > 0 And CvePedidoA > 0 And DdlTipoComprobante.SelectedValue.Contiene("Rem") Then
-                If Not ObjCliente.UpdateEstatusPedido(CvePedidoA, 18, -1, UsuarioActual.CveUsuario) Then
+                If Not ObjCliente.UpdateEstatusPedido(CvePedidoA, 18, -1, UsuarioActual.CveUsuario, CveRemision:=factura.CveVenta) Then
                     ErrorList.Add("Ocurrió un error al actualizar el estatus del pedidoA")
                 End If
             End If
@@ -23116,13 +23117,19 @@ Partial Class Ventas
         GvRemisionesNCBon.DataBind()
 
         If CveVentaUsado > 0 Then
+            DivSMU.Visible = True
             Dim FacUsado As New Modelos.Factura(UsuarioActual, CveVentaUsado, UsuarioActual.CveEmpresa)
-            LtlSMU.Text = String.Format("{0:N2}", FacUsado.DtDetalle.SUM("Total", "EsCargo = True").ToDecimal() + FacUsado.DtDetalle.SUM("ImporteIVA", "EsCargo = True").ToDecimal())
+            Dim SaldoMaximoUsados As Decimal = FacUsado.DtDetalle.SUM("Total", "EsCargo = True").ToDecimal() + FacUsado.DtDetalle.SUM("ImporteIVA", "EsCargo = True").ToDecimal()
+            HdnSaldoMaximoUsados.Value = SaldoMaximoUsados.ToString()
+            LtlSMU.Text = String.Format("{0:N2}", SaldoMaximoUsados)
         Else
-            LtlSMU.Text = String.Format("{0:N2}", 0)
+            DivSMU.Visible = False
+            HdnSaldoMaximoUsados.Value = "0"
+            LtlSMU.Text = "0"
         End If
 
         UpModalRemisionesNC.Update()
+        UpDescNC.Update()
     End Sub
     Private Sub CargaDescRNC()
         Dim DtNC As DataTable = Nothing
@@ -23318,8 +23325,8 @@ Partial Class Ventas
     End Sub
     Protected Sub GvRemisionesNC_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvRemisionesNC.RowDataBound
         If e.Row.RowType = DataControlRowType.DataRow Then
-            e.Row.FCCheckBox("ChkAplicar").Attributes.Add("onclick", $"CalculaTotalRNCChk({e.Row.FCTextBox("TxtImporte").ClientID},{e.Row.DBCampo("Saldo").ToDouble}, this);")
-            e.Row.FCTextBox("TxtImporte").Attributes.Add("onkeyup", $"LimitaCantidadRNCMasivo({e.Row.FCTextBox("TxtImporte").ClientID},{e.Row.DBCampo("Saldo").ToDouble}, this);")
+            e.Row.FCCheckBox("ChkAplicar").Attributes.Add("onclick", $"CalculaSaldoRNCChk({e.Row.FCTextBox("TxtImporte").ClientID},{e.Row.DBCampo("Saldo").ToDouble}, this);")
+            e.Row.FCTextBox("TxtImporte").Attributes.Add("onkeyup", $"LimitaSaldoRNCChk({e.Row.FCTextBox("TxtImporte").ClientID},{e.Row.DBCampo("Saldo").ToDouble}, this);")
         End If
     End Sub
 

From 398ad6b07f6a7fde22bafb36358533700b6233e1 Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Wed, 21 Oct 2020 13:07:52 -0700
Subject: [PATCH 7/9] validacion de folios de garantia

---
 Inventarios/RecepcionUsados.aspx.vb | 80 ++++++++++++++++++++++++++++-
 Ventas/PV.aspx.vb                   | 79 ++++++++++++++++++++++++++++
 2 files changed, 158 insertions(+), 1 deletion(-)

diff --git a/Inventarios/RecepcionUsados.aspx.vb b/Inventarios/RecepcionUsados.aspx.vb
index f6d0d68aa..95c54e78b 100644
--- a/Inventarios/RecepcionUsados.aspx.vb
+++ b/Inventarios/RecepcionUsados.aspx.vb
@@ -2616,11 +2616,71 @@ Partial Class Inventarios_RecepcionUsados
         If ObjAcumuladores.GetNuevoConsecutivoFolio(DdlFolioGarantia.SelectedValue.ToEntero) Then
             Dim resultado As String = ObjAcumuladores.DtResultados.FiltroPrimeroValor("NuevoConsecutivo")
             TxtConsecutivoAjuste.Text = (resultado.ToEntero + 1).ToString
-            UpAjuste.Update()
         End If
         ObjAcumuladores.Dispose()
+
+        Dim FolioGarantia As MFolioGarantiaMensaje = ValidaFolioGarantia(DdlPSAjuste.SelectedValue.ToEntero(), DdlFolioGarantia.SelectedValue.ToEntero())
+
+        If Not FolioGarantia.Valido Then
+            Alert($"El folio de garantía no es valido.<br/> Clasificacion del Producto:{FolioGarantia.ClasificacionPS}.<br/>Tipo Folio:{FolioGarantia.TipoFolio}", TipoMensaje.MsgAdvertencia)
+        End If
+
     End Sub
 
+    Private Function ValidaFolioGarantia(CvePS As Integer, CveFolioGarantia As Integer) As MFolioGarantiaMensaje
+        Dim Retorno As New MFolioGarantiaMensaje
+
+        Dim Valido As Boolean = False
+        Dim TipoFolio As String = ""
+        Dim ListaClasificacionesPermitidas As New List(Of Integer)
+
+        Dim ObjAcumuladores As New ClsAcumuladores
+        If ObjAcumuladores.FoliosGarantiaGet(CveFolioGarantia, UsuarioActual.CveEmpresa, Area:=-1) AndAlso ObjAcumuladores.DtResultados.Rows.Count > 0 Then
+            Dim Row As DataRow = ObjAcumuladores.DtResultados.Rows(0)
+            TipoFolio = Row("tipoFolio").ToString().ToUpper()
+        End If
+        ObjAcumuladores.Dispose()
+
+        Dim CveClasificacionPS As Integer = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CvePS:=CvePS).FiltroPrimeroValor("CveClasificacion").ToEntero()
+        Dim ClasificacionPS As String = GlobalDTClasificaciones(CveEmpresa:=UsuarioActual.CveEmpresa, CveClasificacion:=CveClasificacionPS).FiltroPrimeroValor("Clasificacion").ToString()
+        Select Case TipoFolio
+            Case "GENERAL"
+                '20520        ACUM. AUTOMOTRIZ
+                '20522       ACUM. ESPECIALES
+                '20513       ACUM. ESTANDAR
+                '20521       ACUM. PESADO
+                '20512       ACUM. PREMIUM
+                '20514       ACUM. VALUE
+                '20229       Acumulador
+                ListaClasificacionesPermitidas.Add(20520) 'ACUM. AUTOMOTRIZ 
+                ListaClasificacionesPermitidas.Add(20522) 'ACUM. ESPECIALES 
+                ListaClasificacionesPermitidas.Add(20513) 'ACUM. ESTANDAR 
+                ListaClasificacionesPermitidas.Add(20521) 'ACUM. PESADO 
+                ListaClasificacionesPermitidas.Add(20512) 'ACUM. PREMIUM 
+                ListaClasificacionesPermitidas.Add(20514) 'ACUM. VALUE 
+                ListaClasificacionesPermitidas.Add(20229) 'Acumulador 
+            Case "OPTIMA"
+                '20511       ACUM. OPTIMA
+                ListaClasificacionesPermitidas.Add(20511) 'ACUM. OPTIMA 
+            Case "MOTOBATERIA"
+                '20517		MOTOBATERIAS
+                ListaClasificacionesPermitidas.Add(20517) 'MOTOBATERIAS 
+        End Select
+
+        If ListaClasificacionesPermitidas.Contains(CveClasificacionPS) Then
+            Valido = True
+        End If
+
+        Retorno.CvePS = CvePS
+        Retorno.CveFolioGarantia = CveFolioGarantia
+        Retorno.CveClasificacionPS = CveClasificacionPS
+        Retorno.ClasificacionPS = ClasificacionPS
+        Retorno.TipoFolio = TipoFolio
+        Retorno.Valido = Valido
+
+        Return Retorno
+    End Function
+
     Protected Sub CargaTipoDeUso()
         DdlTipoUso.Items.Clear()
         DdlTipoUso.DataSource = GlobalDTAcumTiposUso.FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa}")
@@ -2767,6 +2827,14 @@ Partial Class Inventarios_RecepcionUsados
 
     Protected Sub BtnAgregarProductoAjuste_Click(sender As Object, e As EventArgs)
         Dim CvePS As Integer = DdlPSAjuste.SelectedValue.ToEntero
+
+        Dim FolioGarantia As MFolioGarantiaMensaje = ValidaFolioGarantia(CvePS, DdlFolioGarantia.SelectedValue.ToEntero())
+
+        If Not FolioGarantia.Valido Then
+            Alert($"El folio de garantía no es valido.<br/> Clasificacion del Producto:{FolioGarantia.ClasificacionPS}.<br/>Tipo Folio:{FolioGarantia.TipoFolio}", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
+
         Dim ObjPS As New ClsProductosServicios
         Dim CveTamaño As Integer = -1
         If ObjPS.GetPS(CvePS, -1, UsuarioActual.CveEmpresa) Then
@@ -2809,4 +2877,14 @@ Partial Class Inventarios_RecepcionUsados
         InicializaClientes(ChkClientesTodos.Checked)
     End Sub
 
+    Partial Class MFolioGarantiaMensaje
+        Public Property CvePS As Integer
+        Public Property CveClasificacionPS As Integer
+        Public Property ClasificacionPS As String
+        Public Property CveFolioGarantia As Integer
+        Public Property TipoFolio As String
+
+        Public Property Valido As Boolean
+    End Class
+
 End Class
diff --git a/Ventas/PV.aspx.vb b/Ventas/PV.aspx.vb
index ec3ef198f..d16917935 100644
--- a/Ventas/PV.aspx.vb
+++ b/Ventas/PV.aspx.vb
@@ -4671,6 +4671,15 @@ Partial Class PV
         RegistraScript("$('#DivAddVenta').modal({backdrop: 'static', keyboard: false});", "EdicionVenta")
     End Sub
     Protected Sub LnkAgregarPS_Click(sender As Object, e As EventArgs)
+        If ChkAjuste.Checked Then
+            Dim FolioGarantia As MFolioGarantiaMensaje = ValidaFolioGarantia(DdlPSAjuste.SelectedValue.ToEntero(), DdlFolioGarantia.SelectedValue.ToEntero())
+
+            If Not FolioGarantia.Valido Then
+                Alert($"El folio de garantía no es valido.<br/> Clasificacion del Producto:{FolioGarantia.ClasificacionPS}.<br/>Tipo Folio:{FolioGarantia.TipoFolio}", TipoMensaje.MsgAdvertencia)
+                Exit Sub
+            End If
+        End If
+
         If AgregarPS() Then
             If ChkAjuste.Checked Then GuardaAjuste()
             AddPolizaVirtual(DdlPS.SelectedValue.ToEntero())
@@ -6511,6 +6520,12 @@ Partial Class PV
             UpAjuste.Update()
         End If
         ObjAcumuladores.Dispose()
+
+        Dim FolioGarantia As MFolioGarantiaMensaje = ValidaFolioGarantia(DdlPSAjuste.SelectedValue.ToEntero(), DdlFolioGarantia.SelectedValue.ToEntero())
+
+        If Not FolioGarantia.Valido Then
+            Alert($"El folio de garantía no es valido.<br/> Clasificacion del Producto:{FolioGarantia.ClasificacionPS}.<br/>Tipo Folio:{FolioGarantia.TipoFolio}", TipoMensaje.MsgAdvertencia)
+        End If
     End Sub
 
 #End Region
@@ -6991,4 +7006,68 @@ Partial Class PV
         ImprimirPDF("Empresas/Grales/Formatos/Ajuste.rdlc", DtDatos, params, "Reporte de Ajuste", "PDF")
 
     End Sub
+
+    Private Function ValidaFolioGarantia(CvePS As Integer, CveFolioGarantia As Integer) As MFolioGarantiaMensaje
+        Dim Retorno As New MFolioGarantiaMensaje
+
+        Dim Valido As Boolean = False
+        Dim TipoFolio As String = ""
+        Dim ListaClasificacionesPermitidas As New List(Of Integer)
+
+        Dim ObjAcumuladores As New ClsAcumuladores
+        If ObjAcumuladores.FoliosGarantiaGet(CveFolioGarantia, UsuarioActual.CveEmpresa, Area:=-1) AndAlso ObjAcumuladores.DtResultados.Rows.Count > 0 Then
+            Dim Row As DataRow = ObjAcumuladores.DtResultados.Rows(0)
+            TipoFolio = Row("tipoFolio").ToString().ToUpper()
+        End If
+        ObjAcumuladores.Dispose()
+
+        Dim CveClasificacionPS As Integer = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CvePS:=CvePS).FiltroPrimeroValor("CveClasificacion").ToEntero()
+        Dim ClasificacionPS As String = GlobalDTClasificaciones(CveEmpresa:=UsuarioActual.CveEmpresa, CveClasificacion:=CveClasificacionPS).FiltroPrimeroValor("Clasificacion").ToString()
+        Select Case TipoFolio
+            Case "GENERAL"
+                '20520        ACUM. AUTOMOTRIZ
+                '20522       ACUM. ESPECIALES
+                '20513       ACUM. ESTANDAR
+                '20521       ACUM. PESADO
+                '20512       ACUM. PREMIUM
+                '20514       ACUM. VALUE
+                '20229       Acumulador
+                ListaClasificacionesPermitidas.Add(20520) 'ACUM. AUTOMOTRIZ 
+                ListaClasificacionesPermitidas.Add(20522) 'ACUM. ESPECIALES 
+                ListaClasificacionesPermitidas.Add(20513) 'ACUM. ESTANDAR 
+                ListaClasificacionesPermitidas.Add(20521) 'ACUM. PESADO 
+                ListaClasificacionesPermitidas.Add(20512) 'ACUM. PREMIUM 
+                ListaClasificacionesPermitidas.Add(20514) 'ACUM. VALUE 
+                ListaClasificacionesPermitidas.Add(20229) 'Acumulador 
+            Case "OPTIMA"
+                '20511       ACUM. OPTIMA
+                ListaClasificacionesPermitidas.Add(20511) 'ACUM. OPTIMA 
+            Case "MOTOBATERIA"
+                '20517		MOTOBATERIAS
+                ListaClasificacionesPermitidas.Add(20517) 'MOTOBATERIAS 
+        End Select
+
+        If ListaClasificacionesPermitidas.Contains(CveClasificacionPS) Then
+            Valido = True
+        End If
+
+        Retorno.CvePS = CvePS
+        Retorno.CveFolioGarantia = CveFolioGarantia
+        Retorno.CveClasificacionPS = CveClasificacionPS
+        Retorno.ClasificacionPS = ClasificacionPS
+        Retorno.TipoFolio = TipoFolio
+        Retorno.Valido = Valido
+
+        Return Retorno
+    End Function
+
+    Partial Class MFolioGarantiaMensaje
+        Public Property CvePS As Integer
+        Public Property CveClasificacionPS As Integer
+        Public Property ClasificacionPS As String
+        Public Property CveFolioGarantia As Integer
+        Public Property TipoFolio As String
+
+        Public Property Valido As Boolean
+    End Class
 End Class

From 4ea51ad6fe77f7564108bb3b4e1b9d1c65e93864 Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Wed, 21 Oct 2020 13:08:32 -0700
Subject: [PATCH 8/9] Cancelacion de refacturaciones

---
 App_Code/Modelos.vb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb
index 5a6c518e0..2f8750b96 100644
--- a/App_Code/Modelos.vb
+++ b/App_Code/Modelos.vb
@@ -3332,7 +3332,7 @@ Namespace Modelos
 
                 'SI ES FACTURACION DE UNA REMISION CANCELAMOS, TRASPASAMOS SALDOS Y AGREGAMOS EVENTO A LA BITACORA
                 'NO DEBE ENTRAR SI SE ESTA CANCELANDO UNA FACTURA
-                If ValorMultiplicador <> -1 AndAlso (DtRemisionesRelacionadas IsNot Nothing AndAlso DtRemisionesRelacionadas.Rows.Count > 0) OrElse ObjFactura.RemisionesLista.Count > 0 Then
+                If ValorMultiplicador <> -1 AndAlso ((DtRemisionesRelacionadas IsNot Nothing AndAlso DtRemisionesRelacionadas.Rows.Count > 0) OrElse ObjFactura.RemisionesLista.Count > 0) Then
 
                     If Not ObjFactura.TipoDocto.Contiene("Ing", "Ant") Then
                         ErrorPrepoliza = True

From 6781ec1feaf679c5676321be67e073d7dd4b6833 Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Wed, 21 Oct 2020 13:08:58 -0700
Subject: [PATCH 9/9] CveUsuarioModifico al cambiar permisos

---
 Sistemas/PopUpAddUsuario.aspx.vb | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/Sistemas/PopUpAddUsuario.aspx.vb b/Sistemas/PopUpAddUsuario.aspx.vb
index 9380667be..01376ea94 100644
--- a/Sistemas/PopUpAddUsuario.aspx.vb
+++ b/Sistemas/PopUpAddUsuario.aspx.vb
@@ -321,7 +321,7 @@ Partial Class Sistemas_PopUpAddUsuario
                         If Row.DataKey("CveProcesoAcceso") <> "" Then
                             'checo si el permiso que tiene es del rol, de ser así, nada más actualizo los denegados
                             If Row.DataKey("Permitir") = "" AndAlso Row.FCCheckBox("ChkD").Checked OrElse Row.DataKey("Permitir") = "0" AndAlso Row.FCCheckBox("ChkD").Checked = False Then
-                                If Not ObjUsuarios.UpdateUsuariosProcesos(CveUsuario, Row.DataKey("CveProceso").ToEntero, Not Row.FCCheckBox("ChkD").Checked) Then
+                                If Not ObjUsuarios.UpdateUsuariosProcesos(CveUsuario, Row.DataKey("CveProceso").ToEntero, Not Row.FCCheckBox("ChkD").Checked, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
                                     HuboError = True
                                     Exit For
                                 End If
@@ -329,7 +329,7 @@ Partial Class Sistemas_PopUpAddUsuario
                         Else
                             'permisos que el rol, no le está otorgando, y serán únicos para el usuario
                             If Row.DataKey("Permitir") = "" AndAlso Row.FCCheckBox("ChkP").Checked OrElse Row.DataKey("Permitir") = "1" AndAlso Row.FCCheckBox("ChkP").Checked = False Then
-                                If Not ObjUsuarios.UpdateUsuariosProcesos(CveUsuario, Row.DataKey("CveProceso").ToEntero, Row.FCCheckBox("ChkP").Checked) Then
+                                If Not ObjUsuarios.UpdateUsuariosProcesos(CveUsuario, Row.DataKey("CveProceso").ToEntero, Row.FCCheckBox("ChkP").Checked, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
                                     HuboError = True
                                     Exit For
                                 End If
@@ -340,7 +340,7 @@ Partial Class Sistemas_PopUpAddUsuario
                         If Row.DataKey("CveProcesoAcceso") <> "" Then
                             'checo si el permiso que tiene es del rol, de ser así, nada más actualizo los denegados
                             If Row.DataKey("Permitir") = "" AndAlso Row.FCCheckBox("ChkDenegar").Checked OrElse Row.DataKey("Permitir") = "0" AndAlso Row.FCCheckBox("ChkDenegar").Checked = False Then
-                                If Not ObjUsuarios.UpdateUsuariosProcesos(CveUsuario, Row.DataKey("CveProceso").ToEntero, Not Row.FCCheckBox("ChkDenegar").Checked) Then
+                                If Not ObjUsuarios.UpdateUsuariosProcesos(CveUsuario, Row.DataKey("CveProceso").ToEntero, Not Row.FCCheckBox("ChkDenegar").Checked, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
                                     HuboError = True
                                     Exit For
                                 End If
@@ -348,7 +348,7 @@ Partial Class Sistemas_PopUpAddUsuario
                         Else
                             'permisos que el rol, no le está otorgando, y serán únicos para el usuario
                             If Row.DataKey("Permitir") = "" AndAlso Row.FCCheckBox("ChkPermitir").Checked OrElse Row.DataKey("Permitir") = "1" AndAlso Row.FCCheckBox("ChkPermitir").Checked = False Then
-                                If Not ObjUsuarios.UpdateUsuariosProcesos(CveUsuario, Row.DataKey("CveProceso").ToEntero, Row.FCCheckBox("ChkPermitir").Checked) Then
+                                If Not ObjUsuarios.UpdateUsuariosProcesos(CveUsuario, Row.DataKey("CveProceso").ToEntero, Row.FCCheckBox("ChkPermitir").Checked, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
                                     HuboError = True
                                     Exit For
                                 End If
@@ -490,7 +490,7 @@ Partial Class Sistemas_PopUpAddUsuario
                         If Row.DataKey("CveProcesoAcceso") <> "" Then
                             'checo si el permiso que tiene es del rol, de ser así, nada más actualizo los denegados
                             If Row.DataKey("Permitir") = "" AndAlso Row.FCCheckBox("ChkD").Checked OrElse Row.DataKey("Permitir") = "0" AndAlso Row.FCCheckBox("ChkD").Checked = False Then
-                                If Not ObjUsuarios.UpdateUsuariosProcesos(CveUsuario, Row.DataKey("CveProceso").ToEntero, Not Row.FCCheckBox("ChkD").Checked) Then
+                                If Not ObjUsuarios.UpdateUsuariosProcesos(CveUsuario, Row.DataKey("CveProceso").ToEntero, Not Row.FCCheckBox("ChkD").Checked, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
                                     HuboError = True
                                     Exit For
                                 End If
@@ -498,7 +498,7 @@ Partial Class Sistemas_PopUpAddUsuario
                         Else
                             'permisos que el rol, no le está otorgando, y serán únicos para el usuario
                             If Row.DataKey("Permitir") = "" AndAlso Row.FCCheckBox("ChkP").Checked OrElse Row.DataKey("Permitir") = "1" AndAlso Row.FCCheckBox("ChkP").Checked = False Then
-                                If Not ObjUsuarios.UpdateUsuariosProcesos(CveUsuario, Row.DataKey("CveProceso").ToEntero, Row.FCCheckBox("ChkP").Checked) Then
+                                If Not ObjUsuarios.UpdateUsuariosProcesos(CveUsuario, Row.DataKey("CveProceso").ToEntero, Row.FCCheckBox("ChkP").Checked, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
                                     HuboError = True
                                     Exit For
                                 End If