Merge branch 'master' of http://192.168.10.111:8383/SIG

Ventas/Clientes.aspx.vb

@@ -1253,7 +1253,7 @@ Partial Class Clientes
                 'CargaFormaPago33()
                 'CargaComboCFDI()
 
-                'LnkPorcentajePrecios.Visible = True
+                LnkPorcentajePrecios.Visible = True
 
                 If UsuarioActual.TienePermisoProceso(261) Then LnkVerGrafica.Visible = True
 
@@ -8472,7 +8472,7 @@ Partial Class Clientes
     End Sub
 
 
-    Function FolioNotaCredito() As Boolean
+    Function FolioNotaCredito(Tipo As Integer) As Boolean
 
         FolioNotaAcumulador = 0
         SerieNotaAcumulador = ""
@@ -8484,7 +8484,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
@@ -8861,7 +8861,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
@@ -8878,7 +8878,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
 
@@ -9012,7 +9012,7 @@ Partial Class Clientes
 
         End If
 
-        If ObjFactura.TipoDocto = "Egs" Then
+        If ObjFactura.TipoDocto.Contiene("Egs", "RNC") Then
             ObjFactura.CveTipoRelacion = -1
         End If