diff --git a/App_Code/ClsGPS.vb b/App_Code/ClsGPS.vb
index f1f307ee8..51915e47c 100644
--- a/App_Code/ClsGPS.vb
+++ b/App_Code/ClsGPS.vb
@@ -531,10 +531,27 @@ Public Class ClsGPS
             OnError("Ocurrió un error al obtener las coordenadas del equipo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
         End Try
 
+        Return Retorno
+    End Function
+
+
+    Public Function DispositivoComentarioupdate(CveDispositivo As Integer, comentario As String, CveUsuario As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_GPS_DispositivoComentarioupdate")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveDispositivo", SqlDbType.Int).Value = CveDispositivo
+            .Add("@Comentarios", SqlDbType.VarChar).Value = comentario
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener las coordenadas del equipo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
         Return Retorno
     End Function
-
-
     Public Function UltimaPosicionEquipoGet(CveDispositivos As String, CveCliente As Integer) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_GPS_UltimaPosicionTGet")
@@ -3072,7 +3089,7 @@ Public Class ClsGPS
 #Region "Dispositivos"
     Public Function DispositivoAdd(TipoDispositivo As Integer, NumTelefono As String, CveModelo As Integer, CveProveedorComunicacionCuenta As Integer, CveCliente As Integer, IMEI As String, Serie As String, CveEstatus As Integer, SerieVehiculo As String, ColorVehiculo As String,
                                    NombreVehiculo As String, NoEconomico As String, devID As String, devPort As Integer, ModeloVehiculo As String, AñoVehiculo As String, ClaseVehiculo As String, PlacasVehiculo As String, LimiteVelocidad As Boolean, VelocidadMaxima As Double,
-                                   DetallesVehiculo As String, Rendimiento As Double, Icono As String, ColorTrazo As String, CveUsuario As Integer) As Boolean
+                                   DetallesVehiculo As String, Rendimiento As Double, Icono As String, ColorTrazo As String, CveUsuario As Integer, AsignadoEn As String) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_GPS_DispositivosAdd")
         With SqlAdapter.SelectCommand.Parameters
@@ -3102,6 +3119,7 @@ Public Class ClsGPS
             .Add("@Icono", SqlDbType.VarChar).Value = Icono
             .Add("@ColorTrazo", SqlDbType.VarChar).Value = ColorTrazo
             .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+            .Add("@AsignadoEn", SqlDbType.VarChar).Value = AsignadoEn
 
         End With
 
@@ -3283,7 +3301,7 @@ Public Class ClsGPS
 
     Public Function DispositivosUpdate(TipoDispositivo As Integer, NumTelefono As String, CveDispositivo As Integer, CveModelo As Integer, CveProveedorComunicacionCuenta As Integer, CveCliente As Integer, IMEI As String, Serie As String, CveEstatus As Integer,
                                        SerieVehiculo As String, ColorVehiculo As String, NombreVehiculo As String, NoEconomico As String, devID As String, devPort As Integer, ModeloVehiculo As String, AñoVehiculo As String, ClaseVehiculo As String, PlacasVehiculo As String, LimiteVelocidad As Boolean, VelocidadMaxima As Double,
-                                   DetallesVehiculo As String, Rendimiento As Double, Icono As String, ColorTrazo As String, CveUsuario As Integer) As Boolean
+                                   DetallesVehiculo As String, Rendimiento As Double, Icono As String, ColorTrazo As String, CveUsuario As Integer, AsignadoEn As String) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_GPS_DispositivosUpdate")
         With SqlAdapter.SelectCommand.Parameters
@@ -3313,6 +3331,7 @@ Public Class ClsGPS
             .Add("@Icono", SqlDbType.VarChar).Value = Icono
             .Add("@ColorTrazo", SqlDbType.VarChar).Value = ColorTrazo
             .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+            .Add("@AsignadoEn", SqlDbType.VarChar).Value = AsignadoEn
         End With
         Try
             SqlAdapter.Fill(Data)
diff --git a/App_Code/modExtensiones.vb b/App_Code/modExtensiones.vb
index 38efe79a1..ed867167f 100644
--- a/App_Code/modExtensiones.vb
+++ b/App_Code/modExtensiones.vb
@@ -2397,11 +2397,39 @@ Namespace Extensiones
 
                     excel.Worksheets.AddCopy(NombreTabla, worksheetDTExtra)
                     excel.Worksheets(0).Name = Titulo
-
-
-
                 End If
 
+
+
+                Dim indexRow As Integer = 8
+                Dim indexRowGV As Integer = 0
+                Dim cssClassRow As String = ""
+
+                For indexRow = 8 To worksheet.Rows.Count - 4
+
+                    Try
+                        cssClassRow = GridView.Rows(indexRowGV).CssClass.Trim()
+
+                        Select Case cssClassRow
+                            Case "SubTotales2"
+                                worksheet.Cells.GetSubrangeRelative(indexRow - 1, 0, celdasConTexto.LastColumnIndex + 1, 1).Style.FillPattern.SetSolid(System.Drawing.ColorTranslator.FromHtml("#c0c0c0"))
+                                worksheet.Cells.GetSubrangeRelative(indexRow - 1, 0, celdasConTexto.LastColumnIndex + 1, 1).Style.Font.Weight = 1000
+                                worksheet.Cells.GetSubrangeRelative(indexRow - 1, 0, celdasConTexto.LastColumnIndex + 1, 1).Style.Font.Color = System.Drawing.ColorTranslator.FromHtml("#000077")
+                            Case "SubTotales"
+                                worksheet.Cells.GetSubrangeRelative(indexRow - 1, 0, celdasConTexto.LastColumnIndex + 1, 1).Style.FillPattern.SetSolid(System.Drawing.ColorTranslator.FromHtml("#dddddd"))
+                                worksheet.Cells.GetSubrangeRelative(indexRow - 1, 0, celdasConTexto.LastColumnIndex + 1, 1).Style.Font.Weight = 1000
+                                worksheet.Cells.GetSubrangeRelative(indexRow - 1, 0, celdasConTexto.LastColumnIndex + 1, 1).Style.Font.Color = System.Drawing.ColorTranslator.FromHtml("#67809F")
+                            Case Else
+                        End Select
+
+                    Catch ex As Exception
+                    End Try
+
+                    indexRowGV += 1
+                Next
+
+
+
             End If
 
             excel.Save(HttpContext.Current.Response, $"{NombreArchivoXLSx}.xlsx")
diff --git a/Bin/GoPdf.dll b/Bin/GoPdf.dll
new file mode 100644
index 000000000..649b9eb55
Binary files /dev/null and b/Bin/GoPdf.dll differ
diff --git a/CGame/CatEmpaque.aspx b/CGame/CatEmpaque.aspx
index 01faedc2d..f7d514f31 100644
--- a/CGame/CatEmpaque.aspx
+++ b/CGame/CatEmpaque.aspx
@@ -3,9 +3,30 @@
 <asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
 </asp:Content>
 <asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
+    <style>
+        .ocultar {
+            display: none;
+        }
+
+        .page-bar .page-breadcrumb{
+            display: none !important;
+        }
+        
+        .portlet-title .font-green, .portlet-title .font-green a {
+            color: #3598dc !important;
+        }
+
+        .GvEmpaque th {
+            text-align: left !important;
+        }
+
+            .GvEmpaque th.centerclass {
+                text-align: center !important;
+            }
+    </style>
 </asp:Content>
 <asp:Content ID="Content3" ContentPlaceHolderID="E" runat="Server">
-    Catalogo de Empaques
+    Catalogo de Empaque Destino
 </asp:Content>
 <asp:Content ID="Content4" ContentPlaceHolderID="HB" runat="Server">
 </asp:Content>
@@ -15,67 +36,87 @@
     <asp:UpdatePanel ID="UpAcciones" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
             <li>
-                <asp:LinkButton ID="LnkAgregarTiposEtiqueta" OnClick="LnkAgregarTipo_Click" runat="server"><i class="fa fa-plus"></i>Agregar Empaque</asp:LinkButton></li>
+                <asp:LinkButton ID="LnkAgregarTiposEtiqueta" OnClick="LnkAgregarTipo_Click" runat="server"><i class="fa fa-plus"></i>Agregar</asp:LinkButton></li>
         </ContentTemplate>
     </asp:UpdatePanel>
 </asp:Content>
 <asp:Content ID="Content7" ContentPlaceHolderID="C" runat="Server">
     <asp:UpdatePanel ID="upDatosTipo" runat="server" UpdateMode="Conditional">
-        <ContentTemplate>
-                   <div class="row" style="margin-right: 10px; margin-top: 18px;" align="right">
+        <ContentTemplate> 
+            <div class="portlet light bordered" style="margin-bottom: 0px; padding: 0px;" id="form_wizard_1">
+                <div class="portlet-title">
+                                <div class="caption font-green">
+                                    <i class="icon-pin font-green"></i>
+                                    <span class="caption-subject font-green bold uppercase">Información
+                                        <asp:Literal ID="LtlPeriodoseleccionado" runat="server"></asp:Literal></span>
+                                </div>
+
+                                <div class="tools">
+                                    <a href="javascript:;" class="collapse" data-original-title="" title=""></a>
+                                    <%--<a href="javascript:;" class="fullscreen" data-original-title="" title=""></a>--%>
+                                </div>
+                                <div class="actions">
+                                    <div class="btn-group">
+                                    </div>
+                                </div>
+                                <div style="float: right;">
                 <input type="text" id="TxtBusqueda" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvEmpaque.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
                 <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvEmpaque.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
-            </div>
-            <asp:GridView ID="GvEmpaque" runat="server" GridLines="None" CssClass="table table-hover table-striped ScrollAD mysmallbtn" Width="100%" data-sort="true" AutoGenerateColumns="False"
+            
+
+                                </div>
+                            </div>
+                <div class="portlet-body form">
+            <asp:GridView ID="GvEmpaque" runat="server" GridLines="None" CssClass="table table-hover table-striped GvEmpaque ScrollAD mysmallbtn" Width="100%" data-sort="true" AutoGenerateColumns="False"
                 DataKeyNames="CveEmpaque,Empaque,Estatus,FechaIng,CveUsuario,Usuario,CveEmpresa,Empresa,CostoXTonelada,CostoPreEnfriado,Lleno,Sencillo,TermoLleno,TermoSencillo">
                 <Columns>
-                    <asp:TemplateField HeaderText="Empaque" ItemStyle-HorizontalAlign="Left">
+                    <asp:TemplateField HeaderText="Empaque" ItemStyle-HorizontalAlign="Left" Visible="true">
                         <ItemTemplate>
                             <asp:Label ID="lbltipoEtiqueta" runat="server" Text='<%# Eval("Empaque")%>'> </asp:Label>
                         </ItemTemplate>
                     </asp:TemplateField>
-                     <asp:TemplateField HeaderText="Costo X Tonelada" ItemStyle-HorizontalAlign="Right">
+                     <asp:TemplateField HeaderText="Costo X Tonelada" ItemStyle-HorizontalAlign="Right" Visible="false">
                         <ItemTemplate>
                             <asp:Label ID="LblCostoXTonelada" runat="server" Text='<%# Eval("CostoXTonelada")%>'> </asp:Label>
                         </ItemTemplate>
                     </asp:TemplateField>
-                     <asp:TemplateField HeaderText="Costo PreEnfriado" ItemStyle-HorizontalAlign="Right">
+                     <asp:TemplateField HeaderText="Costo PreEnfriado" ItemStyle-HorizontalAlign="Right" Visible="false">
                         <ItemTemplate>
                             <asp:Label ID="LblCostoPreEnfriado" runat="server" Text='<%# Eval("CostoPreEnfriado")%>'> </asp:Label>
                         </ItemTemplate>
                     </asp:TemplateField>
-                     <asp:TemplateField HeaderText="Full" ItemStyle-HorizontalAlign="Right">
+                     <asp:TemplateField HeaderText="Full" ItemStyle-HorizontalAlign="Right" Visible="false">
                         <ItemTemplate>
                             <asp:Label ID="LblFull" runat="server" Text='<%# Eval("Lleno")%>'> </asp:Label>
                         </ItemTemplate>
                     </asp:TemplateField>
-                     <asp:TemplateField HeaderText="Sencillo" ItemStyle-HorizontalAlign="Right">
+                     <asp:TemplateField HeaderText="Sencillo" ItemStyle-HorizontalAlign="Right" Visible="false">
                         <ItemTemplate>
                             <asp:Label ID="LblSencillo" runat="server" Text='<%# Eval("Sencillo")%>'> </asp:Label>
                         </ItemTemplate>
                     </asp:TemplateField>
-                     <asp:TemplateField HeaderText="TermoFull" ItemStyle-HorizontalAlign="Right">
+                     <asp:TemplateField HeaderText="TermoFull" ItemStyle-HorizontalAlign="Right" Visible="false">
                         <ItemTemplate>
                             <asp:Label ID="LblTermoFull" runat="server" Text='<%# Eval("TermoLleno")%>'> </asp:Label>
                         </ItemTemplate>
                     </asp:TemplateField>
-                     <asp:TemplateField HeaderText="TermoSencillo" ItemStyle-HorizontalAlign="Right">
+                     <asp:TemplateField HeaderText="TermoSencillo" ItemStyle-HorizontalAlign="Right" Visible="false">
                         <ItemTemplate>
                             <asp:Label ID="LblTermoSencillo" runat="server" Text='<%# Eval("TermoSencillo")%>'> </asp:Label>
                         </ItemTemplate>
-                    </asp:TemplateField>
-                    <asp:TemplateField HeaderText="Estatus" ItemStyle-HorizontalAlign="Center">
+                    </asp:TemplateField> 
+                    <asp:TemplateField HeaderText="Estatus" ItemStyle-Width="100px" >
                         <ItemTemplate>
                             <asp:Label ID="lblestatus" runat="server" Text='<%# Eval("Estatus")%>'> </asp:Label>
                         </ItemTemplate>
                     </asp:TemplateField>
-                    <asp:BoundField DataField="FechaIng" ItemStyle-Width="15%" HeaderText="Fecha de Ingreso" ItemStyle-HorizontalAlign="Center" DataFormatString="{0:d}" />
-                    <asp:TemplateField HeaderText="Usuario" ItemStyle-HorizontalAlign="Left">
+                    <asp:BoundField DataField="FechaIng" ItemStyle-CssClass="centerclass" ItemStyle-Width="100px" HeaderText="Fecha de Ingreso" ItemStyle-HorizontalAlign="Center" DataFormatString="{0:d}" />
+                    <asp:TemplateField HeaderText="Usuario" ItemStyle-Width="200px" ItemStyle-HorizontalAlign="Left">
                         <ItemTemplate>
                             <asp:Label ID="lblusuario" runat="server" Text='<%# Eval("Usuario")%>'> </asp:Label>
                         </ItemTemplate>
                     </asp:TemplateField>
-                    <asp:TemplateField ItemStyle-HorizontalAlign="Center" ItemStyle-Width="15%" HeaderText="Comandos">
+                    <asp:TemplateField ItemStyle-HorizontalAlign="Center" ItemStyle-Width="100px" HeaderText="Comandos">
                         <ItemTemplate>
                             <asp:LinkButton data-toggle="tooltip" title="Editar" ID="LnkEditar" OnClick="LnkEditarTipo_Click" CssClass="btn btn-circle btn-sm green" runat="server" Text="<i class='fa fa-pencil'></i>"></asp:LinkButton>
                             <asp:LinkButton ID="imgD" runat="server" OnClick="LnkEliminarTipo_Click" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="¿Está seguro que desea eliminar el TiposEtiqueta?" data-btn-ok-label="si" />
@@ -83,6 +124,8 @@
                     </asp:TemplateField>
                 </Columns>
             </asp:GridView>
+
+                </div></div>
         </ContentTemplate>
     </asp:UpdatePanel>
     <div id="DModalTiposEtiqueta" class="modal ADS fade" role="dialog">
@@ -98,46 +141,46 @@
                             <asp:TextBox ID="TxtEmpaque" CssClass="form-control" runat="server"></asp:TextBox>
                             <asp:RequiredFieldValidator ID="RfvEmpaque" runat="server" ControlToValidate="TxtEmpaque" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Tipo Etiqueta''</b> es necesario, por favor ingréselo." ValidationGroup="VGMEmpaque"></asp:RequiredFieldValidator>
                             <ajax:ValidatorCalloutExtender ID="VcoEmpaque" runat="server" HighlightCssClass="vco" TargetControlID="RfvEmpaque"></ajax:ValidatorCalloutExtender>
-                            <label for="<%= TxtEmpaque.ClientID.ToString()%>">Empaque:</label>
+                            <label for="<%= TxtEmpaque.ClientID.ToString()%>">Empaque Destino:</label>
                         </div>
-                            <div class="form-group form-md-line-input input-iconright">
+                        <div class="form-group form-md-line-input input-iconright ocultar">
                             <asp:TextBox ID="TxtCostoXTonelada" CssClass="form-control" runat="server"></asp:TextBox>
-<%--                            <asp:RequiredFieldValidator ID="RFVCostoXTonelada" runat="server" ControlToValidate="TxtCostoXTonelada" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Costo X Tonelada''</b> es necesario, por favor ingréselo." ValidationGroup="VGMEmpaque"></asp:RequiredFieldValidator>
+                            <%--                            <asp:RequiredFieldValidator ID="RFVCostoXTonelada" runat="server" ControlToValidate="TxtCostoXTonelada" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Costo X Tonelada''</b> es necesario, por favor ingréselo." ValidationGroup="VGMEmpaque"></asp:RequiredFieldValidator>
                             <ajax:ValidatorCalloutExtender ID="VCECostoXTonelada" runat="server" HighlightCssClass="vco" TargetControlID="RFVCostoXTonelada"></ajax:ValidatorCalloutExtender>--%>
                             <ajax:FilteredTextBoxExtender ID="FIETCostoXToneladae" TargetControlID="TxtCostoXTonelada" FilterType="Numbers,Custom" ValidChars="." runat="server" />
                             <label for="<%= TxtCostoXTonelada.ClientID.ToString()%>">CostoXTonelada:</label>
                         </div>
-                        <div class="form-group form-md-line-input input-iconright">
+                        <div class="form-group form-md-line-input input-iconright ocultar">
                             <asp:TextBox ID="TxtCostoPreEnfriado" CssClass="form-control" runat="server"></asp:TextBox>
-<%--                            <asp:RequiredFieldValidator ID="RFVViaje" runat="server" ControlToValidate="TxtViaje" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Viaje''</b> es necesario, por favor ingréselo." ValidationGroup="VGMEmpaque"></asp:RequiredFieldValidator>
+                            <%--                            <asp:RequiredFieldValidator ID="RFVViaje" runat="server" ControlToValidate="TxtViaje" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Viaje''</b> es necesario, por favor ingréselo." ValidationGroup="VGMEmpaque"></asp:RequiredFieldValidator>
                             <ajax:ValidatorCalloutExtender ID="VCEViaje" runat="server" HighlightCssClass="vco" TargetControlID="RFVViaje"></ajax:ValidatorCalloutExtender>--%>
                             <ajax:FilteredTextBoxExtender ID="FTBECostoPreEnfriado" TargetControlID="TxtCostoPreEnfriado" FilterType="Numbers,Custom" ValidChars="." runat="server" />
                             <label for="<%= TxtCostoPreEnfriado.ClientID.ToString()%>">CostoPreEnfriado:</label>
                         </div>
-                        <div class="form-group form-md-line-input input-iconright">
+                        <div class="form-group form-md-line-input input-iconright ocultar">
                             <asp:TextBox ID="TxtFull" CssClass="form-control" runat="server"></asp:TextBox>
-<%--                            <asp:RequiredFieldValidator ID="RFVFull" runat="server" ControlToValidate="TxtFull" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Full''</b> es necesario, por favor ingréselo." ValidationGroup="VGMEmpaque"></asp:RequiredFieldValidator>
+                            <%--                            <asp:RequiredFieldValidator ID="RFVFull" runat="server" ControlToValidate="TxtFull" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Full''</b> es necesario, por favor ingréselo." ValidationGroup="VGMEmpaque"></asp:RequiredFieldValidator>
                             <ajax:ValidatorCalloutExtender ID="VCEFull" runat="server" HighlightCssClass="vco" TargetControlID="RFVFull"></ajax:ValidatorCalloutExtender>--%>
                             <ajax:FilteredTextBoxExtender ID="FTBEFull" TargetControlID="TxtFull" FilterType="Numbers,Custom" ValidChars="." runat="server" />
                             <label for="<%= TxtFull.ClientID.ToString()%>">Full:</label>
                         </div>
-                        <div class="form-group form-md-line-input input-iconright">
+                        <div class="form-group form-md-line-input input-iconright ocultar">
                             <asp:TextBox ID="TxtSencillo" CssClass="form-control" runat="server"></asp:TextBox>
-<%--                            <asp:RequiredFieldValidator ID="RequiredFieldValidator2" runat="server" ControlToValidate="TxtViaje" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Viaje''</b> es necesario, por favor ingréselo." ValidationGroup="VGMEmpaque"></asp:RequiredFieldValidator>
+                            <%--                            <asp:RequiredFieldValidator ID="RequiredFieldValidator2" runat="server" ControlToValidate="TxtViaje" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Viaje''</b> es necesario, por favor ingréselo." ValidationGroup="VGMEmpaque"></asp:RequiredFieldValidator>
                             <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender2" runat="server" HighlightCssClass="vco" TargetControlID="RFVViaje"></ajax:ValidatorCalloutExtender>--%>
                             <ajax:FilteredTextBoxExtender ID="FTBESencillo" TargetControlID="TxtSencillo" FilterType="Numbers,Custom" ValidChars="." runat="server" />
                             <label for="<%= TxtSencillo.ClientID.ToString()%>">Sencillo:</label>
                         </div>
-                        <div class="form-group form-md-line-input input-iconright">
+                        <div class="form-group form-md-line-input input-iconright ocultar">
                             <asp:TextBox ID="TxtTermoFull" CssClass="form-control" runat="server"></asp:TextBox>
-                           <%-- <asp:RequiredFieldValidator ID="RequiredFieldValidator3" runat="server" ControlToValidate="TxtViaje" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Viaje''</b> es necesario, por favor ingréselo." ValidationGroup="VGMEmpaque"></asp:RequiredFieldValidator>
+                            <%-- <asp:RequiredFieldValidator ID="RequiredFieldValidator3" runat="server" ControlToValidate="TxtViaje" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Viaje''</b> es necesario, por favor ingréselo." ValidationGroup="VGMEmpaque"></asp:RequiredFieldValidator>
                             <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender3" runat="server" HighlightCssClass="vco" TargetControlID="RFVViaje"></ajax:ValidatorCalloutExtender>--%>
                             <ajax:FilteredTextBoxExtender ID="FTBETermoFull" TargetControlID="TxtTermoFull" FilterType="Numbers,Custom" ValidChars="." runat="server" />
                             <label for="<%= TxtTermoFull.ClientID.ToString()%>">TermoFull:</label>
                         </div>
-                        <div class="form-group form-md-line-input input-iconright">
+                        <div class="form-group form-md-line-input input-iconright ocultar">
                             <asp:TextBox ID="TxtTermoSencillo" CssClass="form-control" runat="server"></asp:TextBox>
-                  <%--          <asp:RequiredFieldValidator ID="RequiredFieldValidator4" runat="server" ControlToValidate="TxtViaje" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Viaje''</b> es necesario, por favor ingréselo." ValidationGroup="VGMEmpaque"></asp:RequiredFieldValidator>
+                            <%--          <asp:RequiredFieldValidator ID="RequiredFieldValidator4" runat="server" ControlToValidate="TxtViaje" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Viaje''</b> es necesario, por favor ingréselo." ValidationGroup="VGMEmpaque"></asp:RequiredFieldValidator>
                             <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender4" runat="server" HighlightCssClass="vco" TargetControlID="RFVViaje"></ajax:ValidatorCalloutExtender>--%>
                             <ajax:FilteredTextBoxExtender ID="FTBETermoSencillo" TargetControlID="TxtTermoSencillo" FilterType="Numbers,Custom" ValidChars="." runat="server" />
                             <label for="<%= TxtTermoSencillo.ClientID.ToString()%>">TermoSencillo:</label>
diff --git a/CGame/CatEmpaque.aspx.VB b/CGame/CatEmpaque.aspx.VB
index b137fac8d..ef251b0c9 100644
--- a/CGame/CatEmpaque.aspx.VB
+++ b/CGame/CatEmpaque.aspx.VB
@@ -1,12 +1,6 @@
 Option Strict On
Imports System.Data
Imports System.Collections.Generic
Imports System.Linq
Imports System.Web
Imports System.Web.UI.WebControls
Imports Extensiones

Partial Class CATTiposEtiqueta
    Inherits ClsPaginas
 
 
-
-
-
-
-
-
 #Region "Propiedades"

     Private Property CveEmpaque() As Integer
        Get
             Return If(IsNothing(ViewState("CveEmpaque")), 0, CInt(ViewState("CveEmpaque")))
@@ -28,9 +22,9 @@
             GvEmpaque.DataBind()
         End If
        ObjTipo.Dispose()
        upDatosTipo.Update()
    End Sub

    Protected Sub LimpiaEmpaque()
        TxtEmpaque.Text = ""
         TxtCostoXTonelada.Text = ""
        TxtCostoPreEnfriado.Text = ""
        TxtFull.Text = ""
        TxtSencillo.Text = ""
        TxtTermoFull.Text = ""
        TxtTermoSencillo.Text = ""
        UPModalTipo.Update()
    End Sub
    Protected Sub LnkEditarTipo_Click(sender As Object, e As EventArgs)
        LimpiaEmpaque()
        Dim gvRow As GridViewRow= DirectCast((DirectCast(sender,LinkButton)).NamingContainer,GridViewRow)
-        CveEmpaque = gvRow.DataKey("CveEmpaque").ToEntero()
        TxtEmpaque.Text = gvRow.DataKey("Empaque")
        TxtCostoXTonelada.Text = gvRow.DataKey("CostoXTonelada")
        TxtCostoPreEnfriado.Text = gvRow.DataKey("CostoPreEnfriado")
        TxtFull.Text = gvRow.DataKey("Lleno")
        TxtSencillo.Text = gvRow.DataKey("Sencillo")
        TxtTermoFull.Text = gvRow.DataKey("TermoLleno")
        TxtTermoSencillo.Text = gvRow.DataKey("TermoSencillo")
        ChkTipoestatus.Checked = CBool(gvRow.DataKey("Estatus"))
        RegistraScript("$('#DModalTiposEtiqueta').modal()")
        BtnTipoADD.Visible=False
        BtnTipoEdit.Visible = True
        DivEstatus.Visible = True
        UPModalTipo.Update()
    End Sub
    Protected Sub LnkAgregarTipo_Click(sender As Object, e As EventArgs)
        RegistraScript("$('#DModalTiposEtiqueta').modal()")
        LimpiaEmpaque()
        BtnTipoADD.Visible=True
        BtnTipoEdit.Visible = False
        DivEstatus.Visible = False
        UPModalTipo.Update()
    End Sub
    Protected Sub BtnTipoADD_Click(sender As Object, e As EventArgs)
        Dim ObjTipo As New ClsCGame()
        Dim Continuar As Boolean = ObjTipo.AddEmpaque(TxtEmpaque.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, TxtCostoXTonelada.Text.ToDouble, TxtCostoPreEnfriado.Text.ToDouble, TxtFull.Text.ToDouble, TxtSencillo.Text.ToDouble, TxtTermoFull.Text.ToDouble, TxtTermoSencillo.Text.ToDouble)
        ObjTipo.Dispose()
        If (Continuar) Then
            RegistraScript("$('#DModalTiposEtiqueta').modal('hide')")
            LimpiaEmpaque()
            UPModalTipo.Update()
            Alert("El empaquese ha agregado")
            CargaEmpaque()
        End If
    End Sub
    Protected Sub BtnTipoEdit_Click(sender As Object, e As EventArgs)
        Dim ObjTipo As New ClsCGame()
        Dim Continuar As Boolean = ObjTipo.UpdateEmpaque(CveEmpaque, ChkTipoestatus.Checked, TxtEmpaque.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, TxtCostoXTonelada.Text.ToDouble, TxtCostoPreEnfriado.Text.ToDouble, TxtFull.Text.ToDouble, TxtSencillo.Text.ToDouble, TxtTermoFull.Text.ToDouble, TxtTermoSencillo.Text.ToDouble)
        ObjTipo.Dispose()
        If (Continuar) Then
            RegistraScript("$('#DModalTiposEtiqueta').modal('hide')")
            LimpiaEmpaque()
            UPModalTipo.Update()
            Alert("El empaque se ha actualizado")
+        CveEmpaque = gvRow.DataKey("CveEmpaque").ToEntero()
        TxtEmpaque.Text = gvRow.DataKey("Empaque")
        TxtCostoXTonelada.Text = gvRow.DataKey("CostoXTonelada")
        TxtCostoPreEnfriado.Text = gvRow.DataKey("CostoPreEnfriado")
        TxtFull.Text = gvRow.DataKey("Lleno")
        TxtSencillo.Text = gvRow.DataKey("Sencillo")
        TxtTermoFull.Text = gvRow.DataKey("TermoLleno")
        TxtTermoSencillo.Text = gvRow.DataKey("TermoSencillo")
        ChkTipoestatus.Checked = CBool(gvRow.DataKey("Estatus"))
        RegistraScript("$('#DModalTiposEtiqueta').modal()")
        BtnTipoADD.Visible=False
        BtnTipoEdit.Visible = True
        DivEstatus.Visible = True
        UPModalTipo.Update()
    End Sub
    Protected Sub LnkAgregarTipo_Click(sender As Object, e As EventArgs)
        RegistraScript("$('#DModalTiposEtiqueta').modal()")
        LimpiaEmpaque()
        BtnTipoADD.Visible=True
        BtnTipoEdit.Visible = False
        DivEstatus.Visible = False
        UPModalTipo.Update()
    End Sub
    Protected Sub BtnTipoADD_Click(sender As Object, e As EventArgs)
        Dim ObjTipo As New ClsCGame()
        Dim Continuar As Boolean = ObjTipo.AddEmpaque(TxtEmpaque.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, TxtCostoXTonelada.Text.ToDouble, TxtCostoPreEnfriado.Text.ToDouble, TxtFull.Text.ToDouble, TxtSencillo.Text.ToDouble, TxtTermoFull.Text.ToDouble, TxtTermoSencillo.Text.ToDouble)
        ObjTipo.Dispose()
        If (Continuar) Then
            RegistraScript("$('#DModalTiposEtiqueta').modal('hide')")
            LimpiaEmpaque()
            UPModalTipo.Update()
            Alert("El empaque destino se ha agregado")
            CargaEmpaque()
        End If
    End Sub
    Protected Sub BtnTipoEdit_Click(sender As Object, e As EventArgs)
        Dim ObjTipo As New ClsCGame()
        Dim Continuar As Boolean = ObjTipo.UpdateEmpaque(CveEmpaque, ChkTipoestatus.Checked, TxtEmpaque.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, TxtCostoXTonelada.Text.ToDouble, TxtCostoPreEnfriado.Text.ToDouble, TxtFull.Text.ToDouble, TxtSencillo.Text.ToDouble, TxtTermoFull.Text.ToDouble, TxtTermoSencillo.Text.ToDouble)
        ObjTipo.Dispose()
        If (Continuar) Then
            RegistraScript("$('#DModalTiposEtiqueta').modal('hide')")
            LimpiaEmpaque()
            UPModalTipo.Update()
            Alert("El empaque destino se ha actualizado")
             CargaEmpaque()
        End If
    End Sub
    Protected Sub LnkEliminarTipo_Click(sender As Object, e As EventArgs)
        Dim gvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow)
-        CveEmpaque = gvRow.DataKey("CveEmpaque").ToEntero()
        Dim ObjTipo As New ClsCGame()
        Dim Continuar As Boolean = ObjTipo.RemoveEmpaque(CveEmpaque)
        ObjTipo.Dispose()
        If (Continuar) Then
            Alert("El empaque se ha eliminado")
+        CveEmpaque = gvRow.DataKey("CveEmpaque").ToEntero()
        Dim ObjTipo As New ClsCGame()
        Dim Continuar As Boolean = ObjTipo.RemoveEmpaque(CveEmpaque)
        ObjTipo.Dispose()
        If (Continuar) Then
            Alert("El empaque destino se ha eliminado")
             CargaEmpaque()
        End If
    End Sub
 
     Private Sub GVTiposEtiqueta_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvEmpaque.RowDataBound
diff --git a/CGame/CatHuerta.aspx b/CGame/CatHuerta.aspx
index 9f64fea71..94b10ec1a 100644
--- a/CGame/CatHuerta.aspx
+++ b/CGame/CatHuerta.aspx
@@ -3,9 +3,18 @@
 <asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
 </asp:Content>
 <asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
+    <style>
+        .ocultar {
+            display: none;
+        }
+
+        .page-bar .page-breadcrumb{
+            display: none !important;
+        }
+    </style>
 </asp:Content>
 <asp:Content ID="Content3" ContentPlaceHolderID="E" runat="Server">
-    Catalogo de Huerta
+    Catalogo de Productor
 </asp:Content>
 <asp:Content ID="Content4" ContentPlaceHolderID="HB" runat="Server">
 </asp:Content>
@@ -15,17 +24,37 @@
     <asp:UpdatePanel ID="UpAcciones" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
             <li>
-                <asp:LinkButton ID="LnkAgregarHuerta" OnClick="LnkAgregarHuer_Click" runat="server"><i class="fa fa-plus"></i>Agregar Huerta</asp:LinkButton></li>
+                <asp:LinkButton ID="LnkAgregarHuerta" OnClick="LnkAgregarHuer_Click" runat="server"><i class="fa fa-plus"></i>Agregar</asp:LinkButton></li>
         </ContentTemplate>
     </asp:UpdatePanel>
 </asp:Content>
 <asp:Content ID="Content7" ContentPlaceHolderID="C" runat="Server">
     <asp:UpdatePanel ID="upDatosHuer" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
-            <div class="row" style="margin-right: 10px; margin-top: 18px;" align="right">
+            
+            <div class="portlet light" style="margin-bottom: 0px; padding: 0px;" id="form_wizard_1"> 
+                <div class="portlet-title">
+                                <div class="caption ">
+                                    <i class="fa fa-bookmark font-green"></i>
+                                    <span class="caption-subject font-green bold uppercase">Información
+                                        <asp:Literal ID="LtlPeriodoseleccionado" runat="server"></asp:Literal></span>
+                                </div>
+
+                                <div class="tools">
+                                    <a href="javascript:;" class="collapse" data-original-title="" title=""></a>
+                                    <%--<a href="javascript:;" class="fullscreen" data-original-title="" title=""></a>--%>
+                                </div>
+                                <div class="actions">
+                                    <div class="btn-group">
+                                    </div>
+                                </div>
+                                <div style="float: right;">
                 <input type="text" id="TxtBusqueda" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GVHuerta.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
                 <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GVHuerta.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
-            </div>
+            
+                                </div>
+                            </div>
+                <div class="portlet-body form">
             <asp:GridView ID="GVHuerta" runat="server" GridLines="None" CssClass="table table-hover table-striped ScrollAD mysmallbtn" Width="100%" data-sort="true" AutoGenerateColumns="False"
                 DataKeyNames="CveHuerta,Huerta,CveProveedor,RazonSocial,FechaIng,Estatus,CveUsuario,Usuario,CveEmpresa,Empresa,TipoCobro,Importe,CostoXTonelada" OnRowDataBound="GvHuerta_RowDataBound">
                 <Columns>
@@ -34,27 +63,27 @@
                             <asp:Label ID="lblhuerta" runat="server" Text='<%# Eval("Huerta")%>'> </asp:Label>
                         </ItemTemplate>
                     </asp:TemplateField>
-                    <asp:TemplateField HeaderText="Proveedor" ItemStyle-HorizontalAlign="Left">
+                    <asp:TemplateField HeaderText="Proveedor" ItemStyle-HorizontalAlign="Left" Visible="false">
                         <ItemTemplate>
                             <asp:Label ID="lblrazonsocial" runat="server" Text='<%# Eval("RazonSocial")%>'> </asp:Label>
                         </ItemTemplate>
                     </asp:TemplateField>
-                    <asp:TemplateField HeaderText="Tipo Cobro" ItemStyle-HorizontalAlign="Left">
+                    <asp:TemplateField HeaderText="Tipo Cobro" ItemStyle-HorizontalAlign="Left" Visible="false">
                         <ItemTemplate>
                             <asp:Label ID="LblTipoCobro" runat="server" Text='<%# Eval("TipoCobro")%>'> </asp:Label>
                         </ItemTemplate>
                     </asp:TemplateField>
-                    <asp:TemplateField HeaderText="Importe" ItemStyle-HorizontalAlign="Right">
+                    <asp:TemplateField HeaderText="Importe" ItemStyle-HorizontalAlign="Right" Visible="false">
                         <ItemTemplate>
                             <asp:Label ID="LblImporte" runat="server" Text='<%# Eval("Importe")%>'> </asp:Label>
                         </ItemTemplate>
                     </asp:TemplateField>
-                    <asp:TemplateField HeaderText="Costo X Tonelada E.M.P." ItemStyle-HorizontalAlign="Right">
+                    <asp:TemplateField HeaderText="Costo X Tonelada E.M.P." ItemStyle-HorizontalAlign="Right" Visible="false">
                         <ItemTemplate>
                             <asp:Label ID="LblCostoXTonelada" runat="server" Text='<%# Eval("CostoXTonelada")%>'> </asp:Label>
                         </ItemTemplate>
                     </asp:TemplateField>
-                    <asp:BoundField DataField="FechaIng" ItemStyle-Width="15%" HeaderText="Fecha de Ingreso" ItemStyle-HorizontalAlign="Center" DataFormatString="{0:d}" />
+                    <asp:BoundField DataField="FechaIng" ItemStyle-Width="15%" HeaderText="Fecha de Ingreso" ItemStyle-HorizontalAlign="Center" DataFormatString="{0:d}"  />
                     <asp:TemplateField HeaderText="Estatus" ItemStyle-HorizontalAlign="Center">
                         <ItemTemplate>
                             <asp:Label ID="lblestatus" runat="server" Text='<%# Eval("Estatus")%>'> </asp:Label>
@@ -72,7 +101,7 @@
                         </ItemTemplate>
                     </asp:TemplateField>
                 </Columns>
-            </asp:GridView>
+            </asp:GridView></div></div>
         </ContentTemplate>
     </asp:UpdatePanel>
     <div id="DModalHuerta" class="modal ADS fade" role="dialog">
@@ -81,20 +110,20 @@
                 <div class="modal-content">
                     <div class="modal-header ">
                         <h4 class="modal-title">
-                            <asp:Literal ID="ltlHuertitulo" runat="server" Text="Huerta"></asp:Literal></h4>
+                            <asp:Literal ID="ltlHuertitulo" runat="server" Text="Productor"></asp:Literal></h4>
                     </div>
                     <div class="modal-body">
                         <div class="form-group form-md-line-input input-iconright">
                             <asp:TextBox ID="TxtHuerhuerta" CssClass="form-control" runat="server"></asp:TextBox>
                             <asp:RequiredFieldValidator ID="RfvHuerhuerta" runat="server" ControlToValidate="TxtHuerhuerta" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Huerta''</b> es necesario, por favor ingréselo." ValidationGroup="VGMHuer"></asp:RequiredFieldValidator>
                             <ajax:ValidatorCalloutExtender ID="VcoHuerhuerta" runat="server" HighlightCssClass="vco" TargetControlID="RfvHuerhuerta"></ajax:ValidatorCalloutExtender>
-                            <label for="<%= TxtHuerhuerta.ClientID.ToString()%>">Huerta:</label>
+                            <label for="<%= TxtHuerhuerta.ClientID.ToString()%>">Productor:</label>
                         </div>
-                        <div class="form-group form-md-line-input input-iconright">
+                        <div class="form-group form-md-line-input input-iconright ocultar">
                             <asp:DropDownList ID="DdlProveedor" CssClass="form-control  select2me " runat="server" DataTextField="RazonSocial" AppendDataBoundItems="true" DataValueField="CveProveedor" Style="width: 100%"></asp:DropDownList>
                             <label for="<%= DdlProveedor.ClientID.ToString()%>">Proveedor:</label>
                         </div>
-                        <div class="form-group form-md-line-input input-iconright">
+                        <div class="form-group form-md-line-input input-iconright ocultar">
                             <asp:DropDownList ID="DdlTipoCobro" CssClass="form-control  select2me" runat="server" AppendDataBoundItems="true" Style="width: 100%">
                                 <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
                                 <asp:ListItem Text="Costo X Tonelada" Value="1"></asp:ListItem>
@@ -102,17 +131,17 @@
                             </asp:DropDownList>
                             <label for="<%= DdlTipoCobro.ClientID.ToString()%>">Tipo de Cobro Flete Huerta Empaque:</label>
                         </div>
-                        <div class="form-group form-md-line-input input-iconright">
+                        <div class="form-group form-md-line-input input-iconright ocultar">
                             <asp:TextBox ID="TxtImporte" CssClass="form-control" runat="server"></asp:TextBox>
-                            <asp:RequiredFieldValidator ID="RFVImporte" runat="server" ControlToValidate="TxtImporte" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Importe''</b> es necesario, por favor ingréselo." ValidationGroup="VGMHuer"></asp:RequiredFieldValidator>
-                            <ajax:ValidatorCalloutExtender ID="VCEImporte" runat="server" HighlightCssClass="vco" TargetControlID="RFVImporte"></ajax:ValidatorCalloutExtender>
+                            <%--<asp:RequiredFieldValidator ID="RFVImporte" runat="server" ControlToValidate="TxtImporte" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Importe''</b> es necesario, por favor ingréselo." ValidationGroup="VGMHuer"></asp:RequiredFieldValidator>
+                            <ajax:ValidatorCalloutExtender ID="VCEImporte" runat="server" HighlightCssClass="vco" TargetControlID="RFVImporte"></ajax:ValidatorCalloutExtender>--%>
                             <ajax:FilteredTextBoxExtender ID="FIETTImporte" TargetControlID="TxtImporte" FilterType="Numbers,Custom" ValidChars="." runat="server" />
                             <label for="<%= TxtImporte.ClientID.ToString()%>">Importe:</label>
                         </div>
-                        <div class="form-group form-md-line-input input-iconright">
+                        <div class="form-group form-md-line-input input-iconright ocultar">
                             <asp:TextBox ID="TxtCostoXTonelada" CssClass="form-control" runat="server"></asp:TextBox>
-                            <asp:RequiredFieldValidator ID="RFVCostoXTonelada" runat="server" ControlToValidate="TxtCostoXTonelada" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Costo X Tonelada E.M.P.''</b> es necesario, por favor ingréselo." ValidationGroup="VGMHuer"></asp:RequiredFieldValidator>
-                            <ajax:ValidatorCalloutExtender ID="VCECostoXTonelada" runat="server" HighlightCssClass="vco" TargetControlID="RFVCostoXTonelada"></ajax:ValidatorCalloutExtender>
+                            <%--<asp:RequiredFieldValidator ID="RFVCostoXTonelada" runat="server" ControlToValidate="TxtCostoXTonelada" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Costo X Tonelada E.M.P.''</b> es necesario, por favor ingréselo." ValidationGroup="VGMHuer"></asp:RequiredFieldValidator>
+                            <ajax:ValidatorCalloutExtender ID="VCECostoXTonelada" runat="server" HighlightCssClass="vco" TargetControlID="RFVCostoXTonelada"></ajax:ValidatorCalloutExtender>--%>
                             <ajax:FilteredTextBoxExtender ID="FTBECostoXTonelada" TargetControlID="TxtCostoXTonelada" FilterType="Numbers,Custom" ValidChars="." runat="server" />
                             <label for="<%= TxtCostoXTonelada.ClientID.ToString()%>">Costo X Tonelada E.M.P.:</label>
                         </div>
diff --git a/CGame/CatHuerta.aspx.cs b/CGame/CatHuerta.aspx.cs
index 1a180f79d..ff847c8bc 100644
--- a/CGame/CatHuerta.aspx.cs
+++ b/CGame/CatHuerta.aspx.cs
@@ -8,13 +8,21 @@
             DdlProveedor.DataSource = ObjProv.DtResultados;
             DdlProveedor.Items.Insert(0, new ListItem("Seleccione", "-1"));
             DdlProveedor.DataBind();
-        }
        ObjProv.Dispose();
       
    }
    protected void LimpiaHuerta()
    {
        TxtHuerhuerta.Text= "";
        TxtImporte.Text = "";
        TxtCostoXTonelada.Text = "";
        DdlProveedor.SelectedIndex = 0;
        DdlTipoCobro.SelectedIndex = 0;
        UPModalHuer.Update();
    }
    protected void LnkEditarHuer_Click(object sender, EventArgs e)
    {
        LimpiaHuerta();
        GridViewRow gvRow = (GridViewRow)(((LinkButton)sender).NamingContainer);
         CveHuerta = gvRow.DataKey("CveHuerta").ToEntero();
        TxtHuerhuerta.Text = gvRow.DataKey("Huerta");
        TxtImporte.Text = gvRow.DataKey("Importe");
        TxtCostoXTonelada.Text = gvRow.DataKey("CostoXTonelada");
        DdlProveedor.SelectedValueExist(gvRow.DataKey("CveProveedor").ToEntero());
        DdlTipoCobro.SelectedValueExist(gvRow.DataKey("TipoCobro").ToEntero());
        ChkHuerestatus.Checked=  Convert.ToBoolean(gvRow.DataKey("Estatus"));
        RegistraScript("$('#DModalHuerta').modal();");
        BtnHuerADD.Visible=false;
        BtnHuerEdit.Visible=true;
        DivEstatus.Visible = true;
        UPModalHuer.Update();
    }
    protected void LnkAgregarHuer_Click(object sender, EventArgs e)
    {
        RegistraScript("$('#DModalHuerta').modal();");
        LimpiaHuerta();
        BtnHuerADD.Visible=true;
        BtnHuerEdit.Visible=false;
        DivEstatus.Visible = false;
        UPModalHuer.Update();
    }
    protected void BtnHuerADD_Click(object sender, EventArgs e)
    {
        if (DdlProveedor.SelectedValue=="-1")
+            if (DdlProveedor.Items.Count > 2)
+            {
+                DdlProveedor.SelectedIndex = 2;
+            }
+        }
        ObjProv.Dispose();
       
    }
    protected void LimpiaHuerta()
    {
        TxtHuerhuerta.Text= "";
        TxtImporte.Text = "";
        TxtCostoXTonelada.Text = "";
        DdlProveedor.SelectedIndex = 0; 
+        if (DdlProveedor.Items.Count > 2)
+        {
+            DdlProveedor.SelectedIndex = 2;
+        }
        DdlTipoCobro.SelectedIndex = 0;
        UPModalHuer.Update();
    }
    protected void LnkEditarHuer_Click(object sender, EventArgs e)
    {
        LimpiaHuerta();
        GridViewRow gvRow = (GridViewRow)(((LinkButton)sender).NamingContainer);
         CveHuerta = gvRow.DataKey("CveHuerta").ToEntero();
        TxtHuerhuerta.Text = gvRow.DataKey("Huerta");
        TxtImporte.Text = gvRow.DataKey("Importe");
        TxtCostoXTonelada.Text = gvRow.DataKey("CostoXTonelada");
        DdlProveedor.SelectedValueExist(gvRow.DataKey("CveProveedor").ToEntero());
        DdlTipoCobro.SelectedValueExist(gvRow.DataKey("TipoCobro").ToEntero());
        ChkHuerestatus.Checked=  Convert.ToBoolean(gvRow.DataKey("Estatus"));
        RegistraScript("$('#DModalHuerta').modal();");
        BtnHuerADD.Visible=false;
        BtnHuerEdit.Visible=true;
        DivEstatus.Visible = true;
        UPModalHuer.Update();
    }
    protected void LnkAgregarHuer_Click(object sender, EventArgs e)
    {
        RegistraScript("$('#DModalHuerta').modal();");
        LimpiaHuerta();
        BtnHuerADD.Visible=true;
        BtnHuerEdit.Visible=false;
        DivEstatus.Visible = false;
        UPModalHuer.Update();
    }
    protected void BtnHuerADD_Click(object sender, EventArgs e)
    {
        if (DdlProveedor.SelectedValue=="-1")
         {
             Alert("Tiene que seleccionar un proveedor.");
             return;
 
-        }
        ClsCGame ObjHuer =new ClsCGame();
        bool Continuar = ObjHuer.AddHuerta(TxtHuerhuerta.Text, DdlProveedor.SelectedValue.ToEntero(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,DdlTipoCobro.SelectedValue.ToEntero(),TxtImporte.Text.ToDouble(), TxtCostoXTonelada.Text.ToDouble());
        ObjHuer.Dispose();
        if(Continuar)
        {
            RegistraScript("$('#DModalHuerta').modal('hide');");
            LimpiaHuerta();
            UPModalHuer.Update();
            Alert("La Huerta se ha agregado");
-            CargaHuerta();
        }
    }
    protected void BtnHuerEdit_Click(object sender, EventArgs e)
    {     
        ClsCGame ObjHuer =new ClsCGame();
        bool Continuar = ObjHuer.UpdateHuerta(CveHuerta, TxtHuerhuerta.Text, DdlProveedor.SelectedValue.ToEntero(), ChkHuerestatus.Checked, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DdlTipoCobro.SelectedValue.ToEntero(), TxtImporte.Text.ToDouble(), TxtCostoXTonelada.Text.ToDouble());
        ObjHuer.Dispose();
        if(Continuar)
        {
            RegistraScript("$('#DModalHuerta').modal('hide');");
            LimpiaHuerta();
            UPModalHuer.Update();
            Alert("La Huerta se ha actualizado");
            CargaHuerta();
        }
    }
    protected void LnkEliminarHuer_Click(object sender, EventArgs e)
    {
        GridViewRow gvRow = (GridViewRow)(((LinkButton)sender).NamingContainer);
        ClsCGame ObjHuer = new ClsCGame();
        bool Continuar = ObjHuer.RemoveHuerta(gvRow.DataKey("CveHuerta").ToEntero());
        ObjHuer.Dispose();
        if(Continuar)
        {
            CargaHuerta();
            Alert("La Huerta se ha eliminado");
        }
    }
+        }
        ClsCGame ObjHuer =new ClsCGame();
        bool Continuar = ObjHuer.AddHuerta(TxtHuerhuerta.Text, DdlProveedor.SelectedValue.ToEntero(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,DdlTipoCobro.SelectedValue.ToEntero(),TxtImporte.Text.ToDouble(), TxtCostoXTonelada.Text.ToDouble());
        ObjHuer.Dispose();
        if(Continuar)
        {
            RegistraScript("$('#DModalHuerta').modal('hide');");
            LimpiaHuerta();
            UPModalHuer.Update();
            Alert("El Productor se ha agregado");
+            CargaHuerta();
        }
    }
    protected void BtnHuerEdit_Click(object sender, EventArgs e)
    {     
        ClsCGame ObjHuer =new ClsCGame();
        bool Continuar = ObjHuer.UpdateHuerta(CveHuerta, TxtHuerhuerta.Text, DdlProveedor.SelectedValue.ToEntero(), ChkHuerestatus.Checked, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DdlTipoCobro.SelectedValue.ToEntero(), TxtImporte.Text.ToDouble(), TxtCostoXTonelada.Text.ToDouble());
        ObjHuer.Dispose();
        if(Continuar)
        {
            RegistraScript("$('#DModalHuerta').modal('hide');");
            LimpiaHuerta();
            UPModalHuer.Update();
            Alert("El Productor se ha actualizado");
            CargaHuerta();
        }
    }
    protected void LnkEliminarHuer_Click(object sender, EventArgs e)
    {
        GridViewRow gvRow = (GridViewRow)(((LinkButton)sender).NamingContainer);
        ClsCGame ObjHuer = new ClsCGame();
        bool Continuar = ObjHuer.RemoveHuerta(gvRow.DataKey("CveHuerta").ToEntero());
        ObjHuer.Dispose();
        if(Continuar)
        {
            CargaHuerta();
            Alert("El Productor se ha eliminado");
        }
    }
 
     protected void GvHuerta_RowDataBound(object sender, GridViewRowEventArgs e)
     {
diff --git a/CGame/CatProductos.aspx b/CGame/CatProductos.aspx
index 1e6728660..3e7f27948 100644
--- a/CGame/CatProductos.aspx
+++ b/CGame/CatProductos.aspx
@@ -3,6 +3,23 @@
 <asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
 </asp:Content>
 <asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
+    <style>
+        .page-bar .page-breadcrumb {
+            display: none !important;
+        }
+
+        .GVProductos th {
+            text-align: left !important;
+        }
+
+            .GVProductos th.centerclass {
+                text-align: center !important;
+            }
+
+         .portlet-title .font-green,  .portlet-title .font-green a {
+            color: #3598dc !important;
+        }
+    </style>
 </asp:Content>
 <asp:Content ID="Content3" ContentPlaceHolderID="E" runat="Server">
     Catalogo de Frutos
@@ -15,40 +32,69 @@
     <asp:UpdatePanel ID="UpAcciones" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
             <li>
-                <asp:LinkButton ID="LnkAgregarProductos" OnClick="LnkAgregarProd_Click" runat="server"><i class="fa fa-plus"></i>Agregar Producto</asp:LinkButton></li>
+                <asp:LinkButton ID="LnkAgregarProductos" OnClick="LnkAgregarProd_Click" runat="server"><i class="fa fa-plus"></i>Agregar </asp:LinkButton></li>
         </ContentTemplate>
     </asp:UpdatePanel>
 </asp:Content>
 <asp:Content ID="Content7" ContentPlaceHolderID="C" runat="Server">
     <asp:UpdatePanel ID="upDatosProd" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
-            <asp:GridView ID="GVProductos" runat="server" OnRowDataBound="GVProductos_RowDataBound" GridLines="None" CssClass="table table-hover table-striped ScrollAD mysmallbtn" data-sort="true" Width="100%" AutoGenerateColumns="False"
-                DataKeyNames="CvePS,PS,FechaIng,Estatus,CveUsuario,Usuario,CveEmpresa,Empresa">
-                <Columns>
-                    <asp:TemplateField HeaderText="Fruto" ItemStyle-HorizontalAlign="Left">
-                        <ItemTemplate>
-                            <asp:Label ID="lblpS" runat="server" Text='<%# Eval("PS")%>'> </asp:Label>
-                        </ItemTemplate>
-                    </asp:TemplateField>
-                    <asp:TemplateField HeaderText="Estatus" ItemStyle-HorizontalAlign="Center">
-                        <ItemTemplate>
-                            <asp:Label ID="lblestatus" runat="server" Text='<%# Eval("Estatus")%>'> </asp:Label>
-                        </ItemTemplate>
-                    </asp:TemplateField>
-                    <asp:BoundField DataField="FechaIng" ItemStyle-Width="15%" HeaderText="Fecha de Ingreso" ItemStyle-HorizontalAlign="Center" DataFormatString="{0:d}" />
-                    <asp:TemplateField HeaderText="Usuario" ItemStyle-HorizontalAlign="Left">
-                        <ItemTemplate>
-                            <asp:Label ID="lblusuario" runat="server" Text='<%# Eval("Usuario")%>'> </asp:Label>
-                        </ItemTemplate>
-                    </asp:TemplateField>
-                    <asp:TemplateField ItemStyle-HorizontalAlign="Center" ItemStyle-Width="15%" HeaderText="Comandos">
-                        <ItemTemplate>
-                            <asp:LinkButton data-toggle="tooltip" title="Editar" ID="LnkEditar" OnClick="LnkEditarProd_Click" CssClass="btn btn-circle btn-sm green" runat="server" Text="<i class='fa fa-pencil'></i>"></asp:LinkButton>
-                            <asp:LinkButton ID="imgD" runat="server" OnClick="LnkEliminarProd_Click" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="¿Está seguro que desea eliminar el Productos?" data-btn-ok-label="si" />
-                        </ItemTemplate>
-                    </asp:TemplateField>
-                </Columns>
-            </asp:GridView>
+
+            <div class="portlet light portlet bordered " style="margin-bottom: 0px; padding: 0px;" id="form_wizard_1">
+                <div class="portlet-title">
+                    <div class="caption font-green">
+                        <i class="icon-pin font-green"></i>
+                        <span class="caption-subject font-green bold uppercase">Información
+                                        <asp:Literal ID="LtlPeriodoseleccionado" runat="server"></asp:Literal></span>
+                    </div>
+
+                    <div class="tools">
+                        <a href="javascript:;" class="collapse" data-original-title="" title=""></a>
+                        <%--<a href="javascript:;" class="fullscreen" data-original-title="" title=""></a>--%>
+                    </div>
+                    <div class="actions">
+                        <div class="btn-group">
+                        </div>
+                    </div>
+                    
+                    <div style="float: right;">
+                        <input type="text" id="TxtBusqueda" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GVProductos.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
+                        <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GVProductos.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
+
+
+                    </div>
+                </div>
+                <div class="portlet-body form">
+
+                    <asp:GridView ID="GVProductos" runat="server" OnRowDataBound="GVProductos_RowDataBound" GridLines="None" CssClass="table GVProductos table-hover table-striped ScrollAD mysmallbtn" data-sort="true" Width="100%" AutoGenerateColumns="False"
+                        DataKeyNames="CvePS,PS,FechaIng,Estatus,CveUsuario,Usuario,CveEmpresa,Empresa">
+                        <Columns>
+                            <asp:TemplateField HeaderText="Fruto" ItemStyle-HorizontalAlign="Left">
+                                <ItemTemplate>
+                                    <asp:Label ID="lblpS" runat="server" Text='<%# Eval("PS")%>'> </asp:Label>
+                                </ItemTemplate>
+                            </asp:TemplateField>
+                            <asp:TemplateField HeaderText="Estatus"  ItemStyle-Width="100px"  >
+                                <ItemTemplate>
+                                    <asp:Label ID="lblestatus" runat="server" Text='<%# Eval("Estatus")%>'> </asp:Label>
+                                </ItemTemplate>
+                            </asp:TemplateField>
+                            <asp:BoundField DataField="FechaIng" HeaderStyle-CssClass="centerclass" ItemStyle-Width="100px" HeaderText="Fecha de Ingreso" ItemStyle-HorizontalAlign="Center" DataFormatString="{0:d}" />
+                            <asp:TemplateField HeaderText="Usuario" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="200px">
+                                <ItemTemplate>
+                                    <asp:Label ID="lblusuario" runat="server" Text='<%# Eval("Usuario")%>'> </asp:Label>
+                                </ItemTemplate>
+                            </asp:TemplateField>
+                            <asp:TemplateField ItemStyle-HorizontalAlign="Center" ItemStyle-Width="100px" HeaderText="Comandos">
+                                <ItemTemplate>
+                                    <asp:LinkButton data-toggle="tooltip" title="Editar" ID="LnkEditar" OnClick="LnkEditarProd_Click" CssClass="btn btn-circle btn-sm green" runat="server" Text="<i class='fa fa-pencil'></i>"></asp:LinkButton>
+                                    <asp:LinkButton ID="imgD" runat="server" OnClick="LnkEliminarProd_Click" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="¿Está seguro que desea eliminar el Productos?" data-btn-ok-label="si" />
+                                </ItemTemplate>
+                            </asp:TemplateField>
+                        </Columns>
+                    </asp:GridView>
+                </div>
+            </div>
         </ContentTemplate>
     </asp:UpdatePanel>
     <div id="DModalProductos" class="modal ADS fade" role="dialog">
diff --git a/CGame/CatTipoMaduracion.aspx b/CGame/CatTipoMaduracion.aspx
index 0cd47a8eb..c74c23237 100644
--- a/CGame/CatTipoMaduracion.aspx
+++ b/CGame/CatTipoMaduracion.aspx
@@ -3,6 +3,23 @@
 <asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
 </asp:Content>
 <asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
+    <style>
+        .page-bar .page-breadcrumb {
+            display: none !important;
+        }
+
+        .portlet-title .font-green, .portlet-title .font-green a {
+            color: #3598dc !important;
+        }
+
+        .GVCGame_TipoMaduracion th {
+            text-align: left !important;
+        }
+
+            .GVCGame_TipoMaduracion th.centerclass {
+                text-align: center !important;
+            }
+    </style>
 </asp:Content>
 <asp:Content ID="Content3" ContentPlaceHolderID="E" runat="Server">
     Catálogo de Variedad
@@ -13,7 +30,7 @@
     <asp:UpdatePanel ID="UpAcciones" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
             <li>
-                <asp:LinkButton ID="LnkAgregarCGame_TipoMaduracion" OnClick="LnkAgregarCGam_Click" runat="server"><i class="fa fa-plus"></i> Agregar Tipo de Maduración</asp:LinkButton></li>
+                <asp:LinkButton ID="LnkAgregarCGame_TipoMaduracion" OnClick="LnkAgregarCGam_Click" runat="server"><i class="fa fa-plus"></i> Agregar</asp:LinkButton></li>
         </ContentTemplate>
     </asp:UpdatePanel>
 </asp:Content>
@@ -23,38 +40,66 @@
 
     <asp:UpdatePanel ID="upDatosCGam" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
-            <div class="row" style="margin-right: 10px; margin-top: 18px;" align="right">
-                <input type="text" id="TxtBusqueda" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GVCGame_TipoMaduracion.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
-                <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GVCGame_TipoMaduracion.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
+
+            <div class="portlet light bordered" style="margin-bottom: 0px; padding: 0px;" id="form_wizard_1">
+                <div class="portlet-title">
+                    <div class="caption font-green">
+                        <i class="icon-pin font-green"></i>
+                        <span class="caption-subject font-green bold uppercase">Información
+                                        <asp:Literal ID="LtlPeriodoseleccionado" runat="server"></asp:Literal></span>
+                    </div>
+
+                    <div class="tools">
+                        <a href="javascript:;" class="collapse" data-original-title="" title=""></a>
+                        <%--<a href="javascript:;" class="fullscreen" data-original-title="" title=""></a>--%>
+                    </div>
+                    <div class="actions">
+                        <div class="btn-group">
+                        </div>
+                    </div>
+                    <div style="float: right;">
+                        <input type="text" id="TxtBusqueda" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GVCGame_TipoMaduracion.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
+                        <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GVCGame_TipoMaduracion.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
+
+
+                    </div>
+                </div>
+                <div class="portlet-body form">
+                    <asp:GridView ID="GVCGame_TipoMaduracion" EmptyDataText="No hay tipos de maduración registrados." runat="server" GridLines="None"
+                        CssClass="table table-hover table-striped ScrollAD GVCGame_TipoMaduracion mysmallbtn" Width="100%" data-sort="true" AutoGenerateColumns="False"
+                        DataKeyNames="CveTipoMaduracion,TipoMaduracion,Estatus,FechaIng,CveUsuario,Usuario,CveEmpresa,Empresa,CvePS">
+                        <Columns>
+                            <asp:TemplateField HeaderText="Variedad" ItemStyle-HorizontalAlign="Left">
+                                <ItemTemplate>
+                                    <asp:Label ID="lblcliente" runat="server" Text='<%# Eval("TipoMaduracion")%>'> </asp:Label>
+                                </ItemTemplate>
+                            </asp:TemplateField>
+                            <asp:TemplateField HeaderText="Producto" ItemStyle-HorizontalAlign="Left">
+                                <ItemTemplate>
+                                    <asp:Label ID="LblPS" runat="server" Text='<%# Eval("PS")%>'> </asp:Label>
+                                </ItemTemplate>
+                            </asp:TemplateField>
+                            <asp:TemplateField HeaderText="Estatus"  ItemStyle-Width="100px"  >
+                                <ItemTemplate>
+                                    <asp:Label ID="lblestatus" runat="server" Text='<%# If(CBool(Eval("Estatus")), "Activo", "Inactivo")%>'> </asp:Label>
+                                </ItemTemplate>
+                            </asp:TemplateField>
+                            <asp:BoundField HeaderText="Fecha Ingreso" ItemStyle-CssClass="centerclass" ItemStyle-Width="100px" ItemStyle-HorizontalAlign="Center" DataField="FechaIng" DataFormatString="{0:dd/MM/yyyy}" />
+                            <asp:TemplateField HeaderText="Usuario" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="200px">
+                                <ItemTemplate>
+                                    <asp:Label ID="lblusuario" runat="server" Text='<%# Eval("Usuario")%>'> </asp:Label>
+                                </ItemTemplate>
+                            </asp:TemplateField>
+                            <asp:TemplateField ItemStyle-HorizontalAlign="Center" ItemStyle-Width="100px" HeaderText="Comandos">
+                                <ItemTemplate>
+                                    <asp:LinkButton data-toggle="tooltip" title="Editar" ID="LnkEditar" OnClick="LnkEditarCGam_Click" CssClass="btn btn-circle btn-sm green" runat="server" Text="<i class='fa fa-pencil'></i>"></asp:LinkButton>
+                                    <asp:LinkButton ID="imgD" runat="server" OnClick="LnkEliminarCGam_Click" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="¿Está seguro que desea eliminar el tipo de maduracion?" data-btn-ok-label="si" />
+                                </ItemTemplate>
+                            </asp:TemplateField>
+                        </Columns>
+                    </asp:GridView>
+                </div>
             </div>
-            <asp:GridView ID="GVCGame_TipoMaduracion" EmptyDataText="No hay tipos de maduración registrados." runat="server" GridLines="None"
-                CssClass="table table-hover table-striped ScrollAD mysmallbtn" Width="100%" data-sort="true" AutoGenerateColumns="False"
-                DataKeyNames="CveTipoMaduracion,TipoMaduracion,Estatus,FechaIng,CveUsuario,Usuario,CveEmpresa,Empresa,CvePS">
-                <Columns>
-                    <asp:TemplateField HeaderText="Variedad" ItemStyle-HorizontalAlign="Left">
-                        <ItemTemplate>
-                            <asp:Label ID="lblcliente" runat="server" Text='<%# Eval("TipoMaduracion")%>'> </asp:Label>
-                        </ItemTemplate>
-                    </asp:TemplateField>
-                    <asp:TemplateField HeaderText="Producto" ItemStyle-HorizontalAlign="Left">
-                        <ItemTemplate>
-                            <asp:Label ID="LblPS" runat="server" Text='<%# Eval("PS")%>'> </asp:Label>
-                        </ItemTemplate>
-                    </asp:TemplateField>
-                    <asp:TemplateField HeaderText="Estatus" ItemStyle-HorizontalAlign="Center">
-                        <ItemTemplate>
-                            <asp:Label ID="lblestatus" runat="server" Text='<%# If(CBool(Eval("Estatus")), "Activo", "Inactivo")%>'> </asp:Label>
-                        </ItemTemplate>
-                    </asp:TemplateField>
-                    <asp:BoundField HeaderText="Fecha Ingreso" ItemStyle-HorizontalAlign="Center" DataField="FechaIng" DataFormatString="{0:dd/MM/yyyy}" />
-                    <asp:TemplateField ItemStyle-HorizontalAlign="Center" ItemStyle-Width="15%" HeaderText="Comandos">
-                        <ItemTemplate>
-                            <asp:LinkButton data-toggle="tooltip" title="Editar" ID="LnkEditar" OnClick="LnkEditarCGam_Click" CssClass="btn btn-circle btn-sm green" runat="server" Text="<i class='fa fa-pencil'></i>"></asp:LinkButton>
-                            <asp:LinkButton ID="imgD" runat="server" OnClick="LnkEliminarCGam_Click" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="¿Está seguro que desea eliminar el tipo de maduracion?" data-btn-ok-label="si" />
-                        </ItemTemplate>
-                    </asp:TemplateField>
-                </Columns>
-            </asp:GridView>
         </ContentTemplate>
     </asp:UpdatePanel>
     <div id="DModalCGame_TipoMaduracion" class="modal ADS fade" role="dialog">
@@ -64,7 +109,7 @@
                     <div class="modal-header ">
 
                         <h4 class="modal-title">
-                            <asp:Literal ID="ltlCGamtitulo" Text="Agregar Tipo Maduracion" runat="server"> </asp:Literal></h4>
+                            <asp:Literal ID="ltlCGamtitulo" Text="Agregar Variedad" runat="server"> </asp:Literal></h4>
                     </div>
                     <div class="modal-body">
                         <div class="form-group form-md-line-input input-iconright">
@@ -75,7 +120,7 @@
                         </div>
                         <div class="form-group form-md-line-input input-iconright">
                             <asp:DropDownList ID="DdlPS" CssClass="form-control select2me " runat="server" DataTextField="PS" DataValueField="CvePS" Style="width: 50%"></asp:DropDownList>
-                            <label for="<%= DdlPS.ClientID.ToString()%>">Producto:</label>
+                            <label for="<%= DdlPS.ClientID.ToString()%>">Fruto:</label>
                         </div>
                         <div class="form-group form-md-line-input input-iconright" id="DivEstatus" runat="server">
                             <label for="<%= ChkCGamestatus.ClientID.ToString()%>">Estatus:</label>
diff --git a/CGame/CatTipoMaduracion.aspx.vb b/CGame/CatTipoMaduracion.aspx.vb
index 1bfb5d9f9..eece2936c 100644
--- a/CGame/CatTipoMaduracion.aspx.vb
+++ b/CGame/CatTipoMaduracion.aspx.vb
@@ -79,7 +79,7 @@ Partial Class CGame_CatTipoMaduracion
         UPModalCGam.Update()
     End Sub
     Protected Sub LnkEditarCGam_Click(sender As Object, e As EventArgs)
-        ltlCGamtitulo.Text = "Editar Tipo de Maduración"
+        ltlCGamtitulo.Text = "Editar Variedad"
         LimpiaCGame_TipoMaduracion()
         divEstatus.Visible = True
         Dim gvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow)
@@ -100,7 +100,7 @@ Partial Class CGame_CatTipoMaduracion
     End Sub
     Protected Sub LnkAgregarCGam_Click(sender As Object, e As EventArgs)
         divEstatus.Visible = False
-        ltlCGamtitulo.Text = "Agregar Tipo de Maduración"
+        ltlCGamtitulo.Text = "Agregar Variedad"
         RegistraScript("$('#DModalCGame_TipoMaduracion').modal('show')")
         LimpiaCGame_TipoMaduracion()
         BtnCGamADD.Visible = True
diff --git a/Compras/eFacturas.aspx.vb b/Compras/eFacturas.aspx.vb
index cfe4b89ee..8aa6f6ece 100644
--- a/Compras/eFacturas.aspx.vb
+++ b/Compras/eFacturas.aspx.vb
@@ -4247,132 +4247,172 @@ Partial Class Compras_eFacturas
     Protected Sub LnkRegenerarPdfnew_Click(sender As Object, e As EventArgs)
         Dim gvrow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
         Dim objxml As XmlSatCFDI = XmlSatCFDI.readXML(String.Format("{0}{1}\{2}", Destino, gvrow.DataKey("RFCDe"), gvrow.DataKey("XML")))
-        If Not IsNothing(objxml) Then
-            Dim rutaReporte As String = String.Format("{0}{1}", ModExtensiones.DirectorioBaseEmpresas, "\Empresas\Grales\Formatos\CFDIV3.rdlc")
-            If Not IsNothing(objxml.complemento.Pagos) Then
-                rutaReporte = String.Format("{0}{1}", ModExtensiones.DirectorioBaseEmpresas, "\Empresas\Grales\Formatos\CFDIV3Pago.rdlc")
+
+
+        Dim XmlRutaArchivo As String = File.ReadAllText(String.Format("{0}{1}\{2}", Destino, gvrow.DataKey("RFCDe"), gvrow.DataKey("XML")))
+        Dim PDFRutaArchivo As String = String.Format("{0}{1}\{2}", Destino, gvrow.DataKey("RFCDe"), gvrow.DataKey("PDF"))
+        Dim RutaRDLC = String.Format("{0}{1}", DirectorioBaseEmpresas, "Empresas\Grales\Formatos\ReciboDePagoGOPDF.rdlc")
+
+
+
+        'ModExtensiones.GuardaLog(" '--------PDF GenGoPdf Inicia ")
+        Dim Respuesta As Boolean = False
+
+        Dim Inicio As DateTime = DateTime.Now
+        Dim goPdf As GoPdf.GoPdf = New GoPdf.GoPdf()
+        Dim logotipo As Byte() = Nothing
+
+        Try
+            Dim result = goPdf.ExportarPdf(XmlRutaArchivo, logotipo, "", RutaRDLC, New GoPdf.Modelos.DatosAdicionales() With {
+            .DomicilioReceptor = ""
+        })
+            Dim Fin As DateTime = DateTime.Now
+
+            If result IsNot Nothing Then
+                File.WriteAllBytes(PDFRutaArchivo, result)
+                Respuesta = True
+                Alert($"PDF  Generado")
+            Else
+                Alert($"PDF  Error se genero nulo", TipoMensaje.MsgAdvertencia)
             End If
-            Dim NombreArchivo As String = String.Format("{0}{1}\{2}", Destino, gvrow.DataKey("RFCDe"), gvrow.DataKey("PDF"))
+
+        Catch ex As Exception
+            Alert($"PDF  Error {ex.Message} -- > {ex.StackTrace}", TipoMensaje.MsgAdvertencia)
+        End Try
+
+        Alert("PDF  Finaliza", TipoMensaje.MsgAdvertencia)
 
 
-            Dim QR As ClbNegBICFDv3_2.ClsNegCBBGenerar = New ClbNegBICFDv3_2.ClsNegCBBGenerar()
-            Dim cQr As Byte() = QR.GenerarCBBBytes(objxml.emisor.Rfc, objxml.receptor.Rfc, If(IsNothing(objxml.complemento.Pagos), objxml.comprobante.Total, objxml.complemento.Pagos.Monto), objxml.complemento.UUID)
-            Dim parametros As List(Of ReportParameter) = New List(Of ReportParameter)()
-            parametros.Add(New ReportParameter("comprobante_Certificado", objxml.comprobante.Certificado))
-            parametros.Add(New ReportParameter("comprobante_CondicionesDePago", objxml.comprobante.CondicionesDePago))
-            parametros.Add(New ReportParameter("comprobante_Confirmacion", objxml.comprobante.Confirmacion))
-            parametros.Add(New ReportParameter("comprobante_Fecha", objxml.comprobante.Fecha))
-            parametros.Add(New ReportParameter("comprobante_Serie", objxml.comprobante.Serie))
-            parametros.Add(New ReportParameter("comprobante_Folio", objxml.comprobante.Folio))
-            parametros.Add(New ReportParameter("comprobante_Descuento", objxml.comprobante.Descuento.ToString("N2")))
-            parametros.Add(New ReportParameter("comprobante_SubTotal", objxml.comprobante.SubTotal.ToString("N2")))
-            parametros.Add(New ReportParameter("comprobante_Total", objxml.comprobante.Total.ToString("N2")))
-            parametros.Add(New ReportParameter("comprobante_Version", objxml.comprobante.Version))
-            parametros.Add(New ReportParameter("comprobante_TipoDeComprobante", objxml.comprobante.TipoDeComprobanteTexto))
-            parametros.Add(New ReportParameter("comprobante_FormaPago", objxml.comprobante.FormaPagoTexto))
-            parametros.Add(New ReportParameter("comprobante_LugarExpedicion", objxml.comprobante.LugarExpedicion))
-            parametros.Add(New ReportParameter("comprobante_NoCertificado", objxml.comprobante.NoCertificado))
-            parametros.Add(New ReportParameter("comprobante_Sello", objxml.comprobante.Sello))
-            parametros.Add(New ReportParameter("comprobante_Moneda", objxml.comprobante.Moneda))
-            parametros.Add(New ReportParameter("comprobante_TipoCambio", objxml.comprobante.TipoCambio.ToString("N2")))
-            parametros.Add(New ReportParameter("comprobante_MetodoPago", objxml.comprobante.MetodoPagoTexto))
-            parametros.Add(New ReportParameter("emisor_Rfc", objxml.emisor.Rfc))
-            parametros.Add(New ReportParameter("emisor_Nombre", objxml.emisor.Nombre))
-            parametros.Add(New ReportParameter("emisor_RegimenFiscal", objxml.emisor.RegimenFiscalTexto))
-            parametros.Add(New ReportParameter("receptor_Rfc", objxml.receptor.Rfc))
-            parametros.Add(New ReportParameter("receptor_Nombre", objxml.receptor.Nombre))
-            parametros.Add(New ReportParameter("receptor_NumRegIdTrib", objxml.receptor.NumRegIdTrib))
-            parametros.Add(New ReportParameter("receptor_ResidenciaFiscal", objxml.receptor.ResidenciaFiscal))
-            parametros.Add(New ReportParameter("receptor_UsoCFDI", objxml.receptor.UsoCFDITexto))
-            parametros.Add(New ReportParameter("complemento_FechaTimbrado", objxml.complemento.FechaTimbrado))
-            parametros.Add(New ReportParameter("complemento_NoCertificadoSAT", objxml.complemento.NoCertificadoSAT))
-            parametros.Add(New ReportParameter("complemento_RfcProvCertif", objxml.complemento.RfcProvCertif))
-            parametros.Add(New ReportParameter("complemento_SelloCFD", objxml.complemento.SelloCFD))
-            parametros.Add(New ReportParameter("complemento_SelloSAT", objxml.complemento.SelloSAT))
-            parametros.Add(New ReportParameter("complemento_UUID", objxml.complemento.UUID))
-            parametros.Add(New ReportParameter("complemento_CadenaOriginal", objxml.complemento.CadenaOriginal))
-            If Not IsNothing(objxml.complemento.Pagos) Then
-                parametros.Add(New ReportParameter("CPFechaPago", objxml.complemento.Pagos.FechaPago))
-                parametros.Add(New ReportParameter("CPFormaDePagoP", objxml.complemento.Pagos.FormaDePagoP))
-                parametros.Add(New ReportParameter("CPFormaDePagoPText", objxml.complemento.Pagos.FormaDePagoPText))
-                parametros.Add(New ReportParameter("CPMonedaP", objxml.complemento.Pagos.MonedaP))
-                parametros.Add(New ReportParameter("CPMonto", objxml.complemento.Pagos.Monto.ToString()))
-                parametros.Add(New ReportParameter("CPTipoCambioP", objxml.complemento.Pagos.TipoCambioP.ToString()))
-                parametros.Add(New ReportParameter("CPNumOperacion", objxml.complemento.Pagos.NumOperacion))
-                parametros.Add(New ReportParameter("CPNomBancoOrdExt", objxml.complemento.Pagos.NomBancoOrdExt))
-                parametros.Add(New ReportParameter("CPRfcEmisorCtaOrd", objxml.complemento.Pagos.RfcEmisorCtaOrd))
-                parametros.Add(New ReportParameter("CPCtaOrdenante", objxml.complemento.Pagos.CtaOrdenante))
-                parametros.Add(New ReportParameter("CPRfcEmisorCtaBen", objxml.complemento.Pagos.RfcEmisorCtaBen))
-                parametros.Add(New ReportParameter("CPCtaBeneficiario", objxml.complemento.Pagos.CtaBeneficiario))
 
-            End If
-            Using MR As ReportViewer = New ReportViewer()
-                Dim rdsTotales As ReportDataSource = New ReportDataSource()
-                Dim ltotales As List(Of utilValores) = New List(Of utilValores)()
-                ltotales.Add(New utilValores("Subtotal", objxml.comprobante.SubTotal.ToString("N2")))
 
-                If objxml.comprobante.Descuento > 0 Then
-                    ltotales.Add(New utilValores("Descuento", objxml.comprobante.Descuento.ToString("N2")))
-                End If
+        'If Not IsNothing(objxml) Then
+        '    Dim rutaReporte As String = String.Format("{0}{1}", ModExtensiones.DirectorioBaseEmpresas, "\Empresas\Grales\Formatos\CFDIV3.rdlc")
+        '    If Not IsNothing(objxml.complemento.Pagos) Then
+        '        rutaReporte = String.Format("{0}{1}", ModExtensiones.DirectorioBaseEmpresas, "\Empresas\Grales\Formatos\CFDIV3Pago.rdlc")
+        '    End If
+        '    Dim NombreArchivo As String = String.Format("{0}{1}\{2}", Destino, gvrow.DataKey("RFCDe"), gvrow.DataKey("PDF"))
 
-                For Each item As CFDIImpuesto In objxml.Impuestos
 
-                    If item.Importe > 0 Then
-                        Dim TasaOCuota As Decimal = 0
-                        Decimal.TryParse(item.TasaOCuota, TasaOCuota)
-                        ltotales.Add(New utilValores($"Impuestos {item.Tipo} {item.ImpuestoTexto} {(If(item.TipoFactor = "Tasa", (TasaOCuota * 100).ToString("N4"), item.TasaOCuota))} {(If(item.TipoFactor = "Tasa", "%", ""))}", item.Importe.ToString("N2")))
-                    End If
-                Next
+        '    Dim QR As ClbNegBICFDv3_2.ClsNegCBBGenerar = New ClbNegBICFDv3_2.ClsNegCBBGenerar()
+        '    Dim cQr As Byte() = QR.GenerarCBBBytes(objxml.emisor.Rfc, objxml.receptor.Rfc, If(IsNothing(objxml.complemento.Pagos), objxml.comprobante.Total, objxml.complemento.Pagos.Monto), objxml.complemento.UUID)
+        '    Dim parametros As List(Of ReportParameter) = New List(Of ReportParameter)()
+        '    parametros.Add(New ReportParameter("comprobante_Certificado", objxml.comprobante.Certificado))
+        '    parametros.Add(New ReportParameter("comprobante_CondicionesDePago", objxml.comprobante.CondicionesDePago))
+        '    parametros.Add(New ReportParameter("comprobante_Confirmacion", objxml.comprobante.Confirmacion))
+        '    parametros.Add(New ReportParameter("comprobante_Fecha", objxml.comprobante.Fecha))
+        '    parametros.Add(New ReportParameter("comprobante_Serie", objxml.comprobante.Serie))
+        '    parametros.Add(New ReportParameter("comprobante_Folio", objxml.comprobante.Folio))
+        '    parametros.Add(New ReportParameter("comprobante_Descuento", objxml.comprobante.Descuento.ToString("N2")))
+        '    parametros.Add(New ReportParameter("comprobante_SubTotal", objxml.comprobante.SubTotal.ToString("N2")))
+        '    parametros.Add(New ReportParameter("comprobante_Total", objxml.comprobante.Total.ToString("N2")))
+        '    parametros.Add(New ReportParameter("comprobante_Version", objxml.comprobante.Version))
+        '    parametros.Add(New ReportParameter("comprobante_TipoDeComprobante", objxml.comprobante.TipoDeComprobanteTexto))
+        '    parametros.Add(New ReportParameter("comprobante_FormaPago", objxml.comprobante.FormaPagoTexto))
+        '    parametros.Add(New ReportParameter("comprobante_LugarExpedicion", objxml.comprobante.LugarExpedicion))
+        '    parametros.Add(New ReportParameter("comprobante_NoCertificado", objxml.comprobante.NoCertificado))
+        '    parametros.Add(New ReportParameter("comprobante_Sello", objxml.comprobante.Sello))
+        '    parametros.Add(New ReportParameter("comprobante_Moneda", objxml.comprobante.Moneda))
+        '    parametros.Add(New ReportParameter("comprobante_TipoCambio", objxml.comprobante.TipoCambio.ToString("N2")))
+        '    parametros.Add(New ReportParameter("comprobante_MetodoPago", objxml.comprobante.MetodoPagoTexto))
+        '    parametros.Add(New ReportParameter("emisor_Rfc", objxml.emisor.Rfc))
+        '    parametros.Add(New ReportParameter("emisor_Nombre", objxml.emisor.Nombre))
+        '    parametros.Add(New ReportParameter("emisor_RegimenFiscal", objxml.emisor.RegimenFiscalTexto))
+        '    parametros.Add(New ReportParameter("receptor_Rfc", objxml.receptor.Rfc))
+        '    parametros.Add(New ReportParameter("receptor_Nombre", objxml.receptor.Nombre))
+        '    parametros.Add(New ReportParameter("receptor_NumRegIdTrib", objxml.receptor.NumRegIdTrib))
+        '    parametros.Add(New ReportParameter("receptor_ResidenciaFiscal", objxml.receptor.ResidenciaFiscal))
+        '    parametros.Add(New ReportParameter("receptor_UsoCFDI", objxml.receptor.UsoCFDITexto))
+        '    parametros.Add(New ReportParameter("complemento_FechaTimbrado", objxml.complemento.FechaTimbrado))
+        '    parametros.Add(New ReportParameter("complemento_NoCertificadoSAT", objxml.complemento.NoCertificadoSAT))
+        '    parametros.Add(New ReportParameter("complemento_RfcProvCertif", objxml.complemento.RfcProvCertif))
+        '    parametros.Add(New ReportParameter("complemento_SelloCFD", objxml.complemento.SelloCFD))
+        '    parametros.Add(New ReportParameter("complemento_SelloSAT", objxml.complemento.SelloSAT))
+        '    parametros.Add(New ReportParameter("complemento_UUID", objxml.complemento.UUID))
+        '    parametros.Add(New ReportParameter("complemento_CadenaOriginal", objxml.complemento.CadenaOriginal))
+        '    If Not IsNothing(objxml.complemento.Pagos) Then
+        '        parametros.Add(New ReportParameter("CPFechaPago", objxml.complemento.Pagos.FechaPago))
+        '        parametros.Add(New ReportParameter("CPFormaDePagoP", objxml.complemento.Pagos.FormaDePagoP))
+        '        parametros.Add(New ReportParameter("CPFormaDePagoPText", objxml.complemento.Pagos.FormaDePagoPText))
+        '        parametros.Add(New ReportParameter("CPMonedaP", objxml.complemento.Pagos.MonedaP))
+        '        parametros.Add(New ReportParameter("CPMonto", objxml.complemento.Pagos.Monto.ToString()))
+        '        parametros.Add(New ReportParameter("CPTipoCambioP", objxml.complemento.Pagos.TipoCambioP.ToString()))
+        '        parametros.Add(New ReportParameter("CPNumOperacion", objxml.complemento.Pagos.NumOperacion))
+        '        parametros.Add(New ReportParameter("CPNomBancoOrdExt", objxml.complemento.Pagos.NomBancoOrdExt))
+        '        parametros.Add(New ReportParameter("CPRfcEmisorCtaOrd", objxml.complemento.Pagos.RfcEmisorCtaOrd))
+        '        parametros.Add(New ReportParameter("CPCtaOrdenante", objxml.complemento.Pagos.CtaOrdenante))
+        '        parametros.Add(New ReportParameter("CPRfcEmisorCtaBen", objxml.complemento.Pagos.RfcEmisorCtaBen))
+        '        parametros.Add(New ReportParameter("CPCtaBeneficiario", objxml.complemento.Pagos.CtaBeneficiario))
 
-                ltotales.Add(New utilValores("Total", objxml.comprobante.Total.ToString("N2")))
-                rdsTotales.Name = "dsTotales"
-                rdsTotales.Value = ltotales
-                MR.LocalReport.DataSources.Add(rdsTotales)
-                Dim rds2 As ReportDataSource = New ReportDataSource()
-                Dim limagenes As List(Of utilImage) = New List(Of utilImage)()
-                limagenes.Add(New utilImage(cQr))
-                rds2.Name = "dsImagenes"
-                rds2.Value = limagenes
-                MR.LocalReport.DataSources.Add(rds2)
-                Dim rdsrelacionados As ReportDataSource = New ReportDataSource()
-                rdsrelacionados.Name = "dsRelacionados"
-                rdsrelacionados.Value = objxml.cFDIRelacionados
-                MR.LocalReport.DataSources.Add(rdsrelacionados)
-                Dim rds1 As ReportDataSource = New ReportDataSource()
-                rds1.Name = "dsConceptos"
-                rds1.Value = objxml.GetConceptosforpdf()
-                MR.LocalReport.DataSources.Add(rds1)
+        '    End If
+        '    Using MR As ReportViewer = New ReportViewer()
+        '        Dim rdsTotales As ReportDataSource = New ReportDataSource()
+        '        Dim ltotales As List(Of utilValores) = New List(Of utilValores)()
+        '        ltotales.Add(New utilValores("Subtotal", objxml.comprobante.SubTotal.ToString("N2")))
 
-                If Not IsNothing(objxml.complemento.Pagos) Then
+        '        If objxml.comprobante.Descuento > 0 Then
+        '            ltotales.Add(New utilValores("Descuento", objxml.comprobante.Descuento.ToString("N2")))
+        '        End If
 
-                    Dim rdsp As ReportDataSource = New ReportDataSource()
-                    rdsp.Name = "dsPagos"
-                    rdsp.Value = objxml.complemento.Pagos.doctosRelacionados
-                    MR.LocalReport.DataSources.Add(rdsp)
-                End If
+        '        For Each item As CFDIImpuesto In objxml.Impuestos
+
+        '            If item.Importe > 0 Then
+        '                Dim TasaOCuota As Decimal = 0
+        '                Decimal.TryParse(item.TasaOCuota, TasaOCuota)
+        '                ltotales.Add(New utilValores($"Impuestos {item.Tipo} {item.ImpuestoTexto} {(If(item.TipoFactor = "Tasa", (TasaOCuota * 100).ToString("N4"), item.TasaOCuota))} {(If(item.TipoFactor = "Tasa", "%", ""))}", item.Importe.ToString("N2")))
+        '            End If
+        '        Next
+
+        '        ltotales.Add(New utilValores("Total", objxml.comprobante.Total.ToString("N2")))
+        '        rdsTotales.Name = "dsTotales"
+        '        rdsTotales.Value = ltotales
+        '        MR.LocalReport.DataSources.Add(rdsTotales)
+        '        Dim rds2 As ReportDataSource = New ReportDataSource()
+        '        Dim limagenes As List(Of utilImage) = New List(Of utilImage)()
+        '        limagenes.Add(New utilImage(cQr))
+        '        rds2.Name = "dsImagenes"
+        '        rds2.Value = limagenes
+        '        MR.LocalReport.DataSources.Add(rds2)
+        '        Dim rdsrelacionados As ReportDataSource = New ReportDataSource()
+        '        rdsrelacionados.Name = "dsRelacionados"
+        '        rdsrelacionados.Value = objxml.cFDIRelacionados
+        '        MR.LocalReport.DataSources.Add(rdsrelacionados)
+        '        Dim rds1 As ReportDataSource = New ReportDataSource()
+        '        rds1.Name = "dsConceptos"
+        '        rds1.Value = objxml.GetConceptosforpdf()
+        '        MR.LocalReport.DataSources.Add(rds1)
+
+        '        If Not IsNothing(objxml.complemento.Pagos) Then
+
+        '            Dim rdsp As ReportDataSource = New ReportDataSource()
+        '            rdsp.Name = "dsPagos"
+        '            rdsp.Value = objxml.complemento.Pagos.doctosRelacionados
+        '            MR.LocalReport.DataSources.Add(rdsp)
+        '        End If
+
+        '        MR.LocalReport.ReportPath = rutaReporte
+        '        MR.ProcessingMode = ProcessingMode.Local
+        '        MR.LocalReport.EnableExternalImages = True
+        '        MR.LocalReport.SetParameters(parametros)
+        '        MR.LocalReport.Refresh()
+        '        Dim warnings As Warning() = Nothing
+        '        Dim streamids As String() = Nothing
+        '        Dim mimeType As String = Nothing
+        '        Dim encoding As String = Nothing
+        '        Dim extension As String = Nothing
+        '        Dim bytes As Byte() = Nothing
+        '        bytes = MR.LocalReport.Render("PDF", Nothing, mimeType, encoding, extension, streamids, warnings)
+
+        '        Using fs As FileStream = New FileStream(NombreArchivo, FileMode.Create)
+        '            fs.Write(bytes, 0, bytes.Length)
+        '            fs.Close()
+        '        End Using
+        '    End Using
+        '    Alert("PDF Generado!")
+        'Else
+        '    Alert("no se pudo procesar el archivo xml")
+        'End If
 
-                MR.LocalReport.ReportPath = rutaReporte
-                MR.ProcessingMode = ProcessingMode.Local
-                MR.LocalReport.EnableExternalImages = True
-                MR.LocalReport.SetParameters(parametros)
-                MR.LocalReport.Refresh()
-                Dim warnings As Warning() = Nothing
-                Dim streamids As String() = Nothing
-                Dim mimeType As String = Nothing
-                Dim encoding As String = Nothing
-                Dim extension As String = Nothing
-                Dim bytes As Byte() = Nothing
-                bytes = MR.LocalReport.Render("PDF", Nothing, mimeType, encoding, extension, streamids, warnings)
 
-                Using fs As FileStream = New FileStream(NombreArchivo, FileMode.Create)
-                    fs.Write(bytes, 0, bytes.Length)
-                    fs.Close()
-                End Using
-            End Using
-            Alert("PDF Generado!")
-        Else
-            Alert("no se pudo procesar el archivo xml")
-        End If
     End Sub
     Private Sub VinculacionMasivaComplementos()
 
diff --git a/Empresas/132/Formatos/Cotizacion.rdlc b/Empresas/132/Formatos/Cotizacion.rdlc
index fffee8b39..518c577fd 100644
--- a/Empresas/132/Formatos/Cotizacion.rdlc
+++ b/Empresas/132/Formatos/Cotizacion.rdlc
@@ -2399,6 +2399,18 @@ Celular: </Value>
       <AllowBlank>true</AllowBlank>
       <Prompt>ReportParameter1</Prompt>
     </ReportParameter>
+    <ReportParameter Name="CFDIVersion">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="RegimenFiscalCodigo">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
   </ReportParameters>
   <EmbeddedImages>
     <EmbeddedImage Name="VISTAPREVIA22">
diff --git a/GPS/WizardDispositivos.aspx b/GPS/WizardDispositivos.aspx
index db540ece2..10941b2ff 100644
--- a/GPS/WizardDispositivos.aspx
+++ b/GPS/WizardDispositivos.aspx
@@ -237,6 +237,10 @@
                                                                     <asp:TextBox ID="TxtPlacas" runat="server" CssClass="form-control" MaxLength="50" CausesValidation="true"></asp:TextBox>
                                                                     <asp:Label runat="server" Text="Placas Vehículo:" AssociatedControlID="TxtPlacas"></asp:Label>
                                                                 </div>
+                                                                <div class="form-group form-md-line-input input-iconright">
+                                                                    <asp:TextBox ID="TxtAsignadoEn" runat="server" CssClass="form-control" MaxLength="50" CausesValidation="true"></asp:TextBox>
+                                                                    <asp:Label runat="server" Text="Asignación en:" AssociatedControlID="TxtAsignadoEn"></asp:Label>
+                                                                </div>
                                                             </ContentTemplate>
                                                         </asp:UpdatePanel>
                                                     </div>
diff --git a/GPS/WizardDispositivos.aspx.cs b/GPS/WizardDispositivos.aspx.cs
index 7f08c3690..c85998c46 100644
--- a/GPS/WizardDispositivos.aspx.cs
+++ b/GPS/WizardDispositivos.aspx.cs
@@ -232,6 +232,7 @@ public partial class GPS_WizardDispositivos : ClsPaginas
                 TxtModeloV.Text = drow["ModeloVehiculo"].ToString();
                 TxtAñoV.Text = drow["AñoVehiculo"].ToString();
                 TxtPlacas.Text = drow["PlacasVehiculo"].ToString();
+                TxtAsignadoEn.Text = drow["AsignadoEn"].ToString();
                 ChkTipoLinea.Checked = drow["CveProveedorComunicacionCuenta"].ToString().ToEntero() <= 0;
           
             }
@@ -346,6 +347,7 @@ public partial class GPS_WizardDispositivos : ClsPaginas
         string AñoV = TxtAñoV.Text;
         string ClaseVehiculo = "";//TxtClaseVehiculo.Text;
         string Placas = TxtPlacas.Text;
+        string AsignadoEn = TxtAsignadoEn.Text; 
         bool LimiteVelocidad = false;
         double LimiteVelocidadV = 0;//chkLimiteVelocidad.Checked ? TxtLimiteVelocidad.Text.ToDouble : 0
         string Detalles = "";//TxtDetalles.Text;
@@ -365,12 +367,12 @@ public partial class GPS_WizardDispositivos : ClsPaginas
             if (CveDispositivo > 0)
             {
                 continuar = ObjGPS.DispositivosUpdate(TipoDispositivo,NumTelefono, CveDispositivo, modelo, LineaTelefonica, CveCliente, IMEI, Serie, 1, SerieV, ColorV, NombreV, NoEconomico, DevId, puerto,
-                                                      ModeloV, AñoV, ClaseVehiculo, Placas, LimiteVelocidad, LimiteVelocidadV, Detalles, Rendimiento, icono, Color,UsuarioActual.CveUsuario);
+                                                      ModeloV, AñoV, ClaseVehiculo, Placas, LimiteVelocidad, LimiteVelocidadV, Detalles, Rendimiento, icono, Color,UsuarioActual.CveUsuario, AsignadoEn);
             }
             else
             {
                 continuar = ObjGPS.DispositivoAdd(TipoDispositivo, NumTelefono, modelo, LineaTelefonica, CveCliente, IMEI, Serie, 1, SerieV, ColorV, NombreV, NoEconomico, DevId, puerto,
-                                                  ModeloV, AñoV, ClaseVehiculo, Placas, LimiteVelocidad, LimiteVelocidadV, Detalles, Rendimiento, icono, Color, UsuarioActual.CveUsuario);
+                                                  ModeloV, AñoV, ClaseVehiculo, Placas, LimiteVelocidad, LimiteVelocidadV, Detalles, Rendimiento, icono, Color, UsuarioActual.CveUsuario, AsignadoEn);
                 CveDispositivo = ObjGPS.CveDispositivo;
             }
             if (continuar)
diff --git a/Inventarios/EntregaAlmacen.aspx.vb b/Inventarios/EntregaAlmacen.aspx.vb
index 70504f3c5..9c4e09413 100644
--- a/Inventarios/EntregaAlmacen.aspx.vb
+++ b/Inventarios/EntregaAlmacen.aspx.vb
@@ -636,9 +636,7 @@ Partial Class Inventarios_EntregaAlmacen
 
                     'filtra los Almacenes de domicilio
                     If DtDatos.Rows(0)("ServicioDomicilio").ToString() = "True" Then
-                        StrAlmacenes = String.Format("{0} AND Almacen like '%Domicilio%' ", StrAlmacenes)
-                    Else
-                        StrAlmacenes = String.Format("{0} AND NOT (Almacen like '%Domicilio%') ", StrAlmacenes)
+                        StrAlmacenes = "CveTipoAlmacen = 29"
                     End If
 
                     trObsGral.Visible = drE("Observaciones").ToString() <> ""
diff --git a/Inventarios/RecepcionUsados.aspx.vb b/Inventarios/RecepcionUsados.aspx.vb
index 40bf87dc4..46d2c1d8c 100644
--- a/Inventarios/RecepcionUsados.aspx.vb
+++ b/Inventarios/RecepcionUsados.aspx.vb
@@ -3368,6 +3368,8 @@ Partial Class Inventarios_RecepcionUsados
     End Sub
 
     Protected Sub BtnAgregarProductoAjuste_Click(sender As Object, e As EventArgs)
+        Dim ErrorAjuste As Boolean = False
+
         Dim CvePS As Integer = DdlPSAjuste.SelectedValue.ToEntero
 
         Dim FolioGarantia As MFolioGarantiaMensaje = ValidaFolioGarantia(CvePS, DdlFolioGarantia.SelectedValue.ToEntero())
@@ -3418,15 +3420,20 @@ Partial Class Inventarios_RecepcionUsados
                             "", "-1", "-1", "-1", "", "", -1, "", "", CveTamaño)
                 End If
             Else
+                ErrorAjuste = True
                 Alert("No se pudo cargar el producto", TipoMensaje.MsgError)
             End If
 
         Catch ex As Exception
+            ErrorAjuste = True
             OnError("Ocurrió un error al agregar el producto", ex)
         End Try
         ObjPS.Dispose()
 
-        GuardaAjuste()
+        If Not ErrorAjuste Then
+            GuardaAjuste()
+        End If
+
 
         'If TmpDTPolizaVirtual Is Nothing Then
         '    CreaDTmpDTPolizaVirtual()
diff --git a/Nomina/Nomina.aspx.cs b/Nomina/Nomina.aspx.cs
index b5677c2e6..9357e8b57 100644
--- a/Nomina/Nomina.aspx.cs
+++ b/Nomina/Nomina.aspx.cs
@@ -2888,7 +2888,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
 
         DataRow drow = dtempleados.FiltroPrimero(string.Format("CvePersonal = {0}", SRCvePersonal));
         TxtCCSysSalarioMinimo.Text = "";
-        TxtCCSysUMA.Text = "$96.22";
+        //TxtCCSysUMA.Text = "$96.22";
         if (drow != null)
         {
             TxtCCSysSalarioMinimo.Text = string.Format("${0:N2}", drow["SalarioMinimo"]);
@@ -2984,6 +2984,18 @@ public partial class Nomina_Nomina2 : ClsPaginas
         if (drow != null)
         {
             decimal UMA = 96.22M;
+
+            using (ClsClaseBase objbase = new ClsClaseBase())
+            {
+                if (objbase.runQuerystr($"SELECT  Valor UMA FROM [dbo].[RH_TablasValores] WHERE Tipo =1 AND CveEmpresa ={UsuarioActual.CveEmpresa}  AND Fecha<'{DateTime.Now:yyyy/MM/dd}' ORDER BY  Fecha DESC"))
+                {
+                    if (objbase.DtResultados.Rows.Count > 0)
+                    {
+                        UMA = objbase.DtResultados.Rows[0]["UMA"].ToString().ToDecimal();
+                    }
+                }
+            }
+            TxtCCSysUMA.Text = $"{UMA:N2}";
             decimal HorasDobles = drow["HorasDobles"].ToString().ToDecimal();
             decimal HorasTriples = drow["HorasTriples"].ToString().ToDecimal();
             decimal ImporteHora = drow["SalarioDiario"].ToString().ToDecimal() / 8;
diff --git a/PortalGPS/InicioGPS.aspx b/PortalGPS/InicioGPS.aspx
index aad37218f..0a0094743 100644
--- a/PortalGPS/InicioGPS.aspx
+++ b/PortalGPS/InicioGPS.aspx
@@ -128,6 +128,43 @@
                             </ContentTemplate>
                         </asp:UpdatePanel>
                     </div>--%>
+                </ContentTemplate>
+            </asp:UpdatePanel>
+        </div>
+    </div>
+
+    <div id="divComentarios" class="modal ADS fade" role="dialog">
+        <div class="modal-dialog">
+            <asp:UpdatePanel ID="UpdatePanel1" class="modal-content rowpadding" tabindex="-1" runat="server" UpdateMode="Conditional">
+                <ContentTemplate>
+                    <div class="modal-header">
+                        <button type="button" class="close" data-dismiss="modal" aria-label="Close">
+                            <span aria-hidden="true">&times;</span>
+                        </button>
+                        <h4 class="modal-title" id="myModalLabelComenta">Comentarios para vehículo: </h4>
+                    </div>
+                    <div class="modal-body">
+                        <asp:UpdatePanel ID="UpdatePanel2" UpdateMode="Conditional" runat="server">
+                            <ContentTemplate>
+                                <asp:Button runat="server" ID="BtnCargaComentarios" Style="display: none" />
+
+                                <div class="form-group form-md-line-input input-iconright">
+                                    <asp:TextBox ID="TxtComentarios" runat="server"  Text="--" TextMode="MultiLine" Rows="4" CausesValidation="True" CssClass="form-control"></asp:TextBox>
+                                    <asp:Label runat="server" Text="Comentario: " style="padding-bottom: 92px;" AssociatedControlID="TxtComentarios"></asp:Label>
+                                </div>
+                                 
+                            </ContentTemplate>
+                        </asp:UpdatePanel>
+                    </div>
+
+                    <div class="modal-footer">
+
+                        <asp:UpdatePanel ID="UpdatePanel3" UpdateMode="Conditional" runat="server">
+                            <ContentTemplate>
+                                <button id="BtnModalBancosLayoutCerrar" type="button" class="btn btn-default" data-dismiss="modal">Cerrar</button>
+                                <asp:Button Text="Guardar" ID="BtnGuardarComentario" OnClick="BtnGuardarComentario_Click" CssClass="btn btn-primary" ValidationGroup="grpEditarcomentario" runat="server" />
+                            </ContentTemplate>
+                        </asp:UpdatePanel>
                     </div>
                 </ContentTemplate>
             </asp:UpdatePanel>
@@ -245,6 +282,17 @@
             $("#divComandos").modal()
             $("#C_BtnCargaComandos").click()
 
+        }
+        function EditarComentario(Vehiculo, Comentario, CveDispositivo) {
+            $("#HdnCveDipositivo").val(CveDispositivo)
+            //  if (open) { FNShowDiv(); }
+            $("#myModalLabelComenta").text("Comentarios para vehículo: " + Vehiculo)
+            closeLastOpenedInfoWindow();
+            $("#divComentarios").modal();
+
+            $("#C_TxtComentarios").val(Comentario)
+            $("#C_BtnCargaComentarios").click()
+
         }
 
         function ControlLabels(controlDiv, map) {
@@ -337,7 +385,7 @@
                 });
             }
 
-    }
+        }
 
     </script>
     <script src="<%= String.Format("https://maps.googleapis.com/maps/api/js?key={0}&libraries=drawing&libraries=places", Extensiones.GOOGLE_MAPS_API_KEY) %>"></script>
diff --git a/PortalGPS/InicioGPS.aspx.vb b/PortalGPS/InicioGPS.aspx.vb
index 17d5eccd0..fcd6c617a 100644
--- a/PortalGPS/InicioGPS.aspx.vb
+++ b/PortalGPS/InicioGPS.aspx.vb
@@ -229,23 +229,37 @@ Partial Class GPS_PruebaMaster
     Public Function InfoWindowCombustible(Header As String, ExtraBody As String, CveDispositivo As Integer, row As DataRow, Optional PermisoComandos As Boolean = True) As String
         Dim SBuilder As New StringBuilder
         SBuilder.Clear()
-        SBuilder.Append($"<div>")
+        SBuilder.Append($"<div class=\'row\'><div class=\'col-md-6\'>")
         SBuilder.Append($"<div><h5><a target=\'_blank\' href=\'/GPS/Vehiculos.aspx?CveDispositivo={CveDispositivo}\'><b>{Header}</b></a></h5></div>")
         SBuilder.Append($"<div><table>")
         SBuilder.Append($"<tr><td>Fecha : {row("FechaTrama")} </td></tr>")
-        SBuilder.Append($"<tr><td>Conductor : {row("Conductor").ToString}</td></tr>")
+        SBuilder.Append($"<tr><td>Conductor : {row("Conductor")}</td></tr>")
         SBuilder.Append($"<tr><td>Combustible : {IfNull(row("Combustible"), "NO DISPONIBLE", $"{row("Combustible").ToString.FormatoNumero} lts").ToString}</td></tr>")
         If row("SPD").ToString <> "-1" Then
-            SBuilder.Append($"<tr><td>Velocidad : {row("SPD").ToString} KM/H </td></tr>")
+            SBuilder.Append($"<tr><td>Velocidad : {row("SPD")} KM/H </td></tr>")
         End If
         If ExtraBody <> "" AndAlso ExtraBody <> "-1" Then
             SBuilder.Append(ExtraBody)
         End If
         If PermisoComandos Then
-            SBuilder.Append($"<tr><td><a href=""javascript:;"" onclick=""CargaComandos(\'{row("Vehiculo").ToString}\',{CveDispositivo});"">Comandos</a></td></tr>")
+            SBuilder.Append($"<tr><td><a href=""javascript:;"" onclick=""CargaComandos(\'{row("Vehiculo")}\',{CveDispositivo});"">Comandos</a></td></tr>")
         End If
         SBuilder.AppendFormat("<tr><td><a target=\'_blank\' href=\'https://www.google.com/maps/search/{0},{1}/\'>Ver en google maps</a></td></tr>", row("Lat").ToString, row("Lng").ToString)
-        SBuilder.Append($"</table></div><div></div></div>")
+        SBuilder.Append("</table></div><div></div></div><div class=\'col-md-6\'>")
+        SBuilder.Append("Comentario:<br />")
+        SBuilder.Append($"{row("Comentarios")}<br /><a href=""javascript:;"" onclick=""EditarComentario(\'{row("Vehiculo")}\',\'{row("Comentarios")}\',{CveDispositivo});"">Editar</a>")
+
+        SBuilder.Append("</div></div>")
         Return SBuilder.ToString
     End Function
+
+    Protected Sub BtnGuardarComentario_Click(sender As Object, e As EventArgs)
+        Dim CveDispositivo As Integer = HdnCveDipositivo.Value.ToEntero()
+        Dim comentario As String = TxtComentarios.Text
+        Using objgps As New ClsGPS
+            objgps.DispositivoComentarioupdate(CveDispositivo, comentario, UsuarioActual.CveUsuario)
+            RegistraScript("$(""#divComentarios"").modal('hide');")
+        End Using
+        BtnCargar_Click(Nothing, Nothing)
+    End Sub
 End Class
diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb
index 6b33e261a..49764cc6b 100644
--- a/Ventas/Clientes.aspx.vb
+++ b/Ventas/Clientes.aspx.vb
@@ -12,9 +12,9 @@ Imports Newtonsoft.Json
 Imports Newtonsoft.Json.Linq
 
 Partial Class Clientes
-    Inherits ClsPaginas
-
-    'Configuración
+    Inherits ClsPaginas
+
+    'Configuración
 #Region "P R O P I E D A D E S"
     Private Const NumeroDecimales As Integer = 2
     Private CveVentaDeduccion As Integer
@@ -452,7 +452,7 @@ Partial Class Clientes
         Set(value As DataTable)
             ViewState("DtAnticipoHistorial") = value
         End Set
-    End Property
+    End Property
     Private Property DtLineaAdicional As DataTable
         Get
             Return CType(ViewState("DtLineaAdicional"), DataTable)
@@ -535,13 +535,13 @@ Partial Class Clientes
         Set(value As DateTime)
             ViewState("FechaIngLineaAdicional") = value
         End Set
-    End Property
-
-
-
-
+    End Property
+
+
+
+
 #End Region
-
+
 #Region "Documentacion"
     Private Property DTDocumentacion As DataTable
         Get
@@ -652,38 +652,38 @@ Partial Class Clientes
         Set(value As String)
             ViewState("AdjuntoDocumentacion") = value
         End Set
-    End Property
-
+    End Property
+
     Property CveVendedorOriginal As Integer
         Get
-            If ViewState("CveVendedorOriginal") Is Nothing Then
-                ViewState("CveVendedorOriginal") = -1
-            End If
-
+            If ViewState("CveVendedorOriginal") Is Nothing Then
+                ViewState("CveVendedorOriginal") = -1
+            End If
+
             Return DirectCast(ViewState("CveVendedorOriginal"), Integer)
 
         End Get
         Set(value As Integer)
             ViewState("CveVendedorOriginal") = value
         End Set
-    End Property
-
-
-
-    'Private ReadOnly Property CvePersonal As Integer
-    '    Get
-    '        If ViewState("CvePersonal") Is Nothing Then
-    '            Return -1
-    '        Else
-    '            Return ViewState("CvePersonal").ToString().Toentero()
-    '        End If
-    '    End Get
-    'End Property
-
+    End Property
+
+
+
+    'Private ReadOnly Property CvePersonal As Integer
+    '    Get
+    '        If ViewState("CvePersonal") Is Nothing Then
+    '            Return -1
+    '        Else
+    '            Return ViewState("CvePersonal").ToString().Toentero()
+    '        End If
+    '    End Get
+    'End Property
+
 #End Region
-
-
-
+
+
+
 #Region " A C U M U L A D O R E S"
     Property CveVentaNota As Integer
         Get
@@ -723,10 +723,10 @@ Partial Class Clientes
         Set(value As String)
             ViewState("SerieNotaAcumulador") = value
         End Set
-    End Property
-
+    End Property
+
 #End Region
-
+
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not IsPostBack Then
 
@@ -884,13 +884,13 @@ Partial Class Clientes
                 End If
                 'CargaCuentasyConceptos()
 
-                If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso UsuarioActual.TienePermisoProceso(353) Then
-                    DVLnkCambiarVendedor.Visible = True
-                End If
-
-
-            Else
-                'Configuración de Modalidad Insert
+                If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso UsuarioActual.TienePermisoProceso(353) Then
+                    DVLnkCambiarVendedor.Visible = True
+                End If
+
+
+            Else
+                'Configuración de Modalidad Insert
                 CargaEstados()
                 BtnGuardar.Visible = PermiteGuardar()
 
@@ -910,7 +910,7 @@ Partial Class Clientes
                 CargaDocumentacionCliente()
 
                 'TxtPais.Text = "México"
-            End If
+            End If
 
 
             If UsuarioActual.Empresa.CvePlataforma = 3 Then
@@ -985,7 +985,7 @@ Partial Class Clientes
                 TabLineasAdicionales.Visible = True
                 LnkAgregarLineaAdicional.Visible = True
                 GetLineasAdicionales()
-            End If
+            End If
         End If
 
         'EN SERIO SE OCUPA EN CADA POSTBACK ??? IPP 7 SEPTIEMNRE 2017
@@ -993,12 +993,12 @@ Partial Class Clientes
         ChkPermiso5.Enabled = False
         ChkPermiso6.Enabled = False
 
-    End Sub
-
-
-
+    End Sub
+
+
+
 #Region "  PERMISOS PAGINAS  "
-
+
     Private Sub MostrarTxtDireccionesClienteEnvio()
 
         If UsuarioActual.CveEmpresa.Contiene(72, 80, 146) Then
@@ -1035,18 +1035,18 @@ Partial Class Clientes
         If Not ChkEsDistribuidor.Checked Then
             BtnGuardar.Visible = PermiteEditar()
         End If
-    End Sub
-
-
+    End Sub
+
+
 #End Region
-
-
+
+
 #Region "C A R G A S"
-
-
-
-
-
+
+
+
+
+
     Private Sub CreaDtPago()
         DtPagos = New DataTable
         DtPagos.Columns.Add("CveTipoMovimiento", GetType(String))
@@ -1146,8 +1146,8 @@ Partial Class Clientes
         DdlClienteSucursalEnvio.Items.Insert(0, New ListItem("Seleccione", "-1"))
         DdlClienteSucursalEnvio.SelectedValue = "-1"
     End Sub
-    Private Sub CargaSubProyectosSuscursales()
-        CargarCentrosDeCosto(Nothing, DdlSubProyectoClienteSucursal, Nothing, LblSubProyectoClienteSucursal)
+    Private Sub CargaSubProyectosSuscursales()
+        CargarCentrosDeCosto(Nothing, DdlSubProyectoClienteSucursal, Nothing, LblSubProyectoClienteSucursal)
     End Sub
     Private Sub CargaGridRetenciones()
         Dim ObjClientes As New ClsClientes
@@ -1224,9 +1224,9 @@ Partial Class Clientes
 
         Select Case HdnCuenta.Value
             Case "1"
-                CargaDdlCuentasContables(DdlCtaContableClientes, 1)'UsuarioActual.Empresa.Funcionalidad(246).Toentero()
+                CargaDdlCuentasContables(DdlCtaContableClientes, 1)'UsuarioActual.Empresa.Funcionalidad(246).Toentero()
             Case "2"
-                CargaDdlCuentasContables(DdlCtaContableAnticipos, 1)' UsuarioActual.Empresa.Funcionalidad(237).Toentero()
+                CargaDdlCuentasContables(DdlCtaContableAnticipos, 1)' UsuarioActual.Empresa.Funcionalidad(237).Toentero()
             Case "3"
                 CargaDdlCuentasContables(DdlCtaContableRetIVA, -1)
             Case "4"
@@ -1234,11 +1234,11 @@ Partial Class Clientes
             Case "5"
                 CargaDdlCuentasContables(DdlCtaContableFondoGarantia, -1)
             Case "6"
-                CargaDdlCuentasContables(DdlCtaContableCompClientes, 1)'UsuarioActual.Empresa.Funcionalidad(248).Toentero()
+                CargaDdlCuentasContables(DdlCtaContableCompClientes, 1)'UsuarioActual.Empresa.Funcionalidad(248).Toentero()
             Case "7"
                 CargaDdlCuentasContables(DdlCtaContableCompAnticipos, -1)
             Case "8"
-                CargaDdlCuentasContables(DdlMonedaExtranjeraClientes, 1)'UsuarioActual.Empresa.Funcionalidad(247).Toentero()
+                CargaDdlCuentasContables(DdlMonedaExtranjeraClientes, 1)'UsuarioActual.Empresa.Funcionalidad(247).Toentero()
             Case "9"
                 CargaDdlCuentasContables(DdlMonedaExtranjeraAnticipos, 1) 'UsuarioActual.Empresa.Funcionalidad(542).Toentero()
         End Select
@@ -1323,7 +1323,7 @@ Partial Class Clientes
 
         CargaCombosComercioExterior()
 
-    End Sub
+    End Sub
     Private Sub CargaSubProyectos()
         CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, Nothing, AplicaTodos:="Seleccione")
         'DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
@@ -1335,11 +1335,11 @@ Partial Class Clientes
         DdlMetodoPagoSucursal.DataBind()
         'DdlMetodoPago.DataBind()
     End Sub
-    Private Sub CargaPrecioLista()
-        'SI NO TIENE LA FUNCIONALIDAD DE LISTA DE PRECIOS
-        If Not GlobalDTPrecioListas(UsuarioActual.CveEmpresa).Rows.Count > 0 Then
-            DdlSubProyecto.AutoPostBack = False
-            DivPrecioLista.Visible = False
+    Private Sub CargaPrecioLista()
+        'SI NO TIENE LA FUNCIONALIDAD DE LISTA DE PRECIOS
+        If Not GlobalDTPrecioListas(UsuarioActual.CveEmpresa).Rows.Count > 0 Then
+            DdlSubProyecto.AutoPostBack = False
+            DivPrecioLista.Visible = False
         End If
 
         DdlPrecioLista.DataSource = GlobalDTPrecioListas(UsuarioActual.CveEmpresa)
@@ -1517,7 +1517,7 @@ Partial Class Clientes
                 ' CargaDocs()
                 CargaCombos()
                 CargaDocumentacionCliente()
-                'CargaSubProyectosSuscursales()
+                CargaSubProyectosSuscursales()
                 'CargaMetodosPago33()
                 'CargaFormaPago33()
                 'CargaComboCFDI()
@@ -1589,11 +1589,11 @@ Partial Class Clientes
                 DdlTipoRetencion_SelectedIndexChanged(DdlTipoRetencion, EventArgs.Empty)
                 TxtRetIVA.Text = ObjClientes.RetIVA.ToString()
                 TxtRetISR.Text = ObjClientes.RetISR.ToString()
-                ChkRetIVAFletesAcarreos.Checked = ObjClientes.RetieneIVAFletes
-                If ObjClientes.CveSubProyecto > 0 Then
-                    DdlSubProyecto.SelectedValueExistInsert(ObjClientes.CveSubProyecto.ToString(), GlobalDTSubProyectos(-1, CveSubProyecto:=ObjClientes.CveSubProyecto, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("SubProyecto"))
-                End If
-
+                ChkRetIVAFletesAcarreos.Checked = ObjClientes.RetieneIVAFletes
+                If ObjClientes.CveSubProyecto > 0 Then
+                    DdlSubProyecto.SelectedValueExistInsert(ObjClientes.CveSubProyecto.ToString(), GlobalDTSubProyectos(-1, CveSubProyecto:=ObjClientes.CveSubProyecto, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("SubProyecto"))
+                End If
+
                 DdlZonaHoraria.SelectedValueExist(ObjClientes.DtResultados(0)("CveZonaHoraria").ToString())
                 ChkEstado.Checked = ObjClientes.Estatus
                 EstatusAnteriorCliente = ObjClientes.Estatus
@@ -2171,11 +2171,11 @@ Partial Class Clientes
         DdlSucursalUsoCFDI.Items.Clear()
         DdlSucursalUsoCFDI.DataSource = GlobalDTSATUsosCFDI(UsuarioActual.Empresa.EsPersonaFisica, RegimenFiscalReceptor:=RegimenFiscalCliente)
         DdlSucursalUsoCFDI.DataBind()
-    End Sub
+    End Sub
 #End Region
-
+
 #Region "V E R  M Á S"
-
+
     Protected Sub BtnVerMasVentas_Click(sender As Object, e As EventArgs)
         If BtnVerMasVentas.Text = "Ver Más" Then
             CargaHistorial(-1)
@@ -2205,12 +2205,12 @@ Partial Class Clientes
             CargaBancos(51)
             BtnVerMasBancos.Text = "Ver Más"
         End If
-    End Sub
-
+    End Sub
+
 #End Region
-
+
 #Region "B A N C O S"
-    'CuentasxCobrar Activas (Pagos Recibidos)
+    'CuentasxCobrar Activas (Pagos Recibidos)
     Private Sub CargaBancos(Optional SelectTop As Integer = 51, Optional CveClienteSucursal As Integer = -1)
         Dim ObjMovtos As New ClsMovimientos()
         'CxC Activas
@@ -2280,9 +2280,9 @@ Partial Class Clientes
         TxtParaMail.Text = TxtCobranzaCorreo.Text
         UpSendMail.Update()
         RegistraScript("$('#ModalDivMail').modal('show');")
-    End Sub
+    End Sub
 #End Region
-
+
 #Region "B T N ´ S"
     Protected Sub BtnEliminar_Click(sender As Object, e As System.EventArgs) Handles BtnEliminar.Click
         Dim ObjClientes As New ClsClientes()
@@ -2623,85 +2623,85 @@ Partial Class Clientes
 
         Dim errorContPaq As Boolean = False
         Dim IdContPaqi As Integer = 0
-        Dim CodigoPersona As Integer = 0
-
-
+        Dim CodigoPersona As Integer = 0
+
+
 #Region "comentado"
-        'If UsuarioActual.Empresa.Funcionalidad(522).ToString() = "1" Then
-
-        '    Dim ObjContPaqi As New ClsContPAQi(UsuarioActual.Empresa)
-
-        '    If ObjContPaqi.GetPersona(TxtRFC.Text) Then
-
-        '        If ObjContPaqi.DtResultados.Rows.Count > 0 Then
-
-        '            IdContPaqi = ObjContPaqi.DtResultados.Rows(0)("Id").ToString().Toentero()
-        '            CodigoPersona = ObjContPaqi.DtResultados.Rows(0)("Codigo").ToString().Toentero()
-
-        '            Dim Cont_EsProveedor As Integer = If(Boolean.Parse(ObjContPaqi.DtResultados.Rows(0)("EsProveedor").ToString()), 1, 0)
-        '            Dim Cont_Nombre As String = ObjContPaqi.DtResultados(0)("Nombre").ToString()
-        '            Dim Cont_RFC As String = ObjContPaqi.DtResultados(0)("RFC").ToString()
-
-        '            If ObjContPaqi.UpdatePersona(IdContPaqi, Cont_Nombre, Cont_RFC, 1, Cont_EsProveedor) Then
-        '                errorContPaq = False
-        '            Else
-        '                errorContPaq = True
-        '            End If
-
-        '        Else
-        '            If ObjContPaqi.AddPersona(TxtNombre.Text.Trim, TxtRFC.Text.Trim, 1, 0) Then
-
-        '                IdContPaqi = ObjContPaqi.DtResultados.Rows(0)("IdContPaqiPersona").ToString().Toentero()
-        '                CodigoPersona = ObjContPaqi.DtResultados.Rows(0)("Codigo").ToString().Toentero()
-        '                errorContPaq = False
-        '            Else
-        '                errorContPaq = True
-        '            End If
-        '        End If
-        '    End If
-
-
-        '    If Not errorContPaq Then
-        '        Dim IdContPaqiCliente As Integer
-
-        '        If ObjContPaqi.GetCliente(-1, CodigoPersona) Then
-
-        '            If ObjContPaqi.DtResultados.Rows.Count > 0 Then
-
-        '                IdContPaqiCliente = ObjContPaqi.DtResultados.Rows(0)("IdContPaqiClient").ToString().Toentero()
-
-        '                If ObjContPaqi.UpdateCliente(IdContPaqiCliente, CodigoPersona, CodigoPersona, "", "") Then
-        '                    errorContPaq = False
-        '                Else
-        '                    errorContPaq = True
-        '                End If
-        '            Else
-        '                If ObjContPaqi.AddCliente(CodigoPersona, CodigoPersona, "", "") Then
-        '                    errorContPaq = False
-        '                Else
-        '                    errorContPaq = True
-        '                End If
-        '            End If
-        '        Else
-        '            errorContPaq = True
-        '        End If
-        '    End If
-
-
-        '    If Not errorContPaq Then
-        '        ObjContPaqi.Commit()
-        '        ObjContPaqi.Dispose()
-        '    Else
-        '        ObjContPaqi.RollBack()
-        '        ObjContPaqi.Dispose()
-        '        Alert("Se presento un error al guardar en ContPAQi", TipoMensaje.MsgError)
-        '        Exit Sub
-        '    End If
-
-
-        'End If
+        'If UsuarioActual.Empresa.Funcionalidad(522).ToString() = "1" Then
+
+        '    Dim ObjContPaqi As New ClsContPAQi(UsuarioActual.Empresa)
+
+        '    If ObjContPaqi.GetPersona(TxtRFC.Text) Then
+
+        '        If ObjContPaqi.DtResultados.Rows.Count > 0 Then
+
+        '            IdContPaqi = ObjContPaqi.DtResultados.Rows(0)("Id").ToString().Toentero()
+        '            CodigoPersona = ObjContPaqi.DtResultados.Rows(0)("Codigo").ToString().Toentero()
+
+        '            Dim Cont_EsProveedor As Integer = If(Boolean.Parse(ObjContPaqi.DtResultados.Rows(0)("EsProveedor").ToString()), 1, 0)
+        '            Dim Cont_Nombre As String = ObjContPaqi.DtResultados(0)("Nombre").ToString()
+        '            Dim Cont_RFC As String = ObjContPaqi.DtResultados(0)("RFC").ToString()
+
+        '            If ObjContPaqi.UpdatePersona(IdContPaqi, Cont_Nombre, Cont_RFC, 1, Cont_EsProveedor) Then
+        '                errorContPaq = False
+        '            Else
+        '                errorContPaq = True
+        '            End If
+
+        '        Else
+        '            If ObjContPaqi.AddPersona(TxtNombre.Text.Trim, TxtRFC.Text.Trim, 1, 0) Then
+
+        '                IdContPaqi = ObjContPaqi.DtResultados.Rows(0)("IdContPaqiPersona").ToString().Toentero()
+        '                CodigoPersona = ObjContPaqi.DtResultados.Rows(0)("Codigo").ToString().Toentero()
+        '                errorContPaq = False
+        '            Else
+        '                errorContPaq = True
+        '            End If
+        '        End If
+        '    End If
+
+
+        '    If Not errorContPaq Then
+        '        Dim IdContPaqiCliente As Integer
+
+        '        If ObjContPaqi.GetCliente(-1, CodigoPersona) Then
+
+        '            If ObjContPaqi.DtResultados.Rows.Count > 0 Then
+
+        '                IdContPaqiCliente = ObjContPaqi.DtResultados.Rows(0)("IdContPaqiClient").ToString().Toentero()
+
+        '                If ObjContPaqi.UpdateCliente(IdContPaqiCliente, CodigoPersona, CodigoPersona, "", "") Then
+        '                    errorContPaq = False
+        '                Else
+        '                    errorContPaq = True
+        '                End If
+        '            Else
+        '                If ObjContPaqi.AddCliente(CodigoPersona, CodigoPersona, "", "") Then
+        '                    errorContPaq = False
+        '                Else
+        '                    errorContPaq = True
+        '                End If
+        '            End If
+        '        Else
+        '            errorContPaq = True
+        '        End If
+        '    End If
+
+
+        '    If Not errorContPaq Then
+        '        ObjContPaqi.Commit()
+        '        ObjContPaqi.Dispose()
+        '    Else
+        '        ObjContPaqi.RollBack()
+        '        ObjContPaqi.Dispose()
+        '        Alert("Se presento un error al guardar en ContPAQi", TipoMensaje.MsgError)
+        '        Exit Sub
+        '    End If
+
+
+        'End If
 #End Region
-
+
         Dim LT As String = If(HDLT.Value.ToDouble <> 0, HDLT.Value, "0")
         Dim LG As String = If(HDLG.Value.ToDouble <> 0, HDLG.Value, "0")
 
@@ -2956,11 +2956,11 @@ Partial Class Clientes
         ObjClientes.Dispose()
         objDoc.Dispose()
         RecargaGlobal()
-    End Sub
-
+    End Sub
+
 #End Region
-
-
+
+
 #Region "G L O B L A L"
     Private Sub RecargaGlobal()
         'Dim Hilo As New System.Threading.Thread(AddressOf GeneraGlobalDT)
@@ -2974,10 +2974,10 @@ Partial Class Clientes
         '    Application("GlobalDTCliente") = Objclientes.DtResultados
         'End If
         'Objclientes.Dispose()
-    End Sub
+    End Sub
 #End Region
-
-
+
+
 #Region "G R I D V I E W S"
     Protected Sub GVHistorial_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GVHistorial.RowDataBound
         If e.Row.RowType = DataControlRowType.DataRow Then
@@ -3118,11 +3118,11 @@ Partial Class Clientes
             End If
 
         End If
-    End Sub
+    End Sub
 #End Region
-
+
 #Region "R H"
-
+
     Private Sub CargaPersonalAsignado()
         Dim ObjPersonal As New ClsRH
         If ObjPersonal.GetPersonal(-1, "-1", "-1", "-1", "-1", -1, -1, -1, -1, -1, -1, -1, -1, -1, CveCliente, "-1", -1, -1, -1, -1, -1, -1, "-1", "-1", "-1", "-1", UsuarioActual.CveEmpresa) Then
@@ -3195,9 +3195,9 @@ Partial Class Clientes
             End If
 
         End If
-    End Sub
+    End Sub
 #End Region
-
+
 #Region "S U C U R S A L E S"
     Private Sub LbAgregarSucursal_Click(sender As Object, e As EventArgs) Handles LbAgregarSucursal.Click
         ChkEstatusSucursal.Checked = True
@@ -3329,7 +3329,7 @@ Partial Class Clientes
 
         UpModalDivMapa.Update()
 
-    End Sub
+    End Sub
 #Region "G V  S U C U R S A L E S"
     Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GVSucursales.RowDataBound
 
@@ -3451,9 +3451,9 @@ Partial Class Clientes
         Else
             CargaGrid("", 0)
         End If
-    End Sub
+    End Sub
 #End Region
-
+
 #Region "G V  U S U A R I O S  P O R T A L"
     Protected Sub GvUsuariosPortal_RowCommand(sender As Object, e As GridViewCommandEventArgs) Handles GvUsuariosPortal.RowCommand
         If e.CommandName = "RestablecerContraseña" Then
@@ -3605,9 +3605,9 @@ Partial Class Clientes
             CargaGrid("", 1)
         End If
 
-    End Sub
+    End Sub
 #End Region
-
+
 #Region "O R D E N A M I E N T O"
     Private Sub CargaGrid(Orden As String, gvi As Integer)
         If gvi = 0 Then
@@ -3639,12 +3639,12 @@ Partial Class Clientes
             UPPUsuarios.Update()
         End If
 
-    End Sub
+    End Sub
 #End Region
-
-
+
+
 #End Region
-
+
 #Region "U S U A R I O S"
     Protected Sub LbSolicitudPortal_Click(sender As Object, e As EventArgs) Handles LbEnviarActivacionPortal.Click
         Dim ObjUsuario As New ClsSisUsuarios
@@ -3826,9 +3826,9 @@ Partial Class Clientes
         ChkPermiso5.Checked = False
         ChkPermiso6.Checked = False
         ChkPermiso7.Checked = False
-    End Sub
+    End Sub
 #End Region
-
+
 #Region "E V E N T O  -  B I T A C O R A"
     Protected Sub GVEventoBitacora_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvEB.RowDataBound
         If e.Row.RowType = DataControlRowType.DataRow Then
@@ -4037,11 +4037,11 @@ Partial Class Clientes
             BtnActivaRegistroISR.Visible = True
         End If
 
-    End Sub
+    End Sub
 #End Region
-
+
 #Region " I M P R I M I R   P D F"
-
+
     Protected Sub ChkAntIXCNC_CheckedChanged(sender As Object, e As EventArgs)
         DdlTipoDocto.ClearSelection()
         If ChkAntIXCNC.Checked Then
@@ -4087,13 +4087,13 @@ Partial Class Clientes
 
     End Sub
 
-    Private Sub GenerarPDFCrystal(Optional Formato As String = "PDF")
-
+    Private Sub GenerarPDFCrystal(Optional Formato As String = "PDF")
+
         Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/RepClientesCxC.rpt", UsuarioActual.Empresa.Ruta))
-        Dim RutaReporteGrales As New System.IO.FileInfo($"{DirectorioEmpresas}Grales\Formatos\RepClientesCxC.rpt")
-
-
-
+        Dim RutaReporteGrales As New System.IO.FileInfo($"{DirectorioEmpresas}Grales\Formatos\RepClientesCxC.rpt")
+
+
+
         Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
         'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
 
@@ -4402,9 +4402,9 @@ Partial Class Clientes
             End Using
         End If
 
-    End Sub
+    End Sub
 #End Region
-
+
 #Region "E N V I O   C O R R E O"
     Private Sub EnviaCorreo(Liga As String, LigaActivar As String)
 
@@ -4472,11 +4472,11 @@ Partial Class Clientes
         a.GuardaLog()
         Dim Mail As New ClsSisMail()
         Mail.SendMail(ClsPaginas.EmpresaNotificaciones, Para, Asunto, Body)
-    End Sub
+    End Sub
 #End Region
-
+
 #Region "  COTIZACIONES  "
-
+
     Protected Sub BtnVerMasCot_Click(sender As Object, e As EventArgs)
         If BtnVerMasCot.Text = "Ver Más" Then
             CargaCotizaciones(-1)
@@ -4546,11 +4546,11 @@ Partial Class Clientes
                 HLFacturar.HRef = $"/Ventas/Ventas.aspx?CveCotizacion={e.Row.DBCampo("CveVenta")}"
             End If
         End If
-    End Sub
+    End Sub
 #End Region
-
+
 #Region "D I R E C C I O N   E N V I O "
-
+
     Private Sub CargaCombosDirecionesClientesSAT()
         CargaDirClientePais()
         CargaDirClienteEstado()
@@ -4773,12 +4773,12 @@ Partial Class Clientes
         End If
 
         CargaDireccionesEnvio()
-    End Sub
-
+    End Sub
+
 #End Region
-
+
 #Region "  IMPORTAR SALDOS  "
-
+
     Private Sub HLImportarSaldos_Click(sender As Object, e As EventArgs) Handles HLImportarSaldos.Click
         CargaClientesImportarSaldos()
         RegistraScript(String.Format("$('#{0}').modal();", "DivImportarSaldos"))
@@ -4882,9 +4882,9 @@ Partial Class Clientes
             e.Row.FCCheckBox("Chk").Attributes.Add("onclick", String.Format("ChkSaldo(this,{0},{1});", e.Row.FCTextBox("TxtImporte").ClientID, e.Row.DBCampo("Saldo")))
             e.Row.FCTextBox("TxtImporte").Attributes.Add("onKeyUp", String.Format("CambiaSaldo({0},this,{1});", e.Row.FCCheckBox("Chk").ClientID, e.Row.DBCampo("Saldo")))
         End If
-    End Sub
+    End Sub
 #End Region
-
+
 #Region "Cuentas/Equipos"
     Public Sub BtnAgregarCtaEquipo_Click(sender As Object, e As EventArgs)
         HdnModalidad.Value = "I"
@@ -5472,9 +5472,9 @@ Partial Class Clientes
         End If
 
         Return Retorno
-    End Function
+    End Function
 #End Region
-
+
 #Region "GPS"
     Protected Sub btnCargaArrayDisp_Click(sender As Object, e As EventArgs) Handles btnCargaArrayDisp.Click
         If hdnArrayDispositivo.Value.Length > 0 Then
@@ -5615,10 +5615,10 @@ Partial Class Clientes
         UpMoverDispositivo.Update()
         RegistraScript($"CargaModalMoverDispositivo({GvRow.DataKey("CveDispositivo")});")
 
-    End Sub
-
+    End Sub
+
 #End Region
-
+
 #Region "Sucursales"
     Public Sub CreaDTSucursales()
 
@@ -5854,14 +5854,14 @@ Partial Class Clientes
         End If
 
         UpDatos.Update()
-    End Sub
-
+    End Sub
+
 #End Region
-
+
 #Region "G P S"
-
-
-
+
+
+
     Private Sub EnviaCorreoGPS(Liga As String, LigaActivar As String)
 
         Try
@@ -5932,16 +5932,16 @@ Partial Class Clientes
         End If
 
         ObjClientes.Dispose()
-    End Sub
-
-
+    End Sub
+
+
 #End Region
-
+
 #Region "C O N T R A T O S"
-
-
-
-
+
+
+
+
     Private Sub CargaDatosContrato()
         If CveCliente <= 0 Then
             Exit Sub
@@ -5986,10 +5986,10 @@ Partial Class Clientes
                 e.Row.CssClass = "Totales white"
             End If
         End If
-    End Sub
-
+    End Sub
+
 #End Region
-
+
 #Region "M E T O D O S "
     Protected Sub RblTipo_SelectedIndexChanged(sender As Object, e As EventArgs) Handles RblTipo.SelectedIndexChanged
         If DTHistorialVentas IsNot Nothing AndAlso RblTipo.SelectedValue <> "-1" Then
@@ -6399,13 +6399,13 @@ Partial Class Clientes
         End If
 
 
-    End Sub
-
+    End Sub
+
 #End Region
-
+
 #Region "IMPRIMIR GVHistorial"
-
-
+
+
     Protected Sub BtnExcelHistorial_Click(sender As Object, e As EventArgs)
         Dim retorno As Byte() = Nothing
         Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
@@ -6480,18 +6480,18 @@ Partial Class Clientes
         ObjClientes.Dispose()
 
         Return retorno
-    End Function
-
-
+    End Function
+
+
 #End Region
-
+
 #Region "C O B R A N Z A"
     Public Sub Visitas_Click(sender As Object, e As EventArgs)
         RegistraScript(String.Format("$('#{0}').modal();", "DivVisitas"))
-    End Sub
-
+    End Sub
+
 #End Region
-
+
 #Region "Usuarios"
     Protected Sub GvUsuarios_RowDeleting(sender As Object, e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvUsuarios.RowDeleting
         Dim CveUsuario As Integer = GvUsuarios.Rows(e.RowIndex).DataKey("CveUsuario").ToEntero()
@@ -6527,12 +6527,12 @@ Partial Class Clientes
                 e.Row.Cells(5).Visible = False
             End If
         End If
-    End Sub
+    End Sub
 #End Region
-
-
+
+
 #Region "C U E N T A S - B A N C A R I A S"
-
+
     Private Sub CargaCuentasBancarias(Optional RecargaGlobal As Boolean = False)
 
         If CveCliente <= 0 Then Exit Sub
@@ -6654,14 +6654,14 @@ Partial Class Clientes
                 Alert("Cuenta Bancaria agregada con éxito.", TipoMensaje.MsgInformacion)
                 RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAddCuentasBancarias"))
 
-            End If
-
+            End If
+
         Else
 
             If CveCliente > 0 Then
 
                 If ObjCuentasBancos.UpdateCuentasDepositos(GvBancosCuentas.DataKeys(CveCuentaBancaria)("CveCuentaDeposito").ToString().ToEntero(), NombreBanco, Plaza, NumeroSucursal, NumeroCuenta, CLABE, ConvenioCIE, SWIFT, Referencia, "", False, Estatus, CveMoneda, UsuarioActual.CveEmpresa) Then
-                    DTCuentasBancos.Clear()
+                    DTCuentasBancos.Clear()
                     CargaCuentasBancarias()
                     Alert("Cuenta actualizada con éxito.", TipoMensaje.MsgInformacion)
                     RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAddCuentasBancarias"))
@@ -6704,8 +6704,8 @@ Partial Class Clientes
         TxtNumeroCuenta2.Text = ""
         TxtConvenioCIE2.Text = ""
         TxtReferencia2.Text = ""
-    End Sub
-
+    End Sub
+
 #Region "GRIDVIEW - CUENTAS BANCARIAS"
     Protected Sub GvBancosCuentas_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvBancosCuentas.RowDataBound
         If e.Row.RowType = DataControlRowType.DataRow Then
@@ -6715,8 +6715,8 @@ Partial Class Clientes
                     TempDTCuentasBancos.Rows(index - 1)("CveCuentaDeposito") = index
                 Next
                 TempDTCuentasBancos.AcceptChanges()
-            End If
-
+            End If
+
             If e.Row.DBCampo("Estatus") = "True" Then
                 e.Row.FCLabel("LlbEstatusTexto").Text = "Activo"
             Else
@@ -6744,8 +6744,8 @@ Partial Class Clientes
             Dim index = GvRow.RowIndex
             TempDTCuentasBancos.Rows.RemoveAt(index)
             Alert("Cuenta Bancaria borrada con éxito.", TipoMensaje.MsgInformacion)
-        End If
-
+        End If
+
         CargaPSGridCuentasBancos()
         ObjCuentasBancos.Dispose()
         RecargaGlobalCuentasBancarias()
@@ -6756,10 +6756,10 @@ Partial Class Clientes
             GlobalDTCuentasDepositosClientes(UsuarioActual.CveEmpresa, -1) = Nothing
 
         End If
-    End Sub
-
+    End Sub
+
 #End Region
-
+
     Private Sub CargaPSGridCuentasBancos()
         If CveCliente > 0 Then
             GvBancosCuentas.DataSource = DTCuentasBancos
@@ -6817,9 +6817,9 @@ Partial Class Clientes
         divestatus.Visible = True
         UpAddBancos.Update()
         RegistraScript(String.Format("$('#{0}').modal('show');", "DivAddCuentasBancarias"))
-    End Sub
+    End Sub
 #End Region
-
+
 #Region "C L I E N T E S   P A G O S  R E A L I Z A D O S   I M P R I M I R   P D F/Excel"
     Private Sub LnkExportar_Click(sender As Object, e As EventArgs) Handles LnkPagosClientesBancosExcel.Click
         GenerarPDF("Excel")
@@ -6841,11 +6841,11 @@ Partial Class Clientes
         ImprimirPDF("Empresas\Grales\Formatos\RepClientesPagosBancos.rdlc", DTCobrosRealizados, params, "RepClientesPagosBancos_" & Now.ToString("yyyyMMddhhmmss"), Formato:=Formato)
 
 
-    End Sub
+    End Sub
 #End Region
-
+
 #Region "VENTAS"
-
+
     Public Function imprimirFacturaVenta(CveVenta As Integer) As Byte()
         Dim ObjVentas As New ClsVentas
         Dim Vta As Modelos.Factura = Nothing
@@ -7076,10 +7076,10 @@ Partial Class Clientes
         ObjVentas.Dispose()
 
         Return PdfFactura(Vta)
-    End Function
-
+    End Function
+
 #End Region
-
+
 #Region "COMERCIO EXTERIOR"
     Public Sub CargaCombosComercioExterior()
 
@@ -7093,8 +7093,8 @@ Partial Class Clientes
         DdlIncoterm.Items.Insert(0, New ListItem("Seleccione", "-1"))
         DdlIncoterm.DataBind()
 
-        DdlClavePedimento.Items.Clear()
-        DdlClavePedimento.DataSource = GlobalDTClavePedimento()
+        DdlClavePedimento.Items.Clear()
+        DdlClavePedimento.DataSource = GlobalDTClavePedimento()
         DdlClavePedimento.Items.Insert(0, New ListItem("Seleccione", "-1"))
 
         DdlMotivoTraslado.Items.Clear()
@@ -7202,12 +7202,12 @@ Partial Class Clientes
     End Sub
     Protected Sub DdlMunicipio_SelectedIndexChanged(sender As Object, e As EventArgs)
         CargaColonia()
-    End Sub
-
+    End Sub
+
 #End Region
-
+
 #Region "D O C U M E N T A C I O N   "
-
+
     Private Sub CargaDocumentacionCliente()
         Dim objRH As New ClsEdocumentacion()
 
@@ -7845,12 +7845,12 @@ Partial Class Clientes
 
         RegistraScript("Download('" & baseUrl & "')")
 
-    End Sub
-
+    End Sub
+
 #End Region
-
+
 #Region "D O C U M E N T O S  V E N T A S"
-
+
     Private Sub CargaDocumentosVenta(tCveCliente As Integer)
         Dim objInv As New ClsEdocumentacion
 
@@ -8021,11 +8021,11 @@ Partial Class Clientes
 
         objRH.Dispose()
 
-    End Sub
-
-
+    End Sub
+
+
 #End Region
-
+
 #Region "PERSONA FISICA"
     Protected Sub LnkPersonaFisica_Click(sender As Object, e As EventArgs)
         RegistraScript("$('#DivModalPersonaFisica').modal();")
@@ -8050,9 +8050,9 @@ Partial Class Clientes
 
         ObjCliente.Dispose()
         UpDatos.Update()
-    End Sub
+    End Sub
 #End Region
-
+
 #Region "USUARIOS PLATAFORMA CLIENTE - 6 "
     Protected Sub CargaUsuariosPortalCliente()
         Dim objUsuario As ClsSisUsuarios = New ClsSisUsuarios
@@ -8061,19 +8061,19 @@ Partial Class Clientes
             GvUsuarios.DataBind()
         End If
         objUsuario.Dispose()
-    End Sub
+    End Sub
 #End Region
-
+
 #Region "  DEVOLVER DINERO ANT/NC  "
     Private Sub InicializaDevolverDinero()
         If UsuarioActual.TienePermisoProceso(247) Then
             GVAnticipos.Columns(6).Visible = True
         End If
-    End Sub
+    End Sub
 #End Region
-
+
 #Region "MODAL GRAFICA/PEDIDOS"
-
+
     Protected Sub LnkVerGrafica_Click(sender As Object, e As EventArgs)
         If CargaDatatables() Then
             RegistraScript("$('#DivModalGrafica').modal('show')")
@@ -8410,13 +8410,13 @@ Partial Class Clientes
         RegistraScript($"CargaGraficaCompratamientoSaldoMensual({Dt5.ToJson},{Dt6.ToJson.Replace($"{Chr(34)}True{Chr(34)}", "true").Replace($"{Chr(34)}False{Chr(34)}", "false")})", "55")
 
         UPModalProd.Update()
-    End Sub
-
-
+    End Sub
+
+
 #End Region
-
+
 #Region "TAB - COMPORTAMIENTO DE VENTAS"
-
+
     Private Sub CargaGrupo()
         DdlGrupo.Items.Insert(0, New ListItem("Categoria", "3"))
         DdlGrupo.Items.Insert(1, New ListItem("Clasificacion", "4"))
@@ -8438,8 +8438,8 @@ Partial Class Clientes
         DdlGrupo.SelectedValueExist("8")
     End Sub
 
-    Private Sub CargaFiltros()
-
+    Private Sub CargaFiltros()
+
         CargarCentrosDeCosto(DdlProyectoFiltro, DdlSubProyectoFiltro, LblProyectoFiltro, LblSubProyectoFiltro)
 
         'Cargo Clasificaciones
@@ -8478,7 +8478,7 @@ Partial Class Clientes
     End Sub
 
     Protected Sub DdlProyectoFiltro_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProyectoFiltro.SelectedIndexChanged
-        CargarSubProyecto(DdlSubProyectoFiltro, DdlProyectoFiltro.SelectedValue)
+        CargarSubProyecto(DdlSubProyectoFiltro, DdlProyectoFiltro.SelectedValue)
     End Sub
 
     Protected Sub DdlClasificacionFilto_SelectedIndexChanged(sender As Object, e As EventArgs)
@@ -8533,12 +8533,12 @@ Partial Class Clientes
         ObjVentas.Dispose()
         GvComportamientoVenta.DataBind()
         UpDatosComportamientoVenta.Update()
-    End Sub
-
+    End Sub
+
 #End Region
-
+
 #Region "DISPOSITIVOS"
-
+
     Protected Sub LnkMoverDispositivo_Click(sender As Object, e As EventArgs)
         Dim CveDispositivo As Integer = HdnCveDispositivoMover.Value.ToEntero()
         Dim CveCliente As Integer = DdlClienteDispositivo.SelectedValue.ToEntero()
@@ -8576,10 +8576,10 @@ Partial Class Clientes
         CargaEventoBitacora()
         NombreDispositivo = ""
         RegistraScript("$('#DivMoverDispositivo').modal('hide');")
-    End Sub
-
+    End Sub
+
 #End Region
-
+
 #Region "CRM"
     Protected Sub CargaDatosCRM()
         Dim ObjCRM = New ClsCRM()
@@ -8679,9 +8679,9 @@ Partial Class Clientes
                 Alert("Se Unificó correctamente al Cliente con la Empresa CRM.")
             End If
         End If
-    End Sub
+    End Sub
 #End Region
-
+
 #Region "PORCENTAJE PRECIO DE MARCAS"
     Private Sub LnkPorcentajeMarcas_Click(sender As Object, e As EventArgs) Handles LnkPorcentajeMarcas.Click
         RegistraScript(String.Format("$('#{0}').modal();", "DivPorcentajeMarcas"))
@@ -8906,9 +8906,9 @@ Partial Class Clientes
 
         ObjPS.Dispose()
 
-    End Sub
+    End Sub
 #End Region
-
+
 #Region "PORCENTAJE PRECIO DE PRODUCTOS"
     Private Sub LnkPorcentajePrecios_Click(sender As Object, e As EventArgs) Handles LnkPorcentajePrecios.Click
         RegistraScript(String.Format("$('#{0}').modal();", "DivPorcentajePrecios"))
@@ -9144,12 +9144,12 @@ Partial Class Clientes
 
     Protected Sub BtnCambiaPorcentaje_Click(sender As Object, e As EventArgs)
         DdlProducto2IndexChange(DdlProducto2.SelectedValue.ToEntero(), DdlProducto2)
-    End Sub
+    End Sub
 #End Region
-
+
 #Region " A C U M U L A D O R E S"
-
-
+
+
     Protected Sub LnkFacturaUsadosCargos_Click(sender As Object, e As EventArgs)
         'CveVentaNota = 0
 
@@ -9792,11 +9792,11 @@ Partial Class Clientes
 
         ' ObjFactura.Timbre = PreParaTimbre(ObjFactura)
 
-    End Sub
-
-
+    End Sub
+
+
 #End Region
-
+
 #Region "C L I E N T E S    G R I D S   I M P R I M I R   P D F/Excel"
     Private Sub LnkCotizacionesPDF_Click(sender As Object, e As EventArgs) Handles LnkCotizacionesPDF.Click
         ImprimeGridsProveedores("PDF", DtCotizaciones, "RepClientesCotizaciones")
@@ -9865,7 +9865,7 @@ Partial Class Clientes
             Alert("Puntuación Inicializada")
         End If
         Acum.Dispose()
-    End Sub
+    End Sub
 #End Region
     Protected Sub DdlTipoRetencion_SelectedIndexChanged(sender As Object, e As EventArgs)
         If UsuarioActual.Empresa.Funcionalidad(579) = "1" Then
@@ -10303,7 +10303,7 @@ Partial Class Clientes
 
         If RdTipoPersona.SelectedValue.ToEntero = 1 And UsuarioActual.Empresa.Funcionalidad(350).Contiene("1", "2") Then
             DivRazonSocial2.Attributes.Add("class", "col-md-8")
-            DVRegimenSociedad.Visible = True
+            DVRegimenSociedad.Visible = True
         Else
             TxtNombreComercial.Enabled = True
         End If
@@ -10329,21 +10329,21 @@ Partial Class Clientes
 
 
 
-    Private Sub CargaCombosLineasAdicionales()
-
-        DdlProveedorLineaAdicional.setEsWebService(True)
-        DdlProveedorLineaAdicional.Attributes.Add("data-metodo", "getproveedores")
-        DdlProveedorLineaAdicional.SelectedText = "-"
-        DdlProveedorLineaAdicional.SelectedValue = "-1"
-
-        DdlProveedorLineaAdicionalModal.setEsWebService(True)
-        DdlProveedorLineaAdicionalModal.Attributes.Add("data-metodo", "getproveedores")
-        DdlProveedorLineaAdicionalModal.SelectedText = "-"
-        DdlProveedorLineaAdicionalModal.SelectedValue = "-1"
-
+    Private Sub CargaCombosLineasAdicionales()
+
+        DdlProveedorLineaAdicional.setEsWebService(True)
+        DdlProveedorLineaAdicional.Attributes.Add("data-metodo", "getproveedores")
+        DdlProveedorLineaAdicional.SelectedText = "-"
+        DdlProveedorLineaAdicional.SelectedValue = "-1"
+
+        DdlProveedorLineaAdicionalModal.setEsWebService(True)
+        DdlProveedorLineaAdicionalModal.Attributes.Add("data-metodo", "getproveedores")
+        DdlProveedorLineaAdicionalModal.SelectedText = "-"
+        DdlProveedorLineaAdicionalModal.SelectedValue = "-1"
+
         DdlCategoriaLineaAdicionalModal.DataSource = GlobalDTGralCategorias(UsuarioActual.CveEmpresa)
         DdlCategoriaLineaAdicionalModal.DataBind()
-        DdlCategoriaLineaAdicionalModal.Items.Insert(0, New ListItem("-", "-1"))
+        DdlCategoriaLineaAdicionalModal.Items.Insert(0, New ListItem("-", "-1"))
 
     End Sub
 
@@ -10351,21 +10351,21 @@ Partial Class Clientes
         FiltrarLineasAdicionales()
     End Sub
 
-    Protected Sub FiltrarLineasAdicionales()
-        Dim ObjVentas As New ClsVentas
-        If ObjVentas.GetLineasAdicionales(CveCliente, DdlProveedorLineaAdicional.SelectedValue.ToEntero, -1, -1, DdlEstatusLineaAdicional.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
-            GvLineasAdicionales.DataSource = ObjVentas.DtResultados
-        End If
-        ObjVentas.Dispose()
-        GvLineasAdicionales.DataBind()
-        UpLineasAdicionales.Update()
+    Protected Sub FiltrarLineasAdicionales()
+        Dim ObjVentas As New ClsVentas
+        If ObjVentas.GetLineasAdicionales(CveCliente, DdlProveedorLineaAdicional.SelectedValue.ToEntero, -1, -1, DdlEstatusLineaAdicional.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
+            GvLineasAdicionales.DataSource = ObjVentas.DtResultados
+        End If
+        ObjVentas.Dispose()
+        GvLineasAdicionales.DataBind()
+        UpLineasAdicionales.Update()
     End Sub
-    'Protected Sub DdlProveedorLineaAdicional_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProveedorLineaAdicional.selectedindexchange
-    '    FiltrarLineasAdicionales()
+    'Protected Sub DdlProveedorLineaAdicional_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProveedorLineaAdicional.selectedindexchange
+    '    FiltrarLineasAdicionales()
     'End Sub
 
-    'Protected Sub DdlEstatusLineasAdicionales_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlEstatusLineaAdicional.SelectedIndexChanged
-    '    FiltrarLineasAdicionales()
+    'Protected Sub DdlEstatusLineasAdicionales_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlEstatusLineaAdicional.SelectedIndexChanged
+    '    FiltrarLineasAdicionales()
     'End Sub
 
     Private Sub GetLineasAdicionales()
@@ -10378,7 +10378,7 @@ Partial Class Clientes
         ObjVentas.Dispose()
 
         GvLineasAdicionales.DataBind()
-        FiltrarLineasAdicionales()
+        FiltrarLineasAdicionales()
         UpLineasAdicionales.Update()
     End Sub
 
@@ -10417,9 +10417,9 @@ Partial Class Clientes
         '    Exit Sub
         'End If
 
-        If DdlTipoLineaAdicionalModal.SelectedValue.ToEntero() <= 0 Then
-            Alert("Debe seleccionar el tipo de linea adicional", TipoMensaje.MsgAdvertencia)
-            Exit Sub
+        If DdlTipoLineaAdicionalModal.SelectedValue.ToEntero() <= 0 Then
+            Alert("Debe seleccionar el tipo de linea adicional", TipoMensaje.MsgAdvertencia)
+            Exit Sub
         End If
 
         Dim ObjVentas As New ClsVentas
@@ -10516,70 +10516,70 @@ Partial Class Clientes
         UpLineaAdicionalmodal.Update()
 
     End Sub
-
-    Protected Sub DdlMetodoPago33_SelectedIndexChanged(sender As Object, e As EventArgs)
-
-        CargaFormaDePago(-1)
-
-    End Sub
-
-    Private Sub CargaFormaDePago(Optional CveFormaPago As Integer = -1)
-
-        DdlFormaPago33.Items.Clear()
-
-        If DdlMetodoPago33.SelectedValue.ToEntero = 3 Then
-            DdlFormaPago33.DataSource = GlobalDTVtaFormaPago.FiltraParametros("CveFormaPago = 20")
-        Else
-            DdlFormaPago33.DataSource = GlobalDTVtaFormaPago.FiltraParametros("CveFormaPago <> 20")
-        End If
-
-        DdlFormaPago33.DataBind()
-
-        If Not DdlMetodoPago33.SelectedValue.ToEntero = 3 Then
-            DdlFormaPago33.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
-        End If
-
-        If CveFormaPago > 0 Then
-            DdlFormaPago33.SelectedValueExist(CveFormaPago)
-        End If
-
-        UpFiscalContable.Update()
-
-    End Sub
-
-
-    Protected Sub LnkCambiarVendedor_Click(sender As Object, e As EventArgs)
-
-        If Not DdlVendedor.SelectedValue.ToEntero > 0 Then
-            Alert("Debe de seleccionar un Vendedor.", TipoMensaje.MsgAdvertencia)
-            Exit Sub
-        End If
-
-
-        If CveVendedorOriginal = DdlVendedor.SelectedValue.ToEntero Then
-            Alert("Debe de seleccionar un vendedor distinto para actualizar.", TipoMensaje.MsgAdvertencia)
-            Exit Sub
-        End If
-
-        Dim ObjVentas As New ClsVentas
-        Dim ErrorCambio As Boolean = False
-
-        If ObjVentas.CambioClientesVendedor(CveCliente, DdlVendedor.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
-            CveVendedorOriginal = DdlVendedor.SelectedValue.ToEntero
-        Else
-            ErrorCambio = True
-        End If
-
-        ObjVentas.Dispose()
-
-        If Not ErrorCambio Then
-            Alert("Vendedor Cambiado Correctamente.", TipoMensaje.MsgInformacion, $"document.location.href=""/Ventas/Clientes.aspx?CveCliente={CveCliente}""")
-        End If
-
-
-
-
-    End Sub
-
+
+    Protected Sub DdlMetodoPago33_SelectedIndexChanged(sender As Object, e As EventArgs)
+
+        CargaFormaDePago(-1)
+
+    End Sub
+
+    Private Sub CargaFormaDePago(Optional CveFormaPago As Integer = -1)
+
+        DdlFormaPago33.Items.Clear()
+
+        If DdlMetodoPago33.SelectedValue.ToEntero = 3 Then
+            DdlFormaPago33.DataSource = GlobalDTVtaFormaPago.FiltraParametros("CveFormaPago = 20")
+        Else
+            DdlFormaPago33.DataSource = GlobalDTVtaFormaPago.FiltraParametros("CveFormaPago <> 20")
+        End If
+
+        DdlFormaPago33.DataBind()
+
+        If Not DdlMetodoPago33.SelectedValue.ToEntero = 3 Then
+            DdlFormaPago33.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
+        End If
+
+        If CveFormaPago > 0 Then
+            DdlFormaPago33.SelectedValueExist(CveFormaPago)
+        End If
+
+        UpFiscalContable.Update()
+
+    End Sub
+
+
+    Protected Sub LnkCambiarVendedor_Click(sender As Object, e As EventArgs)
+
+        If Not DdlVendedor.SelectedValue.ToEntero > 0 Then
+            Alert("Debe de seleccionar un Vendedor.", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
+
+
+        If CveVendedorOriginal = DdlVendedor.SelectedValue.ToEntero Then
+            Alert("Debe de seleccionar un vendedor distinto para actualizar.", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
+
+        Dim ObjVentas As New ClsVentas
+        Dim ErrorCambio As Boolean = False
+
+        If ObjVentas.CambioClientesVendedor(CveCliente, DdlVendedor.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
+            CveVendedorOriginal = DdlVendedor.SelectedValue.ToEntero
+        Else
+            ErrorCambio = True
+        End If
+
+        ObjVentas.Dispose()
+
+        If Not ErrorCambio Then
+            Alert("Vendedor Cambiado Correctamente.", TipoMensaje.MsgInformacion, $"document.location.href=""/Ventas/Clientes.aspx?CveCliente={CveCliente}""")
+        End If
+
+
+
+
+    End Sub
+
 End Class
 
diff --git a/Ventas/RepLineasAdicionales.aspx b/Ventas/RepLineasAdicionales.aspx
index fe2b823be..8a2cad2c4 100644
--- a/Ventas/RepLineasAdicionales.aspx
+++ b/Ventas/RepLineasAdicionales.aspx
@@ -131,8 +131,7 @@
                                     <asp:HyperLinkField DataTextField="Agrupador" HeaderText="Agrupador" />
                                     <asp:BoundField DataField="LineaAdicional" HeaderText="PO"  />
                                     <asp:BoundField DataField="Importe" HeaderText="Importe PO" DataFormatString="{0:n}" ItemStyle-HorizontalAlign="Right" />
-                                    <asp:BoundField DataField="Abreviatura" HeaderText="Mon"  />
-                                    
+                                    <asp:BoundField DataField="Abreviatura" HeaderText="Mon"  />                                    
                                     <asp:HyperLinkField DataTextField="SerieFolio" DataNavigateUrlFields="CveVenta" DataNavigateUrlFormatString="/Ventas/Ventas.aspx?CveVenta={0}" HeaderText="Serie Folio" />
                                     <asp:BoundField DataField="Saldo" HeaderText="Saldo" DataFormatString="{0:n}" ItemStyle-HorizontalAlign="Right" />
                                     <asp:BoundField DataField="DiasVencimiento" HeaderText="D.Plazo" ItemStyle-HorizontalAlign="Right"  />
diff --git a/Ventas/RepLineasAdicionales.aspx.cs b/Ventas/RepLineasAdicionales.aspx.cs
index 4e183d8c1..b8328d80a 100644
--- a/Ventas/RepLineasAdicionales.aspx.cs
+++ b/Ventas/RepLineasAdicionales.aspx.cs
@@ -3,6 +3,16 @@ using System.Collections.Generic;
 using System.IO;
 using ListItem = System.Web.UI.WebControls.ListItem;
 using System.Web.UI;
+using Microsoft.AspNet.SignalR;
+using System.Activities.Expressions;
+using System.EnterpriseServices.Internal;
+using iTextSharp.text.pdf;
+using GemBox.Spreadsheet;
+using System.Linq;
+using System.Text.RegularExpressions;
+using System.Web;
+using AjaxControlToolkit;
+//using DocumentFormat.OpenXml.Wordprocessing;
 
 public partial class Ventas_RepLineasAdicionales : ClsPaginas
 {
@@ -309,15 +319,18 @@ public partial class Ventas_RepLineasAdicionales : ClsPaginas
 
         if(TipoLinea == 1)
         {
-            GridView gvTemp = GvLineasAdicionales;            
-            gvTemp.ExportToExcelX("RepLineasAdicionales" + DateTime.Now.ToShortDateString());
+            GridView gvTemp = GvLineasAdicionales;
+            //gvTemp.ExportToExcelX("RepLineasAdicionales" + DateTime.Now.ToShortDateString());
+            gvTemp.ExportToExcelGembox("RepLineasAdicionales", UsuarioActual, "Rep Lineas Adicionales", AnchoImagen: 150);
         }
         else if(TipoLinea == 2)
         {
             GridView gvTemp = GvLAPO;
-            gvTemp.Columns[8].Visible = false;
-            gvTemp.ExportToExcelX("ReportePO" + DateTime.Now.ToShortDateString());
-        }             
+            gvTemp.Columns[12].Visible = false;
+            //gvTemp.ExportToExcelX("ReportePO" + DateTime.Now.ToShortDateString());
+            gvTemp.ExportToExcelGembox( "ReportePO", UsuarioActual, "Reporte PO ", AnchoImagen:150);
+        }
+             
     }
       
     protected void GvLAPO_RowDataBound(object sender, GridViewRowEventArgs e)
@@ -409,4 +422,10 @@ public partial class Ventas_RepLineasAdicionales : ClsPaginas
             }
         }
     }
+
+    public override void VerifyRenderingInServerForm(Control control ) { }
+
+    
+
+
 }
\ No newline at end of file
diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx
index e654fa7f1..9df8b7f41 100644
--- a/Ventas/Ventas.aspx
+++ b/Ventas/Ventas.aspx
@@ -2596,7 +2596,7 @@
                                                                                     <asp:BoundField DataField="CodigoPS" HeaderText="Producto ó Servicio" />
                                                                                     <asp:TemplateField HeaderText="Valor Unitario">
                                                                                         <ItemTemplate>
-                                                                                            <asp:TextBox ID="TxtValorUnitario" runat="server" Text='<%# Eval("PU", "{0:N2}") %>' Width="60px"></asp:TextBox>
+                                                                                            <asp:TextBox ID="TxtValorUnitario" runat="server" Text='<%# Eval("PU") %>' Width="60px"></asp:TextBox>
                                                                                         </ItemTemplate>
                                                                                     </asp:TemplateField>
                                                                                     <asp:BoundField DataField="ClaveSATFraccionArancelariaDescripcion" HeaderText="Fracción Arancelaria" />
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 51dd9afac..456043f51 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -8921,7 +8921,7 @@ Partial Class Ventas
             Exit Sub
         End If
 
-        If DdlLineaAdicional.SelectedValue.ToEntero() > 0 AndAlso Not DdlTipoComprobante.SelectedValue.Contiene("Ing", "Rem") Then
+        If DdlLineaAdicional.SelectedValue.ToEntero() > 0 AndAlso Not DdlTipoComprobante.SelectedValue.Contiene("Ing", "Rem", "Egs", "Dev") Then
             Alert("No se puede seleccionar una linea adicional de crédito si no se genera una remisón.", TipoMensaje.MsgAdvertencia)
             Exit Sub
         End If