From 169fd4e9a5a159e21b0ac1956dea4e5c235de1a3 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Sun, 5 Jun 2022 07:37:57 -0700
Subject: [PATCH] =?UTF-8?q?--=20correcci=C3=B3n=20a=20decimal,=20en=20cart?=
 =?UTF-8?q?a=20porte?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Ventas/Ventas.aspx.vb | 14 +++-----------
 1 file changed, 3 insertions(+), 11 deletions(-)

diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 9e0b5b06b..57beb0ade 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -34256,7 +34256,6 @@ Partial Class Ventas
                 DdlUnidadCamion.DataSource = ObjInv.DtResultados
             End If
 
-
             If ObjInv.GetCamiones(-1, UsuarioActual.CveEmpresa, 2, Estatus:=1) Then
                 DdlRemolque1.DataSource = ObjInv.DtResultados
             End If
@@ -34266,7 +34265,6 @@ Partial Class Ventas
         DdlUnidadCamion.DataBind()
         DdlUnidadCamion.Items.Insert(0, New ListItem("Seleccione Uno", "-1"))
 
-
         DdlRemolque1.DataBind()
         DdlRemolque1.Items.Insert(0, New ListItem("Seleccione Uno", "-1"))
 
@@ -34304,7 +34302,7 @@ Partial Class Ventas
     End Sub
 
     Protected Sub DdlConfigAuto_SelectedIndexChanged(sender As Object, e As EventArgs)
-        ValidaConfiguracionVeiculo()
+        ValidaConfiguracionVehiculo()
     End Sub
     Public Sub CargaVentaCortePorte(CveVenta As Integer)
         TxtFechaEntregaCP.Enabled = False
@@ -34333,7 +34331,7 @@ Partial Class Ventas
         DdlUnidadCamion.Enabled = False
     End Sub
 
-    Private Sub ValidaConfiguracionVeiculo()
+    Private Sub ValidaConfiguracionVehiculo()
         DvRemolque1.Visible = False
         DvRemolque2.Visible = False
 
@@ -34346,7 +34344,6 @@ Partial Class Ventas
                 If ObjGrales.GetCartaPorteConfigAutoTransportes() Then
                     Dim Remolque As String = ObjGrales.DtResultados.FiltroPrimeroValor("Remolque", $" CveConfigAutoTransporte ='{DdlConfigAuto.SelectedValue}'")
 
-
                     If Remolque = "1" Then
                         RequiereRemolque = True
                         MostrarRemolques = True
@@ -34369,7 +34366,6 @@ Partial Class Ventas
             MostrarRemolques = False
         End If
 
-
         If RequiereRemolque Or MostrarRemolques Then
             DvRemolque1.Visible = True
         End If
@@ -34380,7 +34376,6 @@ Partial Class Ventas
             DvConfiguracionVeiculo.Visible = True
         End If
 
-
         UpEmitirTransitorio.Update()
     End Sub
     Protected Sub DdlRemolque1_SelectedIndexChanged(sender As Object, e As EventArgs)
@@ -34397,14 +34392,11 @@ Partial Class Ventas
             End Using
 
             DdlRemolque2.DataBind()
-
-
         Else
             DvRemolque2.Visible = False
         End If
 
         DdlRemolque2.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
-
         UpEmitirTransitorio.Update()
 
     End Sub
@@ -34441,7 +34433,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().ToEntero, RowPS("CveUM").ToString().ToEntero, UsuarioActual.CveUsuario) Then
+                    If Not ObjGral.AddEntregaAlmacenRutaDetalle(CveEntregaAlmacen, RowPS("CvePS").ToString().ToEntero, RowPS("Cantidad").ToString().ToDecimal, RowPS("CveUM").ToString().ToEntero, UsuarioActual.CveUsuario) Then
                         ErrorProceso = True
                         Exit For
                     End If