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

--- cancelación de remisión/pedido

Browse Source
This commit is contained in:
rrene
2024-06-27 12:47:11 -07:00
parent 2b8bfd6aeb
commit b29df8e777
1 changed files with 7 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
App_Code/Modelos.vb
View File

@@ -6489,14 +6489,16 @@ Namespace Modelos
For Each RowDevolucion As DataRow In DtDevMovs.Rows For Each RowDevolucion As DataRow In DtDevMovs.Rows
CveAlmacen = RowDevolucion("CveAlmacen").ToString().ToEntero() CveAlmacen = RowDevolucion("CveAlmacen").ToString().ToEntero()
Dim tdtt As DataTable = DtMovRemision.FiltraParametros($"CveMovimiento={RowDevolucion("CveMovimiento")} AND CvePS > 0 AND SaldoAlmacen <> 0")
If Not CancelarMovimientosRemision(CveVenta, CveAlmacen, CveAlmacenGeneral, DtMovRemision.FiltraParametros($"CveMovimiento={RowDevolucion("CveMovimiento")} AND CvePS > 0"), ObjVentas, ObjInventario, ObjConta) Then If tdtt IsNot Nothing AndAlso tdtt.Rows.Count > 0 Then
ErrorCancelar = True If Not CancelarMovimientosRemision(CveVenta, CveAlmacen, CveAlmacenGeneral, tdtt, ObjVentas, ObjInventario, ObjConta) Then
MensajeError = "Ocurrió un error al cancelar los movimientos de la remisión." ErrorCancelar = True
Exit For MensajeError = "Ocurrió un error al cancelar los movimientos de la remisión."
Exit For
End If
End If End If
Next Next
End If End If
'CANCELAR MOVIMIENTOS DE USADOS SI TIENE 'CANCELAR MOVIMIENTOS DE USADOS SI TIENE
@@ -6513,7 +6515,6 @@ Namespace Modelos
ErrorCancelar = True ErrorCancelar = True
End If End If
End If End If
End If End If
'VERIFICAR MOVIMIENTOS DE APARTADOS 'VERIFICAR MOVIMIENTOS DE APARTADOS
@@ -6531,7 +6532,6 @@ Namespace Modelos
ErrorCancelar = True ErrorCancelar = True
End If End If
End If End If
End If End If
End If End If