--GDiaz: forzar dev almacen al cancelar

Ventas/PVCobranza.aspx.vb

@@ -659,8 +659,10 @@ Partial Class Ventas_PVCobranza
                 Dim msBuild As New StringBuilder()
                 Dim MsgTimbrado As String = ""
 
+                Dim DebeTimbrar As Boolean = False
+
                 'SI SE GENERO FACTURA DE INGRESO, TIMBRARLA DESPUES DE REALIZAR EL PAGO
-                If respFactura IsNot Nothing Then
+                If DebeTimbrar AndAlso respFactura IsNot Nothing Then
                     'VERIFICA SI SE GENERO NC
                     If respNC IsNot Nothing Then
                         AjustarTimbre(respFactura.Factura, respNC.Factura)

Ventas/Ventas.aspx.vb

@@ -26667,7 +26667,13 @@ Partial Class Ventas
                         GenerarIxC = ChkGeneraIxC.Checked
                     End If
 
-                    resp = ObjFacturaCancelacion.CancelarFactura(If(ChkDevAlm.Checked, 1, 0), ListaRemisionesCancelar, CveMotivoCancelacion:=DdlMotivoCancelacion.SelectedValue.ToEntero(), Motivo:=TxtMotivoCancelacion.Text.Trim(), CveEstadoCancelacion:=Me.CveEstadoCancelacion, AplicaCancelacionConPagos:=AplicaCancelacionConPagos, GeneraIxCconPago:=GenerarIxC)
+                    Dim ForzarDevolucion As Boolean = False
+
+                    If ChkDevAlm.Checked AndAlso UsuarioActual.CveEmpresa = 189 Then
+                        ForzarDevolucion = True
+                    End If
+
+                    resp = ObjFacturaCancelacion.CancelarFactura(If(ChkDevAlm.Checked, 1, 0), ListaRemisionesCancelar, CveMotivoCancelacion:=DdlMotivoCancelacion.SelectedValue.ToEntero(), Motivo:=TxtMotivoCancelacion.Text.Trim(), CveEstadoCancelacion:=Me.CveEstadoCancelacion, AplicaCancelacionConPagos:=AplicaCancelacionConPagos, GeneraIxCconPago:=GenerarIxC, ForzarDevolucion:=ForzarDevolucion)
                     strMensaje.Append(resp.Mensaje)
                     Dim DtBonificaciones As DataTable = Nothing