-- corrección a decimal, en carta porte

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