diff --git a/Agropecuaria/RepPreciosVentaManifiesto.aspx b/Agropecuaria/RepPreciosVentaManifiesto.aspx
index 7aa2415ec..ef0b88763 100644
--- a/Agropecuaria/RepPreciosVentaManifiesto.aspx
+++ b/Agropecuaria/RepPreciosVentaManifiesto.aspx
@@ -128,7 +128,7 @@ font-size: 12px;
                 <div class="col-md-12">
 
                     <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" Width="100%" EmptyDataText="No se encontraron datos con los filtros especificados" 
-                        DataKeyNames="CvePrecioVentaManifiesto,CveEmbarqueManifiesto,CveCultivo,CveCultivoVariedad,Referencia,LdDate,InvDate,PDDate,CantidadVendida,PUVenta,Observaciones"
+                        DataKeyNames="CvePrecioVentaManifiesto,CveEmbarqueManifiesto,CveCultivo,CveCultivoVariedad,Referencia,LdDate,InvDate,PDDate,CantidadVendida,PUVenta,Observaciones,Diferencia"
                         ToolTip="" CssClass="table table-striped table-hover Widthall ScrollAD mysmallbt" data-sort="true"  GridLines="None">
                         <Columns>                    
                             <asp:BoundField HeaderText="Manifiesto" DataField="NoEmbarque"  />
@@ -139,12 +139,11 @@ font-size: 12px;
                             <asp:BoundField HeaderText="Referencia" DataField="Referencia"  />
                             <asp:BoundField HeaderText="Fecha Vta" DataField="InvDate" ItemStyle-Width="110px" DataFormatString="{0:dd/MM/yyyy}" HtmlEncode="False"  />
                             <asp:BoundField HeaderText="Cantidad" DataField="CantidadVendida"  ItemStyle-HorizontalAlign="Right" DataFormatString="{0:N2}" />
+                            <asp:BoundField HeaderText="Total Venta" DataField="PUVentaOriginal" ItemStyle-HorizontalAlign="Right" DataFormatString="{0:N2}"  />
                             <asp:BoundField HeaderText="Precio venta (Grow)" DataField="PUVenta" ItemStyle-HorizontalAlign="Right" DataFormatString="{0:N2}"  />
                             <asp:BoundField HeaderText="Precio del día" DataField="PrecioVenta"  ItemStyle-HorizontalAlign="Right" DataFormatString="{0:N2}" />
-                            <asp:BoundField HeaderText="Diferencia" DataField="Diferencia" ItemStyle-HorizontalAlign="Center" DataFormatString="{0:N2}"  />
-                            <asp:BoundField HeaderText="% de diferencia" DataField="Porcentaje" ItemStyle-HorizontalAlign="Right" DataFormatString="{0:N2}%" />
-                            <asp:BoundField HeaderText="Fecha Ing." DataField="FechaIng" ItemStyle-HorizontalAlign="Center"  DataFormatString="{0:dd/MM/yyyy HH:mm:ss}" HtmlEncode="False" /> 
-                            <asp:BoundField HeaderText="Usuario" DataField="Usuario"   />
+                            <asp:BoundField HeaderText="Dif." DataField="Diferencia" ItemStyle-HorizontalAlign="Center" DataFormatString="{0:N2}"  ItemStyle-Width="50px" />
+                            <asp:BoundField HeaderText="% Dif." DataField="Porcentaje" ItemStyle-HorizontalAlign="Right" DataFormatString="{0:N2}%" ItemStyle-Width="50px" />
                         </Columns>    
                     </asp:GridView>
 
diff --git a/Agropecuaria/RepPreciosVentaManifiesto.aspx.vb b/Agropecuaria/RepPreciosVentaManifiesto.aspx.vb
index e413df747..f3b8abb5b 100644
--- a/Agropecuaria/RepPreciosVentaManifiesto.aspx.vb
+++ b/Agropecuaria/RepPreciosVentaManifiesto.aspx.vb
@@ -25,10 +25,10 @@ Partial Class Agrupecuaria_RepPreciosVentaManifiesto
         If Not IsPostBack Then
             If UsuarioActual.CveEmpresa = 2 AndAlso UsuarioActual.CveUsuario.Contiene(77, 21) Then Response.Redirect("/Inicio.aspx")
 
-            txtFechaI.Text = $"01/{Now.Month.ToString("0#")}/{Now.Year}"
+            txtFechaI.Text = Now.AddDays(-1).ToString("dd/MM/yyyy")
             txtFechaF.Text = Now.ToString("dd/MM/yyyy")
 
-            TxtModalFechaInicio.Text = $"01/{Now.Month.ToString("0#")}/{Now.Year}"
+            TxtModalFechaInicio.Text = Now.AddDays(-1).ToString("dd/MM/yyyy")
             TxtModalFechaFin.Text = Now.ToString("dd/MM/yyyy")
 
             CargaCombos()
@@ -120,6 +120,13 @@ Partial Class Agrupecuaria_RepPreciosVentaManifiesto
 
 #Region "  GV DATOS - ROW DATABOUND  "
     Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound
+        If e.Row.RowType = DataControlRowType.DataRow Then
+            Dim Dif As Decimal = e.Row.DataKey("Diferencia").ToDecimal
+            If Dif < 0 Then
+                e.Row.Cells(11).ForeColor = Drawing.Color.Red
+                e.Row.Cells(12).ForeColor = Drawing.Color.Red
+            End If
+        End If
     End Sub
 #End Region
 
diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index 2f9873a89..c82c5ba22 100644
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -6224,6 +6224,7 @@ Public Class ClsPaginas
                 Dim ConfATR2 As String = ""
                 Dim ObjInv As New ClsGenerales
                 Dim TelDestino As String = ""
+                Dim NombreUsuario As String = "" 'Persona que  timbro
 
                 If ObjInv.GetGralTimbre(CveTimbre, "-1", MinFecha, MaxFecha, -1, UsuarioActual.CveEmpresa, -1) Then
                     If ObjInv.DtResultados.Rows.Count > 0 Then
@@ -6233,6 +6234,7 @@ Public Class ClsPaginas
                             Telefono = Dr("FiguraTelefono").ToString
                             TipoDocto = Dr("TipoDocto").ToString
                             TelDestino = Dr("TelDestino").ToString
+                            NombreUsuario = Dr("NombreUsuario").ToString
 
                             If UsuarioActual.CveEmpresa = 13 Then
                                 PermisoSCTR1 = Dr("PermisoSCTR1").ToString
@@ -6629,6 +6631,7 @@ Public Class ClsPaginas
                     params.Add(New ReportParameter("FechaImpresion", NowADS().ToDateTime.ToShortDateString))
                     params.Add(New ReportParameter("DomicilioFiscal", $"{UsuarioActual.Empresa.Direccion}, {UsuarioActual.Empresa.Colonia}, {UsuarioActual.Empresa.Localidad}, {UsuarioActual.Empresa.Estado}, Tel. {Telefono}"))
                     params.Add(New ReportParameter("SerieFolio", SerieFolio))
+                    params.Add(New ReportParameter("NombreUsuario", NombreUsuario))
                     params.Add(New ReportParameter("RFC", UsuarioActual.Empresa.RFC))
                     params.Add(New ReportParameter("DomicilioExpedicion", LugarExpedicion))
                     'CLIENTE
@@ -11140,7 +11143,7 @@ Public Class ClsPaginas
             PaginaDict.Add("/Contabilidad/OCDetalleAlmacen.aspx".ToUpper(), -1)
             PaginaDict.Add("/Contabilidad/RepBalanceGeneralHorizontal.aspx".ToUpper(), -1)
             PaginaDict.Add("/Agropecuaria/CierreCultivo.aspx".ToUpper(), 1326)
-            PaginaDict.Add("/Agropecuaria/RepPreciosVentaManifiesto.aspx".ToUpper(), -1)
+            PaginaDict.Add("/Agropecuaria/RepPreciosVentaManifiesto.aspx".ToUpper(), 1353)
 
             PaginaDict.Add("/Inventarios/RepRSCO.aspx".ToUpper(), 1328)
             PaginaDict.Add("/testApi.aspx".ToUpper(), -1)
diff --git a/Ashx/E158.ashx b/Ashx/E158.ashx
index cc6b92bc6..6f4d581b9 100644
--- a/Ashx/E158.ashx
+++ b/Ashx/E158.ashx
@@ -209,17 +209,6 @@ Public Class E158 : Implements IHttpHandler, IReadOnlySessionState
         ObjVentas.Dispose()
 
 
-        'For Each dRow As DataRow In DTresp.Rows
-
-        'Next
-
-        'Dim ObjVentas As New ClsVentas
-
-        'If ObjVentas.AddPreciosVentaManifiesto() Then
-
-        'End If
-
-        'ObjVentas.Dispose()
         'DTresp.WriteXml("C:\temp\GrowerService\Sales.xml", XmlWriteMode.WriteSchema)
 
 
diff --git a/Empresas/Grales/Formatos/CartaPorteTimbrado.rdlc b/Empresas/Grales/Formatos/CartaPorteTimbrado.rdlc
index 38000e5c8..df258447e 100644
--- a/Empresas/Grales/Formatos/CartaPorteTimbrado.rdlc
+++ b/Empresas/Grales/Formatos/CartaPorteTimbrado.rdlc
@@ -1091,13 +1091,13 @@
                   <Width>2.54796cm</Width>
                 </TablixColumn>
                 <TablixColumn>
-                  <Width>4.20919cm</Width>
+                  <Width>4.01711cm</Width>
                 </TablixColumn>
                 <TablixColumn>
-                  <Width>2.24876cm</Width>
+                  <Width>2.73018cm</Width>
                 </TablixColumn>
                 <TablixColumn>
-                  <Width>6.34152cm</Width>
+                  <Width>6.40233cm</Width>
                 </TablixColumn>
               </TablixColumns>
               <TablixRows>
@@ -1258,7 +1258,7 @@
                                 </TextRun>
                               </TextRuns>
                               <Style>
-                                <TextAlign>Left</TextAlign>
+                                <TextAlign>Center</TextAlign>
                               </Style>
                             </Paragraph>
                           </Paragraphs>
@@ -1538,7 +1538,7 @@
                 <TablixMember>
                   <Group Name="GPO3" />
                   <TablixHeader>
-                    <Size>1.68927cm</Size>
+                    <Size>1.39994cm</Size>
                     <CellContents>
                       <Textbox Name="Cantidad3">
                         <CanGrow>true</CanGrow>
@@ -1596,7 +1596,7 @@
             <Top>10.58305cm</Top>
             <Left>0.44227cm</Left>
             <Height>1.12062cm</Height>
-            <Width>19.07303cm</Width>
+            <Width>19.13385cm</Width>
             <ZIndex>3</ZIndex>
             <Style>
               <Border>
@@ -5381,6 +5381,9 @@
                         </TablixMember>
                         <TablixMember>
                           <Group Name="Details" />
+                          <Visibility>
+                            <Hidden>=IIF(Fields!MaterialPeligroso.Value = "No",True,False)</Hidden>
+                          </Visibility>
                         </TablixMember>
                       </TablixMembers>
                     </TablixRowHierarchy>
@@ -5992,7 +5995,7 @@ Se ha recibido el número arriba indicado de bultos/contenedores/remolques/autot
                   <Paragraph>
                     <TextRuns>
                       <TextRun>
-                        <Value>=Parameters!UsuarioImprimio.Value</Value>
+                        <Value>=Parameters!NombreUsuario.Value</Value>
                         <Style>
                           <FontFamily>Myriad Pro</FontFamily>
                           <FontSize>7.5pt</FontSize>
@@ -7528,6 +7531,9 @@ Se ha recibido el número arriba indicado de bultos/contenedores/remolques/autot
                         </TablixMember>
                         <TablixMember>
                           <Group Name="Details2" />
+                          <Visibility>
+                            <Hidden>=IIF(Fields!MaterialPeligroso.Value = "No",True,False)</Hidden>
+                          </Visibility>
                         </TablixMember>
                       </TablixMembers>
                     </TablixRowHierarchy>
@@ -7554,80 +7560,6 @@ Se ha recibido el número arriba indicado de bultos/contenedores/remolques/autot
                   </Border>
                 </Style>
               </Rectangle>
-              <Textbox Name="SerieFolio3">
-                <CanGrow>true</CanGrow>
-                <KeepTogether>true</KeepTogether>
-                <Paragraphs>
-                  <Paragraph>
-                    <TextRuns>
-                      <TextRun>
-                        <Value>=Parameters!SerieFolio.Value</Value>
-                        <Style>
-                          <FontWeight>Bold</FontWeight>
-                        </Style>
-                      </TextRun>
-                    </TextRuns>
-                    <Style>
-                      <TextAlign>Right</TextAlign>
-                    </Style>
-                  </Paragraph>
-                </Paragraphs>
-                <rd:DefaultName>SerieFolio</rd:DefaultName>
-                <Top>0.67478cm</Top>
-                <Left>15.20438cm</Left>
-                <Height>0.6cm</Height>
-                <Width>3.97474cm</Width>
-                <ZIndex>12</ZIndex>
-                <Style>
-                  <Border>
-                    <Style>None</Style>
-                  </Border>
-                  <PaddingLeft>2pt</PaddingLeft>
-                  <PaddingRight>2pt</PaddingRight>
-                  <PaddingTop>2pt</PaddingTop>
-                  <PaddingBottom>2pt</PaddingBottom>
-                </Style>
-              </Textbox>
-              <Textbox Name="SerieFolio4">
-                <CanGrow>true</CanGrow>
-                <KeepTogether>true</KeepTogether>
-                <Paragraphs>
-                  <Paragraph>
-                    <TextRuns>
-                      <TextRun>
-                        <Value xml:space="preserve"> </Value>
-                        <Style>
-                          <FontWeight>Bold</FontWeight>
-                        </Style>
-                      </TextRun>
-                      <TextRun>
-                        <Value>=Parameters!FechaCertificacion.Value</Value>
-                        <Style>
-                          <FontWeight>Bold</FontWeight>
-                        </Style>
-                      </TextRun>
-                    </TextRuns>
-                    <Style>
-                      <TextAlign>Right</TextAlign>
-                    </Style>
-                  </Paragraph>
-                </Paragraphs>
-                <rd:DefaultName>SerieFolio</rd:DefaultName>
-                <Top>1.45117cm</Top>
-                <Left>15.20438cm</Left>
-                <Height>0.6cm</Height>
-                <Width>3.97474cm</Width>
-                <ZIndex>13</ZIndex>
-                <Style>
-                  <Border>
-                    <Style>None</Style>
-                  </Border>
-                  <PaddingLeft>2pt</PaddingLeft>
-                  <PaddingRight>2pt</PaddingRight>
-                  <PaddingTop>2pt</PaddingTop>
-                  <PaddingBottom>2pt</PaddingBottom>
-                </Style>
-              </Textbox>
             </ReportItems>
             <KeepTogether>true</KeepTogether>
             <Top>47.03985cm</Top>
@@ -8183,6 +8115,12 @@ Se ha recibido el número arriba indicado de bultos/contenedores/remolques/autot
       <AllowBlank>true</AllowBlank>
       <Prompt>ReportParameter1</Prompt>
     </ReportParameter>
+    <ReportParameter Name="NombreUsuario">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
   </ReportParameters>
   <Code>Function PageNumber() As String      
     Return Me.Report.Globals!OverallPageNumber       
diff --git a/Inventarios/RecepcionAlmacen.aspx.vb b/Inventarios/RecepcionAlmacen.aspx.vb
index ef8415673..067f4e1d6 100644
--- a/Inventarios/RecepcionAlmacen.aspx.vb
+++ b/Inventarios/RecepcionAlmacen.aspx.vb
@@ -3790,7 +3790,7 @@ Partial Class Inventarios_RecepcionAlmacen
         End If
 
         If CveTipoFechaVencimiento = 2 Then
-            If Not objCompras.UpdateFechaVencimientoCompra(CveCompra, TxtFecha.Text.ToDate, UsuarioActual.CveEmpresa) Then
+            If Not objCompras.UpdateFechaVencimientoCompra(CveCompra, TxtFecha.Text.ToDate, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then
                 ErrorProceso = True
             End If
         End If