Cancelacion IE desbloqueo de prepolizas

NC de remision con Generacion de NC de Cargo

Ventas/Clientes.aspx.vb

@@ -8473,7 +8473,7 @@ Partial Class Clientes
     End Sub
 
 
-    Function FolioNotaCredito() As Boolean
+    Function FolioNotaCredito(Tipo As Integer) As Boolean
 
         FolioNotaAcumulador = 0
         SerieNotaAcumulador = ""
@@ -8485,7 +8485,7 @@ Partial Class Clientes
 
         If DTSucursales.Rows.Count > 0 Then
 
-            If ObjFolios.GetFolios("Egs", UsuarioActual.CveEmpresa) Then
+            If ObjFolios.GetFolios(If(Tipo = 1, "RNC", "Egs"), UsuarioActual.CveEmpresa) Then
 
                 Dim DT As DataTable
                 If UsuarioActual.CveSubProyecto > 0 Then
@@ -8862,7 +8862,7 @@ Partial Class Clientes
         Dim Folio As Integer = 0
         Dim Serie As String = ""
 
-        If FolioNotaCredito() Then
+        If FolioNotaCredito(Tipo) Then
             Folio = FolioNotaAcumulador
             Serie = SerieNotaAcumulador
         End If
@@ -8879,7 +8879,7 @@ Partial Class Clientes
         ObjFactura.CveMoneda = 1
         ObjFactura.Moneda = "Pesos"
         ObjFactura.MonedaSAT = "MXN"
-        ObjFactura.TipoDocto = "Egs"
+        ObjFactura.TipoDocto = If(Tipo = 1, "RNC", "Egs")
 
         ObjFactura.Folio = Folio
 
@@ -9013,7 +9013,7 @@ Partial Class Clientes
 
         End If
 
-        If ObjFactura.TipoDocto = "Egs" Then
+        If ObjFactura.TipoDocto.Contiene("Egs", "RNC") Then
             ObjFactura.CveTipoRelacion = -1
         End If