-- no timbrar para e189

Ventas/Ventas.aspx.vb

@@ -11156,6 +11156,10 @@ Partial Class Ventas
                                         DebeTimbrar = False
                                     End If
                                 End If
+                                'RMF, codigo temporal
+                                If UsuarioActual.CveEmpresa.Contiene(189) Then
+                                    DebeTimbrar = False
+                                End If
 
                                 'Si es AMORTIZACIÓN ANTICIPO SOBRE FACTURA EN CERO no debe timbrar
                                 If DdlTipoAmortizacionAnticipo.SelectedValue = "3" Then
@@ -17985,9 +17989,15 @@ Partial Class Ventas
                 End If
 
                 Dim SeTimbro As Boolean = False
+                Dim DebeTimbrar As Boolean = True
+                If UsuarioActual.CveEmpresa.Contiene(189) Then
+                    DebeTimbrar = False
+                End If
 
                 Try
-                    SeTimbro = ObjTimbrado.TimbrarFactura(UsuarioActual, ObjFactura)
+                    If DebeTimbrar Then
+                        SeTimbro = ObjTimbrado.TimbrarFactura(UsuarioActual, ObjFactura)
+                    End If
                 Catch ex As Exception
                     SeTimbro = False
                 End Try