From 20d9750e38c9765aa6d5d31688ba6077599a9fc0 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Mon, 12 Feb 2024 05:46:03 -0700
Subject: [PATCH] -- mejora en cartaporte 3.0

---
 Ventas/Ventas.aspx.vb | 19 ++++++++++++++++++-
 1 file changed, 18 insertions(+), 1 deletion(-)

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)