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
 

Ventas/ProductosServicios.aspx

@@ -130,7 +130,7 @@
                                         </div>
 
                                         <div class="row">
-                                            <div class="col-md-6">
+                                            <div class="col-md-12">
                                                 <div class="form-group form-md-line-input input-iconright">
                                                     <asp:TextBox ID="TxtPS" CssClass="form-control Mayuscula" runat="server" MaxLength="846"></asp:TextBox>
                                                     <label class="truncate" for="<%= TxtPS.ClientID.ToString()%>">Descripción del Producto / Servicio:</label>

Ventas/ProductosServicios.aspx.vb

@@ -212,6 +212,14 @@ Partial Class ProductosyServicios
 
             InicializaEcommerce()
 
+            If UsuarioActual.CveEmpresa.Contiene(141) Then
+                'DivDatos.Attributes("class") = "col-md-12"
+
+                DivDdlTipo.Visible = True
+                DdlTipoPSDes.Attributes.Add("onChange", "CreaDescripcionPS();")
+
+            End If
+
             If UsuarioActual.CveEmpresa.Contiene(1, 72, 80) And CvePS = -1 Then
                 'DivDatos.Attributes("class") = "col-md-12"
                 TxtPS.Enabled = False