This commit is contained in:
Antonio Gonzalez
2020-06-16 00:40:30 -07:00

View File

@@ -4585,7 +4585,7 @@ Namespace Modelos
End If
'DEBE REGRESAR LA EXISTENCIA DE (ENTREGA POR ADELANTADO) AL ALMACEN ORGINAL (GENERAL,SIN COSTO)
If Not ErrorCancelar AndAlso DtDevoluciones IsNot Nothing Then
If Not ErrorCancelar AndAlso DtDevoluciones IsNot Nothing AndAlso DtDevoluciones.Rows.Count > 0 Then
For Each CveRemision As Integer In ListaRemisionesCancelar
Dim DtDevRemision As DataTable = DtDevoluciones.FiltraParametros($"CveRemision={CveRemision}")
@@ -4603,8 +4603,6 @@ Namespace Modelos
Next
Next
Else
ErrorCancelar = True
End If
End If