From e3917bb04f0524d9b091406f23c730d69745053b Mon Sep 17 00:00:00 2001
From: rrene <rrene@DESKTOP-04EII7E>
Date: Tue, 2 Jun 2020 08:14:57 -0700
Subject: [PATCH] -- cambios guias

---
 Compras/Compras.aspx                          | 13 ++++++-------
 Compras/Compras.aspx.vb                       |  4 +++-
 General/PopUpPaqueteriasGuiasInternas.aspx.cs |  4 ++--
 Ventas/Clientes.aspx.vb                       |  2 +-
 Ventas/Ventas.aspx.vb                         |  2 +-
 5 files changed, 13 insertions(+), 12 deletions(-)

diff --git a/Compras/Compras.aspx b/Compras/Compras.aspx
index 7c5b5214e..ecbbb6b28 100644
--- a/Compras/Compras.aspx
+++ b/Compras/Compras.aspx
@@ -2364,10 +2364,8 @@
 
                             <table>
                                 <tr id="TrRembolsoUpdate" runat="server" visible="False">
-                                    <td>Rembolso:
-                                       
-                                       
-
+                                    <td>Reembolso:
+                                        
                                         <asp:RadioButtonList ID="RblRembolso" OnSelectedIndexChanged="RblRembolso_SelectedIndexChanged" RepeatDirection="Horizontal" runat="server" AutoPostBack="True">
                                             <asp:ListItem Value="1">Personal/Empleado</asp:ListItem>
                                             <asp:ListItem Value="2">Caja Chica</asp:ListItem>
@@ -2554,10 +2552,11 @@
                     <asp:UpdatePanel ID="UpFacturar" runat="server" UpdateMode="Conditional">
                         <ContentTemplate>
 
-                            <asp:Button ID="BtnGuardar" CssClass="btn btn-primary " runat="server" data-toggle="confirmation" data-popout="true" data-original-title="<b>Verifique los datos para continuar</b>. <br/><br/> <center>¿Seguro de registrar el documento con la información actual?</center>" data-btn-ok-label="si" Text="Registrar Compra" />
+                            <asp:Button ID="BtnGuardar" CssClass="btn btn-primary " runat="server"  ValidationGroup="GrpGuardar" data-toggle="confirmation" data-popout="true" data-original-title="<b>Verifique los datos para continuar</b>. <br/><br/> <center>¿Seguro de registrar el documento con la información actual?</center>" data-btn-ok-label="si" Text="Registrar Compra" />
                             <asp:Button ID="BtnActualizar" CssClass="btn btn-success" runat="server" Text="Actualizar Compra" ValidationGroup="GrpGuardar" Visible="False" />
                             <br />
                             <br />
+                           
                             <asp:Button ID="BtnEliminarCompra" CssClass="btn btn-danger" Visible="False" runat="server" Text="Eliminar Compra" data-toggle="confirmation" data-popout="true" data-original-title="¿Seguro que desea eliminar la compra?" data-btn-ok-label="si" />
                             <br />
                             <br />
@@ -3920,8 +3919,8 @@
                                     <div class="row">
                                         <div class="col-md-2" style="width: 90%; margin-left: 5%; margin-right: 5%; text-align: left">
                                             <asp:TextBox ID="TxtNumeroReembolso" runat="server" Width="100%" />
-                                            <asp:RequiredFieldValidator ID="RFVNumeroReembolso" runat="server" ControlToValidate="TxtNumeroReembolso" InitialValue="" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Numero de Reembolso''</b> es necesario, por favor seleccione uno." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
-                                            <ajax:ValidatorCalloutExtender ID="VCENumeroReembolso" runat="server" HighlightCssClass="vco" TargetControlID="RFVNumeroReembolso" Width="300px"></ajax:ValidatorCalloutExtender>
+                                           <%-- <asp:RequiredFieldValidator ID="RFVNumeroReembolso" runat="server" ControlToValidate="TxtNumeroReembolso" InitialValue="" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Numero de Reembolsoxx''</b> es necesario, por favor seleccione uno." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
+                                            <ajax:ValidatorCalloutExtender ID="VCENumeroReembolso" runat="server" HighlightCssClass="vco" TargetControlID="RFVNumeroReembolso" Width="300px"></ajax:ValidatorCalloutExtender>--%>
                                         </div>
                                     </div>
                                 </div>
diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 69e205ef3..1ee181a35 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -10695,7 +10695,6 @@ Partial Class Compras_Compras
 
                 'VALIDA UNIDAD DE MEDIDA
                 If e.Row.DBCampo("CvePS").ToString.ToEntero > 0 Then
-                    Dim DtEquivalencias = GlobalDTProductosServiciosEquivalencias(e.Row.DBCampo("CvePS").ToString.ToEntero, -1, UsuarioActual.CveEmpresa)
 
                     'SI UM NO ESTA REGISTRADA
                     If e.Row.DBCampo("CveUM").ToString.ToEntero <= 0 Then
@@ -10707,6 +10706,8 @@ Partial Class Compras_Compras
 
                     'EQUIVALENCIA
                     If e.Row.DBCampo("CveUM").ToString.ToEntero > 0 And e.Row.DBCampo("CveTipoPS").ToString.ToEntero = 2 Then
+                        Dim DtEquivalencias As DataTable = GlobalDTProductosServiciosEquivalencias(e.Row.DBCampo("CvePS").ToString.ToEntero, e.Row.DBCampo("CveUM").ToString.ToEntero, UsuarioActual.CveEmpresa)
+
                         If DtEquivalencias.FiltraParametros($"CveUM = {e.Row.DBCampo("CveUM").ToString.ToEntero}").Rows.Count > 0 Then
                             If Not DtEquivalencias.FiltraParametros($"CveUM = {e.Row.DBCampo("CveUM").ToString.ToEntero} AND UnidadBase = 1").Rows.Count > 0 Then
                                 'UM NO BASE
@@ -10724,6 +10725,7 @@ Partial Class Compras_Compras
                             e.Row.FCLabel("LtlUnidadMedida").Attributes.Add("data-toggle", "tooltip")
                             e.Row.FCLabel("LtlUnidadMedida").Attributes.Add("title", "Unidad de medida SIN equivalencia")
                         End If
+                        DtEquivalencias.Dispose()
                     End If
                 End If
 
diff --git a/General/PopUpPaqueteriasGuiasInternas.aspx.cs b/General/PopUpPaqueteriasGuiasInternas.aspx.cs
index da9c3af0c..4de98d7c1 100644
--- a/General/PopUpPaqueteriasGuiasInternas.aspx.cs
+++ b/General/PopUpPaqueteriasGuiasInternas.aspx.cs
@@ -92,14 +92,14 @@ public partial class General_PopUpPaqueteriasGuiasInternas : ClsPaginas
 
         String Observaciones = TxtObservaciones.Text;
 
-        int CvePaqueteriaGuia = ObjGeneral.AddPaqueteriasGuias(-1, -1, CveEstatus, CveSubProyecto, Fecha, "-1", "-1", NoCajas, 0.00, "-1", FechaEstimada, Observaciones, 
+        int CvePaqueteriaGuia = ObjGeneral.AddPaqueteriasGuias(-1, 9, CveEstatus, CveSubProyecto, Fecha, "-1", "-1", NoCajas, 0.00, "-1", FechaEstimada, Observaciones, 
                                                                 UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, EsEntregaInterna:true);
 
         if (CvePaqueteriaGuia > 0)
         {
             if (CveVenta > 0 || CveSubProyecto > 0 )
             {
-                TieneError = !ObjGeneral.AddPaqueteriasGuiasDetalles(CvePaqueteriaGuia, CveVenta, -1, CveSubProyecto, -1);
+                TieneError = !ObjGeneral.AddPaqueteriasGuiasDetalles(CvePaqueteriaGuia, CveVenta, -1, -1, -1);
             }
         }
         else
diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb
index 1e4424463..ec449551d 100644
--- a/Ventas/Clientes.aspx.vb
+++ b/Ventas/Clientes.aspx.vb
@@ -1667,7 +1667,7 @@ Partial Class Clientes
                 End If
 
                 TxtCorreoEntregaCompras.Text = ObjClientes.DtResultados(0)("CorreoEntregaCompras").ToString
-                TxtCorreoEntregaAlmacen.Text = ObjClientes.DtResultados(0)("CorreoEntregaCompras").ToString
+                TxtCorreoEntregaAlmacen.Text = ObjClientes.DtResultados(0)("CorreoEntregaAlmacen").ToString
             Else
                 Existe = False
                 Alert("El Cliente Solicitado no existe, por favor revise su búsqueda.", TipoMensaje.MsgAdvertencia)
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index f6f71a957..53675d019 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -13775,7 +13775,7 @@ Partial Class Ventas
                     End If
 
                     Dim PorcentajePrecio As Double = 0
-                    If PrecioSugerido = 0 Then
+                    If PrecioSugerido = 0 AndAlso CveCliente > 0 Then
                         CvePrecioListaPS = GlobalDTCliente(UsuarioActual.CveEmpresa, Estatus:=-1, CveCliente:=CveCliente).FiltroPrimeroValor("CvePrecioLista").ToEntero()
                         If CvePrecioListaPS > 0 Then
                             Dim ObjPS As New ClsProductosServicios