Seccion de almacen al cancelar factura

App_Code/Modelos.vb

@@ -4707,7 +4707,7 @@ Namespace Modelos
 
                                         If CveMovimientoDevolucion > 0 Then
                                             For Each Dr As DataRow In DtExistencias.FiltraParametros($"CveMovimiento = {RowMovimiento("CveMovimiento").ToString()}").Rows
-                                                If Not ObjInventario.AddMovimientoDetalle(CveMovimientoDevolucion, Dr("Cantidad").ToString.ToDecimal, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, -1, Serie:=Dr("Serie").ToString, Lote:=Dr("Lote").ToString, CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero) Then
+                                                If Not ObjInventario.AddMovimientoDetalle(CveMovimientoDevolucion, Dr("Cantidad").ToString.ToDecimal, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, -1, Serie:=Dr("Serie").ToString, Lote:=Dr("Lote").ToString, CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero, CveSeccionAlmacen:=Dr("CveSeccionAlmacen").ToString.ToEntero) Then
                                                     ErrorCancelar = True
                                                     MensajeError = "Ocurrió un error al procesar los conceptos de salida. Por favor vuelva a intentar."
                                                     Exit For
@@ -4810,7 +4810,7 @@ Namespace Modelos
 
 
                                     'REALIZA LA DEVOLUCION AL ALMACEN VIRTUAL
-                                    If Not GeneraMovimientosVirtuales(CveVenta, CveMovimientoDevolucion, RowMovimiento("CveMovimiento").ToString().ToEntero(), ObjInventario) Then
+                                    If Not ErrorCancelar AndAlso Not GeneraMovimientosVirtuales(CveVenta, CveMovimientoDevolucion, RowMovimiento("CveMovimiento").ToString().ToEntero(), ObjInventario) Then
                                         ErrorCancelar = True
                                         MensajeError = "Ocurrió un error al cargar los datos de devolución. Por favor vuelva a intentar."
                                     End If
@@ -4824,6 +4824,10 @@ Namespace Modelos
                                         End If
                                     End If
 
+                                    If ErrorCancelar Then
+                                        Exit For
+                                    End If
+
                                 Next
 
                                 'SI EXISTEN HAY EXISTENCIA EN (ENTREGA POR ADELANTADO) SE TIENE QUE REGRESAR AL ALMACEN ORGINAL (GENERAL,SIN COSTO)
@@ -4857,6 +4861,10 @@ Namespace Modelos
                                                 End If
                                             Next
 
+                                            If ErrorCancelar Then
+                                                Exit For
+                                            End If
+
                                         Next
                                     End If
 
@@ -5297,7 +5305,7 @@ Namespace Modelos
                         Exit For
                     End If
 
-                    If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalidaDevRem, DrRem("Cantidad").ToString.ToDecimal, DrRem("CveUM").ToString.ToEntero, DrRem("CvePS").ToString.ToEntero, DrRem("PU").ToString.ToDecimal, CveAF:=DrRem("CveActivoFijo").ToString.ToEntero, Serie:=DrRem("Serie").ToString, Lote:=DrRem("Lote").ToString, CveVentaDetalle:=CveVentaDetalleRem, CveMovimientoDetalleEntrada:=DrRem("CveMovimientoDetalle").ToString().ToEntero()) Then
+                    If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalidaDevRem, DrRem("Cantidad").ToString.ToDecimal, DrRem("CveUM").ToString.ToEntero, DrRem("CvePS").ToString.ToEntero, DrRem("PU").ToString.ToDecimal, CveAF:=DrRem("CveActivoFijo").ToString.ToEntero, Serie:=DrRem("Serie").ToString, Lote:=DrRem("Lote").ToString, CveVentaDetalle:=CveVentaDetalleRem, CveMovimientoDetalleEntrada:=DrRem("CveMovimientoDetalle").ToString().ToEntero(), CveSeccionAlmacen:=-3) Then
                         ErrorCancelar = True
                         Exit For
                     End If
@@ -5320,7 +5328,7 @@ Namespace Modelos
             If Not ErrorCancelar Then
                 If DtEntradaDetalle IsNot Nothing Then
                     For Each Dr As DataRow In DtEntradaDetalle.Rows
-                        If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntradaDevRem, Dr("Cantidad").ToString.ToDecimal, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, CveAF:=Dr("CveAF").ToString.ToEntero, Serie:=Dr("Serie").ToString, CveMovimientoDetalleEntrada:=Dr("CveMovimientoDetalle").ToString().ToEntero(), CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero, Lote:=Dr("Lote").ToString) Then
+                        If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntradaDevRem, Dr("Cantidad").ToString.ToDecimal, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, CveAF:=Dr("CveAF").ToString.ToEntero, Serie:=Dr("Serie").ToString, CveMovimientoDetalleEntrada:=Dr("CveMovimientoDetalle").ToString().ToEntero(), CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero, Lote:=Dr("Lote").ToString, CveSeccionAlmacen:=-3) Then
                             ErrorCancelar = True
                             Exit For
                         End If
@@ -6097,6 +6105,28 @@ Namespace Modelos
         Public Sub SetCliente()
             If CveCliente > 0 Then
                 Cliente = New Modelos.ClienteModel(CveCliente, CveEmpresa)
+                If Me.CveClienteSucursal > 0 Then
+                    Dim ObjCliente As New ClsClientes()
+                    If ObjCliente.GetSucursales(CveCliente, Me.CveClienteSucursal) AndAlso ObjCliente.DtResultados.Rows.Count > 0 Then
+                        Me.ClienteSucursal = New Modelos.SucursalModel(ObjCliente.DtResultados.Rows(0))
+                    End If
+                    ObjCliente.Dispose()
+                Else
+                    Me.ClienteSucursal = New Modelos.SucursalModel()
+                    Me.ClienteSucursal.NoExt = Cliente.NoExt
+                    Me.ClienteSucursal.NoInt = Cliente.NoInt
+                    Me.ClienteSucursal.Localidad = Cliente.Localidad
+                    Me.ClienteSucursal.Direccion = Cliente.Direccion
+                    Me.ClienteSucursal.Colonia = Cliente.Colonia
+                    Me.ClienteSucursal.Municipio = Cliente.Localidad
+                    Me.ClienteSucursal.Estado = Cliente.Estado
+                    Me.ClienteSucursal.CP = Cliente.CP
+                    Me.ClienteSucursal.Pais = Cliente.Pais
+                    Me.ClienteSucursal.CorreoSucursal = Cliente.CorreoCotizacion
+                    Me.ClienteSucursal.TelefonoSucursal = Cliente.Telefono
+                    Me.ClienteSucursal.Sucursal = Cliente.Sucursal
+                    Me.ClienteSucursal.ImprimeNombreSucursal = Cliente.ImprimeNombreSucursal.ToString()
+                End If
             End If
         End Sub
         Public Sub SetMoneda()
@@ -9435,7 +9465,8 @@ Namespace Modelos
         Public Property ClaveSATColonia As String
         Public Property ClaveSATCP As String
         Public Property EsDistribuidor As Boolean
-
+        Public Property CorreoCotizacion As String
+        Public Property ImprimeNombreSucursal As Integer
     End Class
 
     <Serializable>