diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index df7f915bc..5a9fbe0ce 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -35079,7 +35079,7 @@ Partial Class Ventas
             If CveEntregaAlmacen > 0 Then
 
                 For Each RowPS As DataRow In ObjFactura.DtMercancias.Rows
-                    If Not ObjGral.AddEntregaAlmacenRutaDetalle(CveEntregaAlmacen, RowPS("CvePS").ToString().ToEntero, RowPS("Cantidad").ToString().ToDecimal, RowPS("CveUnidadMedida").ToString().ToEntero, UsuarioActual.CveUsuario) Then
+                    If Not ObjGral.AddEntregaAlmacenRutaDetalle(CveEntregaAlmacen, RowPS("CvePS").ToString().ToEntero, RowPS("Cantidad").ToString().ToDecimal, RowPS("CveUnidadMedida").ToString().ToEntero, UsuarioActual.CveUsuario, RowPS("PesoKg").ToString().ToDecimal) Then
                         ErrorProceso = True
                         Exit For
                     End If
@@ -35343,6 +35343,7 @@ Partial Class Ventas
         DtMercancias.Columns.Add(New DataColumn("CvePS", GetType(Integer)))
         DtMercancias.Columns.Add(New DataColumn("CveUnidadMedida", GetType(Integer)))
         DtMercancias.Columns.Add(New DataColumn("CodigoPS", GetType(String)))
+        DtMercancias.Columns.Add(New DataColumn("PesoKg", GetType(Decimal)))
     End Sub
     Protected Sub LnkAddPSMercancia_Click(sender As Object, e As EventArgs)
         If DtMercancias Is Nothing Then
@@ -35494,6 +35495,22 @@ Partial Class Ventas
         CargarCamiones()
         HabilitarControlesCartaPorte(ChkEmitirCartaPorte.Checked)
 
+        If DtMercancias Is Nothing Then CreaDTMercancias()
+        DtMercancias.Clear()
+        'carga los productos inventariables como mercancía
+        For Each drPS As DataRow In TmpDT.FiltraParametros("CveTipoPS= 2").Rows
+            Dim NewRow As DataRow = DtMercancias.NewRow
+            NewRow("Consec") = DtMercancias.MAX("Consec").ToEntero() + 1
+            NewRow("Cantidad") = drPS("Cantidad")
+            NewRow("CvePS") = drPS("CvePS")
+            NewRow("CveUnidadMedida") = drPS("CveUM")
+            NewRow("CodigoPS") = drPS("PSCodigo")
+            DtMercancias.Rows.Add(NewRow)
+        Next
+
+        GvMercanciasCP.DataSource = DtMercancias
+        GvMercanciasCP.DataBind()
+
     End Sub
     'Protected Sub ChkAgregarFlete_CheckedChanged(sender As Object, e As EventArgs)