-
+
diff --git a/Ventas/ProductosServicios.aspx.vb b/Ventas/ProductosServicios.aspx.vb
index 8dbe4521d..c35cc0d46 100644
--- a/Ventas/ProductosServicios.aspx.vb
+++ b/Ventas/ProductosServicios.aspx.vb
@@ -251,6 +251,10 @@ Partial Class ProductosyServicios
'DdlTipoPSDes.Attributes.Add("onChange", "CreaDescripcionPS();")
End If
+ If UsuarioActual.CveEmpresa.Contiene(72, 80) Then
+ TxtPS.CssClass = "form-control Mayuscula"
+ End If
+
If UsuarioActual.CveEmpresa.Contiene(72, 80) And CvePS = -1 Then
'DivDatos.Attributes("class") = "col-md-12"
@@ -1327,9 +1331,9 @@ Partial Class ProductosyServicios
End If
Else
- If CodigoBarrasCargado.Length > 0 And TxtCodigoBarras.Text.Length = 0 Then
- TxtCodigoBarras.Text = CodigoBarrasCargado
- End If
+ 'If CodigoBarrasCargado.Length > 0 And TxtCodigoBarras.Text.Length = 0 Then 'RMF.2021.07.30, se comentó, por no entender la validaci´n, y nodeja limpiar codigos
+ ' TxtCodigoBarras.Text = CodigoBarrasCargado
+ 'End If
Dim PSS As String = TxtPS.Text.Trim.Replace("|", "")
If UsuarioActual.CveEmpresa.Contiene(1, 72, 80) Then PSS = PSS.ToUpper
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 72e383ea8..3680a6f79 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -22763,8 +22763,8 @@ Partial Class Ventas
Private Sub BtnCargaExcel_Click(sender As Object, e As EventArgs) Handles BtnCargaExcel.Click
If TxtExcel.getfiles().Archivos.Count > 0 Then
Dim file As Archivo = TxtExcel.getfiles().Archivos(0)
- Dim Directorio As String = ModExtensiones.DirectorioBaseEmpresas & file.patch
- Dim Tipo As String = If(file.Extencion.Contiene("xlsx", "xlsx", "xlsm", "xlsb"), "EXCEL", "CSV")
+ Dim Directorio As String = ModExtensiones.DirectorioBaseEmpresas & file.path
+ Dim Tipo As String = If(file.Extension.Contiene("xlsx", "xlsx", "xlsm", "xlsb"), "EXCEL", "CSV")
CargarArchivo(Directorio, file.filename, Tipo, file.FileUrl)
Else
Alert("No existe el archivo. Favor de subir un archivo excel a la plataforma.", TipoMensaje.MsgError)