") - strBody.Append(" ") - strBody.Append("
") - strBody.Append(" ")
- strBody.Append("")
- strBody.Append("
")
- strBody.Append("")
- Catch ex As Exception
- OnError("Ocurrio un error al general el correo.", ex)
- End Try
- Return strBody.ToString()
- End Function
-#End Region
-
+ End Function
+
+#Region "N O T F I C A C I O N - T R A Y E C T O S"
+ Private Sub EnviarCorreoTrayectos(ByVal context As HttpContext, CveTrayecto As Integer)
+ Dim Retorno As JObject = New JObject(New JProperty("EnvioCorreo", False), New JProperty("Mensaje", ""))
+ Try
+ Dim DtInfoTrayecto As DataTable = Nothing
+ Dim DtTrayecto As DataTable = Nothing
+
+ Using ObjGPS As New ClsGPS
+ If ObjGPS.GetTrayectos(CveTrayecto, -1, -1) AndAlso ObjGPS.DtResultados.Rows.Count > 0 Then
+ DtTrayecto = ObjGPS.DtResultados.Copy()
+ End If
+
+ If ObjGPS.GetTrayectosDatos(CveTrayecto) Then
+ DtInfoTrayecto = ObjGPS.DtSetResultados.Tables(0).Copy()
+ End If
+ End Using
+
+ If DtTrayecto IsNot Nothing AndAlso DtInfoTrayecto IsNot Nothing AndAlso DtInfoTrayecto.Rows.Count > 0 Then
+ Dim RowTrayecto As DataRow = DtTrayecto.Rows(0)
+ Dim RowInfo As DataRow = DtInfoTrayecto.Rows(0)
+
+ Dim EnviarLiga As Boolean = CBool(RowTrayecto("EnviarLiga").ToString())
+
+ Dim Asunto As String = "Estatus de Trayecto"
+ Dim Cuerpo As String = GeneraCorreo(CveTrayecto, EnviarLiga, RowInfo)
+ Dim Correos As String = RowTrayecto("CorreosNotificacion").ToString()
+
+ Dim ObjMail As New ClsSisMail
+ If ObjMail.SendMail(ClsPaginas.EmpresaNotificaciones, Correos, Asunto, Cuerpo) Then
+ Retorno("EnvioCorreo") = True
+ Retorno("Mensaje") = "El correo fue enviado correctamente"
+ Else
+ Retorno("EnvioCorreo") = False
+ Retorno("Mensaje") = "Ocurrió un error al enviar el correo"
+ End If
+
+ End If
+ Catch ex As Exception
+ OnError("Ocurrió un error al enviar el correo", ex)
+ End Try
+
+ context.Response.Write(Retorno.ToString())
+ End Sub
+
+ Protected Function GeneraCorreo(CveTrayecto As Integer, EnviarLiga As Boolean, Row As DataRow) As String
+ Dim strBody As New StringBuilder
+ Try
+ strBody.Append(" ")
+ strBody.Append(" ")
+ strBody.Append(" ")
+ strBody.Append(" ")
+ strBody.Append(" ")
+ strBody.Append(" ") - strBody.Append(" ") - strBody.Append("
") - strBody.Append("") + strBody.Append(" ") + strBody.Append("
") + strBody.Append(" ")
+ strBody.Append("")
+ strBody.Append("
")
+ strBody.Append("")
+ Catch ex As Exception
+ OnError("Ocurrio un error al general el correo.", ex)
+ End Try
+ Return strBody.ToString()
+ End Function
+#End Region
+
End Class
\ No newline at end of file
diff --git a/Ashx/SIGWeb.ashx b/Ashx/SIGWeb.ashx
index c4c0f3fcb..8ae61eb7e 100644
--- a/Ashx/SIGWeb.ashx
+++ b/Ashx/SIGWeb.ashx
@@ -106,7 +106,7 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
Dim usuario As Usuario = UsuarioActual(context)
If Not IsNothing(usuario) Then
- Url = String.Format("{0}Empresas\{1}\{2}", AppDomain.CurrentDomain.BaseDirectory, usuario.CveEmpresa, Url)
+ Url = String.Format("{0}Empresas\{1}\{2}", ModExtensiones.DirectorioBaseEmpresas, usuario.CveEmpresa, Url)
Dim FileInfo As FileInfo = New FileInfo(Url)
If FileInfo.Exists Then
context.Response.ContentType = "image/png"
diff --git a/Bancos/CargarConciliacionesBancarias.aspx.vb b/Bancos/CargarConciliacionesBancarias.aspx.vb
index 27ab10ceb..662e7ca6c 100644
--- a/Bancos/CargarConciliacionesBancarias.aspx.vb
+++ b/Bancos/CargarConciliacionesBancarias.aspx.vb
@@ -77,7 +77,7 @@ Partial Class Bancos_CargarConciliacionesBancarias
Protected Sub BtnCargaExcel_Click(sender As Object, e As EventArgs)
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 Directorio As String = ModExtensiones.DirectorioBaseEmpresas & file.patch
Dim Tipo As String = If(file.Extencion.Contiene("xlsx", "xlsx", "xlsm", "xlsb"), "EXCEL", "CSV")
CargaExcel(Directorio, file.filename, Tipo)
Else
diff --git a/Bancos/CreditosPagoMultiple.aspx.vb b/Bancos/CreditosPagoMultiple.aspx.vb
index 70a1873b4..615b0c0b8 100644
--- a/Bancos/CreditosPagoMultiple.aspx.vb
+++ b/Bancos/CreditosPagoMultiple.aspx.vb
@@ -216,7 +216,7 @@ Partial Class Bancos_CreditosPagoMultiple
Dim filemove As String = ""
Dim Comprobante As String = ""
For Each fileItem As Archivo In filesgral
- Comprobante = IO.Path.GetExtension(String.Format("{0}Temp\{1}", AppDomain.CurrentDomain.BaseDirectory, fileItem.filename)).Replace(".", "")
+ Comprobante = IO.Path.GetExtension(String.Format("{0}Temp\{1}", ModExtensiones.DirectorioBaseEmpresas, fileItem.filename)).Replace(".", "")
filemove = fileItem.filename
Next
diff --git a/Bancos/Devoluciones.aspx.cs b/Bancos/Devoluciones.aspx.cs
index bebd16b8c..da3d4ae99 100644
--- a/Bancos/Devoluciones.aspx.cs
+++ b/Bancos/Devoluciones.aspx.cs
@@ -510,7 +510,7 @@ public partial class Bancos_Devoluciones : ClsPaginas
if (!archivo.Exists)
{
- archivo = new System.IO.FileInfo(String.Format(@"{0}\Empresas\Grales\Formatos\CHQ.rdlc", AppDomain.CurrentDomain.BaseDirectory));
+ archivo = new System.IO.FileInfo(String.Format(@"{0}\Empresas\Grales\Formatos\CHQ.rdlc", ModExtensiones.DirectorioBaseEmpresas));
}
}
else if (DdlTipoTransanccion.SelectedValue.ToEntero().Contiene(6) && UsuarioActual.CveEmpresa == 72)
diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb
index 25548fcf6..c787fdd5c 100644
--- a/Bancos/IE.aspx.vb
+++ b/Bancos/IE.aspx.vb
@@ -2471,7 +2471,7 @@ Partial Class Bancos_IE
If CveIE > 0 Then
- If DdlTipoTransaccion.SelectedValue = "1" AndAlso usuarioactual.cveempresa <> 119 Then FolioFijo = ObjIE.Folio.ToEntero 'cheque
+ If DdlTipoTransaccion.SelectedValue = "1" AndAlso UsuarioActual.CveEmpresa <> 119 Then FolioFijo = ObjIE.Folio.ToEntero 'cheque
CvePrePoliza = ObjMov.AddPrePolizas("Bancos/IE " + If(Request("Opcion") IsNot Nothing, Request("Opcion").ToString, "") + " " + RBL.SelectedValue, CvePlantillaPoliza, TxtImporte.Text.Trim.ToDouble, TxtImporte.Text.Trim.ToDouble, tCveMoneda, TxtFechaDocumento.Text.ToDate, PagueseA, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FolioFijo:=FolioFijo, ReglaFolioPoliza:=ObjComp.ObtenerReglaFolio(DdlTipoTransaccion.SelectedValue, Nothing, UsuarioActual.CveEmpresa), CveTipoPoliza:=ObjMov.ObtenerTipoPoliza(DdlTipoTransaccion.SelectedValue, "-1", UsuarioActual.CveEmpresa))
'valida prepoliza
@@ -2728,6 +2728,7 @@ Partial Class Bancos_IE
Dim TipoMovtoAplicar = False
For Each Dr As DataRow In ObjMov.DtResultados.FiltraParametros("CveConceptoContable IN (13,8,9,38)").Rows
+ Dim PorcentajeImpuesto As Decimal = Dr("PorcentajeImpuesto").ToString.ToDecimal()
CveConceptoContableAplciar = Dr("CveConceptoContable").ToString.ToEntero
TipoMovtoAplicar = Not CBool(Dr("TipoMovto").ToString)
ImporteAplicar = (Dr("Importe").ToString.ToDecimal * PorcentajePagoDevDin).RoundSQL()
@@ -2735,7 +2736,7 @@ Partial Class Bancos_IE
ImporteAplicarME = (Dr("ImporteME").ToString.ToDecimal * PorcentajePagoDevDin).RoundSQL()
IdCtaContableAplicar = Dr("IdCtaContable").ToString.ToEntero
- If ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoAplicar, ImporteAplicar, ReferenciaAplicar, CveConceptoContableAplciar, ConceptoAplicar, Now, IdCtaContableAplicar, -1, CveIE, CveVenta:=CveVentaDevDin, CveCliente:=CveCliente, ImporteMX:=ImporteAplicarMN, ImporteME:=ImporteAplicarME) Then
+ If ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoAplicar, ImporteAplicar, ReferenciaAplicar, CveConceptoContableAplciar, ConceptoAplicar, Now, IdCtaContableAplicar, -1, CveIE, CveVenta:=CveVentaDevDin, CveCliente:=CveCliente, ImporteMX:=ImporteAplicarMN, ImporteME:=ImporteAplicarME, PorcentajeImpuesto:=PorcentajeImpuesto) Then
Select Case CveConceptoContableAplciar
Case 13
CveConceptoContableAplciar = 61
@@ -2747,7 +2748,7 @@ Partial Class Bancos_IE
CveConceptoContableAplciar = 39
End Select
TipoMovtoAplicar = Not TipoMovtoAplicar
- If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoAplicar, ImporteAplicar, ReferenciaAplicar, CveConceptoContableAplciar, ConceptoAplicar, Now, IdCtaContableAplicar, -1, CveIE, CveVenta:=CveVentaDevDin, CveCliente:=CveCliente, ImporteMX:=ImporteAplicarMN, ImporteME:=ImporteAplicarME) Then
+ If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoAplicar, ImporteAplicar, ReferenciaAplicar, CveConceptoContableAplciar, ConceptoAplicar, Now, IdCtaContableAplicar, -1, CveIE, CveVenta:=CveVentaDevDin, CveCliente:=CveCliente, ImporteMX:=ImporteAplicarMN, ImporteME:=ImporteAplicarME, PorcentajeImpuesto:=PorcentajeImpuesto) Then
MsgError = "Ocurrió un error al registrar el asiento de impuestos de devolución"
Exit Select
End If
@@ -3276,7 +3277,7 @@ Partial Class Bancos_IE
ElseIf DdlTipoTransaccion.SelectedValue.ToEntero.Contiene(1) Then
Archivo = New System.IO.FileInfo(String.Format("{0}Formatos/CHQ-{1}.rdlc", UsuarioActual.Empresa.Ruta, DdlCuenta.SelectedValue.ToEntero))
If Not Archivo.Exists Then
- Archivo = New System.IO.FileInfo(String.Format("{0}\Empresas\Grales\Formatos\CHQ.rdlc", AppDomain.CurrentDomain.BaseDirectory))
+ Archivo = New System.IO.FileInfo(String.Format("{0}\Empresas\Grales\Formatos\CHQ.rdlc", ModExtensiones.DirectorioBaseEmpresas))
End If
ElseIf DdlTipoTransaccion.SelectedValue.ToEntero.Contiene(6) And UsuarioActual.CveEmpresa = 72 Then
Archivo = New System.IO.FileInfo(String.Format("{0}Formatos/ComprobanteEgreso.rdlc", UsuarioActual.Empresa.Ruta, DdlCuenta.SelectedValue.ToEntero))
@@ -4442,8 +4443,8 @@ Partial Class Bancos_IE
#Region " CARGAR - COMPROBANTE "
Protected Sub BtnConfirmaComprobante_Click(sender As Object, e As EventArgs)
- Dim DirectorioGuardar = String.Format("{0}Empresas\{1}\IE", Request.PhysicalApplicationPath, UsuarioActual.CveEmpresa)
- Dim ArchivoTemporal = String.Format("{0}Empresas\{1}\Temp\{2}", Request.PhysicalApplicationPath, UsuarioActual.CveEmpresa, Session("FileUpload").ToString)
+ Dim DirectorioGuardar = String.Format("{0}Empresas\{1}\IE", ModExtensiones.DirectorioBaseEmpresas, UsuarioActual.CveEmpresa)
+ Dim ArchivoTemporal = String.Format("{0}Empresas\{1}\Temp\{2}", ModExtensiones.DirectorioBaseEmpresas, UsuarioActual.CveEmpresa, Session("FileUpload").ToString)
If Session("FileUpload").ToString <> String.Empty AndAlso File.Exists(ArchivoTemporal) Then
Dim Extension As String = Path.GetExtension(ArchivoTemporal)
diff --git a/Bancos/IE2.aspx.vb b/Bancos/IE2.aspx.vb
index fabb39aa6..dd2087068 100644
--- a/Bancos/IE2.aspx.vb
+++ b/Bancos/IE2.aspx.vb
@@ -1598,8 +1598,8 @@ Partial Class Bancos_IE
#Region " CARGAR - COMPROBANTE "
Protected Sub BtnConfirmaComprobante_Click(sender As Object, e As EventArgs)
- Dim DirectorioGuardar = String.Format("{0}Empresas\{1}\IE", Request.PhysicalApplicationPath, UsuarioActual.CveEmpresa)
- Dim ArchivoTemporal = String.Format("{0}Empresas\{1}\Temp\{2}", Request.PhysicalApplicationPath, UsuarioActual.CveEmpresa, Session("FileUpload").ToString)
+ Dim DirectorioGuardar = String.Format("{0}Empresas\{1}\IE", ModExtensiones.DirectorioBaseEmpresas, UsuarioActual.CveEmpresa)
+ Dim ArchivoTemporal = String.Format("{0}Empresas\{1}\Temp\{2}", ModExtensiones.DirectorioBaseEmpresas, UsuarioActual.CveEmpresa, Session("FileUpload").ToString)
If Session("FileUpload").ToString <> String.Empty AndAlso File.Exists(ArchivoTemporal) Then
Dim Extension As String = Path.GetExtension(ArchivoTemporal)
diff --git a/Bancos/PagoAcreedor.aspx.cs b/Bancos/PagoAcreedor.aspx.cs
index 535b52b64..34d0a9b14 100644
--- a/Bancos/PagoAcreedor.aspx.cs
+++ b/Bancos/PagoAcreedor.aspx.cs
@@ -571,7 +571,7 @@ public partial class Bancos_PagoAcreedor : ClsPaginas
if (!archivo.Exists)
{
- archivo = new System.IO.FileInfo(String.Format(@"{0}\Empresas\Grales\Formatos\CHQ.rdlc", AppDomain.CurrentDomain.BaseDirectory));
+ archivo = new System.IO.FileInfo(String.Format(@"{0}\Empresas\Grales\Formatos\CHQ.rdlc", ModExtensiones.DirectorioBaseEmpresas));
}
}
else if (DdlTipoTransaccion.SelectedValue.ToEntero().Contiene(6) && UsuarioActual.CveEmpresa == 72)
@@ -845,7 +845,7 @@ public partial class Bancos_PagoAcreedor : ClsPaginas
if (!archivo.Exists)
{
- archivo = new System.IO.FileInfo(String.Format(@"{0}\Empresas\Grales\Formatos\CHQ.rdlc", AppDomain.CurrentDomain.BaseDirectory));
+ archivo = new System.IO.FileInfo(String.Format(@"{0}\Empresas\Grales\Formatos\CHQ.rdlc", ModExtensiones.DirectorioBaseEmpresas));
}
}
else if (DdlTipoTransanccionPrestamo.SelectedValue.ToEntero().Contiene(6) && UsuarioActual.CveEmpresa == 72)
diff --git a/Bancos/PagoDeudor.aspx.cs b/Bancos/PagoDeudor.aspx.cs
index 0a066a52f..6e56741cc 100644
--- a/Bancos/PagoDeudor.aspx.cs
+++ b/Bancos/PagoDeudor.aspx.cs
@@ -506,7 +506,7 @@ public partial class Bancos_PagoDeudor : ClsPaginas
if (!archivo.Exists)
{
- archivo = new System.IO.FileInfo(String.Format(@"{0}\Empresas\Grales\Formatos\CHQ.rdlc", AppDomain.CurrentDomain.BaseDirectory));
+ archivo = new System.IO.FileInfo(String.Format(@"{0}\Empresas\Grales\Formatos\CHQ.rdlc", ModExtensiones.DirectorioBaseEmpresas));
}
}
else if (DdlTipoTransaccionPrestamo.SelectedValue.ToEntero().Contiene(6) && UsuarioActual.CveEmpresa == 72)
@@ -908,7 +908,7 @@ public partial class Bancos_PagoDeudor : ClsPaginas
if (!archivo.Exists)
{
- archivo = new System.IO.FileInfo(String.Format(@"{0}\Empresas\Grales\Formatos\CHQ.rdlc", AppDomain.CurrentDomain.BaseDirectory));
+ archivo = new System.IO.FileInfo(String.Format(@"{0}\Empresas\Grales\Formatos\CHQ.rdlc", ModExtensiones.DirectorioBaseEmpresas));
}
}
else if (DdlTipoTransaccion.SelectedValue.ToEntero().Contiene(6) && UsuarioActual.CveEmpresa == 72)
diff --git a/Bancos/PolizaCheque.aspx.vb b/Bancos/PolizaCheque.aspx.vb
index 91ae90038..0a8276153 100644
--- a/Bancos/PolizaCheque.aspx.vb
+++ b/Bancos/PolizaCheque.aspx.vb
@@ -211,25 +211,25 @@ Partial Class Bancos_PolizaCheque
End Sub
Private Sub CargaCuenta()
- DdlCuenta.Items.Clear()
-
- Dim dt As DataTable = GlobalDTBancosCuentas(UsuarioActual.CveUsuario)
-
-
-
-
+ DdlCuenta.Items.Clear()
+
+ Dim dt As DataTable = GlobalDTBancosCuentas(UsuarioActual.CveUsuario)
+
+
+
+
If DdlTipoTransaccion.SelectedValue.ToEntero = 3 Then
dt = dt.FiltraParametros("CveTipoCuenta = 7")
End If
'cuando es layout
- If DdlTipoTransaccion.SelectedValue.ToEntero = 9 Then
+ If DdlTipoTransaccion.SelectedValue.ToEntero = 9 Then
dt = dt.FiltraParametros(String.Format("CveMoneda = {0}", 1))
dt = dt.FiltraParametros("UsaLayout = 1")
- End If
-
- 'cuando es layout Por Grupos
- If DdlTipoTransaccion.SelectedValue.ToEntero = 17 Then
+ End If
+
+ 'cuando es layout Por Grupos
+ If DdlTipoTransaccion.SelectedValue.ToEntero = 17 Then
dt = dt.FiltraParametros(String.Format("CveMoneda = {0}", 1))
dt = dt.FiltraParametros("UsaLayoutGrupos = 1")
End If
@@ -1212,9 +1212,9 @@ Partial Class Bancos_PolizaCheque
End If
End If
Return Retorno
- End Function
-
-
-
+ End Function
+
+
+
End Class
diff --git a/Bancos/PrestamoPersonal.aspx.cs b/Bancos/PrestamoPersonal.aspx.cs
index fc10b964d..45868524e 100644
--- a/Bancos/PrestamoPersonal.aspx.cs
+++ b/Bancos/PrestamoPersonal.aspx.cs
@@ -410,7 +410,7 @@ public partial class Bancos_PrestamoPersonal : ClsPaginas
if (!archivo.Exists)
{
- archivo = new System.IO.FileInfo(String.Format(@"{0}\Empresas\Grales\Formatos\CHQ.rdlc", AppDomain.CurrentDomain.BaseDirectory));
+ archivo = new System.IO.FileInfo(String.Format(@"{0}\Empresas\Grales\Formatos\CHQ.rdlc", ModExtensiones.DirectorioBaseEmpresas));
}
}
else if (DdlTipoTransaccion.SelectedValue.ToEntero().Contiene(6) && UsuarioActual.CveEmpresa == 72)
@@ -670,7 +670,7 @@ public partial class Bancos_PrestamoPersonal : ClsPaginas
if (!archivo.Exists)
{
- archivo = new System.IO.FileInfo(String.Format(@"{0}\Empresas\Grales\Formatos\CHQ.rdlc", AppDomain.CurrentDomain.BaseDirectory));
+ archivo = new System.IO.FileInfo(String.Format(@"{0}\Empresas\Grales\Formatos\CHQ.rdlc", ModExtensiones.DirectorioBaseEmpresas));
}
}
else if (DdlTipoTransanccionPrestamo.SelectedValue.ToEntero().Contiene(6) && UsuarioActual.CveEmpresa == 72)
diff --git a/Bancos/RepCobrado.aspx.vb b/Bancos/RepCobrado.aspx.vb
index 05e1a0d61..29b9d94e8 100644
--- a/Bancos/RepCobrado.aspx.vb
+++ b/Bancos/RepCobrado.aspx.vb
@@ -134,7 +134,7 @@ Partial Class Ventas_RepRecuperacion
If DdlCuentaBancaria.SelectedValue <> "-1" Then StrFiltro.AppendFormat(" Cuenta Bancaria: {0}", DdlCuentaBancaria.SelectedItem.Text)
Dim RutaPDF As String
- Dim Ruta As String = $"{AppDomain.CurrentDomain.BaseDirectory}Empresas\{UsuarioActual.CveEmpresa}\"
+ Dim Ruta As String = $"{ModExtensiones.DirectorioBaseEmpresas}Empresas\{UsuarioActual.CveEmpresa}\"
RutaPDF = $"{Ruta}\Formatos\RepRecuperacion.rdlc"
If Not File.Exists(RutaPDF) Then
RutaPDF = "Empresas/Grales/Formatos/RepRecuperacion.rdlc"
diff --git a/Bancos/RepCobradoDetalle.aspx.vb b/Bancos/RepCobradoDetalle.aspx.vb
index 90671a616..b37cec1e1 100644
--- a/Bancos/RepCobradoDetalle.aspx.vb
+++ b/Bancos/RepCobradoDetalle.aspx.vb
@@ -193,7 +193,7 @@ Partial Class Ventas_RepRecuperacionDetalle
If DdlProveedorSucursal.SelectedValue <> "-1" Then StrFiltro.AppendFormat(" Proveedor Sucursal: {0}", DdlProveedorSucursal.SelectedItem.Text)
Dim RutaPDF As String
- Dim Ruta As String = $"{AppDomain.CurrentDomain.BaseDirectory}Empresas\{UsuarioActual.CveEmpresa}\"
+ Dim Ruta As String = $"{ModExtensiones.DirectorioBaseEmpresas}Empresas\{UsuarioActual.CveEmpresa}\"
RutaPDF = $"{Ruta}\Formatos\RepRecuperacionDetalle.rdlc"
If Not File.Exists(RutaPDF) Then
RutaPDF = "Empresas/Grales/Formatos/RepRecuperacionDetalle.rdlc"
diff --git a/Bancos/Reportes.aspx.vb b/Bancos/Reportes.aspx.vb
index 8ad3eeb40..1f22c766f 100644
--- a/Bancos/Reportes.aspx.vb
+++ b/Bancos/Reportes.aspx.vb
@@ -141,7 +141,7 @@ Partial Class Bancos_Reportes
rv.LocalReport.DataSources.Clear()
rv.LocalReport.DataSources.Add(rds)
rv.LocalReport.DataSources.Add(rds2)
- rv.LocalReport.ReportPath = AppDomain.CurrentDomain.BaseDirectory & "Bancos\Reportes\rptChequeMovimientos.rdlc"
+ rv.LocalReport.ReportPath = ModExtensiones.DirectorioBaseEmpresas & "Bancos\Reportes\rptChequeMovimientos.rdlc"
rv.LocalReport.Refresh()
Dim paramList As New List(Of ReportParameter)
diff --git a/Bancos/ReportesOLD.aspx.vb b/Bancos/ReportesOLD.aspx.vb
index afc90b056..aac1c48b9 100644
--- a/Bancos/ReportesOLD.aspx.vb
+++ b/Bancos/ReportesOLD.aspx.vb
@@ -64,7 +64,7 @@ Partial Class Bancos_Reportes
rv.LocalReport.DataSources.Clear()
rv.LocalReport.DataSources.Add(rds)
rv.LocalReport.DataSources.Add(rds2)
- rv.LocalReport.ReportPath = AppDomain.CurrentDomain.BaseDirectory & "Bancos\Reportes\rptChequeMovimientos.rdlc"
+ rv.LocalReport.ReportPath = ModExtensiones.DirectorioBaseEmpresas & "Bancos\Reportes\rptChequeMovimientos.rdlc"
rv.LocalReport.Refresh()
Dim paramList As New List(Of ReportParameter)
diff --git a/CRM/Acercamiento.aspx.cs b/CRM/Acercamiento.aspx.cs
index 9bd14d662..bc1ce9c1a 100644
--- a/CRM/Acercamiento.aspx.cs
+++ b/CRM/Acercamiento.aspx.cs
@@ -1407,7 +1407,7 @@ public partial class CRM_Acercamiento : ClsPaginas
if ((CveArchivo > 0))
{
string NombreNuevo = string.Format("{0}{1}", CveArchivo, FileExtension);
- string DirectorioNuevo = string.Format("{0}\\Empresas\\{1}\\Acercamientos\\{2}\\Imagenes\\", AppDomain.CurrentDomain.BaseDirectory, UsuarioActual.CveEmpresa, CveAcercamiento);
+ string DirectorioNuevo = string.Format("{0}\\Empresas\\{1}\\Acercamientos\\{2}\\Imagenes\\", ModExtensiones.DirectorioBaseEmpresas, UsuarioActual.CveEmpresa, CveAcercamiento);
if (!Directory.Exists(DirectorioNuevo))
{
Directory.CreateDirectory(DirectorioNuevo);
diff --git a/CRM/EmpresaCRM.aspx b/CRM/EmpresaCRM.aspx
index e136089ec..9ff6a1393 100644
--- a/CRM/EmpresaCRM.aspx
+++ b/CRM/EmpresaCRM.aspx
@@ -606,7 +606,7 @@
") + strBody.Append(" ") + strBody.Append("
") + strBody.Append("
<%--
diff --git a/CRM/EmpresaCRM.aspx.cs b/CRM/EmpresaCRM.aspx.cs
index 1ecfcadff..8f63e3791 100644
--- a/CRM/EmpresaCRM.aspx.cs
+++ b/CRM/EmpresaCRM.aspx.cs
@@ -684,7 +684,14 @@ public partial class CRM_EmpresaCRM : ClsPaginas
DdlMedioCaptacionAcercamiento.Items.Clear();
DdlMedioCaptacionAcercamiento.DataSource = DtMedioCaptacion.FiltraParametros(String.Format("CveTipoProceso = {0}",DdlTipoProceso.SelectedValue.ToEntero()));
DdlMedioCaptacionAcercamiento.DataBind();
- DdlMedioCaptacionAcercamiento.Items.Insert(0,new ListItem("Seleccione","-1"));
+ if (DdlTipoProceso.SelectedValue != "-1")
+ {
+ DdlMedioCaptacionAcercamiento.Enabled = true;
+ }else
+ {
+ DdlMedioCaptacionAcercamiento.Items.Insert(0,new ListItem("Seleccione","-1"));
+ DdlMedioCaptacionAcercamiento.Enabled = false;
+ }
DdlProbabilidadAcercamiento.Items.Clear();
DdlProbabilidadAcercamiento.DataSource = DtProbabilidadAcercamiento.FiltraParametros(String.Format("CveTipoProceso = {0}", DdlTipoProceso.SelectedValue.ToEntero()));
@@ -1310,7 +1317,11 @@ public partial class CRM_EmpresaCRM : ClsPaginas
DdlTipoProceso.DataSource = ObjCRM.DtResultados;
if (ObjCRM.DtResultados.Rows.Count > 0)
+ {
DdlTipoProceso.Items.Insert(0, new ListItem("Seleccione ", "-1"));
+
+ DdlMedioCaptacionAcercamiento.Enabled = false;
+ }
DdlTipoProceso.DataBind();
}
@@ -1413,8 +1424,14 @@ public partial class CRM_EmpresaCRM : ClsPaginas
int CveAcercamiento = -1;
- CveAcercamiento = ObjCRM.AddAcercamiento(CveEmpresaCRM, CveContactoPrincipal, CveTipoProceso, CveEtapaProcesoActual, CveVendedor, CveMedioCaptacion, CveRechazoMotivo, CveProbabilidadAcercamiento,
- FechaApertura, NombreAcercamiento, Descripcion, Importe, Comision, Prioridad, UsuarioActual.CveEmpresa, CveUsuarioIng);
+ if (ObjCRM.DtResultados.Rows.Count > 0)
+ {
+ CveAcercamiento = ObjCRM.AddAcercamiento(CveEmpresaCRM, CveContactoPrincipal, CveTipoProceso, CveEtapaProcesoActual, CveVendedor, CveMedioCaptacion, CveRechazoMotivo, CveProbabilidadAcercamiento,
+ FechaApertura, NombreAcercamiento, Descripcion, Importe, Comision, Prioridad, UsuarioActual.CveEmpresa, CveUsuarioIng);
+ }else
+ {
+ Alert("No tiene Etapa Proceso con el Tipo Proceso seleccionado",ModExtensiones.TipoMensaje.MsgAdvertencia);
+ }
if (CveAcercamiento > 0)
{
@@ -1461,6 +1478,7 @@ public partial class CRM_EmpresaCRM : ClsPaginas
#region "PERMISOS"
protected void VerificaPermisos()
{
+
if (CveEmpresaCRM > 0)
{
if (!UsuarioActual.TienePermisoProceso(250))
diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 8d1499581..a75f1fc4f 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -613,7 +613,7 @@ Partial Class Compras_Compras
'Private ReadOnly Property Ruta As String
' Get
- ' Return AppDomain.CurrentDomain.BaseDirectory & "Empresas\" & UsuarioActual.CveEmpresa & "\"
+ ' Return ModExtensiones.DirectorioBaseEmpresas & "Empresas\" & UsuarioActual.CveEmpresa & "\"
' End Get
'End Property
@@ -1704,7 +1704,7 @@ Partial Class Compras_Compras
Dim dr As DataRow = ObjeFacturas.DtResultados.Rows(0) ' no toma la cero, porque es el totalizador
Dim XMLDoc As New XmlDocument
- Dim Archivo As String = String.Format("{0}Empresas\{1}\Compras\{2}\{3}", AppDomain.CurrentDomain.BaseDirectory, UsuarioActual.CveEmpresa, dr("RFCDe"), dr("XML"))
+ Dim Archivo As String = String.Format("{0}Empresas\{1}\Compras\{2}\{3}", ModExtensiones.DirectorioBaseEmpresas, UsuarioActual.CveEmpresa, dr("RFCDe"), dr("XML"))
If IO.File.Exists(Archivo) Then
Dim Validada As Boolean = True
diff --git a/Compras/EvaluacionProveedor.aspx.vb b/Compras/EvaluacionProveedor.aspx.vb
index b842df48b..879754a15 100644
--- a/Compras/EvaluacionProveedor.aspx.vb
+++ b/Compras/EvaluacionProveedor.aspx.vb
@@ -10,26 +10,46 @@ Imports System.Linq
Partial Class Compras_EvaluacionProveedor
Inherits ClsPaginas
#Region "P R O P I E D A D E S"
- Private Property CveEvaluacionProveedor() As Integer
Get
+ Private Property CveEvaluacionProveedor() As Integer
+ Get
Return If(IsNothing(ViewState("CveEvaluacionProveedor")), -1, CInt(ViewState("CveEvaluacionProveedor")))
- End Get
Set
- ViewState("CveEvaluacionProveedor") = Value
End Set
End Property
- Private Property CveProveedor() As Integer
Get
+ End Get
+ Set
+ ViewState("CveEvaluacionProveedor") = Value
+ End Set
+ End Property
+ Private Property CveProveedor() As Integer
+ Get
Return If(IsNothing(ViewState("CveProveedor")), -1, CInt(ViewState("CveProveedor")))
- End Get
Set
- ViewState("CveProveedor") = Value
End Set
End Property
- Private Property CveCompra() As Integer
Get
+ End Get
+ Set
+ ViewState("CveProveedor") = Value
+ End Set
+ End Property
+ Private Property CveCompra() As Integer
+ Get
Return If(IsNothing(ViewState("CveCompra")), -1, CInt(ViewState("CveCompra")))
- End Get
Set
- ViewState("CveCompra") = Value
End Set
End Property
- Private Property DtPreguntas() As DataTable
Get
+ End Get
+ Set
+ ViewState("CveCompra") = Value
+ End Set
+ End Property
+ Private Property DtPreguntas() As DataTable
+ Get
Return If(IsNothing(ViewState("DtPreguntas")), New DataTable(), DirectCast(ViewState("DtPreguntas"), DataTable))
- End Get
Set
- ViewState("DtPreguntas") = Value
End Set
End Property
- Private Property CorreoEnvio() As String
Get
+ End Get
+ Set
+ ViewState("DtPreguntas") = Value
+ End Set
+ End Property
+ Private Property CorreoEnvio() As String
+ Get
Return If(IsNothing(ViewState("CorreoEnvio")), "", ViewState("CorreoEnvio").ToString())
- End Get
Set
- ViewState("CorreoEnvio") = Value
End Set
End Property
+ End Get
+ Set
+ ViewState("CorreoEnvio") = Value
+ End Set
+ End Property
#End Region
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
If Not IsPostBack Then
@@ -264,7 +284,7 @@ Partial Class Compras_EvaluacionProveedor
Dim archivoCarta As New ClsSisMail.ArchivoMail()
archivoCarta.NombreArchivo = "Carta Evaluacion.pdf"
Try
- Dim PathRoot As String = Server.MapPath("/")
+ Dim PathRoot As String = ModExtensiones.DirectorioBaseEmpresas
Dim Documento As String = "CartaProveedor.docx"
Dim PathSource As String = $"{UsuarioActual.Empresa.Ruta}\Formatos\Plantillas\{Documento}"
Dim PathDestino As String = PathRoot & "Temp\" & Now.Ticks & Documento
@@ -298,7 +318,7 @@ Partial Class Compras_EvaluacionProveedor
Dim archivoCarta As New ClsSisMail.ArchivoMail()
archivoCarta.NombreArchivo = "Formato Evaluacion Proveedor.pdf"
Try
- Dim PathRoot As String = Server.MapPath("/")
+ Dim PathRoot As String = ModExtensiones.DirectorioBaseEmpresas
Dim Documento As String = "FormatoEvaluacionProveedor.docx"
Dim PathSource As String = $"{UsuarioActual.Empresa.Ruta}\Formatos\Plantillas\{Documento}"
Dim PathDestino As String = PathRoot & "Temp\" & Now.Ticks & Documento
diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb
index 131a8528e..5d0a34f8c 100644
--- a/Compras/PopUpVerFactura.aspx.vb
+++ b/Compras/PopUpVerFactura.aspx.vb
@@ -15,8 +15,8 @@ Imports Stimulsoft.Report.Web
Partial Class PopUpVerFactura
Inherits ClsPaginas
- Private Shared missing As Object = System.Reflection.Missing.Value
-
+ Private Shared missing As Object = System.Reflection.Missing.Value
+
#Region " PROPIEDADES "
Public Property DtMovimientos() As DataTable
Get
@@ -68,7 +68,7 @@ Partial Class PopUpVerFactura
End Property
Private ReadOnly Property Ruta As String
Get
- Return AppDomain.CurrentDomain.BaseDirectory & "Empresas\" & UsuarioActual.CveEmpresa & "\"
+ Return ModExtensiones.DirectorioBaseEmpresas & "Empresas\" & UsuarioActual.CveEmpresa & "\"
End Get
End Property
Private ReadOnly Property DomicilioFiscalCompu As String
@@ -83,18 +83,18 @@ Partial Class PopUpVerFactura
End If
Return ""
End Get
- End Property
- 'Private Property SessionPorImpresion As Boolean
- ' Get
- ' Return CBool(IfNull(ViewState("SessionPorImpresion"), False, ViewState("SessionPorImpresion")))
- ' End Get
- ' Set(value As Boolean)
- ' ViewState("SessionPorImpresion") = value
- ' End Set
- 'End Property
+ End Property
+ 'Private Property SessionPorImpresion As Boolean
+ ' Get
+ ' Return CBool(IfNull(ViewState("SessionPorImpresion"), False, ViewState("SessionPorImpresion")))
+ ' End Get
+ ' Set(value As Boolean)
+ ' ViewState("SessionPorImpresion") = value
+ ' End Set
+ 'End Property
#End Region
-
-
+
+
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
If Not IsPostBack Then
'CREA EL OBJECTO USUARIO A PARTIR DEL TOKEN
@@ -130,6 +130,30 @@ Partial Class PopUpVerFactura
Dim Path As String = String.Format("{0}Ventas\{1}\{2}", UsuarioActual.Empresa.Ruta, Request("RFC"), Request("FileV"))
Dim Archivo As New System.IO.FileInfo(Path)
+ If Archivo.Exists Then
+ HttpContext.Current.Response.Clear()
+ HttpContext.Current.Response.ClearContent()
+ HttpContext.Current.Response.ContentType = If(IO.Path.GetExtension(Archivo.Name) = "xml", "application/xml", "application/pdf")
+ HttpContext.Current.Response.AppendHeader("Content-disposition", String.Format("attachment; filename={0}", Archivo.Name))
+ HttpContext.Current.Response.AddHeader("Content-Length", Archivo.Length.ToString())
+ HttpContext.Current.Response.TransmitFile(Path)
+ 'HttpContext.Current.Response.Flush()
+ HttpContext.Current.Response.End()
+ End If
+ Archivo = Nothing
+
+ ElseIf Request("File") IsNot Nothing AndAlso Request("TipoDocto") IsNot Nothing AndAlso Request("TipoArchivo") IsNot Nothing Then
+ Dim Path As String = "" ' String.Format("{0}Ventas\{1}\{2}", UsuarioActual.Empresa.Ruta, Request("RFC"), Request("FileV"))
+
+ Select Case Request("TipoArchivo")
+ Case "PDF"
+ Path = String.Format("{0}PDF\{1}\{2}", UsuarioActual.Empresa.Ruta, Request("TipoDocto"), Request("File"))
+ Case "XML"
+ Path = String.Format("{0}XML\{1}\{2}", UsuarioActual.Empresa.Ruta, Request("TipoDocto"), Request("File"))
+ End Select
+
+ Dim Archivo As New System.IO.FileInfo(Path)
+
If Archivo.Exists Then
HttpContext.Current.Response.Clear()
HttpContext.Current.Response.ClearContent()
@@ -174,10 +198,10 @@ Partial Class PopUpVerFactura
End If
- End Sub
-
+ End Sub
+
#Region "U S U A R I O - T O K E N"
-
+
Private Function ValidaUsuarioSistema(CveEmpresa As Integer, Optional CveUsuario As Integer = 100) As Usuario
Dim UsuarioToken As Usuario = Nothing
@@ -211,9 +235,9 @@ Partial Class PopUpVerFactura
UsuarioToken.Empresa = ObjEmpresa.Empresa
End If
ObjEmpresa.Dispose()
- End Sub
+ End Sub
#End Region
-
+
Private Sub SeleccionaReporte(UrlParametros As Hashtable)
'DESCARGA DOCUMENTO XML O PDF DE LA FACTURA COMPRA
If UrlParametros("OP").ToString = "Fact" Then
@@ -448,10 +472,10 @@ Partial Class PopUpVerFactura
URLParametros.Add(P2(0).ToString.ToUpper, P2(1))
Next
Return URLParametros
- End Function
-
+ End Function
+
#Region "OP = CORT - IMPRIMIR CORTE"
-
+
Private Sub ImprimeCorte(CveCorte As Integer, Formato As String)
Dim ObjVenta As New ClsVentas
Dim ObjPuntoVenta As New ClsPuntoVenta
@@ -494,10 +518,10 @@ Partial Class PopUpVerFactura
ImprimirPDF("Empresas/Grales/Formatos/RepCortes.rdlc", lrds, params, "ReporteCortes", Formato)
End If
- End Sub
-
+ End Sub
+
#End Region
-
+
#Region " OP = FACTURA - IMPRIME COMPRA"
Private Sub DescargaFactura(Parametros As Hashtable)
If Parametros("CVEFACTURA") IsNot Nothing AndAlso Parametros("CVEFACTURA").ToString.ToEntero > 0 Then
@@ -517,9 +541,9 @@ Partial Class PopUpVerFactura
End If
Archivo = Nothing
End If
- End Sub
+ End Sub
#End Region
-
+
#Region "OP DesXmlVIA- DESCARGAR XML DE VIATICOS"
Private Sub DescargaXMLViaticos(Parametros As Hashtable)
If Parametros("SERIEFOLIO") IsNot Nothing AndAlso Parametros("SERIEFOLIO").ToString <> "" Then
@@ -539,10 +563,10 @@ Partial Class PopUpVerFactura
End If
Archivo = Nothing
End If
- End Sub
-
+ End Sub
+
#End Region
-
+
#Region "OP DesXmlNom- DESCARGAR XML DE UTILIDADES"
Private Sub DescargaXMLUtilidades(Parametros As Hashtable)
If Parametros("SERIEFOLIO") IsNot Nothing AndAlso Parametros("SERIEFOLIO").ToString <> "" Then
@@ -562,9 +586,9 @@ Partial Class PopUpVerFactura
End If
Archivo = Nothing
End If
- End Sub
+ End Sub
#End Region
-
+
#Region "OP = 'CONG' - IMPRIME GASTO DE CONTRATO"
Private Sub ImprimeGastoContrato(CveContrato As Integer, CveContratoGasto As Integer)
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
@@ -606,10 +630,10 @@ Partial Class PopUpVerFactura
params.Add(New ReportParameter("LogoPath", ""))
End If
ImprimirPDF("Empresas/Grales/Formatos/ContratoGasto.rdlc", dt, params, $"{Nombre}-Gastos", Formato:="PDF")
- End Sub
+ End Sub
#End Region
-
-
+
+
#Region "OP = 'CIC' - IMPRIME FORMATO CICOVISA"
Private Sub ImprimeFormatoCICOVISA(CveVenta As Integer)
If CveVenta > 0 Then
@@ -646,10 +670,10 @@ Partial Class PopUpVerFactura
ImprimirPDF("Empresas/Grales/Formatos/Cicovisa.rdlc", Dt, params, String.Format("Formato Cicovisa -{0}", Now.ToDateTime.ToShortDateString))
End If
End If
- End Sub
-
+ End Sub
+
#End Region
-
+
#Region "OP = 'CARPO' - IMPRIME FORMATO CARTA PORTE"
Private Sub ImprimeFormatoCartaPorte(CveMovimiento As Integer)
If CveMovimiento > 0 Then
@@ -774,12 +798,12 @@ Partial Class PopUpVerFactura
ImprimirPDF("Empresas/Grales/Formatos/CartaPorte.rdlc", Dt, params, String.Format("Carta Porte -{0}", Now.ToDateTime.ToShortDateString))
End If
End If
- End Sub
-
+ End Sub
+
#End Region
-
+
#Region "OP = 'DesXmlTra' - IMPRIME XML TRASLADO"
-
+
Private Sub DescargaXMLTraslado(Parametros As Hashtable)
If Parametros("CVEMOVIMIENTO") IsNot Nothing AndAlso Parametros("CVEMOVIMIENTO").ToString.ToEntero > 0 Then
Dim Exten As String = If(Parametros("EXT").ToString.ToLower = "xml", "xml", "pdf")
@@ -798,12 +822,12 @@ Partial Class PopUpVerFactura
End If
Archivo = Nothing
End If
- End Sub
-
+ End Sub
+
#End Region
-
+
#Region "OP = 'DesPdfTra' - IMPRIME PDF TRASLADO"
-
+
Private Sub DescargaPDFTraslado(Parametros As Hashtable)
If Parametros("CVEMOVIMIENTO") IsNot Nothing AndAlso Parametros("CVEMOVIMIENTO").ToString.ToEntero > 0 Then
Dim Exten As String = If(Parametros("EXT").ToString.ToLower = "xml", "xml", "pdf")
@@ -822,10 +846,10 @@ Partial Class PopUpVerFactura
End If
Archivo = Nothing
End If
- End Sub
-
+ End Sub
+
#End Region
-
+
#Region " OP = 'Vta,Fact' - IMPRIME PDF VENTAS"
Private Sub DescargaFacturaVenta(Parametros As Hashtable)
If Parametros("CVEVENTA") IsNot Nothing AndAlso Parametros("CVEVENTA").ToString.ToEntero > 0 Then
@@ -887,7 +911,7 @@ Partial Class PopUpVerFactura
Vta.Cliente.NoInt = dtVentas(0)("ClienteNoInt").ToString
Vta.Cliente.Codigo = dtVentas(0)("ClienteCodigo").ToString
Vta.Cliente.Mail = dtVentas(0)("Mail").ToString
- Vta.Cliente.MailCotizacion = dtVentas(0)("SucClienteCorreo").ToString
+ Vta.Cliente.MailCotizacion = dtVentas(0)("SucClienteCorreo").ToString
Vta.RefDocto = dtVentas(0)("Ref").ToString
Vta.CveVenta = dtVentas(0)("CveVenta").ToString.ToEntero
Vta.NumeroCuenta = dtVentas(0)("NumCtaPago").ToString
@@ -897,10 +921,10 @@ Partial Class PopUpVerFactura
Vta.DescripcionContrato = dtVentas(0)("DescripcionContrato").ToString
Vta.NumeroDescripcionContrato = If($"{dtVentas(0)("NumeroContrato").ToString} - {dtVentas(0)("NumeroLicitacion").ToString}" = " - ", "", $"{dtVentas(0)("NumeroContrato").ToString} {If(dtVentas(0)("NumeroLicitacion").ToString = "", "", $" - Licitación: {dtVentas(0)("NumeroLicitacion").ToString}")}")
- Vta.PedidoContrato = If(dtVentas(0)("PedidoContrato").ToString = "", Vta.NumeroDescripcionContrato, $"{dtVentas(0)("PedidoContrato").ToString} {If(Vta.NumeroDescripcionContrato = "", "", $" / {Vta.NumeroDescripcionContrato}") }")
- Vta.Kilometraje = If(dtVentas(0)("Kilometraje").ToString = "", -1, dtVentas(0)("Kilometraje").ToString.ToDecimal)
- 'Vta.PedidoContrato = dtVentas(0)("PedidoContrato").ToString
-
+ Vta.PedidoContrato = If(dtVentas(0)("PedidoContrato").ToString = "", Vta.NumeroDescripcionContrato, $"{dtVentas(0)("PedidoContrato").ToString} {If(Vta.NumeroDescripcionContrato = "", "", $" / {Vta.NumeroDescripcionContrato}") }")
+ Vta.Kilometraje = If(dtVentas(0)("Kilometraje").ToString = "", -1, dtVentas(0)("Kilometraje").ToString.ToDecimal)
+ 'Vta.PedidoContrato = dtVentas(0)("PedidoContrato").ToString
+
Vta.ClienteSucursal = New Modelos.SucursalModel
Vta.ClienteSucursal.Direccion = dtVentas(0)("SucClienteDireccion").ToString
Vta.ClienteSucursal.NoExt = dtVentas(0)("SucClienteNoExt").ToString
@@ -1069,16 +1093,16 @@ Partial Class PopUpVerFactura
If ObjVentas.DtResultados IsNot Nothing AndAlso ObjVentas.DtResultados.Rows.Count > 0 Then
ObjVentas.DtResultados.Columns.Add("Importe", GetType(Decimal))
ObjVentas.DtResultados.Rows(0)("Importe") = ObjVentas.DtResultados.Rows(0)("Total")
- Vta.DtDocumentosRelacionados = ObjVentas.DtResultados.FiltraParametros("FolioFiscal IS NOT NULL")
- If ObjVentas.GetVentasRelacionadas(CveVenta, UsuarioActual.CveEmpresa) Then
- Vta.DtNCVinculadas = ObjVentas.DtResultados
- Vta.DtDocumentosRelacionados = ObjVentas.DtResultados.FiltraParametros("FolioFiscal IS NOT NULL")
- If Vta.DtDocumentosRelacionados.Rows.Count > 0 Then
- If Vta.TipoDocto.Contiene("Dev") Then
- Vta.Timbre.CFDIRelacionados.TipoRelacion = "03"
- Vta.Timbre.CFDIRelacionados.TipoRelacionTexto = "Devolución aplicada a Ingreso"
- End If
- End If
+ Vta.DtDocumentosRelacionados = ObjVentas.DtResultados.FiltraParametros("FolioFiscal IS NOT NULL")
+ If ObjVentas.GetVentasRelacionadas(CveVenta, UsuarioActual.CveEmpresa) Then
+ Vta.DtNCVinculadas = ObjVentas.DtResultados
+ Vta.DtDocumentosRelacionados = ObjVentas.DtResultados.FiltraParametros("FolioFiscal IS NOT NULL")
+ If Vta.DtDocumentosRelacionados.Rows.Count > 0 Then
+ If Vta.TipoDocto.Contiene("Dev") Then
+ Vta.Timbre.CFDIRelacionados.TipoRelacion = "03"
+ Vta.Timbre.CFDIRelacionados.TipoRelacionTexto = "Devolución aplicada a Ingreso"
+ End If
+ End If
End If
End If
End If
@@ -1090,17 +1114,17 @@ Partial Class PopUpVerFactura
' End If
'End If
- If dtVentas(0)("TipoDocto").ToString.Contiene("Egs", "Dev", "Ant") Then
-
- If ObjVentas.GetVentasRelacionadas(CveVenta, UsuarioActual.CveEmpresa) Then
- Vta.DtNCVinculadas = ObjVentas.DtResultados
+ If dtVentas(0)("TipoDocto").ToString.Contiene("Egs", "Dev", "Ant") Then
+
+ If ObjVentas.GetVentasRelacionadas(CveVenta, UsuarioActual.CveEmpresa) Then
+ Vta.DtNCVinculadas = ObjVentas.DtResultados
Vta.DtDocumentosRelacionados = ObjVentas.DtResultados.FiltraParametros("FolioFiscal IS NOT NULL")
- If Vta.DtDocumentosRelacionados.Rows.Count > 0 Then
- If Vta.TipoDocto.Contiene("Dev") Then
- Vta.Timbre.CFDIRelacionados.TipoRelacion = "03"
- Vta.Timbre.CFDIRelacionados.TipoRelacionTexto = "Devolución aplicada a Ingreso"
- End If
- End If
+ If Vta.DtDocumentosRelacionados.Rows.Count > 0 Then
+ If Vta.TipoDocto.Contiene("Dev") Then
+ Vta.Timbre.CFDIRelacionados.TipoRelacion = "03"
+ Vta.Timbre.CFDIRelacionados.TipoRelacionTexto = "Devolución aplicada a Ingreso"
+ End If
+ End If
End If
End If
End If
@@ -1110,8 +1134,8 @@ Partial Class PopUpVerFactura
' 'If ObjVentas.GetVentasAntNC(-1, CveVenta) Then
' ' Vta.DtNCVinculadas = ObjVentas.DtResultados
' 'End If
- ' If ObjVentas.GetVentasRelacionadas(CveVenta, UsuarioActual.CveEmpresa) Then
- ' Vta.DtNCVinculadas = ObjVentas.DtResultados
+ ' If ObjVentas.GetVentasRelacionadas(CveVenta, UsuarioActual.CveEmpresa) Then
+ ' Vta.DtNCVinculadas = ObjVentas.DtResultados
' End If
'End If
@@ -1130,16 +1154,16 @@ Partial Class PopUpVerFactura
End If
End If
- End Sub
+ End Sub
#End Region
-
+
#Region " - OP = 'Alm' - REPORTE ENTRADAS ALMACEN "
-
+
Private Sub CargaMovimientosAlmacen(CveMovimiento As Integer)
Dim ObjInventarios As New ClsInventarios
- ObjInventarios.GetMovimientos(CveMovimiento, -1, -1, UsuarioActual.CveEmpresa)
-
+ ObjInventarios.GetMovimientos(CveMovimiento, -1, -1, UsuarioActual.CveEmpresa)
+
Dim CveConcepto As Integer = ObjInventarios.CveConcepto
Dim Folio As String = ObjInventarios.Folio.ToString
Dim CveCompra = ObjInventarios.CveCompra
@@ -1196,15 +1220,15 @@ Partial Class PopUpVerFactura
Dim FolioOC As String = ObjInventarios.FolioOC
Dim FolioInterno As String = ObjInventarios.FolioInterno
- Dim CveCliente As Integer = ObjInventarios.CveCliente
+ Dim CveCliente As Integer = ObjInventarios.CveCliente
Dim NombreCliente As String = ObjInventarios.NombreCliente
Dim CveClienteSucursal As Integer = ObjInventarios.CveClienteSucursal
Dim DepartamentoEntrega As String = ObjInventarios.DepartamentoEntrega
Dim FechaMovimiento As Date = ObjInventarios.FechaRegistro
- Dim CveMovimientoRelacionado As Integer = -1
- If UsuarioActual.CveEmpresa = 140 AndAlso ObjInventarios.DtResultados.Rows.Count > 0 Then
- CveMovimientoRelacionado = ObjInventarios.DtResultados.Rows(0)("CveMtoRel").ToString().ToEntero()
+ Dim CveMovimientoRelacionado As Integer = -1
+ If UsuarioActual.CveEmpresa = 140 AndAlso ObjInventarios.DtResultados.Rows.Count > 0 Then
+ CveMovimientoRelacionado = ObjInventarios.DtResultados.Rows(0)("CveMtoRel").ToString().ToEntero()
End If
Dim CantidadProductos As Decimal = 0
@@ -1225,27 +1249,27 @@ Partial Class PopUpVerFactura
If ObjInventarios.GetMovimientosDetalle(CveMovimiento, UsuarioActual.CveEmpresa) Then
DtMovimientos = ObjInventarios.DtResultados.Copy()
CantidadProductos = DtMovimientos.SUM("Cantidad").ToDecimal()
- If UsuarioActual.CveEmpresa = 140 AndAlso CveMovimientoRelacionado > 0 Then
- If ObjInventarios.GetMovimientos(CveMovimientoRelacionado, -1, -1, UsuarioActual.CveEmpresa) Then
- Dim CveAlmacenRelacionado As Integer = ObjInventarios.CveAlmacen
- Dim CveTipoAlmacenRelacionado As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveTipoAlmacen", $"CveAlmacen = {CveAlmacenRelacionado}").ToString.ToEntero
-
- 'SI TIENE RELACIONADO UN MOVIMIENTO VIRTUAL DEBE AGREGAR ESTE MOVIMIENTO A LA IMPRESION
- If CveTipoAlmacenRelacionado = 24 Then
- If ObjInventarios.GetMovimientosDetalle(CveMovimientoRelacionado, UsuarioActual.CveEmpresa) Then
- Dim DtUsados As DataTable = ObjInventarios.DtResultados.Copy()
- CantidadUsados = DtUsados.SUM("Cantidad").ToDecimal()
- Dim IndexInicialUsados As Integer = DtMovimientos.Rows.Count + 1
-
- For Each Dr As DataRow In DtUsados.Rows
- Dr("No") = IndexInicialUsados
- IndexInicialUsados += 1
- Next
-
- DtMovimientos.Merge(DtUsados)
- End If
- End If
- End If
+ If UsuarioActual.CveEmpresa = 140 AndAlso CveMovimientoRelacionado > 0 Then
+ If ObjInventarios.GetMovimientos(CveMovimientoRelacionado, -1, -1, UsuarioActual.CveEmpresa) Then
+ Dim CveAlmacenRelacionado As Integer = ObjInventarios.CveAlmacen
+ Dim CveTipoAlmacenRelacionado As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveTipoAlmacen", $"CveAlmacen = {CveAlmacenRelacionado}").ToString.ToEntero
+
+ 'SI TIENE RELACIONADO UN MOVIMIENTO VIRTUAL DEBE AGREGAR ESTE MOVIMIENTO A LA IMPRESION
+ If CveTipoAlmacenRelacionado = 24 Then
+ If ObjInventarios.GetMovimientosDetalle(CveMovimientoRelacionado, UsuarioActual.CveEmpresa) Then
+ Dim DtUsados As DataTable = ObjInventarios.DtResultados.Copy()
+ CantidadUsados = DtUsados.SUM("Cantidad").ToDecimal()
+ Dim IndexInicialUsados As Integer = DtMovimientos.Rows.Count + 1
+
+ For Each Dr As DataRow In DtUsados.Rows
+ Dr("No") = IndexInicialUsados
+ IndexInicialUsados += 1
+ Next
+
+ DtMovimientos.Merge(DtUsados)
+ End If
+ End If
+ End If
End If
DtMovimientos.Columns("No").AutoIncrement = True
@@ -1270,9 +1294,9 @@ Partial Class PopUpVerFactura
Personal, Capturo, AlmacenDestino, CveConsignacion, CveMoneda, Moneda, FolioVenta, FolioOC,
FolioInterno, FechaHora, ObservacionesSolicitud, DepartamentoEntrega, RazonSocialOC,
Remision, Proveedor, CalleOrigen, NoExtOrigen, ColoniaOrigen, LocalidadOrigen, MunicipioOrigen,
- EstadoOrigen, PaisOrigen, CPOrigen, CalleDestino, NoExtDestino, ColoniaDestino, LocalidadDestino,
+ EstadoOrigen, PaisOrigen, CPOrigen, CalleDestino, NoExtDestino, ColoniaDestino, LocalidadDestino,
MunicipioDestino, EstadoDestino, PaisDestino, CPDestino, FechaMovimiento, NombreCapturo, PuestoRecibio,
- PuestoEnrego, RazonSocial, ResponsableCarga, ResponsableRecibio, NombreCliente,
+ PuestoEnrego, RazonSocial, ResponsableCarga, ResponsableRecibio, NombreCliente,
CantidadProductos:=CantidadProductos, CantidadUsados:=CantidadUsados)
End Sub
@@ -1289,10 +1313,10 @@ Partial Class PopUpVerFactura
FolioInterno As String, FechaHora As DateTime, ObservacionesSolicitud As String, DepartamentoEntrega As String, RazonSocialOC As String,
Remision As String, Proveedor As String, CalleOrigen As String, NoExtOrigen As String, ColoniaOrigen As String, LocalidadOrigen As String, MunicipioOrigen As String,
EstadoOrigen As String, PaisOrigen As String, CPOrigen As String, CalleDestino As String, NoExtDestino As String, ColoniaDestino As String, LocalidadDestino As String, MunicipioDestino As String,
- EstadoDestino As String, PaisDestino As String, CPDestino As String, FechaMovimiento As Date, NombreCapturo As String, PuestoRecibio As String, PuestoEntrego As String,
- RazonSocial As String, ResponsableCarga As String, ResponsableRecibio As String, NombreCliente As String, Optional CantidadProductos As Decimal = 0, Optional CantidadUsados As Decimal = 0)
-
-
+ EstadoDestino As String, PaisDestino As String, CPDestino As String, FechaMovimiento As Date, NombreCapturo As String, PuestoRecibio As String, PuestoEntrego As String,
+ RazonSocial As String, ResponsableCarga As String, ResponsableRecibio As String, NombreCliente As String, Optional CantidadProductos As Decimal = 0, Optional CantidadUsados As Decimal = 0)
+
+
Select Case CveConcepto
Case 1 'INICIAL
Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/Inicial.rdlc", UsuarioActual.Empresa.Ruta))
@@ -2031,30 +2055,30 @@ Partial Class PopUpVerFactura
Dim Archivo As New System.IO.FileInfo(String.Format(RutaFormato, UsuarioActual.Empresa.Ruta))
- If Archivo.Exists Then
- If UsuarioActual.CveEmpresa = 140 Then
- Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
- Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
-
- If Imagen.Exists Then
- params.Add(New ReportParameter("LogoPath", logouri))
- Else
- params.Add(New ReportParameter("LogoPath", ""))
- End If
- params.Add(New ReportParameter("Origen", Almacen))
- params.Add(New ReportParameter("Destino", AlmacenDestino))
- params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
- params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
- params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
- params.Add(New ReportParameter("CantidadProductos", CantidadProductos.ToString()))
- params.Add(New ReportParameter("CantidadUsados", CantidadUsados.ToString()))
- Else
- params.Add(New ReportParameter("Observaciones", Observaciones)) 'TxtObservaciones.Text
- params.Add(New ReportParameter("CveAlmacen", DtMovimientos(0)("CveTipoAlmacen").ToString))
- params.Add(New ReportParameter("CveTipoAlmacenDestino", DtMovimientos(0)("CveTipoAlmacenDestino").ToString))
- params.Add(New ReportParameter("CveVentaDetalle", DtMovimientos(0)("CveVentaDetalle").ToString))
- params.Add(New ReportParameter("FacturadoA", DtMovimientos(0)("Nombre").ToString))
- params.Add(New ReportParameter("Factura", DtMovimientos(0)("SerieFolio").ToString))
+ If Archivo.Exists Then
+ If UsuarioActual.CveEmpresa = 140 Then
+ Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+ Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+
+ If Imagen.Exists Then
+ params.Add(New ReportParameter("LogoPath", logouri))
+ Else
+ params.Add(New ReportParameter("LogoPath", ""))
+ End If
+ params.Add(New ReportParameter("Origen", Almacen))
+ params.Add(New ReportParameter("Destino", AlmacenDestino))
+ params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
+ params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
+ params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
+ params.Add(New ReportParameter("CantidadProductos", CantidadProductos.ToString()))
+ params.Add(New ReportParameter("CantidadUsados", CantidadUsados.ToString()))
+ Else
+ params.Add(New ReportParameter("Observaciones", Observaciones)) 'TxtObservaciones.Text
+ params.Add(New ReportParameter("CveAlmacen", DtMovimientos(0)("CveTipoAlmacen").ToString))
+ params.Add(New ReportParameter("CveTipoAlmacenDestino", DtMovimientos(0)("CveTipoAlmacenDestino").ToString))
+ params.Add(New ReportParameter("CveVentaDetalle", DtMovimientos(0)("CveVentaDetalle").ToString))
+ params.Add(New ReportParameter("FacturadoA", DtMovimientos(0)("Nombre").ToString))
+ params.Add(New ReportParameter("Factura", DtMovimientos(0)("SerieFolio").ToString))
End If
If UsuarioActual.CveEmpresa = 72 Or UsuarioActual.CveEmpresa = 119 Then
@@ -2070,15 +2094,15 @@ Partial Class PopUpVerFactura
ImprimirPDF(String.Format(RutaFormato, UsuarioActual.Empresa.Ruta), DtMovimientos, params, String.Format("Aviso de Traslado - {0}", Folio), RDSName:="DsInventarios")
Else
- Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
- Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
-
- If Imagen.Exists Then
- params.Add(New ReportParameter("LogoPath", logouri))
- Else
- params.Add(New ReportParameter("LogoPath", ""))
+ Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+ Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+
+ If Imagen.Exists Then
+ params.Add(New ReportParameter("LogoPath", logouri))
+ Else
+ params.Add(New ReportParameter("LogoPath", ""))
End If
- params.Add(New ReportParameter("Origen", Almacen))
+ params.Add(New ReportParameter("Origen", Almacen))
params.Add(New ReportParameter("Destino", AlmacenDestino))
params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
@@ -2118,19 +2142,19 @@ Partial Class PopUpVerFactura
ElseIf UsuarioActual.CveEmpresa = 140 Then
params.Add(New ReportParameter("CantidadProductos", "500"))
params.Add(New ReportParameter("CantidadUsados", "500"))
- Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
- Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
-
- If Imagen.Exists Then
- params.Add(New ReportParameter("LogoPath", logouri))
- Else
- params.Add(New ReportParameter("LogoPath", ""))
- End If
- params.Add(New ReportParameter("Origen", Almacen))
- params.Add(New ReportParameter("Destino", AlmacenDestino))
-
- params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
- params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
+ Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+ Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+
+ If Imagen.Exists Then
+ params.Add(New ReportParameter("LogoPath", logouri))
+ Else
+ params.Add(New ReportParameter("LogoPath", ""))
+ End If
+ params.Add(New ReportParameter("Origen", Almacen))
+ params.Add(New ReportParameter("Destino", AlmacenDestino))
+
+ params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
+ params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
End If
@@ -2138,15 +2162,15 @@ Partial Class PopUpVerFactura
ImprimirPDF(String.Format("{0}Formatos\Traslado.rdlc", UsuarioActual.Empresa.Ruta), DtMovimientos, params, String.Format("Recepción de Traslado - {0}", Folio), RDSName:="DsInventarios")
Else
- Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
- Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
-
- If Imagen.Exists Then
- params.Add(New ReportParameter("LogoPath", logouri))
- Else
- params.Add(New ReportParameter("LogoPath", ""))
+ Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+ Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+
+ If Imagen.Exists Then
+ params.Add(New ReportParameter("LogoPath", logouri))
+ Else
+ params.Add(New ReportParameter("LogoPath", ""))
End If
- params.Add(New ReportParameter("Origen", Almacen))
+ params.Add(New ReportParameter("Origen", Almacen))
params.Add(New ReportParameter("Destino", AlmacenDestino))
params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
@@ -2392,19 +2416,19 @@ Partial Class PopUpVerFactura
If (UsuarioActual.CveEmpresa = 72) Then
params.Add(New ReportParameter("DomicilioFiscal", DomicilioFiscalCompu))
End If
- ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/SalidasGarantia.rdlc", DtMovimientos, params, String.Format("SalidaGarantia{0}", Folio.ToString), RDSName:="DsInventarios")
- 'Else
- ' params.Add(New ReportParameter("Folio", Folio))
- ' params.Add(New ReportParameter("Fecha", Fecha))
- ' params.Add(New ReportParameter("Almacen", Almacen))
- ' params.Add(New ReportParameter("SubProyecto", SubProyecto))
- ' params.Add(New ReportParameter("Observaciones", Observaciones))
- ' params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo)))
- ' params.Add(New ReportParameter("NombreRecibio", String.Format("RECIBIÓ{0}{1}", vbCrLf, Recibio)))
- ' ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Salidas.rdlc", DtMovimientos, params, String.Format("Salida de Almacen - {0}", Folio.ToString), RDSName:="DsInventarios")
- 'End If
-
-
+ ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/SalidasGarantia.rdlc", DtMovimientos, params, String.Format("SalidaGarantia{0}", Folio.ToString), RDSName:="DsInventarios")
+ 'Else
+ ' params.Add(New ReportParameter("Folio", Folio))
+ ' params.Add(New ReportParameter("Fecha", Fecha))
+ ' params.Add(New ReportParameter("Almacen", Almacen))
+ ' params.Add(New ReportParameter("SubProyecto", SubProyecto))
+ ' params.Add(New ReportParameter("Observaciones", Observaciones))
+ ' params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo)))
+ ' params.Add(New ReportParameter("NombreRecibio", String.Format("RECIBIÓ{0}{1}", vbCrLf, Recibio)))
+ ' ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Salidas.rdlc", DtMovimientos, params, String.Format("Salida de Almacen - {0}", Folio.ToString), RDSName:="DsInventarios")
+ 'End If
+
+
Case 18 'D E V O L U C I O N D E L C L I E N T E
Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/DevolucionCliente.rdlc", UsuarioActual.Empresa.Ruta))
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
@@ -2450,36 +2474,36 @@ Partial Class PopUpVerFactura
ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/DevolucionCliente.rdlc", DtMovimientos, params, String.Format("Devolucion del Cliente - {0}", Folio.ToString), RDSName:="DsInventarios")
'End If
Else
- Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
- If Imagen.Exists Then
- params.Add(New ReportParameter("LogoPath", logouri))
- Else
- params.Add(New ReportParameter("LogoPath", ""))
+ Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+ If Imagen.Exists Then
+ params.Add(New ReportParameter("LogoPath", logouri))
+ Else
+ params.Add(New ReportParameter("LogoPath", ""))
End If
- Dim CiudadSucursal As String = ""
- Dim DomicilioSucursal As String = ""
-
- If DtMovimientos(0)("CveVenta").ToString <> "" Then
- CiudadSucursal = String.Format("{0}, {1}", DtMovimientos(0)("Municipio").ToString, DtMovimientos(0)("Estado").ToString)
- DomicilioSucursal = String.Format("{0} #{1}, {2}, Col. {3}, CP: {4}, {5}, {6}", DtMovimientos(0)("Calle").ToString, DtMovimientos(0)("NoExt").ToString, DtMovimientos(0)("NoInt").ToString, DtMovimientos(0)("Colonia"), DtMovimientos(0)("CP").ToString, CiudadSucursal, DtMovimientos(0)("Pais").ToString)
- End If
- params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
- params.Add(New ReportParameter("Folio", Folio))
- params.Add(New ReportParameter("Concepto", "DEVOLUCIÓN DEL CLIENTE"))
- params.Add(New ReportParameter("Fecha", Fecha))
- params.Add(New ReportParameter("Almacen", Almacen))
- params.Add(New ReportParameter("FacturaProveedor", FolioVenta))
- params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo)))
- params.Add(New ReportParameter("NombreRecibio", Recibio))
- params.Add(New ReportParameter("ExpedidoEn", DomicilioSucursal))
- params.Add(New ReportParameter("FacturadoA", DtMovimientos(0)("Nombre").ToString))
- params.Add(New ReportParameter("EnviarA", DtMovimientos(0)("Mail").ToString))
- params.Add(New ReportParameter("Entrega", DtMovimientos(0)("Entrega").ToString))
- params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
- params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
-
- ImprimirPDF("Empresas/Grales/Formatos/DevolucionCliente.rdlc", DtMovimientos, params, String.Format("Devolucion del Cliente - {0}", Folio.ToString), RDSName:="DsInventarios")
- 'End If
+ Dim CiudadSucursal As String = ""
+ Dim DomicilioSucursal As String = ""
+
+ If DtMovimientos(0)("CveVenta").ToString <> "" Then
+ CiudadSucursal = String.Format("{0}, {1}", DtMovimientos(0)("Municipio").ToString, DtMovimientos(0)("Estado").ToString)
+ DomicilioSucursal = String.Format("{0} #{1}, {2}, Col. {3}, CP: {4}, {5}, {6}", DtMovimientos(0)("Calle").ToString, DtMovimientos(0)("NoExt").ToString, DtMovimientos(0)("NoInt").ToString, DtMovimientos(0)("Colonia"), DtMovimientos(0)("CP").ToString, CiudadSucursal, DtMovimientos(0)("Pais").ToString)
+ End If
+ params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
+ params.Add(New ReportParameter("Folio", Folio))
+ params.Add(New ReportParameter("Concepto", "DEVOLUCIÓN DEL CLIENTE"))
+ params.Add(New ReportParameter("Fecha", Fecha))
+ params.Add(New ReportParameter("Almacen", Almacen))
+ params.Add(New ReportParameter("FacturaProveedor", FolioVenta))
+ params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo)))
+ params.Add(New ReportParameter("NombreRecibio", Recibio))
+ params.Add(New ReportParameter("ExpedidoEn", DomicilioSucursal))
+ params.Add(New ReportParameter("FacturadoA", DtMovimientos(0)("Nombre").ToString))
+ params.Add(New ReportParameter("EnviarA", DtMovimientos(0)("Mail").ToString))
+ params.Add(New ReportParameter("Entrega", DtMovimientos(0)("Entrega").ToString))
+ params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
+ params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
+
+ ImprimirPDF("Empresas/Grales/Formatos/DevolucionCliente.rdlc", DtMovimientos, params, String.Format("Devolucion del Cliente - {0}", Folio.ToString), RDSName:="DsInventarios")
+ 'End If
End If
Case 19 'ARMADO DE PAQUETE
@@ -2545,8 +2569,8 @@ Partial Class PopUpVerFactura
Dim params As New List(Of ReportParameter)
Dim Archivo As String = $"Empresas/{UsuarioActual.CveEmpresa}/Formatos/EntradaSalida.rdlc"
- If Not File.Exists($"{Server.MapPath("~")}/{Archivo}") Then
- Archivo = "Empresas/Grales/Formatos/EntradaSalida.rdlc"
+ If Not File.Exists($"{Server.MapPath("~")}/{Archivo}") Then
+ Archivo = "Empresas/Grales/Formatos/EntradaSalida.rdlc"
End If
Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
@@ -2557,7 +2581,7 @@ Partial Class PopUpVerFactura
End If
'params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
- If CveConcepto = 21 Then
+ If CveConcepto = 21 Then
params.Add(New ReportParameter("Concepto", "Salida por Prestamo"))
Else
params.Add(New ReportParameter("Concepto", "Entrada por Prestamo"))
@@ -2577,40 +2601,40 @@ Partial Class PopUpVerFactura
Else
params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
End If
- If CveConcepto = 21 Then
+ If CveConcepto = 21 Then
ImprimirPDF(Archivo, DtMovimientos, params, String.Format("Salida por Prestamo - {0}", Folio.ToString), RDSName:="DsInventarios")
- ElseIf CveConcepto = 22 Then
- ImprimirPDF(Archivo, DtMovimientos, params, String.Format("Entrada por Prestamo - {0}", Folio.ToString), RDSName:="DsInventarios")
- End If
-
- 'Case 22 'ENTRADA POR PRESTAMO
- ' Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
- ' Dim params As New List(Of ReportParameter)
-
- ' Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
- ' If Imagen.Exists Then
- ' params.Add(New ReportParameter("LogoPath", logouri))
- ' Else
- ' params.Add(New ReportParameter("LogoPath", ""))
- ' End If
-
- ' params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
- ' params.Add(New ReportParameter("Concepto", "Entrada por Prestamo"))
- ' params.Add(New ReportParameter("Almacen", Almacen))
- ' params.Add(New ReportParameter("Fecha", Fecha))
- ' params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
- ' params.Add(New ReportParameter("Folio", Folio))
- ' params.Add(New ReportParameter("Descuentos", ""))
- ' params.Add(New ReportParameter("IVA", ""))
- ' params.Add(New ReportParameter("Total", ""))
- ' 'params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo)))
- ' params.Add(New ReportParameter("NombreRecibio", String.Format("RECIBIÓ{0}{1}", vbCrLf, Recibio)))
- ' params.Add(New ReportParameter("FacturadoA", NombreCliente))
- ' If (UsuarioActual.CveEmpresa = 72) Then
- ' params.Add(New ReportParameter("DomicilioFiscal", DomicilioFiscalCompu))
- ' End If
- ' ImprimirPDF("Empresas/Grales/Formatos/EntradaSalida.rdlc", DtMovimientos, params, String.Format("Entrada por Prestamo - {0}", Folio.ToString), RDSName:="DsInventarios")
-
+ ElseIf CveConcepto = 22 Then
+ ImprimirPDF(Archivo, DtMovimientos, params, String.Format("Entrada por Prestamo - {0}", Folio.ToString), RDSName:="DsInventarios")
+ End If
+
+ 'Case 22 'ENTRADA POR PRESTAMO
+ ' Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+ ' Dim params As New List(Of ReportParameter)
+
+ ' Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+ ' If Imagen.Exists Then
+ ' params.Add(New ReportParameter("LogoPath", logouri))
+ ' Else
+ ' params.Add(New ReportParameter("LogoPath", ""))
+ ' End If
+
+ ' params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
+ ' params.Add(New ReportParameter("Concepto", "Entrada por Prestamo"))
+ ' params.Add(New ReportParameter("Almacen", Almacen))
+ ' params.Add(New ReportParameter("Fecha", Fecha))
+ ' params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
+ ' params.Add(New ReportParameter("Folio", Folio))
+ ' params.Add(New ReportParameter("Descuentos", ""))
+ ' params.Add(New ReportParameter("IVA", ""))
+ ' params.Add(New ReportParameter("Total", ""))
+ ' 'params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo)))
+ ' params.Add(New ReportParameter("NombreRecibio", String.Format("RECIBIÓ{0}{1}", vbCrLf, Recibio)))
+ ' params.Add(New ReportParameter("FacturadoA", NombreCliente))
+ ' If (UsuarioActual.CveEmpresa = 72) Then
+ ' params.Add(New ReportParameter("DomicilioFiscal", DomicilioFiscalCompu))
+ ' End If
+ ' ImprimirPDF("Empresas/Grales/Formatos/EntradaSalida.rdlc", DtMovimientos, params, String.Format("Entrada por Prestamo - {0}", Folio.ToString), RDSName:="DsInventarios")
+
Case 24 'SALIDA POR RESGUARDO
If DtMovimientos(0)("CveTipoAlmacen").ToString.ToEntero = 20 Or DtMovimientos(0)("CveTipoAlmacen").ToString.ToEntero = 19 Then
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
@@ -3024,71 +3048,71 @@ Partial Class PopUpVerFactura
End If
End If
- End If
-
+ End If
+
Case 42 'ENTRADAS USADOS
- Dim ObjAcum As New ClsAcumuladores
- Dim DatosEntradasUsados As New DataTable
- Dim CveAlmacen As String = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveAlmacen", String.Format("Almacen = '{0}'", Almacen))
- If ObjAcum.EntradasUsadosGet(UsuarioActual.CveEmpresa, CveAlmacen.ToEntero, Convert.ToDateTime(Fecha.ToString), Convert.ToDateTime(Today.ToString)) Then
- DatosEntradasUsados = ObjAcum.DtResultados
-
- End If
+ Dim ObjAcum As New ClsAcumuladores
+ Dim DatosEntradasUsados As New DataTable
+ Dim CveAlmacen As String = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveAlmacen", String.Format("Almacen = '{0}'", Almacen))
+ If ObjAcum.EntradasUsadosGet(UsuarioActual.CveEmpresa, CveAlmacen.ToEntero, Convert.ToDateTime(Fecha.ToString), Convert.ToDateTime(Today.ToString)) Then
+ DatosEntradasUsados = ObjAcum.DtResultados
+
+ End If
ObjAcum.Dispose()
- Dim Dia As String = {"lunes", "martes", "miércoles", "jueves", "viernes", "sábado", "domingo"}(If((Weekday(Today) - 2) = -1, 7, Weekday(Today) - 2))
- Dim Mes As String = {"enero", "febrero", "marzo", "abril", "mayo", "junio", "julio", "agosto", "septiembre", "octubre", "noviembre", "diciembre"}(Month(Today) - 1)
-
- Dim FechaConFormato As String = String.Format("{0}, {1} de {2} de {3}", Dia, Day(Today), Mes, Year(Today))
-
- Dim params As New List(Of ReportParameter)
-
- params.Add(New ReportParameter("Direccion", Almacen))
- params.Add(New ReportParameter("FechaConFormato", FechaConFormato))
- params.Add(New ReportParameter("FechaInicial", Fecha))
- params.Add(New ReportParameter("FechaFinal", Today.ToString))
- params.Add(New ReportParameter("Sucursal", "Sucursal"))
- params.Add(New ReportParameter("Cliente", NombreCliente))
-
- ImprimirPDF(String.Format("Empresas/{0}/Formatos/RepUsadosEntradas.rdlc", UsuarioActual.CveEmpresa), DtMovimientos, params, "Reporte entrada usados", "PDF", "DsInventarios")
+ Dim Dia As String = {"lunes", "martes", "miércoles", "jueves", "viernes", "sábado", "domingo"}(If((Weekday(Today) - 2) = -1, 7, Weekday(Today) - 2))
+ Dim Mes As String = {"enero", "febrero", "marzo", "abril", "mayo", "junio", "julio", "agosto", "septiembre", "octubre", "noviembre", "diciembre"}(Month(Today) - 1)
+
+ Dim FechaConFormato As String = String.Format("{0}, {1} de {2} de {3}", Dia, Day(Today), Mes, Year(Today))
+
+ Dim params As New List(Of ReportParameter)
+
+ params.Add(New ReportParameter("Direccion", Almacen))
+ params.Add(New ReportParameter("FechaConFormato", FechaConFormato))
+ params.Add(New ReportParameter("FechaInicial", Fecha))
+ params.Add(New ReportParameter("FechaFinal", Today.ToString))
+ params.Add(New ReportParameter("Sucursal", "Sucursal"))
+ params.Add(New ReportParameter("Cliente", NombreCliente))
+
+ ImprimirPDF(String.Format("Empresas/{0}/Formatos/RepUsadosEntradas.rdlc", UsuarioActual.CveEmpresa), DtMovimientos, params, "Reporte entrada usados", "PDF", "DsInventarios")
Case 7
Dim params As New List(Of ReportParameter)
- Dim CiudadSucursal As String = ""
- Dim DomicilioSucursal As String = ""
-
- If DtMovimientos(0)("CveVenta").ToString <> "" Then
- CiudadSucursal = String.Format("{0}, {1}", DtMovimientos(0)("Municipio").ToString, DtMovimientos(0)("Estado").ToString)
- DomicilioSucursal = String.Format("{0} #{1}, {2}, Col. {3}, CP: {4}, {5}, {6}", DtMovimientos(0)("Calle").ToString, DtMovimientos(0)("NoExt").ToString, DtMovimientos(0)("NoInt").ToString, DtMovimientos(0)("Colonia"), DtMovimientos(0)("CP").ToString, CiudadSucursal, DtMovimientos(0)("Pais").ToString)
- End If
- params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
- params.Add(New ReportParameter("Folio", Folio))
- params.Add(New ReportParameter("Concepto", "DEVOLUCIÓN DEL CLIENTE"))
- params.Add(New ReportParameter("Fecha", Fecha))
- params.Add(New ReportParameter("Almacen", Almacen))
- params.Add(New ReportParameter("FacturaProveedor", FolioVenta))
- params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo)))
- params.Add(New ReportParameter("NombreRecibio", Recibio))
- params.Add(New ReportParameter("ExpedidoEn", DomicilioSucursal))
- params.Add(New ReportParameter("FacturadoA", DtMovimientos(0)("Nombre").ToString))
- params.Add(New ReportParameter("EnviarA", DtMovimientos(0)("Mail").ToString))
- params.Add(New ReportParameter("Entrega", DtMovimientos(0)("Entrega").ToString))
- params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
- params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
-
- ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/DevolucionCliente.rdlc", DtMovimientos, params, String.Format("Devolucion del Cliente - {0}", Folio.ToString), RDSName:="DsInventarios")
- 'End If
-
+ Dim CiudadSucursal As String = ""
+ Dim DomicilioSucursal As String = ""
+
+ If DtMovimientos(0)("CveVenta").ToString <> "" Then
+ CiudadSucursal = String.Format("{0}, {1}", DtMovimientos(0)("Municipio").ToString, DtMovimientos(0)("Estado").ToString)
+ DomicilioSucursal = String.Format("{0} #{1}, {2}, Col. {3}, CP: {4}, {5}, {6}", DtMovimientos(0)("Calle").ToString, DtMovimientos(0)("NoExt").ToString, DtMovimientos(0)("NoInt").ToString, DtMovimientos(0)("Colonia"), DtMovimientos(0)("CP").ToString, CiudadSucursal, DtMovimientos(0)("Pais").ToString)
+ End If
+ params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
+ params.Add(New ReportParameter("Folio", Folio))
+ params.Add(New ReportParameter("Concepto", "DEVOLUCIÓN DEL CLIENTE"))
+ params.Add(New ReportParameter("Fecha", Fecha))
+ params.Add(New ReportParameter("Almacen", Almacen))
+ params.Add(New ReportParameter("FacturaProveedor", FolioVenta))
+ params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo)))
+ params.Add(New ReportParameter("NombreRecibio", Recibio))
+ params.Add(New ReportParameter("ExpedidoEn", DomicilioSucursal))
+ params.Add(New ReportParameter("FacturadoA", DtMovimientos(0)("Nombre").ToString))
+ params.Add(New ReportParameter("EnviarA", DtMovimientos(0)("Mail").ToString))
+ params.Add(New ReportParameter("Entrega", DtMovimientos(0)("Entrega").ToString))
+ params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
+ params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
+
+ ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/DevolucionCliente.rdlc", DtMovimientos, params, String.Format("Devolucion del Cliente - {0}", Folio.ToString), RDSName:="DsInventarios")
+ 'End If
+
End Select
If CveConcepto = 2 Then
ElseIf CveConcepto = 3 Then
End If
- End Sub
-
-
+ End Sub
+
+
#End Region
-
+
#Region "OP = 'OC' - IMPRIME PDF OC"
Private Sub ImprimePDFOC(CveOrdenCompra As Integer)
Dim reporte As Byte() = NewGeneraBytesOC(CveOrdenCompra, ConBitacora:=(UsuarioActual.Empresa.Funcionalidad(119) = "1"))
@@ -3124,10 +3148,10 @@ Partial Class PopUpVerFactura
ImprimirbytesPDF(reporte, $"OrdenCompra-{Folio.ToString}")
End If
End If
- End Sub
-
+ End Sub
+
#End Region
-
+
#Region "OP = 'VAL' - IMPRIME PDF VAL"
Private Sub GenerarPDFVale(CveVale As Integer)
@@ -3157,9 +3181,9 @@ Partial Class PopUpVerFactura
'End If
End If
ObjAF.Dispose()
- End Sub
+ End Sub
#End Region
-
+
#Region "OP = 'OS' - IMPRIMIR PDF OS"
Private Sub GenerarPDFOS(CveOS As Integer)
Dim ObjOS As New ClsOS()
@@ -3169,8 +3193,8 @@ Partial Class PopUpVerFactura
Dim ReporteEmpresa As New System.IO.FileInfo(String.Format("{0}Formatos/OrdenServicio.rdlc", UsuarioActual.Empresa.Ruta))
If ObjOS.GetOrdenesServicios(CveOS, -1, -1, -1, -1, UsuarioActual.CveEmpresa) Then
- If ObjOS.DtResultados.Rows.Count > 0 Then
-
+ If ObjOS.DtResultados.Rows.Count > 0 Then
+
Dim dtOS As DataTable = ObjOS.DtResultados
Dim dr As DataRow = dtOS.Rows(0)
params.Add(New ReportParameter("Cliente", dr("Cliente").ToString))
@@ -3184,56 +3208,56 @@ Partial Class PopUpVerFactura
params.Add(New ReportParameter("ClienteColonia", dr("Colonia").ToString))
params.Add(New ReportParameter("ClienteCiudad", dr("Ciudad").ToString))
params.Add(New ReportParameter("ClienteEstado", dr("Estado").ToString))
- CveFolio = dr("Folio").ToString
-
- If ReporteEmpresa.Exists Then
- params.Add(New ReportParameter("NoDeCliente", dr("CveCliente").ToString))
- params.Add(New ReportParameter("RFC", dr("RFC").ToString))
- params.Add(New ReportParameter("Vendedor", " "))
- params.Add(New ReportParameter("Correo", dr("Correo").ToString))
- params.Add(New ReportParameter("CodigoDeServicio", dr("CveOS").ToString))
- params.Add(New ReportParameter("Sucursal", dr("SubProyecto").ToString))
- params.Add(New ReportParameter("TipoServicio", dr("TipoServicio").ToString))
- params.Add(New ReportParameter("TipoEquipo", dr("TipoEquipo").ToString))
- params.Add(New ReportParameter("Descripcion", dr("Descripcion").ToString))
- params.Add(New ReportParameter("Copia", "Copia: Original"))
- params.Add(New ReportParameter("Equipo", dr("Equipo").ToString))
- End If
+ CveFolio = dr("Folio").ToString
+
+ If ReporteEmpresa.Exists Then
+ params.Add(New ReportParameter("NoDeCliente", dr("CveCliente").ToString))
+ params.Add(New ReportParameter("RFC", dr("RFC").ToString))
+ params.Add(New ReportParameter("Vendedor", " "))
+ params.Add(New ReportParameter("Correo", dr("Correo").ToString))
+ params.Add(New ReportParameter("CodigoDeServicio", dr("CveOS").ToString))
+ params.Add(New ReportParameter("Sucursal", dr("SubProyecto").ToString))
+ params.Add(New ReportParameter("TipoServicio", dr("TipoServicio").ToString))
+ params.Add(New ReportParameter("TipoEquipo", dr("TipoEquipo").ToString))
+ params.Add(New ReportParameter("Descripcion", dr("Descripcion").ToString))
+ params.Add(New ReportParameter("Copia", "Copia: Original"))
+ params.Add(New ReportParameter("Equipo", dr("Equipo").ToString))
+ End If
End If
End If
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
- If Not ReporteEmpresa.Exists Then
- params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
- params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
- params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
-
- If Imagen.Exists Then
- params.Add(New ReportParameter("LogoPath", logouri))
- Else
- params.Add(New ReportParameter("LogoPath", ""))
- End If
-
- End If
-
- If ObjOS.GetOrdenesServiciosDetalle(CveOS) Then
- TmpDTOS = ObjOS.DtResultados
- End If
-
- If ObjOS.GetDetalleMateriales(-1, CveOS) Then
- TmpDTMaterialesOS = ObjOS.DtResultados
- End If
- Dim lrds As New List(Of ReportDataSource)
- Dim rds As New ReportDataSource With {.Name = "DataSet2", .Value = TmpDTMaterialesOS}
- Dim rds2 As New ReportDataSource With {.Name = "DataSet1", .Value = TmpDTOS}
-
- lrds.Add(rds)
- lrds.Add(rds2)
- ObjOS.Dispose()
-
- ImprimirPDF(String.Format("Empresas/{0}/Formatos/OrdenServicio.rdlc", UsuarioActual.CveEmpresa), lrds, params, NombreArchivo:=String.Format("OrdenServicio-{0}", CveFolio))
+ If Not ReporteEmpresa.Exists Then
+ params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
+ params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
+ params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
+
+ If Imagen.Exists Then
+ params.Add(New ReportParameter("LogoPath", logouri))
+ Else
+ params.Add(New ReportParameter("LogoPath", ""))
+ End If
+
+ End If
+
+ If ObjOS.GetOrdenesServiciosDetalle(CveOS) Then
+ TmpDTOS = ObjOS.DtResultados
+ End If
+
+ If ObjOS.GetDetalleMateriales(-1, CveOS) Then
+ TmpDTMaterialesOS = ObjOS.DtResultados
+ End If
+ Dim lrds As New List(Of ReportDataSource)
+ Dim rds As New ReportDataSource With {.Name = "DataSet2", .Value = TmpDTMaterialesOS}
+ Dim rds2 As New ReportDataSource With {.Name = "DataSet1", .Value = TmpDTOS}
+
+ lrds.Add(rds)
+ lrds.Add(rds2)
+ ObjOS.Dispose()
+
+ ImprimirPDF(String.Format("Empresas/{0}/Formatos/OrdenServicio.rdlc", UsuarioActual.CveEmpresa), lrds, params, NombreArchivo:=String.Format("OrdenServicio-{0}", CveFolio))
End Sub
Private Sub CreaDT()
TmpDTOS = New DataTable
@@ -3278,9 +3302,9 @@ Partial Class PopUpVerFactura
TmpDTMaterialesOS.Columns.Add("Clasificacion", GetType(String))
TmpDTMaterialesOS.Columns.Add("PS", GetType(String))
TmpDTMaterialesOS.Columns.Add("UM", GetType(String))
- End Sub
+ End Sub
#End Region
-
+
#Region "OP = 'OI' - Crear Archivo "
Private Sub CrearArchivo(Archivo As String)
Dim ObjEventos As New ClsOIEventos
@@ -3289,11 +3313,11 @@ Partial Class PopUpVerFactura
Dim file As System.IO.FileInfo = New System.IO.FileInfo(path) '-- if the file exists on the server
DescargarArchivo(file)
- End Sub
-
-
+ End Sub
+
+
#End Region
-
+
#Region "OP = 'Contratos' - Crear Archivo "
Private Sub CrearArchivoContratos(Archivo As String)
@@ -3301,11 +3325,11 @@ Partial Class PopUpVerFactura
Dim file As System.IO.FileInfo = New System.IO.FileInfo(Archivo) '-- if the file exists on the server
DescargarArchivo(file)
- End Sub
-
-
+ End Sub
+
+
#End Region
-
+
#Region "OP = 'OI' - Descargar Archivo "
Private Sub DescargarArchivo(File As System.IO.FileInfo)
If File.Exists Then 'set appropriate headers
@@ -3335,11 +3359,11 @@ Partial Class PopUpVerFactura
Alert("Ocurrio un error al descargar el archivo", TipoMensaje.MsgAdvertencia, "window.close()")
End If 'nothing in the URL as HTTP GET
- End Sub
+ End Sub
#End Region
-
+
#Region "OP = 'AFR' - AF"
-
+
Private Sub ImprimirPDFAFR(CveAFR As Integer, Tipo As Integer)
Dim ObjAF As New ClsAF
'Dim ObjSubProyecto As New ClsSubProyectos
@@ -3525,9 +3549,9 @@ Partial Class PopUpVerFactura
ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/ResguardoAF.rdlc", dtVC, params, NomArchivo)
- End Sub
+ End Sub
#End Region
-
+
#Region "OP = 'POL' "
Private Sub ImprimirPolizaPDF(IdPoliza As Integer)
'Dim ObjConta As New ClsContabilidad
@@ -3566,9 +3590,9 @@ Partial Class PopUpVerFactura
ObjPoliza.Dispose()
- End Sub
+ End Sub
#End Region
-
+
#Region "OP = 'CAN' - CANCELACION"
Public Sub ImprimeCancelacion(CveVenta As Integer)
Dim ObjVentas As New ClsVentas
@@ -3578,7 +3602,7 @@ Partial Class PopUpVerFactura
Dim SelloCancelacion = drv("SelloCancelacion").ToString
Dim FechaCancelacion = drv("FechaCancelacion").ToString.ToDateTime.ToString("dd/MM/yyyy HH:mm:ss")
Dim RFC = UsuarioActual.Empresa.RFC
- Dim Archivo As New System.IO.FileInfo(String.Format("{0}Empresas\Grales\Formatos\AcuseCancelacion.rdlc", AppDomain.CurrentDomain.BaseDirectory))
+ Dim Archivo As New System.IO.FileInfo(String.Format("{0}Empresas\Grales\Formatos\AcuseCancelacion.rdlc", ModExtensiones.DirectorioBaseEmpresas))
Dim params As New List(Of ReportParameter)
@@ -3593,9 +3617,9 @@ Partial Class PopUpVerFactura
End If
ObjVentas.Dispose()
- End Sub
+ End Sub
#End Region
-
+
#Region "OP = 'DC' - DEPOSITOS CAJA"
Private Sub CargaDepositosCaja(CveIE As Integer, CuentaCaja As String, CuentaDeposito As String)
Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/DepositoCaja.rdlc", UsuarioActual.Empresa.Ruta))
@@ -3622,11 +3646,11 @@ Partial Class PopUpVerFactura
ObjIE.Dispose()
- End Sub
+ End Sub
#End Region
-
+
#Region "I E C H E Q U E S"
-
+
Private Sub ImprimirIE(CveIE As Integer, CveEmpresa As Integer)
Dim CveTipoTransaccion = -1
Dim ObjIE As New ClsBancos()
@@ -3872,23 +3896,23 @@ Partial Class PopUpVerFactura
ObjIE.Dispose()
- End Sub
-
+ End Sub
+
#End Region
-
+
#Region "OP = RECIBO DE PAGOS"
Private Sub ImprimirReciboDePagos(CveIE As Integer, CveVenta As Integer)
PDFReciboDePagos(CveVenta, CveIE, -1)
- End Sub
+ End Sub
#End Region
-
+
#Region "OP = VTA - PyME"
-
- ' 04/05/2018 - Pruebas de impresion de factura PyME
+
+ ' 04/05/2018 - Pruebas de impresion de factura PyME
Private Sub GeneraPDFVtaPyMe(Venta As Modelos.Factura, Optional Formato As String = "PDF")
- Dim Directorio1 As String = String.Format("{0}Empresas\{1}\Formatos\Factura.mrt", AppDomain.CurrentDomain.BaseDirectory, UsuarioActual.CveEmpresa)
+ Dim Directorio1 As String = String.Format("{0}Empresas\{1}\Formatos\Factura.mrt", ModExtensiones.DirectorioBaseEmpresas, UsuarioActual.CveEmpresa)
Dim File As FileInfo = New FileInfo(Directorio1)
If File.Exists Then
@@ -3941,7 +3965,7 @@ Partial Class PopUpVerFactura
Else
RegistraScript("alert('No hay un formato de factura predefinido,favor de comunicar a soporte tecnico')")
End If
- End Sub
+ End Sub
#End Region
-
+
End Class
diff --git a/Compras/Proveedores.aspx.vb b/Compras/Proveedores.aspx.vb
index 144f2ada6..0d11cf687 100644
--- a/Compras/Proveedores.aspx.vb
+++ b/Compras/Proveedores.aspx.vb
@@ -328,136 +328,136 @@ Partial Class Compras_Proveedores
- Property CveDocumentacionElectronica As Integer
- Get
- If ViewState("CvePersonalClienteDocumentacion") Is Nothing Then
- Return -1
- Else
- Return DirectCast(ViewState("CvePersonalClienteDocumentacion"), Integer)
- End If
- End Get
- Set(value As Integer)
- ViewState("CvePersonalClienteDocumentacion") = value
- End Set
+ Property CveDocumentacionElectronica As Integer
+ Get
+ If ViewState("CvePersonalClienteDocumentacion") Is Nothing Then
+ Return -1
+ Else
+ Return DirectCast(ViewState("CvePersonalClienteDocumentacion"), Integer)
+ End If
+ End Get
+ Set(value As Integer)
+ ViewState("CvePersonalClienteDocumentacion") = value
+ End Set
End Property
- Property CveDocumentacion As Integer
- Get
- If ViewState("CveDocumentacion") Is Nothing Then
- Return -1
- Else
- Return DirectCast(ViewState("CveDocumentacion"), Integer)
- End If
- End Get
- Set(value As Integer)
- ViewState("CveDocumentacion") = value
- End Set
+ Property CveDocumentacion As Integer
+ Get
+ If ViewState("CveDocumentacion") Is Nothing Then
+ Return -1
+ Else
+ Return DirectCast(ViewState("CveDocumentacion"), Integer)
+ End If
+ End Get
+ Set(value As Integer)
+ ViewState("CveDocumentacion") = value
+ End Set
End Property
- Property Documentacion As String
- Get
- If ViewState("Documentacion") Is Nothing Then
- Return "-1"
- Else
- Return ViewState("Documentacion").ToString
- End If
- End Get
- Set(value As String)
- ViewState("Documentacion") = value
- End Set
+ Property Documentacion As String
+ Get
+ If ViewState("Documentacion") Is Nothing Then
+ Return "-1"
+ Else
+ Return ViewState("Documentacion").ToString
+ End If
+ End Get
+ Set(value As String)
+ ViewState("Documentacion") = value
+ End Set
End Property
- Property AdjuntoDocumentacion As String
- Get
- If ViewState("AdjuntoDocumentacion") Is Nothing Then
- Return ""
- Else
- Return ViewState("AdjuntoDocumentacion").ToString
- End If
- End Get
- Set(value As String)
- ViewState("AdjuntoDocumentacion") = value
- End Set
+ Property AdjuntoDocumentacion As String
+ Get
+ If ViewState("AdjuntoDocumentacion") Is Nothing Then
+ Return ""
+ Else
+ Return ViewState("AdjuntoDocumentacion").ToString
+ End If
+ End Get
+ Set(value As String)
+ ViewState("AdjuntoDocumentacion") = value
+ End Set
End Property
- Property DiasVigencia As Integer
- Get
- If ViewState("DiasVigencia") Is Nothing Then
- Return 0
- Else
- Return DirectCast(ViewState("DiasVigencia"), Integer)
- End If
- End Get
- Set(value As Integer)
- ViewState("DiasVigencia") = value
- End Set
+ Property DiasVigencia As Integer
+ Get
+ If ViewState("DiasVigencia") Is Nothing Then
+ Return 0
+ Else
+ Return DirectCast(ViewState("DiasVigencia"), Integer)
+ End If
+ End Get
+ Set(value As Integer)
+ ViewState("DiasVigencia") = value
+ End Set
End Property
- Property AplicaFechaVencimiento As Boolean
- Get
- If ViewState("AplicaFechaVencimiento") Is Nothing Then
- Return True
- Else
- Return DirectCast(ViewState("AplicaFechaVencimiento"), Boolean)
- End If
- End Get
- Set(value As Boolean)
- ViewState("AplicaFechaVencimiento") = value
- End Set
+ Property AplicaFechaVencimiento As Boolean
+ Get
+ If ViewState("AplicaFechaVencimiento") Is Nothing Then
+ Return True
+ Else
+ Return DirectCast(ViewState("AplicaFechaVencimiento"), Boolean)
+ End If
+ End Get
+ Set(value As Boolean)
+ ViewState("AplicaFechaVencimiento") = value
+ End Set
End Property
- Private Property FechaVigencia As Date
- Get
- If ViewState("FechaVigencia") Is Nothing Then
- Return Nothing
- Else
- Return ViewState("FechaVigencia").ToString.ToDate
- End If
- End Get
- Set(value As Date)
- ViewState("FechaVigencia") = value
- End Set
+ Private Property FechaVigencia As Date
+ Get
+ If ViewState("FechaVigencia") Is Nothing Then
+ Return Nothing
+ Else
+ Return ViewState("FechaVigencia").ToString.ToDate
+ End If
+ End Get
+ Set(value As Date)
+ ViewState("FechaVigencia") = value
+ End Set
End Property
- Property Estatus As Integer
- Get
- If ViewState("Estatus") Is Nothing Then
- Return 0
- Else
- Return DirectCast(ViewState("Estatus"), Integer)
- End If
- End Get
- Set(value As Integer)
- ViewState("Estatus") = value
- End Set
+ Property Estatus As Integer
+ Get
+ If ViewState("Estatus") Is Nothing Then
+ Return 0
+ Else
+ Return DirectCast(ViewState("Estatus"), Integer)
+ End If
+ End Get
+ Set(value As Integer)
+ ViewState("Estatus") = value
+ End Set
End Property
- Property ObservacionDocumentacion As String
- Get
- If ViewState("ObservacionDocumentacion") Is Nothing Then
- Return ""
- Else
- Return ViewState("ObservacionDocumentacion").ToString
- End If
- End Get
- Set(value As String)
- ViewState("ObservacionDocumentacion") = value
- End Set
+ Property ObservacionDocumentacion As String
+ Get
+ If ViewState("ObservacionDocumentacion") Is Nothing Then
+ Return ""
+ Else
+ Return ViewState("ObservacionDocumentacion").ToString
+ End If
+ End Get
+ Set(value As String)
+ ViewState("ObservacionDocumentacion") = value
+ End Set
End Property
- Private Property FechaLimite As Date
- Get
- If ViewState("FechaLimite") Is Nothing Then
- Return Date.Now.AddDays(15)
- Else
- Return ViewState("FechaLimite").ToString.ToDate
- End If
- End Get
- Set(value As Date)
- ViewState("FechaLimite") = value
- End Set
+ Private Property FechaLimite As Date
+ Get
+ If ViewState("FechaLimite") Is Nothing Then
+ Return Date.Now.AddDays(15)
+ Else
+ Return ViewState("FechaLimite").ToString.ToDate
+ End If
+ End Get
+ Set(value As Date)
+ ViewState("FechaLimite") = value
+ End Set
End Property
Property DTDocumentacion As DataTable
@@ -709,7 +709,7 @@ Partial Class Compras_Proveedores
Try
Dim dr As DataRow = ObjeFacturas.DtResultados.Rows(0)
- XMLDoc.Load(AppDomain.CurrentDomain.BaseDirectory & "Empresas\" & dr("CveEmpresa").ToString & "\Compras\" & dr("RFCDe").ToString & "\" & dr("XML").ToString)
+ XMLDoc.Load(ModExtensiones.DirectorioBaseEmpresas & "Empresas\" & dr("CveEmpresa").ToString & "\Compras\" & dr("RFCDe").ToString & "\" & dr("XML").ToString)
Dim Prefijo As String = If(XMLDoc.DocumentElement.Prefix = "", "cfd", XMLDoc.DocumentElement.Prefix)
Dim cfdVer As String = "http://www.sat.gob.mx/cfd/3"
Dim namespaces As New XmlNamespaceManager(XMLDoc.NameTable)
@@ -2625,7 +2625,7 @@ Partial Class Compras_Proveedores
Dim filemove As String = ""
For Each fileItem As Archivo In filesgral
- FileExtension = IO.Path.GetExtension(String.Format("{0}Temp\{1}", AppDomain.CurrentDomain.BaseDirectory, fileItem.filename)).Replace(".", "")
+ FileExtension = IO.Path.GetExtension(String.Format("{0}Temp\{1}", ModExtensiones.DirectorioBaseEmpresas, fileItem.filename)).Replace(".", "")
filemove = fileItem.filename
Next
@@ -2720,75 +2720,75 @@ Partial Class Compras_Proveedores
End Sub
- Public Sub UploadModal_ClickDocumentacion(sender As Object, e As EventArgs)
-
+ Public Sub UploadModal_ClickDocumentacion(sender As Object, e As EventArgs)
+
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
' Dim chkEstatus As CheckBox
- CveDocumentacionElectronica = GvRow.DataKey("CveDocumentacionElectronica").ToString.ToEntero
- CveDocumentacion = GvRow.DataKey("CveDocumentacion").ToString.ToEntero
- Documentacion = GvRow.DataKey("Documentacion")
- AdjuntoDocumentacion = GvRow.DataKey("Adjunto")
-
-
- 'DiasVigencia = GvRow.DataKey("DiasVigencia").ToString.ToEntero
- Dim x As String = GvRow.DataKey("AplicaFechaVencimiento")
- If GvRow.DataKey("AplicaFechaVencimiento") = "1" Then AplicaFechaVencimiento = True Else AplicaFechaVencimiento = False
-
- If GvRow.DataKey("Adjunto").ToString.Length > 0 Then
- FechaVigencia = GvRow.DataKey("Adjunto").ToString.ToDate
- Else
- FechaVigencia = Nothing
- End If
-
-
- Estatus = GvRow.DataKey("Estatus").ToEntero
-
- 'If chkEstatus.Checked Then
- ' Estatus = 1
- 'Else
- ' Estatus = 0
- 'End If
-
- ObservacionDocumentacion = GvRow.FCTextBox("TxtObservaciones").Text.Trim.ToUpper
- FechaLimite = GvRow.FCTextBox("TxtFechaLimite").Text.ToDate
-
- AdjuntoDocumentacion = GvRow.DataKey("Adjunto")
-
- LtlModalUploadTitulo.Text = "Subir " & Documentacion
-
- UpModalTitleUploadDocumento.Update()
-
- RegistraScript("$('#ModalUploadDoc').modal({ backdrop: 'static', keyboard: false});")
-
+ CveDocumentacionElectronica = GvRow.DataKey("CveDocumentacionElectronica").ToString.ToEntero
+ CveDocumentacion = GvRow.DataKey("CveDocumentacion").ToString.ToEntero
+ Documentacion = GvRow.DataKey("Documentacion")
+ AdjuntoDocumentacion = GvRow.DataKey("Adjunto")
+
+
+ 'DiasVigencia = GvRow.DataKey("DiasVigencia").ToString.ToEntero
+ Dim x As String = GvRow.DataKey("AplicaFechaVencimiento")
+ If GvRow.DataKey("AplicaFechaVencimiento") = "1" Then AplicaFechaVencimiento = True Else AplicaFechaVencimiento = False
+
+ If GvRow.DataKey("Adjunto").ToString.Length > 0 Then
+ FechaVigencia = GvRow.DataKey("Adjunto").ToString.ToDate
+ Else
+ FechaVigencia = Nothing
+ End If
+
+
+ Estatus = GvRow.DataKey("Estatus").ToEntero
+
+ 'If chkEstatus.Checked Then
+ ' Estatus = 1
+ 'Else
+ ' Estatus = 0
+ 'End If
+
+ ObservacionDocumentacion = GvRow.FCTextBox("TxtObservaciones").Text.Trim.ToUpper
+ FechaLimite = GvRow.FCTextBox("TxtFechaLimite").Text.ToDate
+
+ AdjuntoDocumentacion = GvRow.DataKey("Adjunto")
+
+ LtlModalUploadTitulo.Text = "Subir " & Documentacion
+
+ UpModalTitleUploadDocumento.Update()
+
+ RegistraScript("$('#ModalUploadDoc').modal({ backdrop: 'static', keyboard: false});")
+
End Sub
- Protected Sub GvDocs_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDocs.RowDataBound
-
-
- If e.Row.RowType = DataControlRowType.DataRow Then
-
+ Protected Sub GvDocs_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDocs.RowDataBound
+
+
+ If e.Row.RowType = DataControlRowType.DataRow Then
+
Dim Adjunto As String = e.Row.DBCampo("Adjunto").ToString
- Dim ImgDownLoad As Literal = e.Row.FCLiteral("ImgDownLoad")
- Dim ImgUpload As LinkButton = e.Row.FCLinkButton("ImgUpload")
- Dim ImgRequired As Literal = e.Row.FCLiteral("ImgRequired")
+ Dim ImgDownLoad As Literal = e.Row.FCLiteral("ImgDownLoad")
+ Dim ImgUpload As LinkButton = e.Row.FCLinkButton("ImgUpload")
+ Dim ImgRequired As Literal = e.Row.FCLiteral("ImgRequired")
Dim txtFechaLimite As TextBox = e.Row.FCTextBox("TxtFechaLimite")
Dim ChkEstatus As CheckBox = e.Row.FCCheckBox("chkEstatus")
' Dim txtFechaVigencia As TextBox = e.Row.FCTextBox("TxtFechaVigencia")
Dim CveDocumentacionElectronica As String = e.Row.DataKey("CveDocumentacionElectronica")
- Dim requerido As Boolean = Boolean.Parse(e.Row.DBCampo("Requerido"))
-
- 'Dim chkEstatus As CheckBox = e.Row.FCCheckBox("chkEstatus")
- Dim separado As Char() = ".".ToCharArray
- Dim array() As String = Adjunto.Split(separado)
- Dim extencion As String = ""
-
- Dim DiasLimite As Integer = e.Row.DataKey("DiasLimite").ToString.ToEntero
- Dim AplicaDiasLimite As Boolean = If(e.Row.DataKey("AplicaDiasLimite").ToString = "1", True, False)
- Dim AplicaFechaVencimiento As Boolean = If(e.Row.DataKey("AplicaFechaVencimiento").ToString = "1", True, False)
-
+ Dim requerido As Boolean = Boolean.Parse(e.Row.DBCampo("Requerido"))
+
+ 'Dim chkEstatus As CheckBox = e.Row.FCCheckBox("chkEstatus")
+ Dim separado As Char() = ".".ToCharArray
+ Dim array() As String = Adjunto.Split(separado)
+ Dim extencion As String = ""
+
+ Dim DiasLimite As Integer = e.Row.DataKey("DiasLimite").ToString.ToEntero
+ Dim AplicaDiasLimite As Boolean = If(e.Row.DataKey("AplicaDiasLimite").ToString = "1", True, False)
+ Dim AplicaFechaVencimiento As Boolean = If(e.Row.DataKey("AplicaFechaVencimiento").ToString = "1", True, False)
+
txtFechaLimite.Visible = If(AplicaDiasLimite, True, False)
' txtFechaVigencia.Visible = If(AplicaFechaVencimiento, True, False)
@@ -2798,81 +2798,81 @@ Partial Class Compras_Proveedores
ChkEstatus.Checked = False
End If
- 'If e.Row.DBCampo("FechaVigencia").ToString.Length > 0 Then
- ' txtFechaVigencia.Text = e.Row.DBCampo("FechaVigencia").ToString.ToDate.ToString("dd/MM/yyyy")
- ' If DateTime.Today > e.Row.DBCampo("FechaVigencia").ToString.ToDateTime Then
- ' txtFechaVigencia.ForeColor = Drawing.Color.Red
- ' End If
- 'End If
-
-
- If array.Length > 0 Then
- extencion = array(array.Length - 1)
- End If
-
+ 'If e.Row.DBCampo("FechaVigencia").ToString.Length > 0 Then
+ ' txtFechaVigencia.Text = e.Row.DBCampo("FechaVigencia").ToString.ToDate.ToString("dd/MM/yyyy")
+ ' If DateTime.Today > e.Row.DBCampo("FechaVigencia").ToString.ToDateTime Then
+ ' txtFechaVigencia.ForeColor = Drawing.Color.Red
+ ' End If
+ 'End If
+
+
+ If array.Length > 0 Then
+ extencion = array(array.Length - 1)
+ End If
+
If e.Row.DBCampo("Estatus").ToString.ToEntero.Contiene(3) Then
' chkEstatus.Checked = True
ImgUpload.Visible = False
- Else
- 'chkEstatus.Checked = False
- End If
-
- txtFechaLimite.Text = e.Row.DBCampo("FechaLimite").ToString.ToDate.ToString("dd/MM/yyyy")
-
- 'If e.Row.DBCampo("FechaVigencia").ToString.Length > 0 Then
- ' txtFechaVigencia.Text = e.Row.DBCampo("FechaVigencia").ToString.ToDate.ToString("dd/MM/yyyy")
- 'End If
-
- 'Dim scripMascara = "$('#" & txtFechaLimite.ClientID & "').mask('00/00/0000');$('#" & txtFechaVigencia.ClientID & "').mask('00/00/0000');"
- 'RegistraScript(scripMascara, "scriptMascara")
-
- If Adjunto.Trim.Length > 0 Then
-
- Dim linkDescarga = "/Empresas/" & UsuarioActual.Empresa.CveEmpresa & "/Edoc/Proveedor/" & CveProveedor & "/" & Adjunto
- Dim linkDescargaArchivo = UsuarioActual.Empresa.Ruta & "Edoc/Proveedor/" & CveProveedor & "/" & Adjunto
-
- If File.Exists(linkDescargaArchivo) Then
- ImgDownLoad.Visible = True
-
- If extencion.Length > 0 Then
- ImgDownLoad.Text = String.Format(" ", linkDescarga, CveDocumentacionElectronica & "." & extencion)
- Else
- ImgDownLoad.Text = String.Format(" ", linkDescarga, CveDocumentacionElectronica)
- End If
- Else
- ImgDownLoad.Visible = False
- End If
-
- Else
- ImgDownLoad.Visible = False
- End If
-
- If requerido Then
- ImgRequired.Text = " "
- End If
-
- 'chkEstatus.Checked = ImgDownLoad.Visible
-
- End If
+ Else
+ 'chkEstatus.Checked = False
+ End If
+
+ txtFechaLimite.Text = e.Row.DBCampo("FechaLimite").ToString.ToDate.ToString("dd/MM/yyyy")
+
+ 'If e.Row.DBCampo("FechaVigencia").ToString.Length > 0 Then
+ ' txtFechaVigencia.Text = e.Row.DBCampo("FechaVigencia").ToString.ToDate.ToString("dd/MM/yyyy")
+ 'End If
+
+ 'Dim scripMascara = "$('#" & txtFechaLimite.ClientID & "').mask('00/00/0000');$('#" & txtFechaVigencia.ClientID & "').mask('00/00/0000');"
+ 'RegistraScript(scripMascara, "scriptMascara")
+
+ If Adjunto.Trim.Length > 0 Then
+
+ Dim linkDescarga = "/Empresas/" & UsuarioActual.Empresa.CveEmpresa & "/Edoc/Proveedor/" & CveProveedor & "/" & Adjunto
+ Dim linkDescargaArchivo = UsuarioActual.Empresa.Ruta & "Edoc/Proveedor/" & CveProveedor & "/" & Adjunto
+
+ If File.Exists(linkDescargaArchivo) Then
+ ImgDownLoad.Visible = True
+
+ If extencion.Length > 0 Then
+ ImgDownLoad.Text = String.Format(" ", linkDescarga, CveDocumentacionElectronica & "." & extencion)
+ Else
+ ImgDownLoad.Text = String.Format(" ", linkDescarga, CveDocumentacionElectronica)
+ End If
+ Else
+ ImgDownLoad.Visible = False
+ End If
+
+ Else
+ ImgDownLoad.Visible = False
+ End If
+
+ If requerido Then
+ ImgRequired.Text = " "
+ End If
+
+ 'chkEstatus.Checked = ImgDownLoad.Visible
+
+ End If
End Sub
Protected Sub BtnUploadFileDoc_Click(sender As Object, e As EventArgs) Handles btnUploadFileDoc.Click
- Dim FileExtension As String = "-1"
- Dim Filesgral As List(Of Archivo) = TxtFileDocumentacion.getfiles().Archivos
- Dim Filename As String = ""
+ Dim FileExtension As String = "-1"
+ Dim Filesgral As List(Of Archivo) = TxtFileDocumentacion.getfiles().Archivos
+ Dim Filename As String = ""
Dim ErrorProceso As Boolean = False
- If AplicaFechaVencimiento And DiasVigencia > 0 Then
- FechaVigencia = DateTime.Today.AddDays(DiasVigencia)
- End If
-
+ If AplicaFechaVencimiento And DiasVigencia > 0 Then
+ FechaVigencia = DateTime.Today.AddDays(DiasVigencia)
+ End If
+
For Each fileItem As Archivo In Filesgral
- Try
-
- FileExtension = IO.Path.GetExtension(String.Format("{0}Temp\{1}", AppDomain.CurrentDomain.BaseDirectory, fileItem.filename)).Replace(".", "")
- Dim tempArray() As String
+ Try
+
+ FileExtension = IO.Path.GetExtension(String.Format("{0}Temp\{1}", ModExtensiones.DirectorioBaseEmpresas, fileItem.filename)).Replace(".", "")
+ Dim tempArray() As String
tempArray = fileItem.filename.ToString().Split("-".ToCharArray())
@@ -2942,15 +2942,15 @@ Partial Class Compras_Proveedores
CargaDocs()
- TxtFileDocumentacion.Text = ""
+ TxtFileDocumentacion.Text = ""
UPModalUploadDoc.Update()
- Catch ex As Exception
- OnError("Error al cargar archivo", ex)
- End Try
-
- Next
-
+ Catch ex As Exception
+ OnError("Error al cargar archivo", ex)
+ End Try
+
+ Next
+
RegistraScript("$('#ModalUploadDoc').modal('hide')", "hidemodal3")
@@ -3806,7 +3806,7 @@ Partial Class Compras_Proveedores
' ' 'Valida si existe el Formato Excel si no lo copea de "Grales"
' ' If Not IO.File.Exists(String.Format("{0}{1}", UsuarioActual.Empresa.Ruta, Formato)) Then
- ' ' IO.File.Copy(String.Format("{0}Empresas\Grales\ReporteCxP.xlsm", AppDomain.CurrentDomain.BaseDirectory), String.Format("{0}{1}", UsuarioActual.Empresa.Ruta, Formato), False)
+ ' ' IO.File.Copy(String.Format("{0}Empresas\Grales\ReporteCxP.xlsm", ModExtensiones.DirectorioBaseEmpresas), String.Format("{0}{1}", UsuarioActual.Empresa.Ruta, Formato), False)
' ' End If
' ' Dim ArchivoBase As New System.IO.FileInfo(UsuarioActual.Empresa.Ruta & Formato)
@@ -3931,7 +3931,7 @@ Partial Class Compras_Proveedores
' ' 'Valida si existe el Formato Excel si no lo copea de "Grales"
' ' If Not IO.File.Exists(String.Format("{0}{1}", UsuarioActual.Empresa.Ruta, Formato)) Then
- ' ' IO.File.Copy(String.Format("{0}Empresas\Grales\ReporteANC.xlsm", AppDomain.CurrentDomain.BaseDirectory), String.Format("{0}{1}", UsuarioActual.Empresa.Ruta, Formato), False)
+ ' ' IO.File.Copy(String.Format("{0}Empresas\Grales\ReporteANC.xlsm", ModExtensiones.DirectorioBaseEmpresas), String.Format("{0}{1}", UsuarioActual.Empresa.Ruta, Formato), False)
' ' End If
' ' Dim ArchivoBase As New System.IO.FileInfo(UsuarioActual.Empresa.Ruta & Formato)
@@ -4512,7 +4512,7 @@ Partial Class Compras_Proveedores
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 Directorio As String = ModExtensiones.DirectorioBaseEmpresas & file.patch
Dim Tipo As String = If(file.Extencion.Contiene("xlsx", "xlsx", "xlsm", "xlsb"), "EXCEL", "CSV")
CargarArchivo(Directorio, file.filename, Tipo)
Else
@@ -4601,7 +4601,7 @@ Partial Class Compras_Proveedores
End Function
Protected Sub BtnDescargar_Click(sender As Object, e As EventArgs) Handles BtnDescargar.Click
- Dim Directorio As String = AppDomain.CurrentDomain.BaseDirectory & "Empresas\Grales\FormatoProveedores.xlsx"
+ Dim Directorio As String = ModExtensiones.DirectorioBaseEmpresas & "Empresas\Grales\FormatoProveedores.xlsx"
Dim Archivo As New IO.FileInfo(Directorio)
If Archivo.Exists Then
Response.Clear()
@@ -5609,7 +5609,7 @@ Partial Class Compras_Proveedores
End Sub
Protected Sub DescargarFormatoCarta(Proveedor As String, Dia As String, Mes As String, Calificacion As String, Resultado As String)
Try
- Dim PathRoot As String = Server.MapPath("/")
+ Dim PathRoot As String = ModExtensiones.DirectorioBaseEmpresas
Dim Documento As String = "CartaProveedor.docx"
Dim PathSource As String = $"{UsuarioActual.Empresa.Ruta}\Formatos\Plantillas\{Documento}"
Dim PathDestino As String = PathRoot & "Temp\" & Documento
@@ -5632,7 +5632,7 @@ Partial Class Compras_Proveedores
End Sub
Protected Sub DescargarFormatoEvaluacion(Proveedor As String, Dia As String, Mes As String, Calificacion As String, Resultado As String)
Try
- Dim PathRoot As String = Server.MapPath("/")
+ Dim PathRoot As String = ModExtensiones.DirectorioBaseEmpresas
Dim Documento As String = "FormatoEvaluacionProveedor.docx"
Dim PathSource As String = $"{UsuarioActual.Empresa.Ruta}\Formatos\Plantillas\{Documento}"
Dim PathDestino As String = PathRoot & "Temp\" & Documento
@@ -6079,57 +6079,57 @@ Partial Class Compras_Proveedores
End Sub
-#Region "P R O V E D O R E S G R I D S I M P R I M I R P D F/Excel"
- Private Sub LnkExportarPagos_Click(sender As Object, e As EventArgs) Handles LnkPagosProveedoresBancosExcel.Click
- ImprimeGridsProveedores("Excel", DTCobrosRealizados, "RepProveedoresPagosBancos")
- End Sub
- Private Sub LinkPDFPagos_Click(sender As Object, e As EventArgs) Handles LnkPagosProveedoresBancosPDF.Click
- ImprimeGridsProveedores("PDF", DTCobrosRealizados, "RepProveedoresPagosBancos")
+#Region "P R O V E D O R E S G R I D S I M P R I M I R P D F/Excel"
+ Private Sub LnkExportarPagos_Click(sender As Object, e As EventArgs) Handles LnkPagosProveedoresBancosExcel.Click
+ ImprimeGridsProveedores("Excel", DTCobrosRealizados, "RepProveedoresPagosBancos")
+ End Sub
+ Private Sub LinkPDFPagos_Click(sender As Object, e As EventArgs) Handles LnkPagosProveedoresBancosPDF.Click
+ ImprimeGridsProveedores("PDF", DTCobrosRealizados, "RepProveedoresPagosBancos")
End Sub
- Private Sub LnkCtasBancariass_Click(sender As Object, e As EventArgs) Handles LnkCtasBancariasExcel.Click
- ImprimeGridsProveedores("Excel", DTCuentasBancos, "RepProveedoresCtasBancarias")
- End Sub
- Private Sub LinkCtasBancarias_Click(sender As Object, e As EventArgs) Handles LnkCtasBancariasPDF.Click
- ImprimeGridsProveedores("PDF", DTCuentasBancos, "RepProveedoresCtasBancarias")
+ Private Sub LnkCtasBancariass_Click(sender As Object, e As EventArgs) Handles LnkCtasBancariasExcel.Click
+ ImprimeGridsProveedores("Excel", DTCuentasBancos, "RepProveedoresCtasBancarias")
+ End Sub
+ Private Sub LinkCtasBancarias_Click(sender As Object, e As EventArgs) Handles LnkCtasBancariasPDF.Click
+ ImprimeGridsProveedores("PDF", DTCuentasBancos, "RepProveedoresCtasBancarias")
End Sub
- Private Sub LnkExportarHistorialCompras_Click(sender As Object, e As EventArgs) Handles LnkHistorialComprasExcel.Click
- ImprimeGridsProveedores("Excel", DtProveedoresHistorial, "RepProveedoresHistorialCompras")
- End Sub
- Private Sub LinkPDFHistorialCompras_Click(sender As Object, e As EventArgs) Handles LnkHistorialComprasPDF.Click
- ImprimeGridsProveedores("PDF", DtProveedoresHistorial, "RepProveedoresHistorialCompras")
+ Private Sub LnkExportarHistorialCompras_Click(sender As Object, e As EventArgs) Handles LnkHistorialComprasExcel.Click
+ ImprimeGridsProveedores("Excel", DtProveedoresHistorial, "RepProveedoresHistorialCompras")
+ End Sub
+ Private Sub LinkPDFHistorialCompras_Click(sender As Object, e As EventArgs) Handles LnkHistorialComprasPDF.Click
+ ImprimeGridsProveedores("PDF", DtProveedoresHistorial, "RepProveedoresHistorialCompras")
End Sub
- Private Sub LnkCxPActivas_Click(sender As Object, e As EventArgs) Handles LnkCxPActivasExcel.Click
- ImprimeGridsProveedores("Excel", DTCxP, "RepProveedoresCxPActivas")
- End Sub
- Private Sub LinkCxPActivas_Click(sender As Object, e As EventArgs) Handles LnkCxPActivasPDF.Click
- ImprimeGridsProveedores("PDF", DTCxP, "RepProveedoresCxPActivas")
+ Private Sub LnkCxPActivas_Click(sender As Object, e As EventArgs) Handles LnkCxPActivasExcel.Click
+ ImprimeGridsProveedores("Excel", DTCxP, "RepProveedoresCxPActivas")
+ End Sub
+ Private Sub LinkCxPActivas_Click(sender As Object, e As EventArgs) Handles LnkCxPActivasPDF.Click
+ ImprimeGridsProveedores("PDF", DTCxP, "RepProveedoresCxPActivas")
End Sub
- Private Sub LnkComprasPagadas_Click(sender As Object, e As EventArgs) Handles LnkHistorialComprasPagadasExcel.Click
- ImprimeGridsProveedores("Excel", DtCxPHistorial, "RepProveedoresComprasPagadas")
- End Sub
- Private Sub LinkComprasPagadas_Click(sender As Object, e As EventArgs) Handles LnkHistorialComprasPagadasPDF.Click
- ImprimeGridsProveedores("PDF", DtCxPHistorial, "RepProveedoresComprasPagadas")
+ Private Sub LnkComprasPagadas_Click(sender As Object, e As EventArgs) Handles LnkHistorialComprasPagadasExcel.Click
+ ImprimeGridsProveedores("Excel", DtCxPHistorial, "RepProveedoresComprasPagadas")
+ End Sub
+ Private Sub LinkComprasPagadas_Click(sender As Object, e As EventArgs) Handles LnkHistorialComprasPagadasPDF.Click
+ ImprimeGridsProveedores("PDF", DtCxPHistorial, "RepProveedoresComprasPagadas")
End Sub
- Private Sub LnkNCxAplicar_Click(sender As Object, e As EventArgs) Handles LnkNCxAplicarExcel.Click
- ImprimeGridsProveedores("Excel", DtAntNC, "RepProveedoresNCxAplicar")
- End Sub
- Private Sub LinkNCxAplicar_Click(sender As Object, e As EventArgs) Handles LnkNCxAplicarPDF.Click
- ImprimeGridsProveedores("PDF", DtAntNC, "RepProveedoresNCxAplicar")
+ Private Sub LnkNCxAplicar_Click(sender As Object, e As EventArgs) Handles LnkNCxAplicarExcel.Click
+ ImprimeGridsProveedores("Excel", DtAntNC, "RepProveedoresNCxAplicar")
+ End Sub
+ Private Sub LinkNCxAplicar_Click(sender As Object, e As EventArgs) Handles LnkNCxAplicarPDF.Click
+ ImprimeGridsProveedores("PDF", DtAntNC, "RepProveedoresNCxAplicar")
End Sub
- Private Sub LnkNCxAplicarHistorial_Click(sender As Object, e As EventArgs) Handles LnkNCxAplicarHistorialExcel.Click
- ImprimeGridsProveedores("Excel", DtAntNCH, "RepProveedoresNCxAplicar")
- End Sub
- Private Sub LinkNCxAplicarHistorial_Click(sender As Object, e As EventArgs) Handles LnkNCxAplicarHistorialPDF.Click
- ImprimeGridsProveedores("PDF", DtAntNCH, "RepProveedoresNCxAplicar")
- End Sub
-
- Private Sub ImprimeGridsProveedores(Formato As String, DtTemp As DataTable, NombreFormato As String)
+ Private Sub LnkNCxAplicarHistorial_Click(sender As Object, e As EventArgs) Handles LnkNCxAplicarHistorialExcel.Click
+ ImprimeGridsProveedores("Excel", DtAntNCH, "RepProveedoresNCxAplicar")
+ End Sub
+ Private Sub LinkNCxAplicarHistorial_Click(sender As Object, e As EventArgs) Handles LnkNCxAplicarHistorialPDF.Click
+ ImprimeGridsProveedores("PDF", DtAntNCH, "RepProveedoresNCxAplicar")
+ End Sub
+
+ Private Sub ImprimeGridsProveedores(Formato As String, DtTemp As DataTable, NombreFormato As String)
If DtTemp IsNot Nothing And DtTemp.Rows.Count > 0 Then
Dim params As New List(Of ReportParameter)
@@ -6148,7 +6148,7 @@ Partial Class Compras_Proveedores
ImprimirPDF("Empresas\Grales\Formatos\" & NombreFormato & ".rdlc", DtTemp, params, NombreFormato & "_" & Now.ToString("yyyyMMddhhmmss"), Formato:=Formato)
Else
Alert("No se encontró información.", TipoMensaje.MsgAdvertencia)
- End If
+ End If
End Sub
#End Region
diff --git a/Compras/RepComprasAFDetalle.aspx.vb b/Compras/RepComprasAFDetalle.aspx.vb
index 756b806d6..c75979d6e 100644
--- a/Compras/RepComprasAFDetalle.aspx.vb
+++ b/Compras/RepComprasAFDetalle.aspx.vb
@@ -322,7 +322,7 @@ Partial Class Compras_RepComprasAFDetalle
Dim ObjTareas As New ClsOIEventos
Dim RutaPDF As String
- Dim Ruta As String = $"{AppDomain.CurrentDomain.BaseDirectory}Empresas\{UsuarioActual.CveEmpresa}\"
+ Dim Ruta As String = $"{ModExtensiones.DirectorioBaseEmpresas}Empresas\{UsuarioActual.CveEmpresa}\"
RutaPDF = $"{Ruta}\Formatos\RepComprasAFDetalle.rdlc"
If Not File.Exists(RutaPDF) Then
RutaPDF = "Empresas\Grales\Formatos\RepComprasAFDetalle.rdlc"
diff --git a/Compras/RepCxPPeriodo.aspx.cs b/Compras/RepCxPPeriodo.aspx.cs
index 77b28bbb4..bd3e49f7a 100644
--- a/Compras/RepCxPPeriodo.aspx.cs
+++ b/Compras/RepCxPPeriodo.aspx.cs
@@ -1,4 +1,11 @@
-using System;
using System.Collections.Generic;
using System.Linq;
using System.Web;
using System.Web.UI.WebControls;
using Extensiones;
using System.Data;
using static Extensiones.ModExtensiones;
+using System;
+using System.Collections.Generic;
+using System.Linq;
+using System.Web;
+using System.Web.UI.WebControls;
+using Extensiones;
+using System.Data;
+using static Extensiones.ModExtensiones;
using Microsoft.Reporting.WebForms;
using System.Web.UI.HtmlControls;
using System.Text;
@@ -240,7 +247,7 @@ public partial class Compras_RepCxPPeriodo : ClsPaginas
StrFiltro.AppendFormat(" Registro: {0}", DdlUsuarioRegistro.SelectedItem.Text);
string RutaPDF = "";
- string Ruta = $"{AppDomain.CurrentDomain.BaseDirectory}Empresas/{UsuarioActual.CveEmpresa}/";
+ string Ruta = $"{ModExtensiones.DirectorioBaseEmpresas}Empresas/{UsuarioActual.CveEmpresa}/";
RutaPDF = $"{Ruta}/Formatos/RepCxPPeriodo.rdlc";
if (!System.IO.File.Exists(RutaPDF))
{
diff --git a/Compras/RepDocumentacionProveedor.aspx.vb b/Compras/RepDocumentacionProveedor.aspx.vb
index d7322024f..5a05ce29e 100644
--- a/Compras/RepDocumentacionProveedor.aspx.vb
+++ b/Compras/RepDocumentacionProveedor.aspx.vb
@@ -37,11 +37,11 @@ Partial Class Proveedores_RepDocumentacionProveedor
Set(value As DataTable)
ViewState("DTHeaders") = value
End Set
- End Property
-
-
-
-#Region "UPLOAD"
+ End Property
+
+
+
+#Region "UPLOAD"
Property CveDocumentacionElectronica As Integer
Get
If ViewState("CvePersonalClienteDocumentacion") Is Nothing Then
@@ -53,8 +53,8 @@ Partial Class Proveedores_RepDocumentacionProveedor
Set(value As Integer)
ViewState("CvePersonalClienteDocumentacion") = value
End Set
- End Property
-
+ End Property
+
Property CveDocumentacion As Integer
Get
If ViewState("CveDocumentacion") Is Nothing Then
@@ -66,8 +66,8 @@ Partial Class Proveedores_RepDocumentacionProveedor
Set(value As Integer)
ViewState("CveDocumentacion") = value
End Set
- End Property
-
+ End Property
+
Property Documentacion As String
Get
If ViewState("Documentacion") Is Nothing Then
@@ -79,8 +79,8 @@ Partial Class Proveedores_RepDocumentacionProveedor
Set(value As String)
ViewState("Documentacion") = value
End Set
- End Property
-
+ End Property
+
Property AdjuntoDocumentacion As String
Get
If ViewState("AdjuntoDocumentacion") Is Nothing Then
@@ -92,10 +92,10 @@ Partial Class Proveedores_RepDocumentacionProveedor
Set(value As String)
ViewState("AdjuntoDocumentacion") = value
End Set
- End Property
-
-
-
+ End Property
+
+
+
Property DiasVigencia As Integer
Get
If ViewState("DiasVigencia") Is Nothing Then
@@ -107,8 +107,8 @@ Partial Class Proveedores_RepDocumentacionProveedor
Set(value As Integer)
ViewState("DiasVigencia") = value
End Set
- End Property
-
+ End Property
+
Property AplicaFechaVencimiento As Boolean
Get
If ViewState("AplicaFechaVencimiento") Is Nothing Then
@@ -120,8 +120,8 @@ Partial Class Proveedores_RepDocumentacionProveedor
Set(value As Boolean)
ViewState("AplicaFechaVencimiento") = value
End Set
- End Property
-
+ End Property
+
Private Property FechaVigencia As Date
Get
If ViewState("FechaVigencia") Is Nothing Then
@@ -133,8 +133,8 @@ Partial Class Proveedores_RepDocumentacionProveedor
Set(value As Date)
ViewState("FechaVigencia") = value
End Set
- End Property
-
+ End Property
+
Property Estatus As Integer
Get
If ViewState("Estatus") Is Nothing Then
@@ -146,8 +146,8 @@ Partial Class Proveedores_RepDocumentacionProveedor
Set(value As Integer)
ViewState("Estatus") = value
End Set
- End Property
-
+ End Property
+
Property ObservacionDocumentacion As String
Get
If ViewState("ObservacionDocumentacion") Is Nothing Then
@@ -159,8 +159,8 @@ Partial Class Proveedores_RepDocumentacionProveedor
Set(value As String)
ViewState("ObservacionDocumentacion") = value
End Set
- End Property
-
+ End Property
+
Private Property FechaLimite As Date
Get
If ViewState("FechaLimite") Is Nothing Then
@@ -173,9 +173,9 @@ Partial Class Proveedores_RepDocumentacionProveedor
ViewState("FechaLimite") = value
End Set
- End Property
-
-
+ End Property
+
+
Property CveProveedor As Integer
Get
If ViewState("CveProveedor") Is Nothing Then
@@ -187,17 +187,17 @@ Partial Class Proveedores_RepDocumentacionProveedor
Set(value As Integer)
ViewState("CveProveedor") = value
End Set
- End Property
+ End Property
#End Region
-
-
+
+
Private Sub Proveedores_RepDocumentacionProveedor_Load(sender As Object, e As EventArgs) Handles Me.Load
If Not Page.IsPostBack Then
- CargaCombos()
-
- 'TxtFechaI.Text = Now.AddMonths(-3).ToString("dd/MM/yyyy")
- 'TxtFechaF.Text = Now.ToString("dd/MM/yyyy")
-
+ CargaCombos()
+
+ 'TxtFechaI.Text = Now.AddMonths(-3).ToString("dd/MM/yyyy")
+ 'TxtFechaF.Text = Now.ToString("dd/MM/yyyy")
+
TxtFechaI.Text = ""
TxtFechaF.Text = ""
@@ -206,66 +206,66 @@ Partial Class Proveedores_RepDocumentacionProveedor
'ExportaExcel()
End Sub
- Private Sub CargaCombos()
-
-
+ Private Sub CargaCombos()
+
+
DdlProveedores.setEsWebService(True)
DdlProveedores.Attributes.Add("data-metodo", "getproveedores")
DdlProveedores.SelectedText = "Todos"
- DdlProveedores.SelectedValue = "-1"
-
- End Sub
-
-
- Protected Sub btConsultar_Click(sender As Object, e As EventArgs) Handles btConsultar.Click
- CargaDocumentacion()
- End Sub
-
-
+ DdlProveedores.SelectedValue = "-1"
+
+ End Sub
+
+
+ Protected Sub btConsultar_Click(sender As Object, e As EventArgs) Handles btConsultar.Click
+ CargaDocumentacion()
+ End Sub
+
+
Private Sub CargaDocumentacion()
- Dim CveProveedor As Integer = -1
-
- Dim FechaInicio As Date
+ Dim CveProveedor As Integer = -1
+
+ Dim FechaInicio As Date
Dim FechaFin As Date
- If TxtFechaI.Text = "" Then
- FechaInicio = MinFecha
- Else
- FechaInicio = TxtFechaI.Text.ToDate
- End If
-
- If TxtFechaF.Text = "" Then
- FechaFin = MaxFecha
- Else
- FechaFin = TxtFechaF.Text.ToDate
+ If TxtFechaI.Text = "" Then
+ FechaInicio = MinFecha
+ Else
+ FechaInicio = TxtFechaI.Text.ToDate
End If
- If DdlProveedores.txtValue.Value.ToEntero > 0 Then
- CveProveedor = DdlProveedores.txtValue.Value.ToEntero
+ If TxtFechaF.Text = "" Then
+ FechaFin = MaxFecha
+ Else
+ FechaFin = TxtFechaF.Text.ToDate
+ End If
+
+ If DdlProveedores.txtValue.Value.ToEntero > 0 Then
+ CveProveedor = DdlProveedores.txtValue.Value.ToEntero
End If
Dim obEDoc As New ClsEdocumentacion
- If obEDoc.DocumentacionElectronicaAuditoriaGet(CveProveedor, TxtFechaI.Text.ToDate, TxtFechaF.Text.ToDate, UsuarioActual.CveEmpresa, 3, DdlEstatus.SelectedValue.ToEntero) Then
- GvDocumentos.DataSource = obEDoc.DtResultados
- Else
- GvDocumentos.DataSource = Nothing
- End If
-
+ If obEDoc.DocumentacionElectronicaAuditoriaGet(CveProveedor, TxtFechaI.Text.ToDate, TxtFechaF.Text.ToDate, UsuarioActual.CveEmpresa, 3, DdlEstatus.SelectedValue.ToEntero) Then
+ GvDocumentos.DataSource = obEDoc.DtResultados
+ Else
+ GvDocumentos.DataSource = Nothing
+ End If
+
obEDoc.Dispose()
GvDocumentos.DataBind()
- UPGvDocumentos.Update()
-
-
-
- End Sub
-
-
-
-
-
+ UPGvDocumentos.Update()
+
+
+
+ End Sub
+
+
+
+
+
Protected Sub GvDocumentos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDocumentos.RowDataBound
@@ -275,18 +275,18 @@ Partial Class Proveedores_RepDocumentacionProveedor
Dim ImgDownLoad As Literal = e.Row.FCLiteral("ImgDownLoad")
Dim ImgRequired As Literal = e.Row.FCLiteral("ImgRequired")
Dim txtFechaLimite As TextBox = e.Row.FCTextBox("TxtFechaLimite")
- Dim txtFechaVigencia As TextBox = e.Row.FCTextBox("TxtFechaVigencia")
- Dim CveDocumentacionElectronica As Integer = e.Row.DataKey("CveDocumentacionElectronica").ToEntero
-
- Dim ImgRechazar As LinkButton = e.Row.FCLinkButton("ImgRechazar")
-
- Dim ImgAceptar As LinkButton = e.Row.FCLinkButton("ImgAceptar")
-
- Dim requerido As Boolean = Boolean.Parse(e.Row.DBCampo("Requerido"))
- 'Dim chkEstatus As CheckBox = e.Row.FCCheckBox("chkEstatus")
- 'Dim RDBAcptar As RadioButton = e.Row.FCRadioButton("RDBAcptar")
- 'Dim RDBRechazar As RadioButton = e.Row.FCRadioButton("RDBRechazar")
-
+ Dim txtFechaVigencia As TextBox = e.Row.FCTextBox("TxtFechaVigencia")
+ Dim CveDocumentacionElectronica As Integer = e.Row.DataKey("CveDocumentacionElectronica").ToEntero
+
+ Dim ImgRechazar As LinkButton = e.Row.FCLinkButton("ImgRechazar")
+
+ Dim ImgAceptar As LinkButton = e.Row.FCLinkButton("ImgAceptar")
+
+ Dim requerido As Boolean = Boolean.Parse(e.Row.DBCampo("Requerido"))
+ 'Dim chkEstatus As CheckBox = e.Row.FCCheckBox("chkEstatus")
+ 'Dim RDBAcptar As RadioButton = e.Row.FCRadioButton("RDBAcptar")
+ 'Dim RDBRechazar As RadioButton = e.Row.FCRadioButton("RDBRechazar")
+
Dim separado As Char() = ".".ToCharArray
Dim array() As String = Adjunto.Split(separado)
Dim extencion As String = ""
@@ -296,10 +296,10 @@ Partial Class Proveedores_RepDocumentacionProveedor
Dim AplicaFechaVencimiento As Boolean = If(e.Row.DataKey("AplicaFechaVencimiento").ToString = "1", True, False)
txtFechaLimite.Visible = If(AplicaDiasLimite, True, False)
- txtFechaVigencia.Visible = If(AplicaFechaVencimiento, True, False)
-
-
-
+ txtFechaVigencia.Visible = If(AplicaFechaVencimiento, True, False)
+
+
+
If e.Row.DBCampo("FechaVigencia").ToString.Length > 0 Then
txtFechaVigencia.Text = e.Row.DBCampo("FechaVigencia").ToString.ToDate.ToString("dd/MM/yyyy")
If DateTime.Today > e.Row.DBCampo("FechaVigencia").ToString.ToDateTime Then
@@ -312,8 +312,8 @@ Partial Class Proveedores_RepDocumentacionProveedor
extencion = array(array.Length - 1)
End If
- 'If e.Row.DBCampo("Estatus").ToString.ToEntero = 3 Then
- ' RDBAcptar.Checked = True
+ 'If e.Row.DBCampo("Estatus").ToString.ToEntero = 3 Then
+ ' RDBAcptar.Checked = True
'Else
' chkEstatus.Checked = False
'End If
@@ -332,30 +332,30 @@ Partial Class Proveedores_RepDocumentacionProveedor
Dim linkDescarga = "/Empresas/" & UsuarioActual.Empresa.CveEmpresa & "/Edoc/Proveedor/" & e.Row.DataKey("CveProveedor") & "/" & Adjunto
Dim linkDescargaArchivo = UsuarioActual.Empresa.Ruta & "Edoc/Proveedor/" & e.Row.DataKey("CveProveedor") & "/" & Adjunto
- If File.Exists(linkDescargaArchivo) Then
+ If File.Exists(linkDescargaArchivo) Then
ImgDownLoad.Visible = True
If extencion.Length > 0 Then
ImgDownLoad.Text = String.Format(" ", linkDescarga, CveDocumentacionElectronica & "." & extencion)
Else
ImgDownLoad.Text = String.Format(" ", linkDescarga, CveDocumentacionElectronica)
- End If
-
-
- If e.Row.DBCampo("Estatus").ToString.ToEntero.Contiene(2, 3) Then
- ImgRechazar.Visible = True
- End If
-
-
- If e.Row.DBCampo("Estatus").ToString.ToEntero.Contiene(2) Then
- ImgAceptar.Visible = True
- End If
-
- 'If e.Row.DBCampo("Estatus").ToString.ToEntero.Contiene(3) Then
- ' chkEstatus.Checked = True
- 'End If
-
- Else
+ End If
+
+
+ If e.Row.DBCampo("Estatus").ToString.ToEntero.Contiene(2, 3) Then
+ ImgRechazar.Visible = True
+ End If
+
+
+ If e.Row.DBCampo("Estatus").ToString.ToEntero.Contiene(2) Then
+ ImgAceptar.Visible = True
+ End If
+
+ 'If e.Row.DBCampo("Estatus").ToString.ToEntero.Contiene(3) Then
+ ' chkEstatus.Checked = True
+ 'End If
+
+ Else
ImgDownLoad.Visible = False
End If
@@ -370,116 +370,116 @@ Partial Class Proveedores_RepDocumentacionProveedor
'chkEstatus.Checked = ImgDownLoad.Visible
End If
- End Sub
-
- Protected Sub ImgRechazar_Click(sender As Object, e As EventArgs)
-
- Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
-
- Dim Obsebaciones As String = GvRow.FCTextBox("TxtObservaciones").Text
- If Obsebaciones.Trim.Length = 0 Then
- Alert("Debe de proporcionar una obserbación o motivo de rechazo.", TipoMensaje.MsgAdvertencia)
- Exit Sub
- End If
-
- Dim Correo As String = GvRow.DataKey("ContactoMail")
- Dim Documentacion As String = GvRow.DataKey("Documentacion")
- Dim Obserbaciones As String = GvRow.FCTextBox("TxtObservaciones").Text
-
- Dim Adjunto As String = GvRow.DataKey("Adjunto")
- Dim CveProveedor As Integer = GvRow.DataKey("CveProveedor").ToEntero
- Dim Archivo As String = UsuarioActual.Empresa.Ruta & $"Edoc\Proveedor\{CveProveedor}\{Adjunto}"
-
-
- Dim objEdoc As New ClsEdocumentacion
- Dim ErrorProceso As Boolean = False
-
- objEdoc.IniciaTransacSQL()
-
- If objEdoc.DocumentacionElectronicaUpdate(GvRow.DataKey("CveDocumentacionElectronica").ToEntero, GvRow.DataKey("CveDocumentacion").ToEntero, -1, -1, GvRow.DataKey("CveProveedor").ToEntero, 1,
- If(Obsebaciones.Trim.Length > 0, Obsebaciones, GvRow.DataKey("Observacion")), "-1",
- UsuarioActual.CveUsuario, GvRow.DataKey("FechaLimite").ToDate, GvRow.DataKey("FechaVigencia").ToDate) Then
-
- Try
- File.Delete(Archivo)
- Catch ex As Exception
- ErrorProceso = True
- End Try
-
- If Not ErrorProceso Then
-
- Dim Cuerpo As String = $"Por medio del presente correo se le notifica que el documento {Documentacion} ha sido rechazado por la siguiente causa: {Obserbaciones} por favor ingrese nuevamente al portal y agréguelo nuevamente.
-Atentamente:
-Saludos.
" - - If Not MandaCorreo(Correo, $"{ UsuarioActual.Empresa.Empresa } documento Rechazado", Cuerpo) Then - ErrorProceso = True - End If - - Alert($"El documento {GvRow.DataKey("Documentacion") } fue rechazado.") - - End If - - - Else - ErrorProceso = True - End If - - If ErrorProceso Then - objEdoc.RollBack() - Else - objEdoc.Commit() - End If - - objEdoc.Dispose() - - CargaDocumentacion() - - End Sub - - Protected Sub ImgAceptar_Click(sender As Object, e As EventArgs) - - Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) - - Dim objEdoc As New ClsEdocumentacion - - If objEdoc.DocumentacionElectronicaUpdate(GvRow.DataKey("CveDocumentacionElectronica").ToEntero, GvRow.DataKey("CveDocumentacion").ToEntero, -1, -1, GvRow.DataKey("CveProveedor").ToEntero, 3, - "", "-1", UsuarioActual.CveUsuario, GvRow.DataKey("FechaLimite").ToDate, GvRow.DataKey("FechaVigencia").ToDate) Then - Alert("Dcumento Aceptado.") - End If - - - objEdoc.Dispose() - - CargaDocumentacion() - End Sub - - Private Function MandaCorreo(Para As String, Asunto As String, Body As String) As Boolean - Dim Respuesta As Boolean = False - - Dim Mail As New ClsSisMail() - + End Sub + + Protected Sub ImgRechazar_Click(sender As Object, e As EventArgs) + + Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) + + Dim Obsebaciones As String = GvRow.FCTextBox("TxtObservaciones").Text + If Obsebaciones.Trim.Length = 0 Then + Alert("Debe de proporcionar una obserbación o motivo de rechazo.", TipoMensaje.MsgAdvertencia) + Exit Sub + End If + + Dim Correo As String = GvRow.DataKey("ContactoMail") + Dim Documentacion As String = GvRow.DataKey("Documentacion") + Dim Obserbaciones As String = GvRow.FCTextBox("TxtObservaciones").Text + + Dim Adjunto As String = GvRow.DataKey("Adjunto") + Dim CveProveedor As Integer = GvRow.DataKey("CveProveedor").ToEntero + Dim Archivo As String = UsuarioActual.Empresa.Ruta & $"Edoc\Proveedor\{CveProveedor}\{Adjunto}" + + + Dim objEdoc As New ClsEdocumentacion + Dim ErrorProceso As Boolean = False + + objEdoc.IniciaTransacSQL() + + If objEdoc.DocumentacionElectronicaUpdate(GvRow.DataKey("CveDocumentacionElectronica").ToEntero, GvRow.DataKey("CveDocumentacion").ToEntero, -1, -1, GvRow.DataKey("CveProveedor").ToEntero, 1, + If(Obsebaciones.Trim.Length > 0, Obsebaciones, GvRow.DataKey("Observacion")), "-1", + UsuarioActual.CveUsuario, GvRow.DataKey("FechaLimite").ToDate, GvRow.DataKey("FechaVigencia").ToDate) Then + + Try + File.Delete(Archivo) + Catch ex As Exception + ErrorProceso = True + End Try + + If Not ErrorProceso Then + + Dim Cuerpo As String = $"Por medio del presente correo se le notifica que el documento {Documentacion} ha sido rechazado por la siguiente causa: {Obserbaciones} por favor ingrese nuevamente al portal y agréguelo nuevamente.
+Atentamente:
+Saludos.
" + + If Not MandaCorreo(Correo, $"{ UsuarioActual.Empresa.Empresa } documento Rechazado", Cuerpo) Then + ErrorProceso = True + End If + + Alert($"El documento {GvRow.DataKey("Documentacion") } fue rechazado.") + + End If + + + Else + ErrorProceso = True + End If + + If ErrorProceso Then + objEdoc.RollBack() + Else + objEdoc.Commit() + End If + + objEdoc.Dispose() + + CargaDocumentacion() + + End Sub + + Protected Sub ImgAceptar_Click(sender As Object, e As EventArgs) + + Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) + + Dim objEdoc As New ClsEdocumentacion + + If objEdoc.DocumentacionElectronicaUpdate(GvRow.DataKey("CveDocumentacionElectronica").ToEntero, GvRow.DataKey("CveDocumentacion").ToEntero, -1, -1, GvRow.DataKey("CveProveedor").ToEntero, 3, + "", "-1", UsuarioActual.CveUsuario, GvRow.DataKey("FechaLimite").ToDate, GvRow.DataKey("FechaVigencia").ToDate) Then + Alert("Dcumento Aceptado.") + End If + + + objEdoc.Dispose() + + CargaDocumentacion() + End Sub + + Private Function MandaCorreo(Para As String, Asunto As String, Body As String) As Boolean + Dim Respuesta As Boolean = False + + Dim Mail As New ClsSisMail() + Para = If(Para IsNot Nothing, Para, "") Asunto = If(Asunto IsNot Nothing, Asunto, "") Body = If(Body IsNot Nothing, Body, "") - Dim ListaArchivos As New List(Of ClsSisMail.ArchivoMail) - - If Mail.SendMail(ClsPaginas.EmpresaNotificaciones, Para, Asunto, Body, Archivos:=ListaArchivos) Then + Dim ListaArchivos As New List(Of ClsSisMail.ArchivoMail) + + If Mail.SendMail(ClsPaginas.EmpresaNotificaciones, Para, Asunto, Body, Archivos:=ListaArchivos) Then Respuesta = True End If Return Respuesta - End Function - - + End Function + + Public Sub UploadModal_ClickDocumentacion(sender As Object, e As EventArgs) - Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) - - ' Dim chkEstatus As CheckBox + Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) + + ' Dim chkEstatus As CheckBox CveDocumentacionElectronica = GvRow.DataKey("CveDocumentacionElectronica").ToString.ToEntero CveDocumentacion = GvRow.DataKey("CveDocumentacion").ToString.ToEntero Documentacion = GvRow.DataKey("Documentacion") @@ -516,95 +516,95 @@ Partial Class Proveedores_RepDocumentacionProveedor RegistraScript("$('#ModalUploadDoc').modal({ backdrop: 'static', keyboard: false});") - End Sub - - Protected Sub BtnUploadFileDoc_Click(sender As Object, e As EventArgs) Handles btnUploadFileDoc.Click - + End Sub + + Protected Sub BtnUploadFileDoc_Click(sender As Object, e As EventArgs) Handles btnUploadFileDoc.Click + Dim FileExtension As String = "-1" Dim Filesgral As List(Of Archivo) = TxtFileDocumentacion.getfiles().Archivos Dim Filename As String = "" - Dim ErrorProceso As Boolean = False - + Dim ErrorProceso As Boolean = False + If AplicaFechaVencimiento And DiasVigencia > 0 Then FechaVigencia = DateTime.Today.AddDays(DiasVigencia) End If - For Each fileItem As Archivo In Filesgral - + For Each fileItem As Archivo In Filesgral + Try FileExtension = IO.Path.GetExtension(String.Format("{0}Temp\{1}", AppDomain.CurrentDomain.BaseDirectory, fileItem.filename)).Replace(".", "") Dim tempArray() As String tempArray = fileItem.filename.ToString().Split("-".ToCharArray()) - - - Dim TempCveDocumentacionElectronica As Integer = 0 - Dim objEdoc As New ClsEdocumentacion - objEdoc.IniciaTransacSQL() - - If CveDocumentacionElectronica = -1 Then - - CveDocumentacionElectronica = objEdoc.DocumentacionElectronicaAdd(CveDocumentacion, -1, -1, CveProveedor, 2, ObservacionDocumentacion, "-1", UsuarioActual.CveUsuario, FechaLimite, FechaVigencia) - - If CveDocumentacionElectronica > 0 Then - If Not objEdoc.DocumentacionElectronicaUpdate(CveDocumentacionElectronica, CveDocumentacion, -1, -1, CveProveedor, 2, ObservacionDocumentacion, CveDocumentacionElectronica & "." & FileExtension, UsuarioActual.CveUsuario, FechaLimite, FechaVigencia) Then - ErrorProceso = True - End If - End If - - - Else - If Not objEdoc.DocumentacionElectronicaUpdate(CveDocumentacionElectronica, CveDocumentacion, -1, -1, CveProveedor, 2, ObservacionDocumentacion, CveDocumentacionElectronica & "." & FileExtension, UsuarioActual.CveUsuario, FechaLimite, FechaVigencia) Then - ErrorProceso = True - End If - End If - - - - If Not ErrorProceso = True Then - - Dim rutaDestino As String = UsuarioActual.Empresa.Ruta & "Edoc\Proveedor\" & CveProveedor & "\" & CveDocumentacionElectronica & "." & FileExtension - Dim rutaAdjuntoAnterior As String = UsuarioActual.Empresa.Ruta & "Edoc\Proveedor\" & CveProveedor & "\" & AdjuntoDocumentacion - - - - Try - If Not System.IO.Directory.Exists(UsuarioActual.Empresa.Ruta & "Edoc\Proveedor\" & CveProveedor & "\") Then - System.IO.Directory.CreateDirectory(UsuarioActual.Empresa.Ruta & "Edoc\Proveedor\" & CveProveedor & "\") - End If - - If File.Exists(rutaAdjuntoAnterior) And AdjuntoDocumentacion.Trim.Length > 0 Then - File.Delete(rutaAdjuntoAnterior) - End If - - If System.IO.File.Exists(rutaDestino) Then - System.IO.File.Delete(rutaDestino) - End If - - System.IO.File.Move(fileItem.FileUrl, rutaDestino) - Catch ex As Exception - GuardaLog($"Error al gaurdar documento (moviendo archivo digital) --> Error{ ex.StackTrace}") - ErrorProceso = True - End Try - End If - - - If Not ErrorProceso Then - objEdoc.Commit() - Alert("Documento cargado correctamente") - Else - objEdoc.RollBack() - Alert("Error al cargar archivo", TipoMensaje.MsgError) - End If - objEdoc.Dispose() - - - CargaDocumentacion() - + + + Dim TempCveDocumentacionElectronica As Integer = 0 + Dim objEdoc As New ClsEdocumentacion + objEdoc.IniciaTransacSQL() + + If CveDocumentacionElectronica = -1 Then + + CveDocumentacionElectronica = objEdoc.DocumentacionElectronicaAdd(CveDocumentacion, -1, -1, CveProveedor, 2, ObservacionDocumentacion, "-1", UsuarioActual.CveUsuario, FechaLimite, FechaVigencia) + + If CveDocumentacionElectronica > 0 Then + If Not objEdoc.DocumentacionElectronicaUpdate(CveDocumentacionElectronica, CveDocumentacion, -1, -1, CveProveedor, 2, ObservacionDocumentacion, CveDocumentacionElectronica & "." & FileExtension, UsuarioActual.CveUsuario, FechaLimite, FechaVigencia) Then + ErrorProceso = True + End If + End If + + + Else + If Not objEdoc.DocumentacionElectronicaUpdate(CveDocumentacionElectronica, CveDocumentacion, -1, -1, CveProveedor, 2, ObservacionDocumentacion, CveDocumentacionElectronica & "." & FileExtension, UsuarioActual.CveUsuario, FechaLimite, FechaVigencia) Then + ErrorProceso = True + End If + End If + + + + If Not ErrorProceso = True Then + + Dim rutaDestino As String = UsuarioActual.Empresa.Ruta & "Edoc\Proveedor\" & CveProveedor & "\" & CveDocumentacionElectronica & "." & FileExtension + Dim rutaAdjuntoAnterior As String = UsuarioActual.Empresa.Ruta & "Edoc\Proveedor\" & CveProveedor & "\" & AdjuntoDocumentacion + + + + Try + If Not System.IO.Directory.Exists(UsuarioActual.Empresa.Ruta & "Edoc\Proveedor\" & CveProveedor & "\") Then + System.IO.Directory.CreateDirectory(UsuarioActual.Empresa.Ruta & "Edoc\Proveedor\" & CveProveedor & "\") + End If + + If File.Exists(rutaAdjuntoAnterior) And AdjuntoDocumentacion.Trim.Length > 0 Then + File.Delete(rutaAdjuntoAnterior) + End If + + If System.IO.File.Exists(rutaDestino) Then + System.IO.File.Delete(rutaDestino) + End If + + System.IO.File.Move(fileItem.FileUrl, rutaDestino) + Catch ex As Exception + GuardaLog($"Error al gaurdar documento (moviendo archivo digital) --> Error{ ex.StackTrace}") + ErrorProceso = True + End Try + End If + + + If Not ErrorProceso Then + objEdoc.Commit() + Alert("Documento cargado correctamente") + Else + objEdoc.RollBack() + Alert("Error al cargar archivo", TipoMensaje.MsgError) + End If + objEdoc.Dispose() + + + CargaDocumentacion() + TxtFileDocumentacion.Text = "" - UPModalUploadDoc.Update() - + UPModalUploadDoc.Update() + Catch ex As Exception OnError("Error al cargar archivo", ex) End Try @@ -613,12 +613,12 @@ Partial Class Proveedores_RepDocumentacionProveedor RegistraScript("$('#ModalUploadDoc').modal('hide')", "hidemodal3") - End Sub - - - - - - - + End Sub + + + + + + + End Class diff --git a/Compras/RepGastosFijos.aspx.cs b/Compras/RepGastosFijos.aspx.cs index 4fdbd1bd7..92265c1dc 100644 --- a/Compras/RepGastosFijos.aspx.cs +++ b/Compras/RepGastosFijos.aspx.cs @@ -217,7 +217,7 @@ public partial class Compras_RepGastosFijos : ClsPaginas string FechaInicio = DateTime.Parse(TxtFechaI.Text).ToShortDateString(); string FechaFinal = DateTime.Parse(TxtFechaF.Text).ToShortDateString(); - string Ruta = string.Format("{0}Empresas/{1}/", AppDomain.CurrentDomain.BaseDirectory, UsuarioActual.CveEmpresa); + string Ruta = string.Format("{0}Empresas/{1}/", ModExtensiones.DirectorioBaseEmpresas, UsuarioActual.CveEmpresa); string RutaPDF = string.Format("{0}/Formatos/RepGastosFijos.rdlc", Ruta); if (!File.Exists(RutaPDF)) diff --git a/Compras/RepPagado.aspx.cs b/Compras/RepPagado.aspx.cs index 8518db5fd..8a9f73844 100644 --- a/Compras/RepPagado.aspx.cs +++ b/Compras/RepPagado.aspx.cs @@ -1,4 +1,11 @@ -using System; using System.Collections.Generic; using System.Linq; using System.Web; using System.Web.UI.WebControls; using Extensiones; using System.Data; using static Extensiones.ModExtensiones; +using System; +using System.Collections.Generic; +using System.Linq; +using System.Web; +using System.Web.UI.WebControls; +using Extensiones; +using System.Data; +using static Extensiones.ModExtensiones; using Microsoft.Reporting.WebForms; using System.Web.UI.HtmlControls; using System.Text; @@ -236,7 +243,7 @@ public partial class Compras_RepPagado : ClsPaginas StrFiltro.AppendFormat(" Moneda: {0}", DdlMoneda.SelectedItem.Text); string RutaPDF = ""; - string Ruta = $"{AppDomain.CurrentDomain.BaseDirectory}Empresas/{UsuarioActual.CveEmpresa}/"; + string Ruta = $"{ModExtensiones.DirectorioBaseEmpresas}Empresas/{UsuarioActual.CveEmpresa}/"; RutaPDF = $"{Ruta}/Formatos/RepRecuperacion.rdlc"; if (!System.IO.File.Exists(RutaPDF)) { diff --git a/Compras/RepPagadoDetalle.aspx.cs b/Compras/RepPagadoDetalle.aspx.cs index 242209e3e..aad25717b 100644 --- a/Compras/RepPagadoDetalle.aspx.cs +++ b/Compras/RepPagadoDetalle.aspx.cs @@ -1,4 +1,11 @@ -using System; using System.Collections.Generic; using System.Linq; using System.Web; using System.Web.UI.WebControls; using Extensiones; using System.Data; using static Extensiones.ModExtensiones; +using System; +using System.Collections.Generic; +using System.Linq; +using System.Web; +using System.Web.UI.WebControls; +using Extensiones; +using System.Data; +using static Extensiones.ModExtensiones; using Microsoft.Reporting.WebForms; using System.Web.UI.HtmlControls; using System.Text; @@ -267,7 +274,7 @@ public partial class Compras_RepPágadoDetalle : ClsPaginas StrFiltro.AppendFormat(" Moneda: {0}", DdlMoneda.SelectedItem.Text); string RutaPDF = ""; - string Ruta = $"{AppDomain.CurrentDomain.BaseDirectory}Empresas/{UsuarioActual.CveEmpresa}/"; + string Ruta = $"{ModExtensiones.DirectorioBaseEmpresas}Empresas/{UsuarioActual.CveEmpresa}/"; RutaPDF = $"{Ruta}/Formatos/RepPagadoDetalle.rdlc"; if (!System.IO.File.Exists(RutaPDF)) { diff --git a/Compras/RepPagadoPeriodo.aspx.cs b/Compras/RepPagadoPeriodo.aspx.cs index b533b6280..e8c67c71f 100644 --- a/Compras/RepPagadoPeriodo.aspx.cs +++ b/Compras/RepPagadoPeriodo.aspx.cs @@ -1,4 +1,11 @@ -using System; using System.Collections.Generic; using System.Linq; using System.Web; using System.Web.UI.WebControls; using Extensiones; using System.Data; using static Extensiones.ModExtensiones; +using System; +using System.Collections.Generic; +using System.Linq; +using System.Web; +using System.Web.UI.WebControls; +using Extensiones; +using System.Data; +using static Extensiones.ModExtensiones; using Microsoft.Reporting.WebForms; using System.Web.UI.HtmlControls; using System.Text; @@ -285,7 +292,7 @@ public partial class Compras_RepPagadoPeriodo : ClsPaginas StrFiltro.AppendFormat(" Moneda: {0}", DdlMoneda.SelectedItem.Text); string RutaPDF = ""; - string Ruta = $"{AppDomain.CurrentDomain.BaseDirectory}Empresas/{UsuarioActual.CveEmpresa}/"; + string Ruta = $"{ModExtensiones.DirectorioBaseEmpresas}Empresas/{UsuarioActual.CveEmpresa}/"; RutaPDF = $"{Ruta}/Formatos/RepPagadoPeriodo.rdlc"; if (!System.IO.File.Exists(RutaPDF)) { diff --git a/Compras/eFacturas.aspx.vb b/Compras/eFacturas.aspx.vb index e89aec644..86b0b4428 100644 --- a/Compras/eFacturas.aspx.vb +++ b/Compras/eFacturas.aspx.vb @@ -618,8 +618,8 @@ Partial Class Compras_eFacturas txtFechaF.Text = Now.ToShortDateString 'txtFechaI.Text.ToDate.AddMonths(1).AddDays(-1).ToShortDateString - Destino = String.Format("{0}Compras\", UsuarioActual.Empresa.Ruta) 'string.format("{0}Empresas\{1}\Compras\", AppDomain.CurrentDomain.BaseDirectory ,UsuarioActual.CveEmpresa & "\Compras\" - Ejecutable = Path.Combine(AppDomain.CurrentDomain.BaseDirectory, "Utilerias\ADSUtilerias.exe") + Destino = String.Format("{0}Compras\", UsuarioActual.Empresa.Ruta) 'string.format("{0}Empresas\{1}\Compras\", ModExtensiones.DirectorioBaseEmpresas ,UsuarioActual.CveEmpresa & "\Compras\" + Ejecutable = Path.Combine(ModExtensiones.DirectorioBaseEmpresas, "Utilerias\ADSUtilerias.exe") Form.DefaultButton = BtnConsultar.UniqueID DdlResponsable.DataSource = GlobalDTUsuarioResponsable.FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa)) @@ -1202,7 +1202,7 @@ Partial Class Compras_eFacturas End Sub Protected Sub LnkNoRecibidas_Click(sender As Object, e As EventArgs, Optional ValidaRowCount As Boolean = False) Handles LnkNoRecibias.Click Dim DtNoRecibidas As New DataTable - Dim Ruta As String = String.Format("{0}\Empresas\{1}\Compras\NoRecibidas-{1}.xml", AppDomain.CurrentDomain.BaseDirectory, UsuarioActual.CveEmpresa) + Dim Ruta As String = String.Format("{0}\Empresas\{1}\Compras\NoRecibidas-{1}.xml", ModExtensiones.DirectorioBaseEmpresas, UsuarioActual.CveEmpresa) Dim Str As New StringBuilder If IO.File.Exists(Ruta) Then DtNoRecibidas.ReadXml(Ruta) @@ -1329,7 +1329,7 @@ Partial Class Compras_eFacturas filemove = fileItem.filename If filemove <> "" Then - filemove.FilesMove("", String.Format("Empresas\{0}\Temp\Facturas", UsuarioActual.CveEmpresa)) + filemove.FilesMove("", String.Format("{0}\Temp\Facturas", UsuarioActual.Empresa.Ruta)) 'AGREGA XML A LA LISTA If FileExtension.ToUpper = "XML" Then ListXML.Add(String.Format("{0}Temp\Facturas\{1}", UsuarioActual.Empresa.Ruta, filemove)) @@ -1355,7 +1355,7 @@ Partial Class Compras_eFacturas ListaComprimidos.Add(filePath) 'CREO DIRECTORIO ALEATORIO Dim Aleatorio As New Random - Dim TempDirectorio As String = String.Format("{0}Empresas\{1}\{2}\{3}{4}", Request.PhysicalApplicationPath, UsuarioActual.CveEmpresa, "Temp\Facturas", Date.Now.Ticks, Aleatorio.Next(100, 999)) + Dim TempDirectorio As String = String.Format("{0}\{1}\{2}{3}", UsuarioActual.Empresa.Ruta, "Temp\Facturas", Date.Now.Ticks, Aleatorio.Next(100, 999)) Directory.CreateDirectory(TempDirectorio) ListaDirectoriosTemporales.Add(TempDirectorio) 'AGREGA DIRECTORIO A LA LISTA @@ -1370,7 +1370,7 @@ Partial Class Compras_eFacturas Next Dim Arreglo As New ArrayList() - ' Dim Archivos As String() = Directory.GetFiles(String.Format("{0}Empresas\{1}\Temp", AppDomain.CurrentDomain.BaseDirectory, UsuarioActual.CveEmpresa)) + ' Dim Archivos As String() = Directory.GetFiles(String.Format("{0}Empresas\{1}\Temp", ModExtensiones.DirectorioBaseEmpresas, UsuarioActual.CveEmpresa)) 'Dim NombreArchivo As String Dim Bandera = True Dim Retorno = "" @@ -1513,9 +1513,9 @@ Partial Class Compras_eFacturas ' If GeneraPDF(Fact.DirectorioTemporal, Fact) Then ' ListPDF.Add(Fact.ArchivoPDF) ' Retorno = AgregaFactura(Fact) - ' ' ModExtensiones.GuardaLog("'*******se genero el pdf :" + String.Format("{0}Empresas\{1}\Temp", AppDomain.CurrentDomain.BaseDirectory, UsuarioActual.CveEmpresa) + Fact.ArchivoXML + " RFC: " + tRF + " Anio" + Convert.ToDateTime(Fact.Fecha).Year + "Retorno:" + Retorno) + ' ' ModExtensiones.GuardaLog("'*******se genero el pdf :" + String.Format("{0}Empresas\{1}\Temp", ModExtensiones.DirectorioBaseEmpresas, UsuarioActual.CveEmpresa) + Fact.ArchivoXML + " RFC: " + tRF + " Anio" + Convert.ToDateTime(Fact.Fecha).Year + "Retorno:" + Retorno) ' Else - ' ' ModExtensiones.GuardaLog("'*******no se genero el pdf :" + String.Format("{0}Empresas\{1}\Temp", AppDomain.CurrentDomain.BaseDirectory, UsuarioActual.CveEmpresa) + Fact.ArchivoXML + " RFC: " + tRF + " Anio" + Convert.ToDateTime(Fact.Fecha).Year + "Retorno:" + Retorno) + ' ' ModExtensiones.GuardaLog("'*******no se genero el pdf :" + String.Format("{0}Empresas\{1}\Temp", ModExtensiones.DirectorioBaseEmpresas, UsuarioActual.CveEmpresa) + Fact.ArchivoXML + " RFC: " + tRF + " Anio" + Convert.ToDateTime(Fact.Fecha).Year + "Retorno:" + Retorno) ' End If ' End If @@ -1549,7 +1549,7 @@ Partial Class Compras_eFacturas ' strLineaTMP = Chr(13) & Chr(10) & Day(Now) & "/" & Month(Now) & "/" & Year(Now) & " " & Hour(Now) & ":" & Minuto & ". " & Str & Chr(13) & Chr(10) strLineaTMP = String.Format("{0}{1}Log: {2}{3}:{4}", Chr(13), Chr(10), Str, DateTime.Now.ToShortDateString, DateTime.Now.ToShortTimeString) Try - ArchivoW = New StreamWriter(String.Format("{0}\Logefacturas.txt", AppDomain.CurrentDomain.BaseDirectory), True, System.Text.Encoding.UTF8) + ArchivoW = New StreamWriter(String.Format("{0}\Logefacturas.txt", ModExtensiones.DirectorioBaseEmpresas), True, System.Text.Encoding.UTF8) Catch ex As UnauthorizedAccessException 'Alert("No hay permisos para guardar en el Log.", Extensiones.TipoMensaje.MsgError) Exit Sub @@ -1650,7 +1650,7 @@ Partial Class Compras_eFacturas DirectoryExistsCreate(String.Format("{0}Compras\{1}", UsuarioActual.Empresa.Ruta, RFC.ToUpper)) Try - File.Move(PathArchivo, String.Format("{0}Empresas\{1}\Compras\{2}\{3}", AppDomain.CurrentDomain.BaseDirectory, UsuarioActual.CveEmpresa, RFC.ToUpper, NombreArchivo)) + File.Move(PathArchivo, String.Format("{0}Empresas\{1}\Compras\{2}\{3}", ModExtensiones.DirectorioBaseEmpresas, UsuarioActual.CveEmpresa, RFC.ToUpper, NombreArchivo)) Catch ex As Exception Alert("Error") End Try @@ -1668,11 +1668,11 @@ Partial Class Compras_eFacturas For Each entry As ZipArchiveEntry In archive.Entries If entry.FullName.EndsWith(".xml", StringComparison.OrdinalIgnoreCase) Then - 'If File.Exists(String.Format("{0}Empresas\{1}\Temp\{2}\{3}", AppDomain.CurrentDomain.BaseDirectory, UsuarioActual.CveEmpresa, Directorio, entry.Name)) Then - ' File.Delete(String.Format("{0}Empresas\{1}\Temp\{2}\{3}", AppDomain.CurrentDomain.BaseDirectory, UsuarioActual.CveEmpresa, Directorio, entry.Name)) + 'If File.Exists(String.Format("{0}Empresas\{1}\Temp\{2}\{3}", ModExtensiones.DirectorioBaseEmpresas, UsuarioActual.CveEmpresa, Directorio, entry.Name)) Then + ' File.Delete(String.Format("{0}Empresas\{1}\Temp\{2}\{3}", ModExtensiones.DirectorioBaseEmpresas, UsuarioActual.CveEmpresa, Directorio, entry.Name)) 'End If - 'entry.ExtractToFile(String.Format("{0}Empresas\{1}\Temp\{2}\{3}", AppDomain.CurrentDomain.BaseDirectory, UsuarioActual.CveEmpresa, Directorio, entry.Name)) + 'entry.ExtractToFile(String.Format("{0}Empresas\{1}\Temp\{2}\{3}", ModExtensiones.DirectorioBaseEmpresas, UsuarioActual.CveEmpresa, Directorio, entry.Name)) If File.Exists(String.Format("{0}\{1}", Directorio, entry.Name)) Then File.Delete(String.Format("{0}\{1}", Directorio, entry.Name)) @@ -2253,7 +2253,7 @@ Partial Class Compras_eFacturas Dim Retorno = False Dim NombreArchivo As String = TmpArchivoPDF Dim CadenaOriginal As String = (Convert.ToString((Convert.ToString((Convert.ToString("||1.0|") & FolioFiscal) + "|" + FechaCertificacion.ToString("yyyy-MM-dd") + "T" + FechaCertificacion.ToString("HH:mm:ss") + "|") & SelloCFDi) + "|") & NoSerieCertificado) + "||" - Dim RutaFormato As String = String.Format("{0}Empresas\Grales\Formatos\CFDI.rdlc", AppDomain.CurrentDomain.BaseDirectory) + Dim RutaFormato As String = String.Format("{0}Empresas\Grales\Formatos\CFDI.rdlc", ModExtensiones.DirectorioBaseEmpresas) 'Dim ArchivoTempXLS As String = String.Format("{0}\GenSis{1}-{2}", Path.GetDirectoryName(ArchivoBaseXLS), Now.Ticks, Path.GetFileName(ArchivoBaseXLS)) Dim Fiscal As String = String.Format("Domicilio Fiscal {0}{1} {2}{0}Col.{3}{0}CP. {4} {5},{6},{7}", vbCr, DomFisCalle, DomFisNoExt, DomFisCol, DomFisCP, @@ -2415,8 +2415,8 @@ Partial Class Compras_eFacturas 'Dim ObjProcess As Process = Nothing 'Dim Mensajes As String = "" - 'Dim EjecutableUtilerias = Path.Combine(AppDomain.CurrentDomain.BaseDirectory, "Utilerias\UtileriasAD.exe") - 'Dim Folder = Path.Combine(AppDomain.CurrentDomain.BaseDirectory, "Empresas\") + 'Dim EjecutableUtilerias = Path.Combine(ModExtensiones.DirectorioBaseEmpresas, "Utilerias\UtileriasAD.exe") + 'Dim Folder = Path.Combine(ModExtensiones.DirectorioBaseEmpresas, "Empresas\") 'Dim error1 As Boolean = False 'Dim en As New CultureInfo("en-US") 'Dim fechai = txtFechaI.Text.Trim.ToDate.ToString("d", en) @@ -2445,8 +2445,8 @@ Partial Class Compras_eFacturas 'Private Sub ProcesaBuzon() ' Dim ObjProcess As Process = Nothing ' Dim Mensajes As String = "" - ' Dim EjecutableUtilerias = Path.Combine(AppDomain.CurrentDomain.BaseDirectory, "Utilerias\ADSUtilerias.exe") - ' Dim Folder = Path.Combine(AppDomain.CurrentDomain.BaseDirectory, "Empresas\") + ' Dim EjecutableUtilerias = Path.Combine(ModExtensiones.DirectorioBaseEmpresas, "Utilerias\ADSUtilerias.exe") + ' Dim Folder = Path.Combine(ModExtensiones.DirectorioBaseEmpresas, "Empresas\") ' Dim error1 As Boolean = False ' Dim en As New CultureInfo("en-US") ' Dim fechai = txtFechaI.Text.Trim.ToDate.ToString("d", en) @@ -2646,7 +2646,7 @@ Partial Class Compras_eFacturas Dim XMLDoc As New XmlDocument - Dim Archivo As String = String.Format("{0}Empresas\{1}\Compras\{2}\{3}", AppDomain.CurrentDomain.BaseDirectory, UsuarioActual.CveEmpresa, gvRow.DataKey("RFCDe"), gvRow.DataKey("XML")) + Dim Archivo As String = String.Format("{0}Empresas\{1}\Compras\{2}\{3}", ModExtensiones.DirectorioBaseEmpresas, UsuarioActual.CveEmpresa, gvRow.DataKey("RFCDe"), gvRow.DataKey("XML")) If IO.File.Exists(Archivo) Then @@ -3079,7 +3079,7 @@ Partial Class Compras_eFacturas Public Sub ImprimirPDFXML(NombreArchivo As String, rutaxml As String) Dim objxml As XmlSatCFDI = XmlSatCFDI.readXML(rutaxml) - Dim rutaReporte As String = String.Format("{0}{1}", AppDomain.CurrentDomain.BaseDirectory, "\Empresas\Grales\Formatos\CFDIV3.rdlc") + Dim rutaReporte As String = String.Format("{0}{1}", ModExtensiones.DirectorioBaseEmpresas, "\Empresas\Grales\Formatos\CFDIV3.rdlc") Dim QR As ClbNegBICFDv3_2.ClsNegCBBGenerar = New ClbNegBICFDv3_2.ClsNegCBBGenerar() Dim cQr As Byte() = QR.GenerarCBBBytes(objxml.emisor.Rfc, objxml.receptor.Rfc, objxml.comprobante.Total, objxml.complemento.UUID) Dim parametros As List(Of ReportParameter) = New List(Of ReportParameter)() @@ -3177,7 +3177,7 @@ Partial Class Compras_eFacturas Dim strRFCde As String = gvrow.DataKey("RFCde") Dim strXml As String Dim strPDF As String - Dim dirbase As String = String.Format("{0}{1}{2}{3}{4}\", AppDomain.CurrentDomain.BaseDirectory, "\Empresas\", UsuarioActual.CveEmpresa, "\Compras\", strRFCde) + Dim dirbase As String = String.Format("{0}{1}{2}{3}{4}\", ModExtensiones.DirectorioBaseEmpresas, "\Empresas\", UsuarioActual.CveEmpresa, "\Compras\", strRFCde) If Directory.Exists(dirbase) Then strXml = String.Format("{0}{1}", dirbase, gvrow.DataKey("XML")) strPDF = String.Format("{0}{1}", dirbase, gvrow.DataKey("PDF")) @@ -3212,7 +3212,7 @@ Partial Class Compras_eFacturas Dim gvrow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) Dim strRFCde As String = gvrow.DataKey("RFCde") Dim strPDF As String - Dim dirbase As String = String.Format("{0}{1}{2}{3}{4}\", AppDomain.CurrentDomain.BaseDirectory, "\Empresas\", UsuarioActual.CveEmpresa, "\Compras\", strRFCde) + Dim dirbase As String = String.Format("{0}{1}{2}{3}{4}\", ModExtensiones.DirectorioBaseEmpresas, "\Empresas\", UsuarioActual.CveEmpresa, "\Compras\", strRFCde) strPDF = String.Format("{0}{1}", dirbase, gvrow.DataKey("PDF")) If File.Exists(strPDF) Then Dim file As New System.IO.FileInfo(strPDF) @@ -3236,7 +3236,7 @@ Partial Class Compras_eFacturas Dim gvrow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) Dim strRFCde As String = gvrow.DataKey("RFCde") Dim strXml As String - Dim dirbase As String = String.Format("{0}{1}{2}{3}{4}\", AppDomain.CurrentDomain.BaseDirectory, "\Empresas\", UsuarioActual.CveEmpresa, "\Compras\", strRFCde) + Dim dirbase As String = String.Format("{0}{1}{2}{3}{4}\", ModExtensiones.DirectorioBaseEmpresas, "\Empresas\", UsuarioActual.CveEmpresa, "\Compras\", strRFCde) strXml = String.Format("{0}{1}", dirbase, gvrow.DataKey("XML")) If File.Exists(strXml) Then Dim file As New System.IO.FileInfo(strXml) @@ -3260,9 +3260,9 @@ Partial Class Compras_eFacturas Dim gvrow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) Dim objxml As XmlSatCFDI = XmlSatCFDI.readXML(String.Format("{0}{1}\{2}", Destino, gvrow.DataKey("RFCDe"), gvrow.DataKey("XML"))) If Not IsNothing(objxml) Then - Dim rutaReporte As String = String.Format("{0}{1}", AppDomain.CurrentDomain.BaseDirectory, "\Empresas\Grales\Formatos\CFDIV3.rdlc") + Dim rutaReporte As String = String.Format("{0}{1}", ModExtensiones.DirectorioBaseEmpresas, "\Empresas\Grales\Formatos\CFDIV3.rdlc") If Not IsNothing(objxml.complemento.Pagos) Then - rutaReporte = String.Format("{0}{1}", AppDomain.CurrentDomain.BaseDirectory, "\Empresas\Grales\Formatos\CFDIV3Pago.rdlc") + rutaReporte = String.Format("{0}{1}", ModExtensiones.DirectorioBaseEmpresas, "\Empresas\Grales\Formatos\CFDIV3Pago.rdlc") End If Dim NombreArchivo As String = String.Format("{0}{1}\{2}", Destino, gvrow.DataKey("RFCDe"), gvrow.DataKey("PDF")) diff --git a/Contabilidad/RegPoliza.aspx.vb b/Contabilidad/RegPoliza.aspx.vb index 25dbcc116..afeb6b527 100644 --- a/Contabilidad/RegPoliza.aspx.vb +++ b/Contabilidad/RegPoliza.aspx.vb @@ -644,11 +644,11 @@ Partial Class RegPoliza ' Excel.Visible = True ' Excel.ScreenUpdating = True ' Excel.DisplayAlerts = True - ' Dim ArchivoBase As New System.IO.FileInfo(AppDomain.CurrentDomain.BaseDirectory & "Empresas\" & UsuarioActual.CveEmpresa & "\Formatos\Poliza.xlsm") - ' 'ArchivoBase.CopyTo(AppDomain.CurrentDomain.BaseDirectory & "Empresas\" & UsuarioActual.CveEmpresa & "\Formatos\Poliza_" & LtlNumeroPoliza.Text.ToString() & ".xlsm", True) - ' ArchivoBase.CopyTo(AppDomain.CurrentDomain.BaseDirectory & "Empresas\" & UsuarioActual.CveEmpresa & "\Formatos\Poliza_" & TxtNumeroPoliza.Text.ToString() & ".xlsm", True) - ' 'Dim ArchivoTemp As New System.IO.FileInfo(AppDomain.CurrentDomain.BaseDirectory & "Empresas\" & UsuarioActual.CveEmpresa & "\Formatos\Poliza_" & LtlNumeroPoliza.Text.ToString() & ".xlsm") - ' Dim ArchivoTemp As New System.IO.FileInfo(AppDomain.CurrentDomain.BaseDirectory & "Empresas\" & UsuarioActual.CveEmpresa & "\Formatos\Poliza_" & TxtNumeroPoliza.Text.ToString() & ".xlsm") + ' Dim ArchivoBase As New System.IO.FileInfo(ModExtensiones.DirectorioBaseEmpresas & "Empresas\" & UsuarioActual.CveEmpresa & "\Formatos\Poliza.xlsm") + ' 'ArchivoBase.CopyTo(ModExtensiones.DirectorioBaseEmpresas & "Empresas\" & UsuarioActual.CveEmpresa & "\Formatos\Poliza_" & LtlNumeroPoliza.Text.ToString() & ".xlsm", True) + ' ArchivoBase.CopyTo(ModExtensiones.DirectorioBaseEmpresas & "Empresas\" & UsuarioActual.CveEmpresa & "\Formatos\Poliza_" & TxtNumeroPoliza.Text.ToString() & ".xlsm", True) + ' 'Dim ArchivoTemp As New System.IO.FileInfo(ModExtensiones.DirectorioBaseEmpresas & "Empresas\" & UsuarioActual.CveEmpresa & "\Formatos\Poliza_" & LtlNumeroPoliza.Text.ToString() & ".xlsm") + ' Dim ArchivoTemp As New System.IO.FileInfo(ModExtensiones.DirectorioBaseEmpresas & "Empresas\" & UsuarioActual.CveEmpresa & "\Formatos\Poliza_" & TxtNumeroPoliza.Text.ToString() & ".xlsm") ' Dim Libro As msExcel.Workbook = Excel.Workbooks.Open(ArchivoTemp.FullName, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing) ' Libro.Activate() @@ -698,8 +698,8 @@ Partial Class RegPoliza ' Hoja.Range("K" & CeldaF & ":K" & CeldaF).Value = TmpDT.SUM("Abono").FormatoNumero ' 'Exportar PDF - ' 'Dim pdfFileOut As String = AppDomain.CurrentDomain.BaseDirectory & "Empresas\" & UsuarioActual.CveEmpresa & "\Formatos\Poliza_" & LtlNumeroPoliza.Text.ToString() & ".pdf" - ' Dim pdfFileOut As String = AppDomain.CurrentDomain.BaseDirectory & "Empresas\" & UsuarioActual.CveEmpresa & "\Formatos\Poliza_" & TxtNumeroPoliza.Text.ToString() & ".pdf" + ' 'Dim pdfFileOut As String = ModExtensiones.DirectorioBaseEmpresas & "Empresas\" & UsuarioActual.CveEmpresa & "\Formatos\Poliza_" & LtlNumeroPoliza.Text.ToString() & ".pdf" + ' Dim pdfFileOut As String = ModExtensiones.DirectorioBaseEmpresas & "Empresas\" & UsuarioActual.CveEmpresa & "\Formatos\Poliza_" & TxtNumeroPoliza.Text.ToString() & ".pdf" ' Dim outputFileName As Object = pdfFileOut ' Dim fileFormat As msExcel.XlFixedFormatType = msExcel.XlFixedFormatType.xlTypePDF ' Libro.ExportAsFixedFormat(fileFormat, outputFileName, missing, missing, missing, missing, missing, missing, missing) @@ -1742,7 +1742,7 @@ Partial Class RegPoliza #Region "DESCARGAR E IMPRIMIR LISTADO" Public Sub DescargarFormato() - Dim Directorio As String = AppDomain.CurrentDomain.BaseDirectory & "Empresas\Grales\Formatos\FormatoRegPoliza.xlsx" + Dim Directorio As String = ModExtensiones.DirectorioBaseEmpresas & "Empresas\Grales\Formatos\FormatoRegPoliza.xlsx" Dim Archivo As New IO.FileInfo(Directorio) If Archivo.Exists Then @@ -1878,7 +1878,7 @@ Partial Class RegPoliza 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 = AppDomain.CurrentDomain.BaseDirectory & file.patch + Dim Directorio As String = ModExtensiones.DirectorioBaseEmpresas & file.patch Dim Tipo As String = If(file.Extencion.Contiene("xlsx", "xlsx", "xlsm", "xlsb", "xls"), "EXCEL", "CSV") CargarArchivo(Directorio, file.filename, Tipo) Else diff --git a/Contabilidad/RepBalanzaComprobacion.aspx.vb b/Contabilidad/RepBalanzaComprobacion.aspx.vb index 8a2dbb8c7..04f9191b3 100644 --- a/Contabilidad/RepBalanzaComprobacion.aspx.vb +++ b/Contabilidad/RepBalanzaComprobacion.aspx.vb @@ -185,7 +185,7 @@ Partial Class Contabilidad_RepBalanzaComprobacion ' Dim style As StringBuilder = New StringBuilder() ' style.Append(" ") ' 'To Export all pages ' 'Gv.AllowPaging = False diff --git a/Contabilidad2/RepBalanzaComprobacion.aspx.vb b/Contabilidad2/RepBalanzaComprobacion.aspx.vb index 8d342b12b..8d167ab63 100644 --- a/Contabilidad2/RepBalanzaComprobacion.aspx.vb +++ b/Contabilidad2/RepBalanzaComprobacion.aspx.vb @@ -192,7 +192,7 @@ Partial Class Contabilidad2_RepBalanzaComprobacion ' Dim style As StringBuilder = New StringBuilder() ' style.Append(" ") ' 'To Export all pages ' 'Gv.AllowPaging = False diff --git a/Contabilidad2/RepBalanzaComprobacionSAT.aspx.vb b/Contabilidad2/RepBalanzaComprobacionSAT.aspx.vb index afa88f803..888fb6018 100644 --- a/Contabilidad2/RepBalanzaComprobacionSAT.aspx.vb +++ b/Contabilidad2/RepBalanzaComprobacionSAT.aspx.vb @@ -191,7 +191,7 @@ Partial Class Contabilidad2_RepBalanzaComprobacion ' Dim style As StringBuilder = New StringBuilder() ' style.Append(" ") ' 'To Export all pages ' 'Gv.AllowPaging = False diff --git a/Contabilidad2/RepVariacionHaciendaPublica.aspx.vb b/Contabilidad2/RepVariacionHaciendaPublica.aspx.vb index 666e1b3a0..047d22a3f 100644 --- a/Contabilidad2/RepVariacionHaciendaPublica.aspx.vb +++ b/Contabilidad2/RepVariacionHaciendaPublica.aspx.vb @@ -312,7 +312,7 @@ Partial Class AC_RepVariacionHaciendaPublica ' Dim style As StringBuilder = New StringBuilder() ' style.Append(" ") ' 'To Export all pages ' 'Gv.AllowPaging = False diff --git a/Contratos/CatContratosPlantillas.aspx.vb b/Contratos/CatContratosPlantillas.aspx.vb index fda7e912b..e2c1ad0ae 100644 --- a/Contratos/CatContratosPlantillas.aspx.vb +++ b/Contratos/CatContratosPlantillas.aspx.vb @@ -211,7 +211,7 @@ Partial Class Contratos_CatContratosPlantillas Return nombreArchivoFormateado End Function Protected Sub BtnDescargar_Click(sender As Object, e As EventArgs) Handles LbDescargar.Click - Dim Path As String = $"{AppDomain.CurrentDomain.BaseDirectory}Empresas\Grales\Formatos\Plantilla.docx" + Dim Path As String = $"{ModExtensiones.DirectorioBaseEmpresas}Empresas\Grales\Formatos\Plantilla.docx" Dim Archivo As New System.IO.FileInfo(Path) If Archivo.Exists Then diff --git a/Contratos/Contrato.aspx.vb b/Contratos/Contrato.aspx.vb index 340a60c83..aae48ff3f 100644 --- a/Contratos/Contrato.aspx.vb +++ b/Contratos/Contrato.aspx.vb @@ -1231,10 +1231,10 @@ Partial Class Contratos_Default 'Renombrar archivo If ViewState("extencion") IsNot Nothing Then If ViewState("FUrl").ToString.Length > 0 AndAlso ViewState("extencion").ToString.Length > 0 Then - If Not Directory.Exists(Request.PhysicalApplicationPath + "Empresas\" & UsuarioActual.CveEmpresa & "\Contratos") Then - Directory.CreateDirectory(Request.PhysicalApplicationPath + "Empresas\" & UsuarioActual.CveEmpresa & "\Contratos") + If Not Directory.Exists(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\Contratos") Then + Directory.CreateDirectory(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\Contratos") End If - Ruta = Request.PhysicalApplicationPath + "Empresas\" & UsuarioActual.CveEmpresa & "\Contratos\" + Ruta = ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\Contratos\" 'ViewState("extencion") = FileExtension 'ViewState("FUrl") = Path.Combine(UsuarioActual.Empresa.Ruta, "Contratos", "Temp", ViewState("FName").ToString) @@ -1368,10 +1368,10 @@ Partial Class Contratos_Default If ViewState("extencion") IsNot Nothing Then If ViewState("FUrl").ToString.Length > 0 AndAlso ViewState("extencion").ToString.Length > 0 Then - If Not Directory.Exists(Request.PhysicalApplicationPath + "Empresas\" & UsuarioActual.CveEmpresa & "\Contratos") Then - Directory.CreateDirectory(Request.PhysicalApplicationPath + "Empresas\" & UsuarioActual.CveEmpresa & "\Contratos") + If Not Directory.Exists(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\Contratos") Then + Directory.CreateDirectory(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\Contratos") End If - Ruta = Request.PhysicalApplicationPath + "Empresas\" & UsuarioActual.CveEmpresa & "\Contratos\" + Ruta = ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\Contratos\" Try If File.Exists(String.Format("{0}{1}.{2}", Ruta, CveContrato.ToString, ViewState("extencion").ToString)) Then @@ -3169,7 +3169,7 @@ Partial Class Contratos_Default #Region "SUBIR EXCEL" Public Sub DescargarFormato() - Dim Directorio As String = AppDomain.CurrentDomain.BaseDirectory & "Empresas\Grales\Formatos\FormatoContrato.xlsx" + Dim Directorio As String = ModExtensiones.DirectorioBaseEmpresas & "Empresas\Grales\Formatos\FormatoContrato.xlsx" Dim Archivo As New IO.FileInfo(Directorio) If Archivo.Exists Then Response.Clear() @@ -3417,7 +3417,7 @@ Partial Class Contratos_Default 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 = AppDomain.CurrentDomain.BaseDirectory & file.patch + Dim Directorio As String = ModExtensiones.DirectorioBaseEmpresas & file.patch Dim Tipo As String = If(file.Extencion.Contiene("xlsx", "xlsx", "xlsm", "xlsb"), "EXCEL", "CSV") CargarArchivo(Directorio, file.filename, Tipo) Else @@ -3741,7 +3741,7 @@ Partial Class Contratos_Default #Region " IMPRIMIR DOCUMENTO - SABE " Public Sub DescarFormato(documento As String) - Dim PathRoot As String = Server.MapPath("/") + Dim PathRoot As String = ModExtensiones.DirectorioBaseEmpresas Dim PathSource As String Dim pathDesti As String diff --git a/Contratos/Contrato.vb b/Contratos/Contrato.vb index a881fa49b..4adb7f0ae 100644 --- a/Contratos/Contrato.vb +++ b/Contratos/Contrato.vb @@ -597,10 +597,10 @@ Partial Class Contratos_Default 'Renombrar archivo If ViewState("extencion") IsNot Nothing Then If ViewState("FUrl").ToString.Length > 0 AndAlso ViewState("extencion").ToString.Length > 0 Then - If Not Directory.Exists(Request.PhysicalApplicationPath + "Empresas\" & UsuarioActual.CveEmpresa & "\Contratos") Then - Directory.CreateDirectory(Request.PhysicalApplicationPath + "Empresas\" & UsuarioActual.CveEmpresa & "\Contratos") + If Not Directory.Exists(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\Contratos") Then + Directory.CreateDirectory(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\Contratos") End If - Ruta = Request.PhysicalApplicationPath + "Empresas\" & UsuarioActual.CveEmpresa & "\Contratos\" + Ruta = ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\Contratos\" 'ViewState("extencion") = FileExtension 'ViewState("FUrl") = Path.Combine(UsuarioActual.Empresa.Ruta, "Contratos", "Temp", ViewState("FName").ToString) @@ -643,10 +643,10 @@ Partial Class Contratos_Default If ViewState("extencion") IsNot Nothing Then If ViewState("FUrl").ToString.Length > 0 AndAlso ViewState("extencion").ToString.Length > 0 Then - If Not Directory.Exists(Request.PhysicalApplicationPath + "Empresas\" & UsuarioActual.CveEmpresa & "\Contratos") Then - Directory.CreateDirectory(Request.PhysicalApplicationPath + "Empresas\" & UsuarioActual.CveEmpresa & "\Contratos") + If Not Directory.Exists(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\Contratos") Then + Directory.CreateDirectory(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\Contratos") End If - Ruta = Request.PhysicalApplicationPath + "Empresas\" & UsuarioActual.CveEmpresa & "\Contratos\" + Ruta = ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\Contratos\" Try If File.Exists(String.Format("{0}{1}.{2}", Ruta, CveContrato.ToString, ViewState("extencion").ToString)) Then @@ -698,10 +698,10 @@ Partial Class Contratos_Default UpGral.Update() ObjContratos.Dispose() - End Sub + End Sub #End Region - - + + #Region "INICIO DE PAGINA" Protected Sub DdlTipoContrato_SelectedIndexChanged(sender As Object, e As EventArgs) @@ -792,33 +792,33 @@ Partial Class Contratos_Default UpGral.Update() UPTipo.Update() - End Sub - + End Sub + #End Region - - + + #Region "TAB INFORMACION GENERAL" - - 'Protected Sub CargarArchivo(ByVal sender As Object, ByVal e As AjaxControlToolkit.AsyncFileUploadEventArgs) Handles AFU.UploadedComplete - ' If AFU.HasFile Then - ' If Not Directory.Exists(Request.PhysicalApplicationPath + "Empresas\" & UsuarioActual.CveEmpresa & "\Temp") Then - ' Directory.CreateDirectory(Request.PhysicalApplicationPath + "Empresas\" & UsuarioActual.CveEmpresa & "\Temp") - ' End If - ' Dim UploadFolder As String = Request.PhysicalApplicationPath + "Empresas\" & UsuarioActual.CveEmpresa & "\Temp\" - ' Dim Extension As String = System.IO.Path.GetExtension(AFU.PostedFile.FileName) - - ' If System.IO.File.Exists(UploadFolder & UsuarioActual.CveUsuario.ToString & Extension) Then - ' System.IO.File.Delete(UploadFolder & UsuarioActual.CveUsuario.ToString & Extension) - ' End If - - ' AFU.SaveAs(UploadFolder & UsuarioActual.CveUsuario.ToString & Extension) - ' Session("FileUpload") = UploadFolder & UsuarioActual.CveUsuario.ToString & Extension - ' Session("FileExtension") = Extension - ' Session("FileFolder") = UploadFolder - ' End If - 'End Sub - - + + 'Protected Sub CargarArchivo(ByVal sender As Object, ByVal e As AjaxControlToolkit.AsyncFileUploadEventArgs) Handles AFU.UploadedComplete + ' If AFU.HasFile Then + ' If Not Directory.Exists(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\Temp") Then + ' Directory.CreateDirectory(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\Temp") + ' End If + ' Dim UploadFolder As String = ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\Temp\" + ' Dim Extension As String = System.IO.Path.GetExtension(AFU.PostedFile.FileName) + + ' If System.IO.File.Exists(UploadFolder & UsuarioActual.CveUsuario.ToString & Extension) Then + ' System.IO.File.Delete(UploadFolder & UsuarioActual.CveUsuario.ToString & Extension) + ' End If + + ' AFU.SaveAs(UploadFolder & UsuarioActual.CveUsuario.ToString & Extension) + ' Session("FileUpload") = UploadFolder & UsuarioActual.CveUsuario.ToString & Extension + ' Session("FileExtension") = Extension + ' Session("FileFolder") = UploadFolder + ' End If + 'End Sub + + #Region "COMBOS - INFO GENERAL" Private Sub CargaProyecto() If UsuarioActual.Empresa.GralSoloProyecto Then @@ -1946,7 +1946,7 @@ Partial Class Contratos_Default #Region "SUBIR EXCEL" Public Sub DescargarFormato() - Dim Directorio As String = AppDomain.CurrentDomain.BaseDirectory & "Empresas\Grales\Formatos\FormatoContrato.xlsx" + Dim Directorio As String = ModExtensiones.DirectorioBaseEmpresas & "Empresas\Grales\Formatos\FormatoContrato.xlsx" Dim Archivo As New IO.FileInfo(Directorio) If Archivo.Exists Then Response.Clear() @@ -2143,7 +2143,7 @@ Partial Class Contratos_Default 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 = AppDomain.CurrentDomain.BaseDirectory & file.patch + Dim Directorio As String = ModExtensiones.DirectorioBaseEmpresas & file.patch Dim Tipo As String = If(file.Extencion.Contiene("xlsx", "xlsx", "xlsm", "xlsb"), "EXCEL", "CSV") CargarArchivo(Directorio, file.filename, Tipo) Else diff --git a/Contratos/ContratosSecciones.aspx.vb b/Contratos/ContratosSecciones.aspx.vb index d8ffe2c0b..72aaba93d 100644 --- a/Contratos/ContratosSecciones.aspx.vb +++ b/Contratos/ContratosSecciones.aspx.vb @@ -442,7 +442,7 @@ Partial Class Contratos_ContratosSecciones - dbLayer = Mapa.AddLayer(AppDomain.CurrentDomain.BaseDirectory & "GIS\Carretera.tab") + dbLayer = Mapa.AddLayer(ModExtensiones.DirectorioBaseEmpresas & "GIS\Carretera.tab") If dbLayer IsNot Nothing AndAlso DtDatos IsNot Nothing Then If (Not dbLayer.AddRelate("ID_GIS", DtDatos, "ID_GIS")) Then diff --git a/CxC/RepCxCPeriodo.aspx.cs b/CxC/RepCxCPeriodo.aspx.cs index 541143841..ea4952923 100644 --- a/CxC/RepCxCPeriodo.aspx.cs +++ b/CxC/RepCxCPeriodo.aspx.cs @@ -1,4 +1,11 @@ -using System; using System.Collections.Generic; using System.Linq; using System.Web; using System.Web.UI.WebControls; using Extensiones; using System.Data; using static Extensiones.ModExtensiones; +using System; +using System.Collections.Generic; +using System.Linq; +using System.Web; +using System.Web.UI.WebControls; +using Extensiones; +using System.Data; +using static Extensiones.ModExtensiones; using Microsoft.Reporting.WebForms; using System.Web.UI.HtmlControls; using System.Text; @@ -280,7 +287,7 @@ public partial class CxC_RepCxCPeriodo : ClsPaginas StrFiltro.AppendFormat(" Clasificación Cliente: {0}", DdlClienteClasificacion.SelectedItem.Text); string RutaPDF = ""; - string Ruta = $"{AppDomain.CurrentDomain.BaseDirectory}Empresas/{UsuarioActual.CveEmpresa}/"; + string Ruta = $"{ModExtensiones.DirectorioBaseEmpresas}Empresas/{UsuarioActual.CveEmpresa}/"; RutaPDF = $"{Ruta}/Formatos/RepCxCPeriodo.rdlc"; if (!System.IO.File.Exists(RutaPDF)) { diff --git a/Empresas/Grales/Formatos/EquiposGPS.rdlc b/Empresas/Grales/Formatos/EquiposGPS.rdlc new file mode 100644 index 000000000..fc62c6c0b --- /dev/null +++ b/Empresas/Grales/Formatos/EquiposGPS.rdlc @@ -0,0 +1,1000 @@ + +", String.Format("{0}\Login.aspx", ModExtensiones.DirectorioBaseEmpresas)) strBody.Append("
- ")
diff --git a/GPS/CatDistribuidoresMaster.aspx.vb.exclude b/GPS/CatDistribuidoresMaster.aspx.vb.exclude
index c9dfe18a3..c7d77b3b1 100644
--- a/GPS/CatDistribuidoresMaster.aspx.vb.exclude
+++ b/GPS/CatDistribuidoresMaster.aspx.vb.exclude
@@ -96,8 +96,8 @@ Partial Class GPS_CatDistribuidoresMaster
If CveSucursal < 0 Then HuboError = True
End If
If Not HuboError Then
- If Not IO.Directory.Exists(String.Format("{0}\{1}", AppDomain.CurrentDomain.BaseDirectory, objEmpresa.CveEmpresa)) Then
- IO.Directory.CreateDirectory(String.Format("{0}Empresas\{1}", AppDomain.CurrentDomain.BaseDirectory, objEmpresa.CveEmpresa))
+ If Not IO.Directory.Exists(String.Format("{0}\{1}", ModExtensiones.DirectorioBaseEmpresas, objEmpresa.CveEmpresa)) Then
+ IO.Directory.CreateDirectory(String.Format("{0}Empresas\{1}", ModExtensiones.DirectorioBaseEmpresas, objEmpresa.CveEmpresa))
End If
Alert("El distribuidor se agregó correctamente", TipoMensaje.MsgInformacion)
End If
@@ -195,7 +195,7 @@ Partial Class GPS_CatDistribuidoresMaster
Dim archivos As New List(Of ClsSisMail.ArchivoMail)
Dim ListArchivoMail As New List(Of ClsSisMail.ArchivoMail)
Dim ArchivoMail As New ClsSisMail.ArchivoMail
- ArchivoMail.Ruta = $"{AppDomain.CurrentDomain.BaseDirectory}Empresas\Grales\LogoSinFondo.png"
+ ArchivoMail.Ruta = $"{ModExtensiones.DirectorioBaseEmpresas}Empresas\Grales\LogoSinFondo.png"
ArchivoMail.NombreArchivo = "LogoSinFondo.png"
ListArchivoMail.Add(ArchivoMail)
objMail.SendMail(ClsPaginas.EmpresaNotificaciones, TxtMail.Text, "Activación de empresa", body, "", ListArchivoMail)
@@ -243,7 +243,7 @@ Partial Class GPS_CatDistribuidoresMaster
strBody.Append("
- ")
diff --git a/GPS/CatEventos.aspx.vb b/GPS/CatEventos.aspx.vb
index dc46e72c6..0c19d4965 100644
--- a/GPS/CatEventos.aspx.vb
+++ b/GPS/CatEventos.aspx.vb
@@ -109,7 +109,7 @@ Partial Class GPS_CatEventos
Try
If TxtUpImagen.getfiles().Archivos.Count > 0 Then
Dim ArchivoImagen As Archivo = TxtUpImagen.getfiles().Archivos(0)
- Dim Path As String = $"{AppDomain.CurrentDomain.BaseDirectory}Imagenes"
+ Dim Path As String = $"{ModExtensiones.DirectorioBaseEmpresas}Imagenes"
If Not Directory.Exists(Path) Then
Directory.CreateDirectory(Path)
End If
@@ -122,7 +122,7 @@ Partial Class GPS_CatEventos
If TxtUpSonido.getfiles().Archivos.Count > 0 Then
Dim ArchivoSonido As Archivo = TxtUpSonido.getfiles().Archivos(0)
- Dim PathSonido As String = $"{AppDomain.CurrentDomain.BaseDirectory}Sonidos"
+ Dim PathSonido As String = $"{ModExtensiones.DirectorioBaseEmpresas}Sonidos"
Dim dirSonido As String = String.Format("{0}\{1}.{2}", PathSonido, Sonido, ArchivoSonido.Extencion)
If File.Exists(dirSonido) Then
My.Computer.FileSystem.DeleteFile(dirSonido)
@@ -146,7 +146,7 @@ Partial Class GPS_CatEventos
Try
If TxtUpImagen.getfiles().Archivos.Count > 0 Then
Dim ArchivoImagen As Archivo = TxtUpImagen.getfiles().Archivos(0)
- Dim Path As String = $"{AppDomain.CurrentDomain.BaseDirectory}Imagenes"
+ Dim Path As String = $"{ModExtensiones.DirectorioBaseEmpresas}Imagenes"
If Not Directory.Exists(Path) Then
Directory.CreateDirectory(Path)
End If
@@ -159,7 +159,7 @@ Partial Class GPS_CatEventos
If TxtUpSonido.getfiles().Archivos.Count > 0 Then
Dim ArchivoSonido As Archivo = TxtUpSonido.getfiles().Archivos(0)
- Dim PathSonido As String = $"{AppDomain.CurrentDomain.BaseDirectory}Sonidos"
+ Dim PathSonido As String = $"{ModExtensiones.DirectorioBaseEmpresas}Sonidos"
Dim dirSonido As String = String.Format("{0}\{1}", PathSonido)
If File.Exists(dirSonido) Then
My.Computer.FileSystem.DeleteFile(dirSonido)
@@ -214,7 +214,7 @@ Partial Class GPS_CatEventos
If e.Row.RowType = DataControlRowType.DataRow Then
e.Row.VerticalAlign = VerticalAlign.Middle
e.Row.FCLinkButton("ImgE").CommandArgument = e.Row.DataKey("CveEvento").ToString
- If File.Exists($"{AppDomain.CurrentDomain.BaseDirectory}Sonidos/{e.Row.DataKey("Sonido").ToString}") Then
+ If File.Exists($"{ModExtensiones.DirectorioBaseEmpresas}Sonidos/{e.Row.DataKey("Sonido").ToString}") Then
e.Row.FCLinkButton("PlaySonido").OnClientClick = $"javascript:PlaySonidito('{e.Row.DataKey("Sonido").ToString}');return false;"
Else
e.Row.FCLinkButton("PlaySonido").Visible = False
diff --git a/GPS/DispositivosControles.aspx.vb b/GPS/DispositivosControles.aspx.vb
index 9829b41fe..3f7d901bf 100644
--- a/GPS/DispositivosControles.aspx.vb
+++ b/GPS/DispositivosControles.aspx.vb
@@ -155,7 +155,7 @@ Partial Class GPS_DispositivosControles
If TxtCalibración.getfiles().Archivos.Count > 0 AndAlso CveControl > 0 AndAlso Not huboerror Then
Try
Dim Archivo As Archivo = TxtCalibración.getfiles().Archivos(0)
- Dim Path As String = $"{AppDomain.CurrentDomain.BaseDirectory}TablasCalibracion"
+ Dim Path As String = $"{ModExtensiones.DirectorioBaseEmpresas}TablasCalibracion"
Dim dirSonido As String = String.Format("{0}\{1}.{2}", Path, FormatearNombreArchivo(Archivo.filenameO), Archivo.Extencion)
If File.Exists(dirSonido) Then
My.Computer.FileSystem.DeleteFile(dirSonido)
@@ -226,7 +226,7 @@ Partial Class GPS_DispositivosControles
huboerror = Not GPS.CalibracionDelete(CveControl)
If Not huboerror Then
Dim Archivo As Archivo = TxtCalibración.getfiles().Archivos(0)
- Dim Path As String = $"{AppDomain.CurrentDomain.BaseDirectory}TablasCalibracion"
+ Dim Path As String = $"{ModExtensiones.DirectorioBaseEmpresas}TablasCalibracion"
Dim dirSonido As String = String.Format("{0}\{1}.{2}", Path, FormatearNombreArchivo(Archivo.filenameO), Archivo.Extencion)
If File.Exists(dirSonido) Then
My.Computer.FileSystem.DeleteFile(dirSonido)
@@ -448,7 +448,7 @@ Partial Class GPS_DispositivosControles
End Sub
Protected Sub LbDescargaFormato_Click(sender As Object, e As EventArgs)
- Dim Directorio As String = AppDomain.CurrentDomain.BaseDirectory & "Empresas\Grales\FormatoCalibracion.xlsx"
+ Dim Directorio As String = ModExtensiones.DirectorioBaseEmpresas & "Empresas\Grales\FormatoCalibracion.xlsx"
Dim Archivo As New IO.FileInfo(Directorio)
If Archivo.Exists Then
Response.Clear()
diff --git a/GPS/WizardDispositivos.aspx.cs b/GPS/WizardDispositivos.aspx.cs
index 5715ecf01..d82f32cbb 100644
--- a/GPS/WizardDispositivos.aspx.cs
+++ b/GPS/WizardDispositivos.aspx.cs
@@ -766,7 +766,7 @@ public partial class GPS_WizardDispositivos : ClsPaginas
try
{
Archivo Archivo = TxtCalibracion.getfiles().Archivos[0];
- string Path = $"{AppDomain.CurrentDomain.BaseDirectory}TablasCalibracion";
+ string Path = $"{ModExtensiones.DirectorioBaseEmpresas}TablasCalibracion";
string dirSonido = string.Format(@"{0}\{1}.{2}", Path, FormatearNombreArchivo(Archivo.filenameO), Archivo.Extencion);
if (File.Exists(dirSonido)) { File.Delete(dirSonido); }
File.Move(Archivo.FileUrl, dirSonido);
diff --git a/GPS/WizardModelo.aspx.vb b/GPS/WizardModelo.aspx.vb
index 6be879b52..853e433c9 100644
--- a/GPS/WizardModelo.aspx.vb
+++ b/GPS/WizardModelo.aspx.vb
@@ -521,7 +521,7 @@ Partial Class GPS_WizardModelo
If TxtUpImagen.getfiles().Archivos.Count > 0 Then
Dim ArchivoImagen As Archivo = TxtUpImagen.getfiles().Archivos(0)
Imagen = FormatearNombreArchivo(ArchivoImagen.filenameO)
- Dim Path As String = $"{AppDomain.CurrentDomain.BaseDirectory}Imagenes"
+ Dim Path As String = $"{ModExtensiones.DirectorioBaseEmpresas}Imagenes"
If Not Directory.Exists(Path) Then
Directory.CreateDirectory(Path)
End If
@@ -534,7 +534,7 @@ Partial Class GPS_WizardModelo
If TxtUpSonido.getfiles().Archivos.Count > 0 Then
Dim ArchivoSonido As Archivo = TxtUpSonido.getfiles().Archivos(0)
- Dim PathSonido As String = $"{AppDomain.CurrentDomain.BaseDirectory}Sonidos"
+ Dim PathSonido As String = $"{ModExtensiones.DirectorioBaseEmpresas}Sonidos"
Sonido = FormatearNombreArchivo(ArchivoSonido.filenameO)
Dim dirSonido As String = String.Format("{0}\{1}", PathSonido, Sonido)
If File.Exists(dirSonido) Then
@@ -559,7 +559,7 @@ Partial Class GPS_WizardModelo
If TxtUpImagen.getfiles().Archivos.Count > 0 Then
Dim ArchivoImagen As Archivo = TxtUpImagen.getfiles().Archivos(0)
Imagen = FormatearNombreArchivo(ArchivoImagen.filenameO)
- Dim Path As String = $"{AppDomain.CurrentDomain.BaseDirectory}Imagenes"
+ Dim Path As String = $"{ModExtensiones.DirectorioBaseEmpresas}Imagenes"
If Not Directory.Exists(Path) Then
Directory.CreateDirectory(Path)
End If
@@ -573,7 +573,7 @@ Partial Class GPS_WizardModelo
If TxtUpSonido.getfiles().Archivos.Count > 0 Then
Dim ArchivoSonido As Archivo = TxtUpSonido.getfiles().Archivos(0)
Sonido = FormatearNombreArchivo(ArchivoSonido.filenameO)
- Dim PathSonido As String = $"{AppDomain.CurrentDomain.BaseDirectory}Sonidos"
+ Dim PathSonido As String = $"{ModExtensiones.DirectorioBaseEmpresas}Sonidos"
Dim dirSonido As String = String.Format("{0}\{1}", PathSonido, Sonido)
If File.Exists(dirSonido) Then
My.Computer.FileSystem.DeleteFile(dirSonido)
@@ -661,7 +661,7 @@ Partial Class GPS_WizardModelo
End If
e.Row.VerticalAlign = VerticalAlign.Middle
e.Row.FCLinkButton("ImgE").CommandArgument = e.Row.DataKey("CveEvento").ToString
- If e.Row.DBCampo("Sonido").ToString <> "" AndAlso File.Exists($"{AppDomain.CurrentDomain.BaseDirectory}/Sonidos/{e.Row.DataKey("Sonido").ToString}") Then
+ If e.Row.DBCampo("Sonido").ToString <> "" AndAlso File.Exists($"{ModExtensiones.DirectorioBaseEmpresas}/Sonidos/{e.Row.DataKey("Sonido").ToString}") Then
e.Row.FCLinkButton("PlaySonido").Visible = True
e.Row.FCLinkButton("PlaySonido").OnClientClick = $"javascript:PlaySonidito('{e.Row.DataKey("Sonido").ToString}');return false;"
End If
diff --git a/General/RepPaqueteriasGuias.aspx.cs b/General/RepPaqueteriasGuias.aspx.cs
index 1f3bef5fa..de9a07d40 100644
--- a/General/RepPaqueteriasGuias.aspx.cs
+++ b/General/RepPaqueteriasGuias.aspx.cs
@@ -618,7 +618,7 @@ public partial class General_RepPaqueteriasGuias : ClsPaginas
{
try
{
- FileExtension = System.IO.Path.GetExtension(string.Format("{0}Temp\\{1}", AppDomain.CurrentDomain.BaseDirectory, fileItem.filename)).Replace(".", "");
+ FileExtension = System.IO.Path.GetExtension(string.Format("{0}Temp\\{1}", ModExtensiones.DirectorioBaseEmpresas, fileItem.filename)).Replace(".", "");
string rutaDestino = UsuarioActual.Empresa.Ruta + "Documentos\\Guias\\" + CvePaqueteriaGuia + "." + FileExtension;
if (!System.IO.Directory.Exists(UsuarioActual.Empresa.Ruta + "Documentos\\Guias\\"))
{
@@ -773,7 +773,7 @@ public partial class General_RepPaqueteriasGuias : ClsPaginas
string FechIngaFinal = TxtFechaFinalIngreso.Text;
- string Ruta = string.Format("{0}Empresas/{1}/", AppDomain.CurrentDomain.BaseDirectory, UsuarioActual.CveEmpresa);
+ string Ruta = string.Format("{0}Empresas/{1}/", ModExtensiones.DirectorioBaseEmpresas, UsuarioActual.CveEmpresa);
string RutaPDF = string.Format("{0}/Formatos/RepPaqueteriasGuias.rdlc", Ruta);
if (!File.Exists(RutaPDF))
diff --git a/General/SaldosIniciales.aspx.vb b/General/SaldosIniciales.aspx.vb
index d2f4a0026..9eaa492e7 100644
--- a/General/SaldosIniciales.aspx.vb
+++ b/General/SaldosIniciales.aspx.vb
@@ -18,7 +18,7 @@ Partial Class General_SaldosIniciales
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 Directorio As String = ModExtensiones.DirectorioBaseEmpresas & file.patch
Dim Tipo As String = If(file.Extencion.Contiene("xlsx", "xlsx", "xlsm", "xlsb"), "EXCEL", "CSV")
CargarArchivo(Directorio, file.filename, Tipo)
Else
@@ -2023,25 +2023,25 @@ Partial Class General_SaldosIniciales
Dim Directorio As String = ""
If RblFormato.SelectedValue = "1" Then
- Directorio = AppDomain.CurrentDomain.BaseDirectory & "Empresas\Grales\SaldosIniciales\FormatoProveedor.xlsx"
+ Directorio = ModExtensiones.DirectorioBaseEmpresas & "Empresas\Grales\SaldosIniciales\FormatoProveedor.xlsx"
ElseIf RblFormato.SelectedValue = "2" Then
- Directorio = AppDomain.CurrentDomain.BaseDirectory & "Empresas\Grales\SaldosIniciales\FormatoClientes.xlsx"
+ Directorio = ModExtensiones.DirectorioBaseEmpresas & "Empresas\Grales\SaldosIniciales\FormatoClientes.xlsx"
ElseIf RblFormato.SelectedValue = "3" Then
- Directorio = AppDomain.CurrentDomain.BaseDirectory & "Empresas\Grales\SaldosIniciales\FormatoProveedores-Facturas.xlsx"
+ Directorio = ModExtensiones.DirectorioBaseEmpresas & "Empresas\Grales\SaldosIniciales\FormatoProveedores-Facturas.xlsx"
ElseIf RblFormato.SelectedValue = "4" Then
- Directorio = AppDomain.CurrentDomain.BaseDirectory & "Empresas\Grales\SaldosIniciales\FormatoClientes-Facturas.xlsx"
+ Directorio = ModExtensiones.DirectorioBaseEmpresas & "Empresas\Grales\SaldosIniciales\FormatoClientes-Facturas.xlsx"
ElseIf RblFormato.SelectedValue = "5" Then
- Directorio = AppDomain.CurrentDomain.BaseDirectory & "Empresas\Grales\SaldosIniciales\FormatoPS.xlsx"
+ Directorio = ModExtensiones.DirectorioBaseEmpresas & "Empresas\Grales\SaldosIniciales\FormatoPS.xlsx"
ElseIf RblFormato.SelectedValue = "6" Then
- Directorio = AppDomain.CurrentDomain.BaseDirectory & "Empresas\Grales\SaldosIniciales\FormatoRH-Personal.xlsx"
+ Directorio = ModExtensiones.DirectorioBaseEmpresas & "Empresas\Grales\SaldosIniciales\FormatoRH-Personal.xlsx"
ElseIf RblFormato.SelectedValue = "7" Then
- Directorio = AppDomain.CurrentDomain.BaseDirectory & "Empresas\Grales\SaldosIniciales\FormatoAF-ActivosFijos.xlsx"
+ Directorio = ModExtensiones.DirectorioBaseEmpresas & "Empresas\Grales\SaldosIniciales\FormatoAF-ActivosFijos.xlsx"
ElseIf RblFormato.SelectedValue = "8" Then
- Directorio = AppDomain.CurrentDomain.BaseDirectory & "Empresas\Grales\SaldosIniciales\FormatoContabilidad.xlsx"
+ Directorio = ModExtensiones.DirectorioBaseEmpresas & "Empresas\Grales\SaldosIniciales\FormatoContabilidad.xlsx"
ElseIf RblFormato.SelectedValue = "9" Then
- Directorio = AppDomain.CurrentDomain.BaseDirectory & "Empresas\Grales\SaldosIniciales\FormatoContabilidad.xlsx"
+ Directorio = ModExtensiones.DirectorioBaseEmpresas & "Empresas\Grales\SaldosIniciales\FormatoContabilidad.xlsx"
ElseIf RblFormato.SelectedValue = "12" Then
- Directorio = AppDomain.CurrentDomain.BaseDirectory & "Empresas\Grales\SaldosIniciales\FormatoAlmacen.xlsx"
+ Directorio = ModExtensiones.DirectorioBaseEmpresas & "Empresas\Grales\SaldosIniciales\FormatoAlmacen.xlsx"
End If
Dim Archivo As New IO.FileInfo(Directorio)
diff --git a/Global.asax b/Global.asax
index 973a330a8..51e12d39c 100644
--- a/Global.asax
+++ b/Global.asax
@@ -536,8 +536,8 @@
If ObjEmpresas.GetEmpresas(-1, "-1", "-1", "-1", "-1") Then
Application("GlobalDTEmpresas") = ObjEmpresas.DtResultados
'verifico si existe la carpeta de la empresa, sino la crea
- For Each dr As Data.DataRow In ObjEmpresas.DtResultados.Rows
- Dim Ruta As String = String.Format("{0}Empresas\{1}", AppDomain.CurrentDomain.BaseDirectory, dr("CveEmpresa"))
+ For Each dr As Data.DataRow In ObjEmpresas.DtResultados.Rows
+ Dim Ruta As String = String.Format("{0}Empresas\{1}", ModExtensiones.DirectorioBaseEmpresas, dr("CveEmpresa"))
If Not IO.Directory.Exists(Ruta) Then IO.Directory.CreateDirectory(Ruta)
If Not System.IO.Directory.Exists(String.Format("{0}\XML\", Ruta)) Then System.IO.Directory.CreateDirectory(String.Format("{0}\XML\", Ruta))
If Not System.IO.Directory.Exists(String.Format("{0}\PDF\", Ruta)) Then System.IO.Directory.CreateDirectory(String.Format("{0}\PDF\", Ruta))
diff --git a/Inicio.aspx.vb b/Inicio.aspx.vb
index 29ed2e629..266efe3e5 100644
--- a/Inicio.aspx.vb
+++ b/Inicio.aspx.vb
@@ -225,7 +225,7 @@ Partial Class Inicio
Private Sub MuestraComprasPUE()
Dim objCompras As New ClsCompras
Dim FechaInicio As Date = Now.AddYears(-2)
- LblComprasPUE.Text = "Facturas apartir de " & FechaInicio.ToShortDateString
+ LblComprasPUE.Text = "Facturas a partir de: " & FechaInicio.ToShortDateString
If objCompras.GetPUESinPago(FechaInicio, Now, -1, -1, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then
If objCompras.DtResultados.Rows.Count > 0 Then
GvCompPUE.DataSource = objCompras.DtResultados
diff --git a/Inventarios/EntradasSalidas.aspx b/Inventarios/EntradasSalidas.aspx
index e95b81ae4..0b6a8f2a0 100644
--- a/Inventarios/EntradasSalidas.aspx
+++ b/Inventarios/EntradasSalidas.aspx
@@ -146,6 +146,7 @@
Información del movimiento
+
>
@@ -275,9 +276,10 @@
-
@@ -331,6 +333,7 @@
Agregar Producto
+
@@ -405,12 +408,14 @@
Información de registro
+
Tipo de Cambio
+
@@ -542,7 +553,7 @@
-
+ <%--
-
+
--%>
+
+
-
+
+
+
+
+
+
+
+
+
@@ -791,7 +808,12 @@
-
+
+
+
+
+
-
@@ -953,6 +975,7 @@
+
+
| # | @@ -551,10 +562,7 @@ ProductoU.M. | P.U. | -Total | -PU Extran | CI | -Activo Fijo |
|
Lote | @@ -565,8 +573,8 @@||
|---|---|---|---|---|---|---|---|---|---|---|
| - |
- | --%>
+ <%-- |
-
- |
@@ -594,7 +597,6 @@
- |
|
- |
- |
|
+
+
+
+
Cantidad
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ + + + + + +
+
+ + + + + + + +
+
+
+
+
+ 
+
+
+
+