From d1b3308bfa9ec5daaaa854206f417db2f95f26c5 Mon Sep 17 00:00:00 2001
From: janeth arvizu <janeth.arvizu@adssistemas.mx>
Date: Mon, 14 Oct 2019 11:37:29 -0700
Subject: [PATCH] =?UTF-8?q?Cancelar=20Remisi=C3=B3n=20de=20Nota=20de=20cr?=
 =?UTF-8?q?=C3=A9dito?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 App_Code/Modelos.vb   | 4 ++--
 Ventas/Ventas.aspx.vb | 4 ++--
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb
index d1ecd1e37..cf6f124e3 100644
--- a/App_Code/Modelos.vb
+++ b/App_Code/Modelos.vb
@@ -3950,7 +3950,7 @@ Namespace Modelos
             If CveEstatusFacturaAsignado <= 0 Then
                 Try
                     If ObjFactura.FolioFiscal <> "" Then
-                        If ObjFactura.TipoDocto.Contiene("Ing", "Ant", "Dev", "Egs") Then
+                        If ObjFactura.TipoDocto.Contiene("Ing", "Ant", "Dev", "Egs", "RNC") Then
 
                             Dim Vigencia = Timbrado.VerificarVigenciaSAT(FolioFiscal, UsuarioActual.Empresa.RFC, RFCReceptor, TotalT.ToString(), UsuarioActual.Empresa.FacturaProduccion)
 
@@ -4096,7 +4096,7 @@ Namespace Modelos
             Try
                 If ObjFactura.TipoDocto.Contiene("Egs", "Dev") Then
                     CvePlantillaPoliza = 7
-                ElseIf ObjFactura.TipoDocto.Contiene("Ing", "Rem", "Ant") Then
+                ElseIf ObjFactura.TipoDocto.Contiene("Ing", "Rem", "Ant", "RNC") Then
                     CvePlantillaPoliza = 4
                 Else
                     CvePlantillaPoliza = 4
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index a6871aff3..c58e67a7c 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -3442,7 +3442,7 @@ Partial Class Ventas
                         LblAlertRefacInv.Visible = True
                     End If
 
-                    If DdlTipoComprobante.SelectedValue.Contiene("Egs", "Ing", "Ant", "Dev", "Rem", "DPe") AndAlso Not CveEstatus.Contiene(4, 5, 12, 13, 20) Then
+                    If DdlTipoComprobante.SelectedValue.Contiene("Egs", "Ing", "Ant", "Dev", "Rem", "DPe", "RNC") AndAlso Not CveEstatus.Contiene(4, 5, 12, 13, 20) Then
                         If UsuarioActual.TienePermisoProceso(159) Then
                             Dim TienePermiso As String = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, -1).FiltroPrimeroValor("CveSubProyecto", String.Format("CveSubProyecto = {0}", DbRowVenta("CveSubProyecto")))
                             If TienePermiso <> "" Then
@@ -17673,7 +17673,7 @@ Partial Class Ventas
 
         'End If
 
-        If DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Dev", "Egs") Then
+        If DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Dev", "Egs", "RNC") Then
             Dim sb As New StringBuilder()
             sb.Append("La factura se encuentra en el  siguiente estatus del SAT:<br/>")