+
@@ -2781,7 +2781,7 @@
-
+
diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb
index d27decf12..92af42596 100644
--- a/OC/OC.aspx.vb
+++ b/OC/OC.aspx.vb
@@ -4,6 +4,7 @@ Imports System.Data
Imports Extensiones
Imports System.IO
Imports GemBox.Spreadsheet
+Imports Newtonsoft.Json
Partial Class OC
Inherits ClsPaginas
@@ -2095,141 +2096,122 @@ Partial Class OC
End If
'Valida cantidad en contrato
- Dim ObjContratos As New ClsContratos
+
Dim TieneError As Boolean = False
- Dim Mensaje As String = ""
- Dim dttemp As DataTable = Nothing 'GlobalDTContratos(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveSubProyecto = {0}", DdlSubProyecto.SelectedValue.ToString))
- If dttemp IsNot Nothing AndAlso dttemp.Rows.Count > 0 Then
- Dim drContrato As DataRow = dttemp.Rows(0)
- If ObjContratos.GetContratosDetalle(drContrato("CveContrato").ToString.ToEntero, UsuarioActual.CveEmpresa) Then
- Dim dtContratodetalle As DataTable = ObjContratos.DtResultados.FiltraParametros(String.Format("CvePS = {0}", DdlP2.SelectedValue.ToString))
- If dtContratodetalle IsNot Nothing AndAlso dtContratodetalle.Rows.Count > 0 Then
- Dim drContratoDetalle As DataRow = dtContratodetalle(0)
- If Convert.ToBoolean(drContratoDetalle("LimitarCantidad")) Then
- If ObjContratos.GetReporteContratosAvancesDetalleControl(drContrato("CveContrato").ToString.ToEntero, UsuarioActual.CveEmpresa) Then
- Dim dtContratodetalleControl As DataTable = ObjContratos.DtResultados.FiltraParametros(String.Format("CvePS = {0}", DdlP2.SelectedValue.ToString))
- If dtContratodetalleControl IsNot Nothing AndAlso dtContratodetalleControl.Rows.Count > 0 Then
- Dim drContratoDetalleControl As DataRow = dtContratodetalleControl(0)
- If TxtCant.Text.Trim.ToDouble > drContratoDetalleControl("FaltanteCantidad").ToString.ToDouble Then
- Mensaje = String.Format("La cantidad del Producto/Servicio debe ser menor o igual a {0}", drContratoDetalleControl("FaltanteCantidad").ToString)
- TieneError = True
- End If
- Else
- Mensaje = "Este producto no pertence al contrato seleccionado"
- TieneError = True
- End If
- Else
- Mensaje = "Error al consultar el contrato"
- End If
- End If
- Else
- Mensaje = "Este producto no pertence al contrato seleccionado"
- TieneError = True
- End If
- Else
- Mensaje = "Error al consultar el contrato"
+ Dim dttemp As New DataTable ' GlobalDTContratos().FiltraParametros(String.Format("CveSubProyecto = {0}", DdlSubProyecto.SelectedValue.ToString))
+ dttemp.Columns.Add("CveSubProyecto", GetType(Integer))
+ dttemp.Columns.Add("CvePS", GetType(Integer))
+ dttemp.Columns.Add("Cantidad", GetType(Decimal))
+ dttemp.Columns.Add("PU", GetType(Decimal))
+
+ Dim DrPSValidar = dttemp.NewRow
+ DrPSValidar("CveSubProyecto") = DdlSubProyecto.SelectedValue.ToString.ToEntero
+ DrPSValidar("CvePS") = DdlP2.SelectedValue.ToString.ToEntero
+ DrPSValidar("Cantidad") = TxtCant.Text.Trim.ToDecimal
+ DrPSValidar("PU") = txtPrecioUnitario.Text.Trim.ToDecimal
+ dttemp.Rows.Add(DrPSValidar)
+ If UsuarioActual.Empresa.Funcionalidad(545) = "1" Then
+ Dim dtPSInvalidos As String = ValidarPSContrato(dttemp)
+ If dtPSInvalidos <> "" Then
+ Alert(dtPSInvalidos, TipoMensaje.MsgAdvertencia)
+ Exit Sub
End If
End If
- If Not TieneError Then
- ObjContratos.Dispose()
- If DtDetalle IsNot Nothing Then
- Dim DrPS = GlobalDTPS(CveEmpresaActual, CvePS:=DdlP2.SelectedValue.ToEntero).FiltroPrimero("")
- If DrPS Is Nothing Then
- Alert("Ocurrió un error al cargar la información del producto. Por favor vuelva a intentar.", TipoMensaje.MsgAdvertencia)
- Exit Sub
- End If
- If UsuarioActual.Empresa.Funcionalidad(532) = "1" Then
- Dim ObjCon As New ClsContratos
- Dim CvePresupuesto As Integer = 0
- Dim Autorizado As Double = 0
- Dim Ejercido As Double = 0
- If ObjCon.GetPresupuestos(-1, "-1", DdlSubProyecto.SelectedValue.ToEntero, 2, -1, UsuarioActual.CveEmpresa) Then
- If ObjCon.DtResultados.Rows.Count > 0 Then
- CvePresupuesto = ObjCon.DtResultados.Rows(0)("CvePresupuesto").ToString.ToEntero
- If CvePresupuesto > 0 Then
- If ObjCon.GetPresupuestosDetalle(CvePresupuesto, -1, UsuarioActual.CveEmpresa) Then
- If ObjCon.DtResultados.FiltraParametros($"CveClasificacion = {DdlClasificacion.SelectedValue.ToEntero} AND Importe > 0").Rows.Count > 0 Then
- Autorizado = ObjCon.DtResultados.FiltraParametros($"CveClasificacion = {DdlClasificacion.SelectedValue.ToEntero} AND Importe > 0").Rows(0)("Importe").ToString.ToDouble
- End If
+ If DtDetalle IsNot Nothing Then
+ Dim DrPS = GlobalDTPS(CveEmpresaActual, CvePS:=DdlP2.SelectedValue.ToEntero).FiltroPrimero("")
+ If DrPS Is Nothing Then
+ Alert("Ocurrió un error al cargar la información del producto. Por favor vuelva a intentar.", TipoMensaje.MsgAdvertencia)
+ Exit Sub
+ End If
+
+ If UsuarioActual.Empresa.Funcionalidad(532) = "1" Then
+ Dim ObjCon As New ClsContratos
+ Dim CvePresupuesto As Integer = 0
+ Dim Autorizado As Double = 0
+ Dim Ejercido As Double = 0
+ If ObjCon.GetPresupuestos(-1, "-1", DdlSubProyecto.SelectedValue.ToEntero, 2, -1, UsuarioActual.CveEmpresa) Then
+ If ObjCon.DtResultados.Rows.Count > 0 Then
+ CvePresupuesto = ObjCon.DtResultados.Rows(0)("CvePresupuesto").ToString.ToEntero
+ If CvePresupuesto > 0 Then
+ If ObjCon.GetPresupuestosDetalle(CvePresupuesto, -1, UsuarioActual.CveEmpresa) Then
+ If ObjCon.DtResultados.FiltraParametros($"CveClasificacion = {DdlClasificacion.SelectedValue.ToEntero} AND Importe > 0").Rows.Count > 0 Then
+ Autorizado = ObjCon.DtResultados.FiltraParametros($"CveClasificacion = {DdlClasificacion.SelectedValue.ToEntero} AND Importe > 0").Rows(0)("Importe").ToString.ToDouble
End If
- If ObjCon.GetPresupuestosRep(CvePresupuesto, -1, 1, $"01/09/{DateTime.Now.Year - 1}".ToDate, Now, UsuarioActual.CveEmpresa, DdlProyecto.SelectedValue.ToEntero,
- DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.CveUsuario, DdlClasificacion.SelectedValue.ToEntero) Then
- If ObjCon.DtResultados.Rows.Count > 0 Then
- Ejercido = ObjCon.DtResultados.Rows(0)("Ejercido").ToString.ToDouble
- End If
+ End If
+ If ObjCon.GetPresupuestosRep(CvePresupuesto, -1, 1, $"01/09/{DateTime.Now.Year - 1}".ToDate, Now, UsuarioActual.CveEmpresa, DdlProyecto.SelectedValue.ToEntero,
+ DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.CveUsuario, DdlClasificacion.SelectedValue.ToEntero) Then
+ If ObjCon.DtResultados.Rows.Count > 0 Then
+ Ejercido = ObjCon.DtResultados.Rows(0)("Ejercido").ToString.ToDouble
End If
End If
End If
End If
- ObjCon.Dispose()
+ End If
+ ObjCon.Dispose()
- If CvePresupuesto > 0 And Autorizado > 0 Then
- Dim Diferencia As Double = (Ejercido + If(txtPrecioUnitario.Text.ToDouble > 0, (txtPrecioUnitario.Text.ToDouble * TxtCant.Text.ToDouble) - TxtDescuentoAdd.Text.ToDouble, 0)) - Autorizado
- If Diferencia > 0 Then
- Alert($"No hay presupuesto disponible en el subproyecto
{DdlSubProyecto.SelectedItem.Text} y la clasificación
{DdlClasificacion.SelectedItem.Text} se excede por
{Diferencia.FormatoNumero}", TipoMensaje.MsgAdvertencia)
- Exit Sub
- End If
+ If CvePresupuesto > 0 And Autorizado > 0 Then
+ Dim Diferencia As Double = (Ejercido + If(txtPrecioUnitario.Text.ToDouble > 0, (txtPrecioUnitario.Text.ToDouble * TxtCant.Text.ToDouble) - TxtDescuentoAdd.Text.ToDouble, 0)) - Autorizado
+ If Diferencia > 0 Then
+ Alert($"No hay presupuesto disponible en el subproyecto
{DdlSubProyecto.SelectedItem.Text} y la clasificación
{DdlClasificacion.SelectedItem.Text} se excede por
{Diferencia.FormatoNumero}", TipoMensaje.MsgAdvertencia)
+ Exit Sub
End If
End If
-
-
- Dim RetISR As Double = DrPS("RetISR").ToString.ToDouble
- Dim RetIVA As Double = DrPS("RetIVA").ToString.ToDouble
- Dim IvaPS As Double = DrPS("IVA").ToString.ToDouble
-
- 'If IvaPS = -1 Then 'IVA DE LA SUCURSAL
- ' IvaPS = GlobalDTSubProyectos(-1, DdlSubProyecto.SelectedValue.ToEntero).FiltroPrimeroValor("IVA").ToDouble
- 'End If
-
- Dim IEPSPS As Double = DrPS("IEPSPorcentaje").ToString.ToDouble
- Dim IEPSPSIVA As Double = If(DrPS("IEPSGrabaIVA").ToString = "True", DrPS("IEPSPorcentaje").ToString.ToDouble, 0)
- Dim IdCuentaPorEjercer As Integer = If(HdnCveCuentaPorEjercer.Value = String.Empty, -1, HdnCveCuentaPorEjercer.Value.ToEntero)
- Dim IdCuentaComprometido As Integer = If(HdnCveCuentaComprometido.Value = String.Empty, -1, HdnCveCuentaComprometido.Value.ToEntero)
- Dim Proyecto As String = If(DdlProyecto.SelectedValue.ToString.ToEntero > 0, DdlProyecto.SelectedItem.Text, "Sin Proyecto")
- Dim SubProyecto As String = If(DdlSubProyecto.SelectedValue.ToString.ToEntero > 0, DdlSubProyecto.SelectedItem.Text, "Sin SubProyecto")
- Dim TotalPS As Double = If(txtPrecioUnitario.Text.ToDouble > 0, (txtPrecioUnitario.Text.ToDouble * TxtCant.Text.ToDouble) - TxtDescuentoAdd.Text.ToDouble, 0)
- Dim ImportePS As Double = If(txtPrecioUnitario.Text.ToDouble > 0, txtPrecioUnitario.Text.ToDouble, 0)
- Dim CveOrdenCompraDetalle As Integer = DtDetalle.MAX("CveOrdenCompraDetalle").ToEntero + 100
-
- 'Si es Proveedor Extranjero el IVA es 0%
- If GlobalDTCompProveedores(CveEmpresaActual).FiltraParametros($"CveProveedor = {DdlProveedores.SelectedValue} AND RFC = 'XEXX010101000'").Rows.Count = 1 Then
- IvaPS = 0
- End If
-
- AddPS(TxtCant.Text, DdlP2.SelectedValue.ToEntero, DdlP2.SelectedText, TxtObsPS.Text, ImportePS, TxtDescuentoAdd.Text.ToDouble, TotalPS,
- CboUnidadMedida.SelectedValue.ToEntero, IvaPS, IEPSPS, IEPSPSIVA, DdlClasificacion.SelectedValue.ToEntero, CboUnidadMedida.SelectedItem.Text, DdlClasificacion.SelectedItem.Text, DdlProyecto.SelectedValue.ToEntero, Proyecto,
- DdlSubProyecto.SelectedValue.ToEntero, SubProyecto, LblCodigo.Text, HdnCveActivoFijo.Value.ToEntero, 0, CveOrdenCompraDetalle, CveOrdenCompra, IdCuentaPorEjercer,
- IdCuentaComprometido, DdlACGeneral1.SelectedValue.ToEntero, DdlACGeneral2.SelectedValue.ToEntero, DdlACGeneral3.SelectedValue.ToEntero, DdlACGeneral4.SelectedValue.ToEntero,
- DdlACGeneral5.SelectedValue.ToEntero, RetIVA, RetISR, CveCultivoCuadroDetalle:=DdlCultivosCuadro.SelectedValue.ToEntero, Cuadro:=DdlCultivosCuadro.SelectedItem.Text)
-
- TxtCant.Text = ""
- CboUnidadMedida.SelectedIndex = 0
- DdlClasificacion.SelectedIndex = 0
- DdlP2.SelectedValue = "-1"
- DdlP2.SelectedText = "Seleccione un producto o servicio"
- txtPrecioUnitario.Text = ""
- TxtObsPS.Text = ""
- HdnCveActivoFijo.Value = ""
- LblCodigo.Text = ""
- LblCvePOA.Text = ""
- TxtCant.Focus()
-
- Total.Text = "0.00"
- TxtDescuentoAdd.Text = "0.00"
-
End If
- CargaSuperior()
- CargaDatosDetalles()
- UPPDetalle.Update()
- Else
- Alert(Mensaje, TipoMensaje.MsgAdvertencia)
+ Dim RetISR As Double = DrPS("RetISR").ToString.ToDouble
+ Dim RetIVA As Double = DrPS("RetIVA").ToString.ToDouble
+ Dim IvaPS As Double = DrPS("IVA").ToString.ToDouble
+
+ 'If IvaPS = -1 Then 'IVA DE LA SUCURSAL
+ ' IvaPS = GlobalDTSubProyectos(-1, DdlSubProyecto.SelectedValue.ToEntero).FiltroPrimeroValor("IVA").ToDouble
+ 'End If
+
+ Dim IEPSPS As Double = DrPS("IEPSPorcentaje").ToString.ToDouble
+ Dim IEPSPSIVA As Double = If(DrPS("IEPSGrabaIVA").ToString = "True", DrPS("IEPSPorcentaje").ToString.ToDouble, 0)
+ Dim IdCuentaPorEjercer As Integer = If(HdnCveCuentaPorEjercer.Value = String.Empty, -1, HdnCveCuentaPorEjercer.Value.ToEntero)
+ Dim IdCuentaComprometido As Integer = If(HdnCveCuentaComprometido.Value = String.Empty, -1, HdnCveCuentaComprometido.Value.ToEntero)
+ Dim Proyecto As String = If(DdlProyecto.SelectedValue.ToString.ToEntero > 0, DdlProyecto.SelectedItem.Text, "Sin Proyecto")
+ Dim SubProyecto As String = If(DdlSubProyecto.SelectedValue.ToString.ToEntero > 0, DdlSubProyecto.SelectedItem.Text, "Sin SubProyecto")
+ Dim TotalPS As Double = If(txtPrecioUnitario.Text.ToDouble > 0, (txtPrecioUnitario.Text.ToDouble * TxtCant.Text.ToDouble) - TxtDescuentoAdd.Text.ToDouble, 0)
+ Dim ImportePS As Double = If(txtPrecioUnitario.Text.ToDouble > 0, txtPrecioUnitario.Text.ToDouble, 0)
+ Dim CveOrdenCompraDetalle As Integer = DtDetalle.MAX("CveOrdenCompraDetalle").ToEntero + 100
+
+ 'Si es Proveedor Extranjero el IVA es 0%
+ If GlobalDTCompProveedores(CveEmpresaActual).FiltraParametros($"CveProveedor = {DdlProveedores.SelectedValue} AND RFC = 'XEXX010101000'").Rows.Count = 1 Then
+ IvaPS = 0
+ End If
+
+ AddPS(TxtCant.Text, DdlP2.SelectedValue.ToEntero, DdlP2.SelectedText, TxtObsPS.Text, ImportePS, TxtDescuentoAdd.Text.ToDouble, TotalPS,
+ CboUnidadMedida.SelectedValue.ToEntero, IvaPS, IEPSPS, IEPSPSIVA, DdlClasificacion.SelectedValue.ToEntero, CboUnidadMedida.SelectedItem.Text, DdlClasificacion.SelectedItem.Text, DdlProyecto.SelectedValue.ToEntero, Proyecto,
+ DdlSubProyecto.SelectedValue.ToEntero, SubProyecto, LblCodigo.Text, HdnCveActivoFijo.Value.ToEntero, 0, CveOrdenCompraDetalle, CveOrdenCompra, IdCuentaPorEjercer,
+ IdCuentaComprometido, DdlACGeneral1.SelectedValue.ToEntero, DdlACGeneral2.SelectedValue.ToEntero, DdlACGeneral3.SelectedValue.ToEntero, DdlACGeneral4.SelectedValue.ToEntero,
+ DdlACGeneral5.SelectedValue.ToEntero, RetIVA, RetISR, CveCultivoCuadroDetalle:=DdlCultivosCuadro.SelectedValue.ToEntero, Cuadro:=DdlCultivosCuadro.SelectedItem.Text)
+
+ TxtCant.Text = ""
+ CboUnidadMedida.SelectedIndex = 0
+ DdlClasificacion.SelectedIndex = 0
+ DdlP2.SelectedValue = "-1"
+ DdlP2.SelectedText = "Seleccione un producto o servicio"
+ txtPrecioUnitario.Text = ""
+ TxtObsPS.Text = ""
+ HdnCveActivoFijo.Value = ""
+ LblCodigo.Text = ""
+ LblCvePOA.Text = ""
+ TxtCant.Focus()
+
+ Total.Text = "0.00"
+ TxtDescuentoAdd.Text = "0.00"
+
End If
- ObjContratos.Dispose()
+
+ CargaSuperior()
+ CargaDatosDetalles()
+
+ UPPDetalle.Update()
End Sub
Private Sub AddPS(Cantidad As String, CvePS As Integer, PS As String, Observaciones As String, Importe As Double, Descuento As Double, Total As Double, CveUnidadMedida As Integer, IVAPS As Double, IEPSPS As Double, IEPSPSIVA As Double, CveClasificacion As Integer,
UM As String, Clasificacion As String, CveProyecto As Integer, Proyecto As String, CveSubProyecto As Integer, SubProyecto As String, CodigoAF As String, CveActivoFijo As Integer, TipoDato As Integer,
@@ -2505,6 +2487,15 @@ Partial Class OC
TieneError = True
End If
+ If UsuarioActual.Empresa.Funcionalidad(545) = "1" Then
+ Dim dtPSInvalidos As String = ValidarPSContrato(DtDetalle.FiltraParametros("", "", {"CveSubProyecto", "CvePS", "Cantidad", "PU"}))
+ If dtPSInvalidos <> "" Then
+ Alert(dtPSInvalidos, TipoMensaje.MsgAdvertencia)
+ TieneError = True
+ End If
+ End If
+
+
Return TieneError
End Function
Protected Sub BtnGuardar_Click(sender As Object, e As EventArgs) Handles BtnGuardar.Click
@@ -6369,8 +6360,8 @@ Partial Class OC
Protected 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 = AppDomain.CurrentDomain.BaseDirectory & file.patch
- Dim Tipo As String = If(file.Extencion.Contiene("xlsx", "xlsx", "xlsm", "xlsb"), "EXCEL", "CSV")
+ Dim Directorio As String = AppDomain.CurrentDomain.BaseDirectory & file.path
+ Dim Tipo As String = If(file.Extension.Contiene("xlsx", "xlsx", "xlsm", "xlsb"), "EXCEL", "CSV")
CargarArchivo(Directorio, file.filename, Tipo)
Else
Alert("No existe el archivo. Favor de subir un archivo excel a la plataforma.", TipoMensaje.MsgError)
@@ -7746,7 +7737,7 @@ Partial Class OC
Protected Sub BtnCargaExcelCot_Click(sender As Object, e As EventArgs)
If TxtExcelCot.getfiles().Archivos.Count > 0 Then
Dim file As Archivo = TxtExcelCot.getfiles().Archivos(0)
- Dim Directorio As String = AppDomain.CurrentDomain.BaseDirectory & file.patch
+ Dim Directorio As String = AppDomain.CurrentDomain.BaseDirectory & file.path
CargarArchivoCot(Directorio, file.filename)
CargaCotizaciones(CveOrdenCompra)
@@ -8522,8 +8513,9 @@ Partial Class OC
CargaSuperior()
CargaDatosDetalles()
-
- RegistraScript("$('#DivmodalConmtrato').modal('hide')")
+ If Not ChkContinualAgregandoControl.Checked Then
+ RegistraScript("$('#DivmodalConmtrato').modal('hide')")
+ End If
UPPDetalle.Update()
@@ -8544,4 +8536,40 @@ Partial Class OC
DdlCultivosCuadroEdit.SelectedValueExist(CveCultivoCuadroDetalle)
End Sub
+
+ Private Function ValidarPSContrato(DtPS As DataTable) As String
+ Dim Retorno As String = ""
+ Dim objContratos As New ClsContratos
+ Dim TempPS As String = JsonConvert.SerializeObject(DtPS).ToString
+ Dim MensajeProducto As String = ""
+ Dim MensajeCantidad As String = ""
+ Dim MensajeImporte As String = ""
+ If objContratos.ValidaPSContrato(TempPS) Then
+ If objContratos.DtResultados.Rows.Count > 0 Then
+ MensajeProducto = "Los siguientes productos no pertenece al contrato seleccionado: "
+ MensajeCantidad = "Los siguientes productos sobrepasan la cantidad faltante del contrato seleccionado: "
+ MensajeImporte = "Los siguientes productos sobrepasan los importes faltantes del contrato seleccionado: "
+ For Each dr As DataRow In objContratos.DtResultados.Rows
+ If dr("ProductoNoContratado").ToString.ToEntero = 1 Then
+ MensajeProducto += String.Format("
{0}", dr("PS"))
+ ElseIf dr("CantidadSobrePasada").ToString.ToEntero = 1 Then
+ MensajeCantidad += String.Format("
{0} - Cantidad maxima: {1}", dr("PS"), dr("FaltanteCantidad"))
+ ElseIf dr("ImporteSobrePasado").ToString.ToEntero = 1 Then
+ MensajeImporte += String.Format("
{0} - Importe maximo: {1}", dr("PS"), dr("FaltanteImporte"))
+ End If
+ Next
+ End If
+ End If
+
+ If MensajeProducto.Length <> 64 Then
+ Retorno = MensajeProducto
+ ElseIf MensajeCantidad.Length <> 84 Then
+ Retorno = MensajeCantidad
+ ElseIf MensajeImporte.Length <> 86 Then
+ Retorno = MensajeImporte
+ End If
+
+ Return Retorno
+
+ End Function
End Class
diff --git a/OI/MinutaDetalle.aspx.cs b/OI/MinutaDetalle.aspx.cs
index e6391f1ed..8c129d4e0 100644
--- a/OI/MinutaDetalle.aspx.cs
+++ b/OI/MinutaDetalle.aspx.cs
@@ -335,8 +335,8 @@ public partial class OI_MinutaDetalle : ClsPaginas
foreach (Archivo item in TxtArchivo.getfiles().Archivos)
{
archivoname = item.filenameO;
- ArchivoExtencion = string.Format("{0}{1}", (item.Extencion.Length > 0 ? "." : ""), item.Extencion);
- rutaarchivoOri = string.Format("{0}{1}{2}", AppDomain.CurrentDomain.BaseDirectory, item.patch, item.filename);
+ ArchivoExtencion = string.Format("{0}{1}", (item.Extension.Length > 0 ? "." : ""), item.Extension);
+ rutaarchivoOri = string.Format("{0}{1}{2}", AppDomain.CurrentDomain.BaseDirectory, item.path, item.filename);
}
bool Continuar = true;
@@ -490,8 +490,8 @@ public partial class OI_MinutaDetalle : ClsPaginas
foreach (Archivo item in TxtTareaArchivo.getfiles().Archivos)
{
archivoname = item.filenameO;
- ArchivoExtencion = string.Format("{0}{1}", (item.Extencion.Length > 0 ? "." : ""), item.Extencion);
- rutaarchivoOri = string.Format("{0}{1}{2}", AppDomain.CurrentDomain.BaseDirectory, item.patch, item.filename);
+ ArchivoExtencion = string.Format("{0}{1}", (item.Extension.Length > 0 ? "." : ""), item.Extension);
+ rutaarchivoOri = string.Format("{0}{1}{2}", AppDomain.CurrentDomain.BaseDirectory, item.path, item.filename);
}
@@ -614,8 +614,8 @@ public partial class OI_MinutaDetalle : ClsPaginas
foreach (Archivo item in TxtAgendaArchivo.getfiles().Archivos)
{
archivoname = item.filenameO;
- ArchivoExtencion = string.Format("{0}{1}", (item.Extencion.Length > 0 ? "." : ""), item.Extencion);
- rutaarchivoOri = string.Format("{0}{1}{2}", AppDomain.CurrentDomain.BaseDirectory, item.patch, item.filename);
+ ArchivoExtencion = string.Format("{0}{1}", (item.Extension.Length > 0 ? "." : ""), item.Extension);
+ rutaarchivoOri = string.Format("{0}{1}{2}", AppDomain.CurrentDomain.BaseDirectory, item.path, item.filename);
}
@@ -709,8 +709,8 @@ public partial class OI_MinutaDetalle : ClsPaginas
foreach (Archivo item in Txtfilecomentario.getfiles().Archivos)
{
archivoname = item.filenameO;
- ArchivoExtencion = string.Format("{0}{1}", (item.Extencion.Length > 0 ? "." : ""), item.Extencion);
- rutaarchivoOri = string.Format("{0}{1}{2}", AppDomain.CurrentDomain.BaseDirectory, item.patch, item.filename);
+ ArchivoExtencion = string.Format("{0}{1}", (item.Extension.Length > 0 ? "." : ""), item.Extension);
+ rutaarchivoOri = string.Format("{0}{1}{2}", AppDomain.CurrentDomain.BaseDirectory, item.path, item.filename);
}
using (ClsOIEventos objoi = new ClsOIEventos())
{
diff --git a/OI/Proyecto.aspx.cs b/OI/Proyecto.aspx.cs
index 2e6630d24..24749ecf1 100644
--- a/OI/Proyecto.aspx.cs
+++ b/OI/Proyecto.aspx.cs
@@ -134,8 +134,8 @@ public partial class OI_Proyecto : ClsPaginas
//foreach (Archivo item in TxtArchivo.getfiles().Archivos)
//{
// archivoname = item.filenameO;
- // ArchivoExtencion = string.Format("{0}{1}", (item.Extencion.Length > 0 ? "." : ""), item.Extencion);
- // rutaarchivoOri = string.Format("{0}{1}{2}", ModExtensiones.DirectorioBaseEmpresas, item.patch, item.filename);
+ // ArchivoExtencion = string.Format("{0}{1}", (item.Extension.Length > 0 ? "." : ""), item.Extension);
+ // rutaarchivoOri = string.Format("{0}{1}{2}", ModExtensiones.DirectorioBaseEmpresas, item.path, item.filename);
//}
diff --git a/OI/RepProyectos.aspx.cs b/OI/RepProyectos.aspx.cs
index 640866951..4e142a81e 100644
--- a/OI/RepProyectos.aspx.cs
+++ b/OI/RepProyectos.aspx.cs
@@ -100,8 +100,8 @@ public partial class OI_RepProyectos : ClsPaginas
//foreach (Archivo item in TxtArchivo.getfiles().Archivos)
//{
// archivoname = item.filenameO;
- // ArchivoExtencion = string.Format("{0}{1}", (item.Extencion.Length > 0 ? "." : ""), item.Extencion);
- // rutaarchivoOri = string.Format("{0}{1}{2}", ModExtensiones.DirectorioBaseEmpresas, item.patch, item.filename);
+ // ArchivoExtencion = string.Format("{0}{1}", (item.Extension.Length > 0 ? "." : ""), item.Extension);
+ // rutaarchivoOri = string.Format("{0}{1}{2}", ModExtensiones.DirectorioBaseEmpresas, item.path, item.filename);
//}
diff --git a/OI/TareaDetalle.aspx.cs b/OI/TareaDetalle.aspx.cs
index 58b263e8c..ea868bc5d 100644
--- a/OI/TareaDetalle.aspx.cs
+++ b/OI/TareaDetalle.aspx.cs
@@ -715,8 +715,8 @@ public partial class OI_TareaDetalle : ClsPaginas
foreach (Archivo item in TxtArchivo.getfiles().Archivos)
{
archivoname = item.filenameO;
- ArchivoExtencion = string.Format("{0}{1}", (item.Extencion.Length > 0 ? "." : ""), item.Extencion);
- rutaarchivoOri = string.Format("{0}{1}{2}", AppDomain.CurrentDomain.BaseDirectory, item.patch, item.filename);
+ ArchivoExtencion = string.Format("{0}{1}", (item.Extension.Length > 0 ? "." : ""), item.Extension);
+ rutaarchivoOri = string.Format("{0}{1}{2}", AppDomain.CurrentDomain.BaseDirectory, item.path, item.filename);
}
@@ -1118,8 +1118,8 @@ public partial class OI_TareaDetalle : ClsPaginas
foreach (Archivo item in Txtfilecomentario.getfiles().Archivos)
{
archivoname = item.filenameO;
- ArchivoExtencion = string.Format("{0}{1}", (item.Extencion.Length > 0 ? "." : ""), item.Extencion);
- rutaarchivoOri = string.Format("{0}{1}{2}", AppDomain.CurrentDomain.BaseDirectory, item.patch, item.filename);
+ ArchivoExtencion = string.Format("{0}{1}", (item.Extension.Length > 0 ? "." : ""), item.Extension);
+ rutaarchivoOri = string.Format("{0}{1}{2}", AppDomain.CurrentDomain.BaseDirectory, item.path, item.filename);
}
using (ClsOIEventos objoi = new ClsOIEventos())
{
@@ -1209,8 +1209,8 @@ public partial class OI_TareaDetalle : ClsPaginas
foreach (Archivo item in txtActualizarArchivo.getfiles().Archivos)
{
archivoname = item.filenameO;
- ArchivoExtencion = string.Format("{0}{1}", (item.Extencion.Length > 0 ? "." : ""), item.Extencion);
- rutaarchivoOri = string.Format("{0}{1}{2}", AppDomain.CurrentDomain.BaseDirectory, item.patch, item.filename);
+ ArchivoExtencion = string.Format("{0}{1}", (item.Extension.Length > 0 ? "." : ""), item.Extension);
+ rutaarchivoOri = string.Format("{0}{1}{2}", AppDomain.CurrentDomain.BaseDirectory, item.path, item.filename);
}
string ruta = string.Format("{0}OIFiles\\", UsuarioActual.Empresa.Ruta);
if (!System.IO.Directory.Exists(ruta))
diff --git a/PyME/Sistemas/WizardRegistro.aspx.vb b/PyME/Sistemas/WizardRegistro.aspx.vb
index f1e9aaa76..ca9193bc0 100644
--- a/PyME/Sistemas/WizardRegistro.aspx.vb
+++ b/PyME/Sistemas/WizardRegistro.aspx.vb
@@ -493,8 +493,8 @@ Partial Class Sistemas_WizardRegistro
Case 4
If TxtFormatoFactura.getfiles().Archivos().Count > 0 Then
Dim FormatoFactura As Archivo = TxtFormatoFactura.getfiles().Archivos(0)
- Dim PathFormato = $"{UsuarioActual.Empresa.Ruta}Formatos\"
- Dim dirFormato As String = String.Format("{0}\Factura.{1}", PathFormato, FormatoFactura.Extencion)
+ Dim PathFormato = $"{ModExtensiones.DirectorioBaseEmpresas}Empresas\{CveEmpresa}\Formatos\"
+ Dim dirFormato As String = String.Format("{0}\Factura.{1}", PathFormato, FormatoFactura.Extension)
If File.Exists(dirFormato) Then
My.Computer.FileSystem.DeleteFile(dirFormato)
End If
@@ -1940,7 +1940,7 @@ Partial Class Sistemas_WizardRegistro
If TxtAddUnidadesMedida.getfiles().Archivos.Count > 0 Then
Dim file As Archivo = TxtAddUnidadesMedida.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 Tipo As String = If(file.Extension.Contiene("xlsx", "xlsx", "xlsm", "xlsb"), "EXCEL", "CSV")
CargarExcelUnidadesMedida(Directorio, file.filename, Tipo)
Else
Alert("No existe el archivo.Favor de subir un archivo csv o excel a la plataforma", TipoMensaje.MsgError)
@@ -2433,7 +2433,7 @@ Partial Class Sistemas_WizardRegistro
If TxtAddProveedor.getfiles().Archivos.Count > 0 Then
Dim file As Archivo = TxtAddProveedor.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 Tipo As String = If(file.Extension.Contiene("xlsx", "xlsx", "xlsm", "xlsb"), "EXCEL", "CSV")
CargarArchivoProveedor(Directorio, file.filename, Tipo)
Else
Alert("No existe el archivo.Favor de subir un archivo csv o excel a la plataforma", TipoMensaje.MsgError)
@@ -2615,7 +2615,7 @@ Partial Class Sistemas_WizardRegistro
If TxtAddClientes.getfiles().Archivos.Count > 0 Then
Dim file As Archivo = TxtAddClientes.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 Tipo As String = If(file.Extension.Contiene("xlsx", "xlsx", "xlsm", "xlsb"), "EXCEL", "CSV")
CargarArchivoCliente(Directorio, file.filename, Tipo)
Else
Alert("No existe el archivo.Favor de subir un archivo csv o excel a la plataforma", TipoMensaje.MsgError)
@@ -2807,7 +2807,7 @@ Partial Class Sistemas_WizardRegistro
If TxtAddFactura.getfiles().Archivos.Count > 0 Then
Dim file As Archivo = TxtAddFactura.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 Tipo As String = If(file.Extension.Contiene("xlsx", "xlsx", "xlsm", "xlsb"), "EXCEL", "CSV")
CargarArchivoFactura(Directorio, file.filename, Tipo)
Else
Alert("No existe el archivo.Favor de subir un archivo csv o excel a la plataforma", TipoMensaje.MsgError)
diff --git a/RH/ActualizacionMasiva.aspx.vb b/RH/ActualizacionMasiva.aspx.vb
index 800133704..4251563ed 100644
--- a/RH/ActualizacionMasiva.aspx.vb
+++ b/RH/ActualizacionMasiva.aspx.vb
@@ -327,7 +327,7 @@ Partial Class RH_ActualizacionMasiva
End If
End Using
If continuar Then
- Dim FileExtension As String = fileItem.Extencion.ToUpper()
+ Dim FileExtension As String = fileItem.Extension.ToUpper()
If FileExtension = "XLS" Or FileExtension = "XLSX" Or FileExtension = "CSV" Then
Else
diff --git a/Sistemas/Librerias.aspx b/Sistemas/Librerias.aspx
index 2477770a8..068e6a572 100644
--- a/Sistemas/Librerias.aspx
+++ b/Sistemas/Librerias.aspx
@@ -195,7 +195,7 @@ color:blue;mso-ansi-language:EN-US">:
TextBox>
-
'.VB
'obtiene el listado de archivos cargados
Dim Filesgral As List(Of Archivo) = TxtLogo.getfiles().Archivos
'este if se puede reemplazar por un foreach en caso de que se dee agregar mas de un archivo
If Filesgral.Count > 0 Then
Dim fileItem As Archivo = Filesgral(0)
Dim Path As String = HttpContext.Current.Request.ApplicationPath
Path = HttpContext.Current.Request.MapPath(Path)
Path = String.Format("{0}Imagenes\Empresas\", Path)
'aqui se elimina el archivo anterior en este caso particular se esta actualizando el archivo y para que no exista conflicto al reemplazar el archvio
If Not Directory.Exists(Path) Then
Directory.CreateDirectory(Path)
End If
'para poner el nombre del archivo esto te puede ayudar
'fileItem.filenameO : Nombre original del archivo sin tick
'fileItem.Extencion : extension del archivo
'fileItem.filename : este es el nombre del archivo con un tick el cual lo debe har unico en el servidor
Path = String.Format("{0}Logo_{1}.png", Path, idEmpresa)
If File.Exists(Path) Then
File.Delete(Path)
End If
'este es el paso mas importante aqui se mueve el archivo de la carpeta temporal a nuestra carpeta deseada. fileItem.FileUrl es la ubicacion del archivo temporal en nuestro servidor
My.Computer.FileSystem.MoveFile(fileItem.FileUrl, Path)
End If
'no olvides limpiar el textvox para que no tenga archivos cargados cuando lo vuelvan a usar
TxtLogo.Text = ""