AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Correciones de validaciones de facturacion de acarreos

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2023-08-03 13:51:36 -07:00
parent 214427b842
commit e050a88d52
1 changed files with 15 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
Ventas/FacturacionAcarreos.aspx.vb
View File

@@ -109,21 +109,30 @@ Partial Class Ventas_FacturacionAcarreos
Try Try
Dim DtPS As DataTable = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa) Dim DtPS As DataTable = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa)
For Each row As DataRow In dt.Rows 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(), Dim FechaSalida As DateTime = MinFecha
row("Origen").ToString(), row("Destino").ToString(), row("FechaSalida").ToString().ToDateTime(), row("FechaLlegada").ToString().ToDateTime(), Dim FechaLlegada As DateTime = MinFecha
row("Unidad").ToString(), row("Chofer").ToString(), row("Configuración").ToString(), row("Remolque1").ToString(), row("Remolque2").ToString(),
row("Distancia").ToString().ToDecimal(), UsuarioActual.CveEmpresa) 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 If msg = "Correcto" Then
RowsCargados += 1 RowsCargados += 1
Else Else
TieneError = True TieneError = True
MsgFacturacionAcarreos.AppendFormat("{0}", msg) MsgFacturacionAcarreos.AppendFormat("Ocurrió un error en la fila: {0}<br/>{1}", dt.Rows.IndexOf(row) + 2, msg)
RowsNoCargados += 1 RowsNoCargados += 1
Exit For Exit For
End If End If
Next Next
Catch ex As Exception Catch ex As Exception
OnError("Ocurrió un error al cargar los precios.", ex) OnError("Ocurrió un error al cargar los datos.", ex)
Finally Finally
Dim MensajeFinal As New StringBuilder() Dim MensajeFinal As New StringBuilder()
If RowsNoCargados = 0 AndAlso RowsCargados > 0 Then If RowsNoCargados = 0 AndAlso RowsCargados > 0 Then