From e050a88d52aec931037fa5cd696937f44203fd72 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Thu, 3 Aug 2023 13:51:36 -0700 Subject: [PATCH] Correciones de validaciones de facturacion de acarreos --- Ventas/FacturacionAcarreos.aspx.vb | 21 +++++++++++++++------ 1 file changed, 15 insertions(+), 6 deletions(-) diff --git a/Ventas/FacturacionAcarreos.aspx.vb b/Ventas/FacturacionAcarreos.aspx.vb index 550ef5cf8..25db0c7ba 100644 --- a/Ventas/FacturacionAcarreos.aspx.vb +++ b/Ventas/FacturacionAcarreos.aspx.vb @@ -109,21 +109,30 @@ Partial Class Ventas_FacturacionAcarreos Try Dim DtPS As DataTable = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa) For Each row As DataRow In dt.Rows - Dim msg As String = ObjVentas.AddFacturacionAcarreos(row("Sucursal").ToString(), row("RFC").ToString(), row("Cantidad").ToString().ToDecimal(), row("ProductoGeneral").ToString(), - row("Origen").ToString(), row("Destino").ToString(), row("FechaSalida").ToString().ToDateTime(), row("FechaLlegada").ToString().ToDateTime(), - row("Unidad").ToString(), row("Chofer").ToString(), row("Configuración").ToString(), row("Remolque1").ToString(), row("Remolque2").ToString(), - row("Distancia").ToString().ToDecimal(), UsuarioActual.CveEmpresa) + Dim FechaSalida As DateTime = MinFecha + Dim FechaLlegada As DateTime = MinFecha + + If row("FechaSalida").ToString().ToDateTime() > FechaSalida Then + FechaSalida = row("FechaSalida").ToString().ToDateTime() + End If + If row("FechaLlegada").ToString().ToDateTime() > FechaLlegada Then + FechaLlegada = row("FechaLlegada").ToString().ToDateTime() + End If + + Dim msg As String = ObjVentas.AddFacturacionAcarreos(row("Sucursal").ToString(), row("RFC").ToString(), row("Cantidad").ToString().ToDecimal(), row("ProductoGeneral").ToString(), row("Origen").ToString(), + row("Destino").ToString(), FechaSalida, FechaLlegada, row("Unidad").ToString(), row("Chofer").ToString(), row("Configuración").ToString(), + row("Remolque1").ToString(), row("Remolque2").ToString(), row("Distancia").ToString().ToDecimal(), UsuarioActual.CveEmpresa) If msg = "Correcto" Then RowsCargados += 1 Else TieneError = True - MsgFacturacionAcarreos.AppendFormat("{0}", msg) + MsgFacturacionAcarreos.AppendFormat("Ocurrió un error en la fila: {0}
{1}", dt.Rows.IndexOf(row) + 2, msg) RowsNoCargados += 1 Exit For End If Next Catch ex As Exception - OnError("Ocurrió un error al cargar los precios.", ex) + OnError("Ocurrió un error al cargar los datos.", ex) Finally Dim MensajeFinal As New StringBuilder() If RowsNoCargados = 0 AndAlso RowsCargados > 0 Then