diff --git a/Acumuladores/RepEntradasUsadosClientes.aspx.vb b/Acumuladores/RepEntradasUsadosClientes.aspx.vb index b0ade4bb2..4f50f7d2c 100644 --- a/Acumuladores/RepEntradasUsadosClientes.aspx.vb +++ b/Acumuladores/RepEntradasUsadosClientes.aspx.vb @@ -91,8 +91,6 @@ Partial Class Acumuladores_RepEntradasUsadosClientes End Sub Protected Sub BtnImprimir_Click(sender As Object, e As EventArgs) - - 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) @@ -107,13 +105,18 @@ Partial Class Acumuladores_RepEntradasUsadosClientes Dim rds As New ReportDataSource With {.Name = "DataSet1", .Value = DatosEntradasUsadosClientes} - ImprimirPDF(String.Format("Empresas/{0}/Formatos/RepEntradasUsadosClientes.rdlc", UsuarioActual.CveEmpresa), DatosEntradasUsadosClientes, params, "Entradas usados clientes", "PDF") + Dim FIRutaReporte As New System.IO.FileInfo(String.Format("{0}Formatos/RepEntradasUsadosClientes.rdlc", UsuarioActual.Empresa.Ruta)) + Dim PathRutaReporte As String = "\Formatos\RepEntradasUsadosClientes.rdlc" + + If Not FIRutaReporte.Exists Then + PathRutaReporte = "\Empresas\Grales\Formatos\RepEntradasUsadosClientes.rdlc" 'No existe el General solo se hizo para la 140 + End If + + ImprimirPDF(PathRutaReporte, DatosEntradasUsadosClientes, params, "Entradas usados clientes", "PDF") End Sub Protected Sub BtnExcel_Click(sender As Object, e As EventArgs) - - 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) @@ -126,9 +129,16 @@ Partial Class Acumuladores_RepEntradasUsadosClientes params.Add(New ReportParameter("FechaInicial", TxtFechaI.Text)) params.Add(New ReportParameter("FechaFinal", TxtFechaF.Text)) - Dim rds As New ReportDataSource With {.Name = "DataSet1", .Value = DatosEntradasUsadosClientes} + Dim rds As New ReportDataSource With {.Name = "DataSet1", .Value = DatosEntradasUsadosClientes} + + Dim FIRutaReporte As New System.IO.FileInfo(String.Format("{0}Formatos/RepEntradasUsadosClientes.rdlc", UsuarioActual.Empresa.Ruta)) + Dim PathRutaReporte As String = "\Formatos\RepEntradasUsadosClientes.rdlc" + + If Not FIRutaReporte.Exists Then + PathRutaReporte = "\Empresas\Grales\Formatos\RepEntradasUsadosClientes.rdlc" 'No existe el General solo se hizo para la 140 + End If - ImprimirPDF(String.Format("Empresas/{0}/Formatos/RepEntradasUsadosClientes.rdlc", UsuarioActual.CveEmpresa), DatosEntradasUsadosClientes, params, "Entradas usados clientes", "Excel") + ImprimirPDF(PathRutaReporte, DatosEntradasUsadosClientes, params, "Entradas usados clientes", "Excel") End Sub diff --git a/App_Code/ClsFinanzas.vb b/App_Code/ClsFinanzas.vb index 2ac55ef1b..2d99601cd 100644 --- a/App_Code/ClsFinanzas.vb +++ b/App_Code/ClsFinanzas.vb @@ -261,21 +261,20 @@ Public Class ClsFinanzas - Public Function GetRazonesFinancierasBalanceGeneralRep(FechaI As Date, FechaF As Date, CveProyecto As Integer, CveSubProyecto As Integer, CveEmpresa As Integer, CveUsuario As Integer, Tipo As Integer, Periodo As Integer) As Boolean + Public Function GetRazonesFinancierasBalanceGeneralRep(CveProyecto As Integer, CveSubProyecto As Integer, CveEmpresa As Integer, CveUsuario As Integer, Tipo As Integer, Periodo As Integer, Fechas As String, Opcion As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Finan_RF_BalanceGeneralRepGet") With SqlAdapter.SelectCommand.Parameters - .Add("@FechaI", SqlDbType.Date).Value = FechaI - .Add("@FechaF", SqlDbType.Date).Value = FechaF + .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto .Add("@CveProyecto", SqlDbType.Int).Value = CveProyecto .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario .Add("@Tipo", SqlDbType.Int).Value = Tipo .Add("@Periodo", SqlDbType.Int).Value = Periodo - - + .Add("@Fechas", SqlDbType.VarChar).Value = Fechas + .Add("@Opcion", SqlDbType.Int).Value = Opcion End With Try SqlAdapter.Fill(Data) @@ -288,20 +287,20 @@ Public Class ClsFinanzas - Public Function GetRazonesFinancierasEstadoResultadosRep(FechaI As Date, FechaF As Date, CveProyecto As Integer, CveSubProyecto As Integer, CveEmpresa As Integer, CveUsuario As Integer, Tipo As Integer, Periodo As Integer) As Boolean + Public Function GetRazonesFinancierasEstadoResultadosRep(CveProyecto As Integer, CveSubProyecto As Integer, CveEmpresa As Integer, CveUsuario As Integer, Tipo As Integer, Periodo As Integer, Fechas As String, Opcion As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Finan_RF_EstadoResultadosRepGet") With SqlAdapter.SelectCommand.Parameters - .Add("@FechaI", SqlDbType.Date).Value = FechaI - .Add("@FechaF", SqlDbType.Date).Value = FechaF + .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto .Add("@CveProyecto", SqlDbType.Int).Value = CveProyecto .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario .Add("@Tipo", SqlDbType.Int).Value = Tipo .Add("@Periodo", SqlDbType.Int).Value = Periodo - + .Add("@Fechas", SqlDbType.VarChar).Value = Fechas + .Add("@Opcion", SqlDbType.Int).Value = Opcion End With Try @@ -314,20 +313,19 @@ Public Class ClsFinanzas End Function - Public Function GetRazonesFinancierasRatiosRep(FechaI As Date, FechaF As Date, CveProyecto As Integer, CveSubProyecto As Integer, CveEmpresa As Integer, CveUsuario As Integer, Tipo As Integer, Periodo As Integer) As Boolean + Public Function GetRazonesFinancierasRatiosRep(CveProyecto As Integer, CveSubProyecto As Integer, CveEmpresa As Integer, CveUsuario As Integer, Tipo As Integer, Periodo As Integer, Fechas As String, Opcion As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Finan_RF_RatiosRepGet") With SqlAdapter.SelectCommand.Parameters - .Add("@FechaI", SqlDbType.Date).Value = FechaI - .Add("@FechaF", SqlDbType.Date).Value = FechaF .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto .Add("@CveProyecto", SqlDbType.Int).Value = CveProyecto .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario .Add("@Tipo", SqlDbType.Int).Value = Tipo .Add("@Periodo", SqlDbType.Int).Value = Periodo - + .Add("@Fechas", SqlDbType.VarChar).Value = Fechas + .Add("@Opcion", SqlDbType.Int).Value = Opcion End With Try diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 7a35200eb..7cfe359f7 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -3537,19 +3537,18 @@ Public Class ClsPaginas Application(AppNombre) = value End Set End Property - Property GlobalDTAsistenciasInasistencias() As DataTable + Property GlobalDTAsistenciasInasistencias(CveEmpresa As Integer) As DataTable Get - Dim AppNombre As String = "GlobalDTAsistenciasInasistencias" - 'sino existe, recarga los datos + Dim AppNombre As String = $"GlobalDTAsistenciasInasistencias-{CveEmpresa}" If Application(AppNombre) Is Nothing Then Dim ObjPersonal As New ClsRH - If ObjPersonal.GetAsistenciasInasistencias() Then Application(AppNombre) = ObjPersonal.DtResultados + If ObjPersonal.GetAsistenciasInasistencias(CveEmpresa) Then Application(AppNombre) = ObjPersonal.DtResultados ObjPersonal.Dispose() End If GlobalDTAsistenciasInasistencias = DirectCast(Application(AppNombre), DataTable) End Get Set(value As DataTable) - Dim AppNombre As String = "GlobalDTAsistenciasInasistencias" + Dim AppNombre As String = $"GlobalDTAsistenciasInasistencias-{CveEmpresa}" Application(AppNombre) = value End Set End Property @@ -4648,7 +4647,7 @@ Public Class ClsPaginas bdir = RutaEmpresa.Replace($"{CveEmpresa}/", "") End If RutaReporte.Replace("/", "\") - If Not RutaReporte.ToUpper().StartsWith(bdir.ToUpper()) Then + If Not RutaReporte.ToUpper().StartsWith(bdir.ToUpper()) Then RutaReporte = String.Format("{0}{1}", bdir, RutaReporte) End If If EsProduccion Then @@ -5037,466 +5036,7 @@ Public Class ClsPaginas End Sub #End Region #Region "IMPRIMIR FACTURA" - 'Public Sub PdfFacturaPyME(ByRef Vta As Modelos.Factura, DT As DataTable, Optional Guardar As Boolean = True) - ' Dim retorno As Byte() = Nothing - ' 'DATOS GENERALES - ' Dim Ruta As String = UsuarioActual.Empresa.Ruta - ' Dim PathXML As String = $"{Ruta}XML\{Vta.TipoDocto}\{Vta.SerieFolio}.xml" - ' Dim NombreArchivo As String = "" - ' Dim NombreArchivoDescarga As String = "" - ' Dim TipoDocumento As String = "" - ' Dim TipoDocumentoRef As String = "" - ' Dim AplicaPagare As String = "1" - ' Dim RFCReceptor As String = "" - ' If String.IsNullOrEmpty(Vta.RFCReceptor) Then - ' RFCReceptor = Vta.Cliente.RFC - ' If Vta.FacturarSucursal Then - ' If Vta.ClienteSucursal IsNot Nothing Then - ' RFCReceptor = Vta.ClienteSucursal.RFC - ' End If - ' End If - ' Else - ' RFCReceptor = Vta.RFCReceptor - ' End If - ' Dim RutaCBB As String = String.Format("{0}CBB\{1}.jpg", Ruta, Vta.SerieFolio) - ' Dim ImagenCBB As New System.IO.FileInfo(RutaCBB) - ' Dim ImgCBB As String '= String.Format("{0}://{1}:{2}/Empresas/{3}/CBB/{4}.jpg", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa, Vta.SerieFolio) - ' Dim ImagenPath = String.Format("{0}Formatos\Suc{1}\logo.png", UsuarioActual.Empresa.Ruta, Vta.CveSucursal) - ' Dim Logo As New System.IO.FileInfo(ImagenPath) - ' Dim ImgLogo = New Uri(String.Format("{0}Empresas/{1}/Formatos/Suc{2}.png", UrlSitio, UsuarioActual.CveEmpresa, Vta.CveSucursal)).AbsoluteUri - ' Dim SBDomicilioSucursal As New StringBuilder() - ' Dim CiudadSucursal As String = String.Format("{0},{1}", Vta.SubProyecto.Municipio, Vta.SubProyecto.Estado) - ' Dim DomicilioSucursal As String = "" - ' SBDomicilioSucursal.AppendFormat("{0}", Vta.SubProyecto.Calle) - ' If Vta.SubProyecto.NoExt.ToEntero > 0 Then SBDomicilioSucursal.AppendFormat(" No.Ext: {0}", Vta.SubProyecto.NoExt) - ' If Vta.SubProyecto.NoInt.ToEntero > 0 Then SBDomicilioSucursal.AppendFormat(", No.Int: {0}", Vta.SubProyecto.NoInt) - ' If Vta.SubProyecto.Colonia.Length > 0 Then SBDomicilioSucursal.AppendFormat(", Col: {0}", Vta.SubProyecto.Colonia) - ' If Vta.SubProyecto.CP.ToEntero > 0 Then SBDomicilioSucursal.AppendFormat(", CP: {0}", Vta.SubProyecto.CP) - ' If CiudadSucursal.Length > 0 Then SBDomicilioSucursal.AppendFormat(", {0}", CiudadSucursal) - ' If Vta.SubProyecto.Pais.Length > 0 Then SBDomicilioSucursal.AppendFormat(", {0}", Vta.SubProyecto.Pais) - ' DomicilioSucursal = SBDomicilioSucursal.ToString - ' Dim Fecha As String = Vta.Fecha.ToShortDateString - ' Dim SBDireccion As New StringBuilder() - ' Dim SBLugar As New StringBuilder() - ' Dim ClienteDireccion As String - ' Dim ClienteLugar As String - ' 'SI ESTA TIMBRADA - CON XML - ' If File.Exists(PathXML) AndAlso Vta.Serie <> "VistaPrevia" Then 'Cuando es vista previe y coincide la serie y folio se ponen los datos fiscales - ' Dim XmlDoc As New System.Xml.XmlDocument - ' XmlDoc.Load(PathXML) - ' Dim TC As Decimal = 1 - ' Try - ' TC = XmlDoc.DocumentElement.Attributes("TipoCambio").InnerText.ToDecimal - ' Catch ex As Exception - ' TC = 1 - ' End Try - ' Vta.FechaEmision = XmlDoc.DocumentElement.Attributes("fecha").InnerText.ToDate - ' Vta.NoSerieCertificadoContribuyente = XmlDoc.DocumentElement.Attributes("noCertificado").InnerText - ' Dim validaElemento = XmlDoc.DocumentElement("cfdi:Complemento") - ' If Not IsNothing(validaElemento) Then - ' For i As Integer = 0 To XmlDoc.DocumentElement("cfdi:Complemento").ChildNodes.Count - 1 - ' If XmlDoc.DocumentElement("cfdi:Complemento").ChildNodes(i).Name = "tfd:TimbreFiscalDigital" Then - ' Vta.FolioFiscal = XmlDoc.DocumentElement("cfdi:Complemento").ChildNodes(i).Attributes("UUID").InnerText - ' Vta.NoSerieCertificado = XmlDoc.DocumentElement("cfdi:Complemento").ChildNodes(i).Attributes("noCertificadoSAT").InnerText - ' Vta.FechaCertificacion = XmlDoc.DocumentElement("cfdi:Complemento").ChildNodes(i).Attributes("FechaTimbrado").InnerText.ToDate - ' Vta.SelloCFDi = XmlDoc.DocumentElement("cfdi:Complemento").ChildNodes(i).Attributes("selloCFD").InnerText - ' Vta.SelloSAT = XmlDoc.DocumentElement("cfdi:Complemento").ChildNodes(i).Attributes("selloSAT").InnerText - ' End If - ' Next - ' Else - ' Vta.FolioFiscal = "Sin Timbrar" - ' Vta.NoSerieCertificado = "Sin Timbrar" - ' Vta.SelloCFDi = "Sin Timbrar" - ' Vta.SelloSAT = "Sin Timbrar" - ' End If - ' 'SIN TIMBRAR - SIN XML - ' Else - ' Vta.FolioFiscal = "Sin Timbrar" - ' Vta.NoSerieCertificado = "Sin Timbrar" - ' Vta.SelloCFDi = "Sin Timbrar" - ' Vta.SelloSAT = "Sin Timbrar" - ' End If - ' 'DIRECCION CLIENTE - ' If Vta.CveClienteSucursal.ToEntero > 0 Then - ' 'Si cliente tiene Noint, NoExt, CP - ' SBDireccion.AppendFormat("{0}", Vta.ClienteSucursal.Direccion) - ' If Vta.ClienteSucursal.NoExt.Length > 0 Then SBDireccion.AppendFormat(", No.Ext: {0}", Vta.ClienteSucursal.NoExt) - ' If Vta.ClienteSucursal.NoInt.Length > 0 Then SBDireccion.AppendFormat(", No.Int: {0}", Vta.ClienteSucursal.NoInt) - ' If UsuarioActual.CveEmpresa <> 66 Then SBDireccion.AppendFormat(", Col: {0}", Vta.ClienteSucursal.Colonia) - ' If Not (UsuarioActual.CveEmpresa.Contiene(66, 81, 109) AndAlso Vta.TipoDocto = "Cot") Then - ' If Vta.ClienteSucursal.CP.Length > 0 Then SBDireccion.AppendFormat(", CP: {0} ", Vta.ClienteSucursal.CP.Trim) - ' End If - ' 'Si cliente tiene Local, CD, Edo, Pais - ' If Vta.ClienteSucursal.Localidad IsNot Nothing AndAlso Vta.ClienteSucursal.Localidad.Length > 0 Then SBLugar.AppendFormat("Loc: {0}, ", Vta.ClienteSucursal.Localidad) - ' If Vta.ClienteSucursal.Municipio IsNot Nothing AndAlso Vta.ClienteSucursal.Municipio.Length > 0 Then SBLugar.AppendFormat("Cd: {0}, ", Vta.ClienteSucursal.Municipio) - ' If Vta.ClienteSucursal.Estado IsNot Nothing AndAlso Vta.ClienteSucursal.Estado.Length > 0 Then SBLugar.AppendFormat(" Edo: {0}, ", Vta.ClienteSucursal.Estado) - ' If Vta.ClienteSucursal.Pais IsNot Nothing AndAlso Vta.ClienteSucursal.Pais.Length > 0 Then SBLugar.AppendFormat(" País: {0} ", Vta.ClienteSucursal.Pais) - ' Else - ' SBDireccion.AppendFormat("{0}", Vta.Cliente.Direccion) - ' If Vta.Cliente.NoExt.Length > 0 Then SBDireccion.AppendFormat(", No.Ext: {0}", Vta.Cliente.NoExt) - ' If Vta.Cliente.NoInt.Length > 0 Then SBDireccion.AppendFormat(", No.Int: {0}", Vta.Cliente.NoInt) - ' If UsuarioActual.CveEmpresa <> 66 Then SBDireccion.AppendFormat(", Col: {0}", Vta.Cliente.Colonia) - ' If Not (UsuarioActual.CveEmpresa.Contiene(66, 81, 109) AndAlso Vta.TipoDocto = "Cot") Then - ' If Vta.Cliente.CP.Length > 0 Then SBDireccion.AppendFormat(", CP: {0} ", Vta.Cliente.CP.Trim) - ' End If - ' 'Si cliente tiene Local, CD, Edo, Pais - ' If Vta.Cliente.Localidad IsNot Nothing AndAlso Vta.Cliente.Localidad.Length > 0 Then SBLugar.AppendFormat("Loc: {0}, ", Vta.Cliente.Localidad) - ' If Vta.Cliente.Ciudad IsNot Nothing AndAlso Vta.Cliente.Ciudad.Length > 0 Then SBLugar.AppendFormat("Cd: {0}, ", Vta.Cliente.Ciudad) - ' If Vta.Cliente.Estado IsNot Nothing AndAlso Vta.Cliente.Estado.Length > 0 Then SBLugar.AppendFormat(" Edo: {0}, ", Vta.Cliente.Estado) - ' If Vta.Cliente.Pais IsNot Nothing AndAlso Vta.Cliente.Pais.Length > 0 Then SBLugar.AppendFormat(" País: {0} ", Vta.Cliente.Pais) - ' End If - ' ClienteDireccion = SBDireccion.ToString - ' ClienteLugar = SBLugar.ToString - ' SBDireccion.Clear() - ' SBLugar.Clear() - ' 'LOGO - ' Dim LogoRuta As String = "" - ' 'POR SUCURSAL - ' LogoRuta = String.Format("{0}Formatos\Suc{1}.png", UsuarioActual.Empresa.Ruta, Vta.CveSucursal) - ' If File.Exists(LogoRuta) Then - ' LogoRuta = String.Format("file://{0}Formatos\Suc{1}.png", UsuarioActual.Empresa.Ruta, Vta.CveSucursal) - ' 'POR EMPRESA - ' Else - ' LogoRuta = String.Format("{0}Formatos\Logo.png", UsuarioActual.Empresa.Ruta) - ' If File.Exists(LogoRuta) Then - ' 'LogoRuta = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) - ' LogoRuta = String.Format("{0}", LogoRuta) - ' End If - ' End If - ' 'LogoRuta = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) - ' LogoRuta = String.Format("{0}", LogoRuta) - ' 'Si no tiene CBB, SE GENERA - ' If Not ImagenCBB.Exists Then - ' Dim CBB As New ClbNegBICFDv3_2.ClsNegCBBGenerar() - ' CBB.GenerarCBB(UsuarioActual.Empresa.RFC, RFCReceptor, Vta.Total.ToString.ToDecimal, Vta.FolioFiscal, RutaCBB) - ' End If - ' ImgCBB = String.Format("{0}://{1}:{2}/Empresas/{3}/CBB/{4}.jpg", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa, Vta.SerieFolio) - ' Dim CadenaOriginals As String = "||1.0|" + Vta.FolioFiscal + "|" + Vta.FechaCertificacion.ToString("yyyy-MM-dd") + "T" + Vta.FechaCertificacion.ToString("HH:mm:ss") + "|" + Vta.SelloCFDi + "|" + Vta.NoSerieCertificado + "||" - ' If Not ImagenCBB.Exists Then ImgCBB = "" - ' Dim RutaFormato As String = "" - ' 'AQUI EMPIEZA LOS PARAMETROS - ' Try - ' Dim params = New List(Of CrystalParametro) - ' 'CLIENTE - ' params.Add(New CrystalParametro("ClienteCodigo", Vta.Cliente.Codigo)) - ' params.Add(New CrystalParametro("ClienteNombre", If(Vta.ClienteSucursal.ImprimeNombreSucursal = "True", If(Vta.CveClienteSucursal > 0, Vta.ClienteSucursal.Sucursal, Vta.Cliente.Nombre), If(Vta.AtencionA <> "" AndAlso Vta.TipoDocto.Contiene("Ing", "Rem") AndAlso RFCReceptor = "XAXX010101000", $"{Vta.Cliente.Nombre}({Vta.AtencionA})", Vta.Cliente.Nombre)))) - ' params.Add(New CrystalParametro("ClienteDireccion", ClienteDireccion)) - ' params.Add(New CrystalParametro("ClienteLugar", ClienteLugar)) - - ' 'TOTALES - ' params.Add(New CrystalParametro("SubTotal", Vta.SubTotal.ToString.FormatoNumero(2))) - ' params.Add(New CrystalParametro("Descuento", Vta.Descuento.ToString.FormatoNumero(2))) - ' params.Add(New CrystalParametro("Amortizacion", Vta.Amortizacion.ToString.FormatoNumero(2))) - ' params.Add(New CrystalParametro("SubTotal2", (Vta.SubTotal - Vta.Descuento - Vta.Amortizacion).ToString.FormatoNumero(2))) - ' params.Add(New CrystalParametro("IVA", Vta.IVA.ToString.FormatoNumero(2))) - ' params.Add(New CrystalParametro("RetIVA", Vta.RetIVA.ToString.FormatoNumero(2))) - ' params.Add(New CrystalParametro("RetISR", Vta.RetISR.ToString.FormatoNumero(2))) - ' params.Add(New CrystalParametro("Total", Vta.Total.ToString.FormatoNumero(2))) - ' params.Add(New CrystalParametro("ImporteLetra", Vta.Total.ToString.ToDouble.Texto2Letras(Vta.CveMoneda))) - ' 'DATOS GENERALES - ' params.Add(New CrystalParametro("Observaciones", Vta.Observaciones)) - ' params.Add(New CrystalParametro("CveVendedor", Vta.CveVendedor.ToString)) - ' 'params.Add(New CrystalParametro("Status", Vta.EstatusFactura)) - ' params.Add(New CrystalParametro("FechaSolicitud", Vta.Fecha.ToString("dd/MMMM/yyyy"))) ' se puede omitir - ' params.Add(New CrystalParametro("Serie", Vta.Serie)) - ' params.Add(New CrystalParametro("Folio", Vta.Folio.ToString)) - ' params.Add(New CrystalParametro("DomicilioSucursal", DomicilioSucursal)) - ' params.Add(New CrystalParametro("Vencimiento", Vta.FechaVencimiento.ToString("dd/MM/yyyy"))) - ' params.Add(New CrystalParametro("FolioFiscal", Vta.FolioFiscal)) - ' params.Add(New CrystalParametro("FechaCertificacion", String.Format("{0}T{1}", Vta.FechaCertificacion.ToString("yyyy-MM-dd"), Vta.FechaCertificacion.ToString("HH:mm:ss")))) - ' params.Add(New CrystalParametro("SelloCFDI", Vta.SelloCFDi)) - ' params.Add(New CrystalParametro("CadenaSAT", CadenaOriginals)) - ' params.Add(New CrystalParametro("SelloSAT", Vta.SelloSAT)) - ' params.Add(New CrystalParametro("QR", ImgCBB)) - ' params.Add(New CrystalParametro("ClienteRFC", RFCReceptor)) - ' params.Add(New CrystalParametro("FormaPago", Vta.FormaPagoText)) - ' params.Add(New CrystalParametro("Moneda", Vta.Moneda)) - ' params.Add(New CrystalParametro("TipoCambio", Vta.TipoCambio.ToString)) - ' params.Add(New CrystalParametro("CondicionPago", Vta.CondicionesPagoText)) - ' params.Add(New CrystalParametro("CadenaOriginal", CadenaOriginals)) - ' params.Add(New CrystalParametro("SerieCertificadoSAT", Vta.NoSerieCertificado)) - ' params.Add(New CrystalParametro("CertificadoContribuyente", Vta.NoSerieCertificadoContribuyente)) - ' params.Add(New CrystalParametro("NumCta", Vta.NumeroCuenta)) - ' params.Add(New CrystalParametro("LogoPath", LogoRuta)) - ' 'VENDEDOR - ' Dim RowVendedor As DataRow = GlobalDTVendedores(-1).FiltroPrimero(String.Format("CveVendedor = {0}", Vta.CveVendedor.ToString)) - ' If Not IsNothing(RowVendedor) Then - ' params.Add(New CrystalParametro("VendedorNombre", RowVendedor("Vendedor").ToString)) - ' params.Add(New CrystalParametro("VendedorMail", RowVendedor("Correo").ToString)) - ' params.Add(New CrystalParametro("VendedorTelefono", RowVendedor("Telefono").ToString)) - ' params.Add(New CrystalParametro("VendedorCelular", RowVendedor("Celular").ToString)) - ' End If - ' params.Add(New CrystalParametro("CiudadSucursal", CiudadSucursal)) - ' params.Add(New CrystalParametro("OC", Vta.Det_OrdenCompra.ToString)) - ' If UsuarioActual.Empresa.Funcionalidad(508) = "1" Then - ' params.Add(New CrystalParametro("IEPS", Vta.IEPS.ToString.FormatoNumero(2))) - ' End If - ' If Vta.CveClienteSucursal > 0 Then - ' params.Add(New CrystalParametro("ClienteContactoMail", Vta.ClienteSucursal.CorreoSucursal)) - ' params.Add(New CrystalParametro("ClienteTelefono", Vta.ClienteSucursal.TelefonoSucursal)) - ' Else - ' params.Add(New CrystalParametro("ClienteContactoMail", Vta.Cliente.MailCotizacion)) - ' params.Add(New CrystalParametro("ClienteTelefono", If(Vta.TipoDocto.Contiene("Ing", "Rem") AndAlso Vta.Cliente.Telefono.Length > 6, Vta.Cliente.Telefono, Vta.TelefonoGenerico))) - ' End If - ' If UsuarioActual.CveEmpresa.Contiene(17) Then - ' params.Add(New CrystalParametro("MetodoPago", Vta.ClaveMetodoPagoSAT.ToString)) - ' Else - ' params.Add(New CrystalParametro("MetodoPago", Vta.MetodoPago.ToString)) - ' End If - - ' Select Case Vta.TipoDocto - ' Case "Ing" - ' NombreArchivo = "Factura" - ' NombreArchivoDescarga = "Factura" - ' TipoDocumento = "INGRESO" - ' 'GENERAL - ' params.Add(New CrystalParametro("TipoDocumento", NombreArchivoDescarga)) - ' params.Add(New CrystalParametro("Tipo", TipoDocumento)) - ' params.Add(New CrystalParametro("Ref", TipoDocumentoRef)) - ' params.Add(New CrystalParametro("AplicaPagare", AplicaPagare)) - ' 'VSH - ' If UsuarioActual.CveEmpresa.Contiene(4, 7, 11, 12, 122, 145) Then - ' 'DATOS CLIENTES - ' Dim ClienteRow = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveCliente = {0}", Vta.CveCliente.ToString)) - ' Dim DatosCliente = "" - ' If ClienteRow IsNot Nothing Then - ' DatosCliente = String.Format("{0} | {1} | {2}", Vta.SubProyecto.Municipio, ClienteRow("CuentaContable"), ClienteRow("Codigo")) - ' End If - ' params.Add(New CrystalParametro("DatosClientes", DatosCliente)) - ' params.Add(New CrystalParametro("Sucursal", Vta.SubProyecto.SubProyecto)) - ' End If - ' 'COMPU, DN DIFUSA - ' If UsuarioActual.CveEmpresa.Contiene(72, 80, 119) Then - ' params.Add(New CrystalParametro("EstatusFactura", If(Vta.TipoEstatus = 5, Vta.EstatusFactura, ""))) - ' params.Add(New CrystalParametro("EstatusEntrega", If(Vta.Inv_CveEstatusEntrega = 1, Vta.Inv_EstatusEntrega, ""))) - ' params.Add(New CrystalParametro("PedidoContrato", Vta.PedidoContrato)) - ' params.Add(New CrystalParametro("DescripcionContrato", Vta.NumeroDescripcionContrato)) - ' params.Add(New CrystalParametro("MonedaAbreviatura", If(Vta.MonedaAbreviatura.ToString IsNot Nothing, Vta.MonedaAbreviatura.ToString, ""))) - ' params.Add(New CrystalParametro("UsuarioImprimio", UsuarioActual.Nombre)) - ' params.Add(New CrystalParametro("FechaImpresion", Now.ToDateTime.ToString)) - ' params.Add(New CrystalParametro("Sucursal", Vta.SubProyecto.SubProyecto)) - ' 'INE COMPLEMENTOS - ' If UsuarioActual.CveEmpresa.Contiene(72) Then - ' Dim INETipoProceso As String = "" - ' Dim INETipoComite As String = "" - ' Dim INEIdContabilidad As Integer = 0 - ' If Vta.ComplementoINE IsNot Nothing Then - ' INETipoProceso = Vta.ComplementoINE.INETipoProceso - ' INETipoComite = Vta.ComplementoINE.INETipoComite - ' INEIdContabilidad = Vta.ComplementoINE.INEIdContabilidad - ' End If - ' params.Add(New CrystalParametro("INETipoProceso", INETipoProceso)) - ' params.Add(New CrystalParametro("INETipoComite", INETipoComite)) - ' params.Add(New CrystalParametro("INEIdContabilidad", INEIdContabilidad)) - ' params.Add(New CrystalParametro("Referencia", Vta.Cliente.ReferenciaFiscal)) - ' params.Add(New CrystalParametro("ClienteContacto", Vta.AtencionA)) - ' End If - ' 'DIRECCION ENVIO - ' If Vta.EnviarA.CveDireccionEnvio > 0 Then - ' Dim StrEnvioDi As New StringBuilder - ' StrEnvioDi.AppendFormat("{0}", Vta.EnviarA.EnvioDireccion) - ' If Vta.EnviarA.EnvioNoExt IsNot Nothing AndAlso Vta.EnviarA.EnvioNoExt.Length > 0 Then StrEnvioDi.AppendFormat(", No.Ext: {0}", Vta.EnviarA.EnvioNoExt) - ' If Vta.EnviarA.EnvioNoInt IsNot Nothing AndAlso Vta.EnviarA.EnvioNoInt.Length > 0 Then StrEnvioDi.AppendFormat(", No.Int: {0}", Vta.EnviarA.EnvioNoInt) - ' params.Add(New CrystalParametro("EnvioDireccion", StrEnvioDi.ToString)) - ' params.Add(New CrystalParametro("EnvioNoExt", Vta.EnviarA.EnvioNoExt)) - ' params.Add(New CrystalParametro("EnvioNoInt", Vta.EnviarA.EnvioNoInt)) - ' params.Add(New CrystalParametro("EnvioColonia", Vta.EnviarA.EnvioColonia)) - ' params.Add(New CrystalParametro("EnvioCiudad", Vta.EnviarA.EnvioCiudad)) - ' params.Add(New CrystalParametro("EnvioEstado", Vta.EnviarA.EnvioEstado)) - ' params.Add(New CrystalParametro("EnvioContacto", Vta.EnviarA.EnvioContacto)) - ' params.Add(New CrystalParametro("EnvioDepartamento", Vta.EnviarA.EnvioDepartamento)) - ' params.Add(New CrystalParametro("EnvioCP", Vta.EnviarA.EnvioCP)) - ' Else - ' If Vta.CveClienteSucursal.ToEntero > 0 Then - ' Dim StrEnvioDi As New StringBuilder - ' StrEnvioDi.AppendFormat("{0}", Vta.ClienteSucursal.Direccion) - ' If Vta.ClienteSucursal.NoExt.Length > 0 Then StrEnvioDi.AppendFormat(", No.Ext: {0}", Vta.ClienteSucursal.NoExt) - ' If Vta.ClienteSucursal.NoInt.Length > 0 Then StrEnvioDi.AppendFormat(", No.Int: {0}", Vta.ClienteSucursal.NoInt) - ' params.Add(New CrystalParametro("EnvioDireccion", StrEnvioDi.ToString)) - ' params.Add(New CrystalParametro("EnvioColonia", If(Vta.ClienteSucursal.Colonia.Length > 0, Vta.ClienteSucursal.Colonia, ""))) - ' params.Add(New CrystalParametro("EnvioCiudad", If(Vta.ClienteSucursal.Municipio.Length > 0, Vta.ClienteSucursal.Municipio, ""))) - ' params.Add(New CrystalParametro("EnvioEstado", If(Vta.ClienteSucursal.Estado.Length > 0, Vta.ClienteSucursal.Estado, ""))) - ' params.Add(New CrystalParametro("EnvioCP", If(Vta.ClienteSucursal.CP.Length > 0, Vta.ClienteSucursal.CP, ""))) - ' Else - ' Dim StrEnvioDi As New StringBuilder - ' StrEnvioDi.AppendFormat("{0}", If(Vta.Cliente.Direccion.Length > 0, Vta.Cliente.Direccion, "")) - ' If Vta.Cliente.NoExt.Length > 0 Then StrEnvioDi.AppendFormat(", No.Ext: {0}", Vta.Cliente.NoExt) - ' If Vta.Cliente.NoInt.Length > 0 Then StrEnvioDi.AppendFormat(", No.Int: {0}", Vta.Cliente.NoInt) - ' params.Add(New CrystalParametro("EnvioDireccion", StrEnvioDi.ToString)) - ' params.Add(New CrystalParametro("EnvioColonia", If(Vta.Cliente.Colonia.Length > 0, Vta.Cliente.Colonia, ""))) - ' params.Add(New CrystalParametro("EnvioCiudad", If(Vta.Cliente.Localidad IsNot Nothing And Vta.Cliente.Localidad.Length > 0, Vta.Cliente.Localidad, ""))) - ' params.Add(New CrystalParametro("EnvioEstado", If(Vta.Cliente.Estado.Length > 0, Vta.Cliente.Estado, ""))) - ' params.Add(New CrystalParametro("EnvioCP", If(Vta.Cliente.CP.Length > 0, Vta.Cliente.CP, ""))) - ' End If - ' End If - ' 'CLIENTE SUCURSAL - ' If Vta.CveClienteSucursal.ToEntero > 0 Then - ' params.Add(New CrystalParametro("ClienteCalle", If(Vta.ClienteSucursal.Direccion.Length > 0, Vta.ClienteSucursal.Direccion, ""))) - ' params.Add(New CrystalParametro("ClienteColonia", If(Vta.ClienteSucursal.Colonia.Length > 0, Vta.ClienteSucursal.Colonia, ""))) - ' params.Add(New CrystalParametro("ClienteCiudad", If(Vta.ClienteSucursal.Localidad IsNot Nothing And Vta.ClienteSucursal.Localidad.Length > 0, Vta.ClienteSucursal.Localidad, ""))) - ' params.Add(New CrystalParametro("ClienteMunicipio", If(Vta.ClienteSucursal.Municipio.Length > 0, Vta.ClienteSucursal.Municipio, ""))) - ' params.Add(New CrystalParametro("ClienteEstado", If(Vta.ClienteSucursal.Estado.Length > 0, Vta.ClienteSucursal.Estado, ""))) - ' params.Add(New CrystalParametro("ClienteCP", If(Vta.ClienteSucursal.CP.Length > 0, Vta.ClienteSucursal.CP, ""))) - ' params.Add(New CrystalParametro("ClienteNoInt", If(Vta.ClienteSucursal.NoInt.Length > 0, Vta.ClienteSucursal.NoInt, ""))) - ' params.Add(New CrystalParametro("ClienteNoExt", If(Vta.ClienteSucursal.NoExt.Length > 0, Vta.ClienteSucursal.NoExt, ""))) - ' params.Add(New CrystalParametro("ClientePais", If(Vta.ClienteSucursal.Pais.Length > 0, Vta.ClienteSucursal.Pais, ""))) - ' Else - ' params.Add(New CrystalParametro("ClienteCalle", If(Vta.Cliente.Direccion.Length > 0, Vta.Cliente.Direccion, ""))) - ' params.Add(New CrystalParametro("ClienteColonia", If(Vta.Cliente.Colonia.Length > 0, Vta.Cliente.Colonia, ""))) - ' params.Add(New CrystalParametro("ClienteCiudad", If(Vta.Cliente.Localidad IsNot Nothing And Vta.Cliente.Localidad.Length > 0, Vta.Cliente.Localidad, ""))) - ' params.Add(New CrystalParametro("ClienteMunicipio", If(Vta.Cliente.Ciudad.Length > 0, Vta.Cliente.Ciudad, ""))) - ' params.Add(New CrystalParametro("ClienteEstado", If(Vta.Cliente.Estado.Length > 0, Vta.Cliente.Estado, ""))) - ' params.Add(New CrystalParametro("ClienteCP", If(Vta.Cliente.CP.Length > 0, Vta.Cliente.CP, ""))) - ' params.Add(New CrystalParametro("ClienteNoInt", If(Vta.Cliente.NoInt.Length > 0, Vta.Cliente.NoInt, ""))) - ' params.Add(New CrystalParametro("ClienteNoExt", If(Vta.Cliente.NoExt.Length > 0, Vta.Cliente.NoExt, ""))) - ' params.Add(New CrystalParametro("ClientePais", If(Vta.Cliente.Pais.Length > 0, Vta.Cliente.Pais, ""))) - ' End If - ' End If - ' RutaFormato = String.Format("{0}Formatos\{1}.mrt", UsuarioActual.Empresa.Ruta, NombreArchivo) - ' Case "Egs" - ' If UsuarioActual.CveEmpresa.Contiene(72, 80) Then - ' NombreArchivo = "NotaCredito" - ' Else - ' NombreArchivo = "Factura" - ' End If - ' NombreArchivoDescarga = "Nota de Crédito" - ' TipoDocumento = "EGRESO" - ' TipoDocumentoRef = String.Format(": Ref.:{0}", Vta.RefDocto) - ' AplicaPagare = "0" - ' 'GENERAL - ' params.Add(New CrystalParametro("TipoDocumento", NombreArchivoDescarga)) - ' params.Add(New CrystalParametro("Tipo", TipoDocumento)) - ' params.Add(New CrystalParametro("Ref", TipoDocumentoRef)) - ' params.Add(New CrystalParametro("AplicaPagare", AplicaPagare)) - ' params.Add(New CrystalParametro("Fecha", String.Format("{0}T{1}", Vta.Fecha.ToString("yyyy-MM-dd"), Vta.Fecha.ToString("HH:mm:ss")))) - ' 'ALAN YEPIZ - ' If UsuarioActual.CveEmpresa.Contiene(123) Then - ' params.Add(New CrystalParametro("DiaExpedicion", String.Format("{0}", Vta.Fecha.ToDate.Day))) - ' params.Add(New CrystalParametro("MesExpedicion", String.Format("{0}", Vta.Fecha.ToDate.Month))) - ' params.Add(New CrystalParametro("AñoExpedicion", String.Format("{0}", Vta.Fecha.ToDate.Year))) - ' End If - ' 'COMPU, DN DIFUSA - ' If UsuarioActual.CveEmpresa.Contiene(72, 80, 119) Then - ' params.Add(New CrystalParametro("EstatusFactura", If(Vta.TipoEstatus = 5, Vta.EstatusFactura, ""))) - ' params.Add(New CrystalParametro("EstatusEntrega", If(Vta.Inv_CveEstatusEntrega = 1, Vta.Inv_EstatusEntrega, ""))) - ' params.Add(New CrystalParametro("PedidoContrato", Vta.PedidoContrato)) - ' params.Add(New CrystalParametro("MonedaAbreviatura", If(Vta.MonedaAbreviatura.ToString IsNot Nothing, Vta.MonedaAbreviatura.ToString, ""))) - ' params.Add(New CrystalParametro("UsuarioImprimio", UsuarioActual.Nombre)) - ' params.Add(New CrystalParametro("FechaImpresion", Now.ToDateTime.ToString)) - ' params.Add(New CrystalParametro("Sucursal", Vta.SubProyecto.SubProyecto)) - ' 'CLIENTE SUCURSAL - ' If Vta.CveClienteSucursal.ToEntero > 0 Then - ' params.Add(New CrystalParametro("ClienteCalle", If(Vta.ClienteSucursal.Direccion.Length > 0, Vta.ClienteSucursal.Direccion, ""))) - ' params.Add(New CrystalParametro("ClienteColonia", If(Vta.ClienteSucursal.Colonia.Length > 0, Vta.ClienteSucursal.Colonia, ""))) - ' params.Add(New CrystalParametro("ClienteCiudad", If(Vta.ClienteSucursal.Localidad IsNot Nothing And Vta.ClienteSucursal.Localidad.Length > 0, Vta.ClienteSucursal.Localidad, ""))) - ' params.Add(New CrystalParametro("ClienteMunicipio", If(Vta.ClienteSucursal.Municipio.Length > 0, Vta.ClienteSucursal.Municipio, ""))) - ' params.Add(New CrystalParametro("ClienteEstado", If(Vta.ClienteSucursal.Estado.Length > 0, Vta.ClienteSucursal.Estado, ""))) - ' params.Add(New CrystalParametro("ClienteCP", If(Vta.ClienteSucursal.CP.Length > 0, Vta.ClienteSucursal.CP, ""))) - ' params.Add(New CrystalParametro("ClienteNoInt", If(Vta.ClienteSucursal.NoInt.Length > 0, Vta.ClienteSucursal.NoInt, ""))) - ' params.Add(New CrystalParametro("ClienteNoExt", If(Vta.ClienteSucursal.NoExt.Length > 0, Vta.ClienteSucursal.NoExt, ""))) - ' params.Add(New CrystalParametro("ClientePais", If(Vta.ClienteSucursal.Pais.Length > 0, Vta.ClienteSucursal.Pais, ""))) - ' Else - ' params.Add(New CrystalParametro("ClienteCalle", If(Vta.Cliente.Direccion.Length > 0, Vta.Cliente.Direccion, ""))) - ' params.Add(New CrystalParametro("ClienteColonia", If(Vta.Cliente.Colonia.Length > 0, Vta.Cliente.Colonia, ""))) - ' params.Add(New CrystalParametro("ClienteCiudad", If(Vta.Cliente.Localidad IsNot Nothing And Vta.Cliente.Localidad.Length > 0, Vta.Cliente.Localidad, ""))) - ' params.Add(New CrystalParametro("ClienteMunicipio", If(Vta.Cliente.Ciudad.Length > 0, Vta.Cliente.Ciudad, ""))) - ' params.Add(New CrystalParametro("ClienteEstado", If(Vta.Cliente.Estado.Length > 0, Vta.Cliente.Estado, ""))) - ' params.Add(New CrystalParametro("ClienteCP", If(Vta.Cliente.CP.Length > 0, Vta.Cliente.CP, ""))) - ' params.Add(New CrystalParametro("ClienteNoInt", If(Vta.Cliente.NoInt.Length > 0, Vta.Cliente.NoInt, ""))) - ' params.Add(New CrystalParametro("ClienteNoExt", If(Vta.Cliente.NoExt.Length > 0, Vta.Cliente.NoExt, ""))) - ' params.Add(New CrystalParametro("ClientePais", If(Vta.Cliente.Pais.Length > 0, Vta.Cliente.Pais, ""))) - ' End If - ' End If - - ' RutaFormato = String.Format("{0}Formatos\{1}.mrt", UsuarioActual.Empresa.Ruta, "Factura") - ' Case Else - ' NombreArchivo = "" - ' TipoDocumento = "" - ' End Select - ' If NombreArchivo = "" Then - ' GuardaLog("No se especifico el tipo de Impresion de venta (Venta, Remision, Cotización, Nota de Crédito).") - ' Exit Sub - ' End If - ' 'TERMINA REGION PARAMETROS - ' Dim lrds As New List(Of ReportDataSource) - ' 'Si es ECLIPSE CREAR COLUMAS PARA FIRMAS EN DtDetalle. - ' If UsuarioActual.CveEmpresa.Contiene(1, 15, 17, 71, 76, 125) Then - ' Dim DtDetalleFirmas As New DataTable - ' DtDetalleFirmas.TableName = "DetalleFirma" - ' DtDetalleFirmas = Vta.DtDetalle.Copy() - ' 'SI NO TIENE LAS COLUMNAS DE FIRMAS LAS CREA. - ' If Not DtDetalleFirmas.Columns.Contains("Titulo") Then - ' DtDetalleFirmas.Columns.Add("Titulo", GetType(String)) - ' DtDetalleFirmas.Columns.Add("Nombre", GetType(String)) - ' DtDetalleFirmas.Columns.Add("Puesto", GetType(String)) - ' DtDetalleFirmas.Columns.Add("Lado", GetType(Integer)) - ' End If - ' 'Se llenan los Rows de las columnas con los datos del DtFirmas - ' For i As Integer = 0 To Vta.DtFirmas.Rows.Count - 1 - ' 'Si DtDetalle es menor al DtFirmas, crea un nuevo Row en DtDetalle y le asigna valor, Si no solo asigna valor - ' If DtDetalleFirmas.Rows.Count < i + 1 Then - ' Dim Dr = DtDetalleFirmas.NewRow - ' Dr("Titulo") = Vta.DtFirmas(i)("Titulo").ToString - ' Dr("Nombre") = Vta.DtFirmas(i)("Nombre").ToString - ' Dr("Puesto") = Vta.DtFirmas(i)("Puesto").ToString - ' Dr("Lado") = Vta.DtFirmas(i)("Lado").ToString.ToEntero - ' DtDetalleFirmas.Rows.Add(Dr) - ' Else - ' DtDetalleFirmas(i)("Titulo") = Vta.DtFirmas(i)("Titulo").ToString - ' DtDetalleFirmas(i)("Nombre") = Vta.DtFirmas(i)("Nombre").ToString - ' DtDetalleFirmas(i)("Puesto") = Vta.DtFirmas(i)("Puesto").ToString - ' DtDetalleFirmas(i)("Lado") = Vta.DtFirmas(i)("Lado").ToString.ToEntero - ' End If - ' Next i - ' Dim rds As New ReportDataSource With {.Name = "DsOC", .Value = DtDetalleFirmas} - ' lrds.Add(rds) - ' Else - ' Dim rds As New ReportDataSource With {.Name = "DsOC", .Value = Vta.DtDetalle} - ' lrds.Add(rds) - ' End If - ' Dim rds1 As New ReportDataSource With {.Name = "DataSet1", .Value = If(Vta.DtDeduccion IsNot Nothing, Vta.DtDeduccion, New DataTable)} ' sino esta creado el objeto, lo creamos, para que no truene el reporte - ' lrds.Add(rds1) - ' 'DETALLE FIRMAS - ' Dim rds2 As New ReportDataSource With {.Name = "DataSet2", .Value = If(Vta.DtFirmas IsNot Nothing, Vta.DtFirmas, New DataTable)} ' sino esta creado el objeto, lo creamos, para que no truene el reporte - ' lrds.Add(rds2) - ' Dim Archivo As New System.IO.FileInfo(RutaFormato) - ' Dim DataSet As New DataSet - ' Vta.DtDetalle.TableName = "Datos" - ' Vta.DtDeduccion.TableName = "Deduccion" - ' DataSet.Tables.Add(Vta.DtDetalle.Copy) - ' DataSet.Tables.Add(Vta.DtDeduccion.Copy) - ' If Archivo.Exists Then - ' ImprimirbytesPDF(ImprimirPDFPyME(RutaFormato, DataSet, params, NombreArchivo, "PDF", MR:=Nothing), "Factura") - ' If Guardar Then - ' Dim ArchivoPDF As New System.IO.FileInfo(String.Format("{0}PDF\{1}\{2}.pdf", UsuarioActual.Empresa.Ruta, Vta.TipoDocto, Vta.SerieFolio)) - ' If Not ArchivoPDF.Exists Then - ' Try - ' DirectoryExistsCreate(String.Format("{0}PDF", UsuarioActual.Empresa.Ruta)) - ' DirectoryExistsCreate(String.Format("{0}PDF\{1}", UsuarioActual.Empresa.Ruta, Vta.TipoDocto)) - ' File.WriteAllBytes(String.Format("{0}PDF\{1}\{2}.pdf", UsuarioActual.Empresa.Ruta, Vta.TipoDocto, Vta.SerieFolio), retorno) - ' Catch ex As Exception - ' Alert("Ocurrió un error al generar el PDF", TipoMensaje.MsgAdvertencia) - ' End Try - ' Else - ' Try - ' ArchivoPDF.Delete() - ' File.WriteAllBytes(String.Format("{0}PDF\{1}\{2}.pdf", UsuarioActual.Empresa.Ruta, Vta.TipoDocto, Vta.SerieFolio), retorno) - ' Catch ex As Exception - ' Alert("Ocurrió un error al generar el PDF", TipoMensaje.MsgAdvertencia) - ' End Try - ' End If - ' End If - ' Else - ' params.Add(New CrystalParametro("Empresa", UsuarioActual.Empresa.Empresa)) - ' params.Add(New CrystalParametro("RFC", UsuarioActual.Empresa.RFC)) - ' ImprimirbytesPDF(ImprimirPDFPyME(RutaFormato, DataSet, params, NombreArchivo, "PDF", MR:=Nothing), "Factura") - ' End If - - ' Catch ex As Exception - ' GuardaLog(String.Format("Ocurrio un error al generar el reporte RLDC {0}", ex)) - ' End Try - 'End Sub Public Function PdfFactura(ByRef Vta As Modelos.Factura, Optional AplicaPagare As String = "0", Optional Guardar As Boolean = True, Optional SubReportData As Modelos.MSubReportData = Nothing, Optional UsarStimulsoft As Boolean = False) As Byte() Dim retorno As Byte() = Nothing ' Dim ObjVentas As New ClsVentas @@ -6647,6 +6187,20 @@ Public Class ClsPaginas End If End Sub #End Region + + Public Function RutaFormatoReporte(NombreReporte As String) As String + Dim Retorno As String = String.Format("{0}Formatos\{1}", UsuarioActual.Empresa.Ruta, NombreReporte) + If Not File.Exists(Retorno) Then + Retorno = $"{DirectorioEmpresas}Grales\Formatos\{NombreReporte}" + End If + Return Retorno + End Function + Public Function RutaImagenLogo() As String + Dim Retorno As String = "" 'si existe le agrega el texto ''file:// sino lo regresa vacío + Dim Ruta As String = String.Format("{0}Logo.png", UsuarioActual.Empresa.Ruta) + If File.Exists(Ruta) Then Retorno = $"file://{Ruta}" + Return Retorno + End Function #Region "PDF OC NEW 3.0" Public Function NewGeneraBytesOC(tCveOrdenCompra As Integer, Optional MR As ReportViewer = Nothing, Optional ConBitacora As Boolean = False) As Byte() Dim bytes As Byte() = Nothing @@ -8231,12 +7785,12 @@ Public Class ClsPaginas If Pago.CveMonedaPago > 1 Then 'Agregamos la Extranjera - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePago, Pago.ImportePago, 295, Pago.Referencia, Concepto, VentaActual.IdCtaContableClienteAnticipoExtranjera, CveVenta:=Pago.CveVentaAmortizacion, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, ImporteME:=Pago.ImportePago, TipoCambio:=TCValuacionPago, CveSubProyecto:=VentaActual.CveSubProyecto) Then ErrorMovtos = True + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePago, Pago.ImportePago, 295, Pago.Referencia, Concepto, VentaActual.IdCtaContableClienteAnticipoExtranjera, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, ImporteME:=Pago.ImportePago, TipoCambio:=TCValuacionPago, CveSubProyecto:=VentaActual.CveSubProyecto) Then ErrorMovtos = True ImporteMN = (Pago.ImportePago * TCValuacionPago - Pago.ImportePago).RoundSQL - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePago, ImporteMN, 227, Pago.Referencia, Concepto, VentaActual.IdCtaContableClienteAnticipoComplementaria, CveVenta:=Pago.CveVentaAmortizacion, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, ImporteME:=Pago.ImportePago, TipoCambio:=TCValuacionPago, CveSubProyecto:=VentaActual.CveSubProyecto) Then ErrorMovtos = True + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePago, ImporteMN, 227, Pago.Referencia, Concepto, VentaActual.IdCtaContableClienteAnticipoComplementaria, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, ImporteME:=Pago.ImportePago, TipoCambio:=TCValuacionPago, CveSubProyecto:=VentaActual.CveSubProyecto) Then ErrorMovtos = True Else 'Agregamos Nacional - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePago, Pago.ImportePago, 3, Pago.Referencia, Concepto, VentaActual.IdCtaContableClienteAnticipo, CveVenta:=Pago.CveVentaAmortizacion, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambioPago:=Pago.TCPago) Then ErrorMovtos = True + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePago, Pago.ImportePago, 3, Pago.Referencia, Concepto, VentaActual.IdCtaContableClienteAnticipo, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambioPago:=Pago.TCPago) Then ErrorMovtos = True End If If Not ErrorMovtos AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, Pago.ImportePago, 95, VentaActual.SerieFolio, VentaActual.SerieFolio, IdCtaContable, CveIE:=Pago.CveIE, CveVenta:=VentaActual.CveVenta, CveSubProyecto:=VentaActual.CveSubProyecto, CveCliente:=VentaActual.CveCliente, TipoCambio:=TCValuacionVenta, TipoCambioPago:=Pago.TCPago, PorcentajeImpuesto:=VentaActual.PorcentajeIVA, Contabilizable:=False) Then diff --git a/App_Code/ClsRH.vb b/App_Code/ClsRH.vb index ee95fedd3..03d71dc26 100644 --- a/App_Code/ClsRH.vb +++ b/App_Code/ClsRH.vb @@ -314,11 +314,13 @@ Public Class ClsRH #End Region #Region "ClsRHAsistenciasInasistencias" - Public Function GetAsistenciasInasistencias() As Boolean + Public Function GetAsistenciasInasistencias(CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_RH_AsistenciasInasistenciasGet") - + With SqlAdapter.SelectCommand.Parameters + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With Try SqlAdapter.Fill(Data) Retorno = True diff --git a/App_Code/ClsSisEmpresas.vb b/App_Code/ClsSisEmpresas.vb index e35e18d35..b02ff2491 100644 --- a/App_Code/ClsSisEmpresas.vb +++ b/App_Code/ClsSisEmpresas.vb @@ -465,7 +465,7 @@ Public Class ClsSisEmpresas _Empresa.FielPassword = Data.Rows(0)("FielPassword").ToString _Empresa.FielPFX = Data.Rows(0)("FielPFX").ToString - _Empresa.Ruta = Data.Rows(0)("RutaArchivos").ToString + _Empresa._RutaArchivos = Data.Rows(0)("RutaArchivos").ToString Else 'Alert("No se encontró la Empresa solicitada.", TipoMensaje.MsgAdvertencia) diff --git a/App_Code/Empresa.vb b/App_Code/Empresa.vb index d88769d36..062318423 100644 --- a/App_Code/Empresa.vb +++ b/App_Code/Empresa.vb @@ -97,36 +97,24 @@ Public Class Empresa Public Property Soporte_PWD As String Public Property Soporte_Tipo As String Public Property Timbres As Integer - Private Property RutaArchivos As String + Public Property _RutaArchivos As String - Public Property Ruta As String + Public ReadOnly Property Ruta As String Get - If Not String.IsNullOrEmpty(RutaArchivos) AndAlso ClsPaginas.EsProduccion Then - Return RutaArchivos + If Not String.IsNullOrEmpty(_RutaArchivos) AndAlso ClsPaginas.EsProduccion Then + Return _RutaArchivos Else - Return String.Format("{0}\{1}\", Extensiones.ModExtensiones.DirectorioEmpresas, Me.CveEmpresa) + Return String.Format("{0}{1}\", Extensiones.ModExtensiones.DirectorioEmpresas, Me.CveEmpresa) End If End Get - Set(ByVal value As String) - RutaArchivos = value - End Set + 'Set(ByVal value As String) + ' _RutaArchivos = value + 'End Set End Property - 'Public Property IdCuentaIVAxTrasladar As Integer - 'Public Property IdCuentaIVATrasladado As Integer - 'Public Property IdCuentaPerdidaCambiaria As Integer - 'Public Property IdCuentaGananciaCambiaria As Integer - ' Public Property ContaContabilizacionNC As Integer + Public Property PV_TerminalTipo As Integer Public Property PlantillaMailVenta As String - Public Property AsuntoPlantillaMailVenta As String - - 'Nuevas - 'Public Property IdCuentaIVAxAcreditar As Integer - 'Public Property IdCuentaIVAAcreditable As Integer - 'Public Property IdCuentaRetIVACirculacion As Integer - 'Public Property IdCuentaRetISRCirculacion As Integer - 'Public Property IdCuentaDSV As Integer - 'Public Property IdCuentaImpuestosLocales As Integer + Public Property AsuntoPlantillaMailVenta As String Public Property IdCtaProveedor As Integer Public Property IdCtaCliente As Integer Public Property IdCtaDeudores As Integer diff --git a/App_Code/LogicNominas.vb b/App_Code/LogicNominas.vb index 7033ba0c5..77ef2a74b 100644 --- a/App_Code/LogicNominas.vb +++ b/App_Code/LogicNominas.vb @@ -97,7 +97,7 @@ Public Class LogicNominas Dim DtDeducciones As Data.DataTable = Nothing Dim DtOtrosPagos As Data.DataTable = Nothing - Dim DtHorasExtras As Data.DataTable = Nothing + 'Dim DtHorasExtras As Data.DataTable = Nothing Dim TotalPercepciones As Decimal = 0 Dim TotalDeducciones As Decimal = 0 Dim TotalOtrosPagos As Decimal = 0 @@ -253,13 +253,13 @@ Public Class LogicNominas continuar = False End If If Not TimbreIndemnizacion Then - If continuar AndAlso objNomina.GetHorasExtras(CvePersonal, CvePeriodo, UsuarioActual.CveEmpresa) Then - DtHorasExtras = objNomina.DtResultados - Else - continuar = False - End If + 'If continuar AndAlso objNomina.GetHorasExtras(CvePersonal, CvePeriodo, UsuarioActual.CveEmpresa) Then + ' DtHorasExtras = objNomina.DtResultados + 'Else + ' continuar = False + 'End If Else - DtHorasExtras = New DataTable() + 'DtHorasExtras = New DataTable() End If If continuar AndAlso objNomina.GetPeriodos(-1, UsuarioActual.CveEmpresa, -1, -1, CvePeriodo) AndAlso objNomina.DtResultados.Rows().Count > 0 Then Dim DrPeriodo As DataRow = objNomina.DtResultados.Rows(0) @@ -350,14 +350,32 @@ Public Class LogicNominas .ImporteGravado = Row("ImporteGravado").ToString().ToDecimal(), .ImporteExento = Row("ImporteExento").ToString().ToDecimal()}) End If 'RMF, falta poner el numero de horas pagadas - If Row("SATCveConcepto").ToString().ToEntero() = 19 AndAlso DtHorasExtras IsNot Nothing Then 'cuando son horas extras + If Row("SATCveConcepto").ToString().ToEntero() = 19 Then 'cuando son horas extras 'Obtengo el desglose de horas extras - Dim dr As DataRow = DtHorasExtras.FiltroPrimero("") - If dr IsNot Nothing Then - If dr("HorasDobles").ToString().ToDouble > 0 And Row("CveSistema").ToString().ToEntero() = 12 Then ObjHorasExtras.Add(New CFDINominaHorasExtras With {.Dias = dr("DiasHorasDobles").ToString().ToEntero().ToString(), .TipoHoras = "01", .HorasExtra = dr("HorasDobles").ToString().ToEntero(), .ImportePagado = Row("Importe").ToString().ToDecimal}) - If dr("HorasTriples").ToString().ToDouble > 0 And Row("CveSistema").ToString().ToEntero() = 13 Then ObjHorasExtras.Add(New CFDINominaHorasExtras With {.Dias = dr("DiasHorasTriples").ToString().ToEntero().ToString(), .TipoHoras = "02", .HorasExtra = dr("HorasTriples").ToString().ToEntero(), .ImportePagado = Row("Importe").ToString().ToDecimal}) + 'Dim dr As DataRow = DtHorasExtras.FiltroPrimero("") + 'If dr IsNot Nothing Then + ' If dr("HorasDobles").ToString().ToDouble > 0 And Row("CveSistema").ToString().ToEntero() = 12 Then + ' ObjHorasExtras.Add(New CFDINominaHorasExtras With {.Dias = dr("DiasHorasDobles").ToString().ToEntero().ToString(), + ' .TipoHoras = "01", .HorasExtra = dr("HorasDobles").ToString().ToEntero(), .ImportePagado = Row("Importe").ToString().ToDecimal()}) + ' End If + ' If dr("HorasTriples").ToString().ToDouble > 0 And Row("CveSistema").ToString().ToEntero() = 13 Then + ' ObjHorasExtras.Add(New CFDINominaHorasExtras With {.Dias = dr("DiasHorasTriples").ToString().ToEntero().ToString(), + ' .TipoHoras = "02", .HorasExtra = dr("HorasTriples").ToString().ToEntero(), .ImportePagado = Row("Importe").ToString().ToDecimal}) + ' End If + 'End If + Dim horasextra As Integer = If(Row("ImporteValor").ToString().Replace("-", "").ToEntero() > 0, Row("ImporteValor").ToString().Replace("-", "").ToEntero(), 1) + + Dim diasextra As Integer = (horasextra / 3).ToString("N0").ToEntero() + If((horasextra Mod 3) > 0, 1, 0) + If Row("CveSistema").ToString().ToEntero() = 12 Then + ObjHorasExtras.Add(New CFDINominaHorasExtras With {.Dias = diasextra.ToString(), + .TipoHoras = "01", .HorasExtra = horasextra, .ImportePagado = Row("Importe").ToString().ToDecimal()}) End If + If Row("CveSistema").ToString().ToEntero() = 13 Then + ObjHorasExtras.Add(New CFDINominaHorasExtras With {.Dias = diasextra.ToString(), + .TipoHoras = "02", .HorasExtra = horasextra, .ImportePagado = Row("Importe").ToString().ToDecimal}) + End If + End If 'subsidio al empleo If Row("SATCveConcepto").ToString().ToEntero().ToEntero() = 17 AndAlso Row("Importe").ToString().ToDecimal > 0 Then 'Subsidio diff --git a/App_Code/Timbrado.vb b/App_Code/Timbrado.vb index 62fcbb5da..8c6b98c45 100644 --- a/App_Code/Timbrado.vb +++ b/App_Code/Timbrado.vb @@ -3818,7 +3818,7 @@ Public Class Timbrado 'SI NO ES FACTURA EN 0 AGREGA LOS IMPUESTOS If Not ObjCFDITimbre.Comprobante.TipoComprobante.Contiene("P", "N") AndAlso (Ventas.Total <> 0 OrElse (ObjCFDITimbre.TotalImpuestosRetenidos > 0 OrElse ObjCFDITimbre.TotalImpuestosTrasladados > 0)) Then - If concep.Impuestos.Count > 0 Then + If concep.Impuestos.Count > 0 AndAlso concep.ObjetoImpuesto.Contiene("02", "03", "04") Then comprobante.Conceptos(i).Impuestos = New Profact.TimbraCFDI40.ComprobanteConceptoImpuestos() comprobante.Conceptos(i).Impuestos.Traslados = New Profact.TimbraCFDI40.ComprobanteConceptoImpuestosTraslado(concep.Impuestos.FindAll(Function(p As CFDIConceptosImpuestos) p.TrasladooRetencion = "T").Count - 1) {} @@ -4859,13 +4859,15 @@ Public Class Timbrado If ObjCFDITimbre.Conceptos IsNot Nothing AndAlso ObjCFDITimbre.Conceptos.Count > 0 Then For Each concep As CFDIConceptos In ObjCFDITimbre.Conceptos cfdi.Concepto(concep.ClaveProdServ, concep.Noidentificacion, concep.Cantidad.ToString("0.00####"), concep.ClaveUnidad, concep.Unidad, concep.Descripcion, concep.ValorUnitario.ToString("0.00####"), concep.Importe, concep.Descuento, concep.ObjetoImpuesto) - For Each imp As CFDIConceptosImpuestos In concep.Impuestos - If imp.TrasladooRetencion = "T" Then - cfdi.ConceptoTraslado(imp.Base, imp.Impuesto, imp.TipoFactor, imp.TasaOCuota, imp.Importe) - Else - cfdi.ConceptoRetencion(imp.Base, imp.Impuesto, imp.TipoFactor, imp.TasaOCuota, imp.Importe) - End If - Next + If concep.ObjetoImpuesto.Contiene("02", "03", "04") Then + For Each imp As CFDIConceptosImpuestos In concep.Impuestos + If imp.TrasladooRetencion = "T" Then + cfdi.ConceptoTraslado(imp.Base, imp.Impuesto, imp.TipoFactor, imp.TasaOCuota, imp.Importe) + Else + cfdi.ConceptoRetencion(imp.Base, imp.Impuesto, imp.TipoFactor, imp.TasaOCuota, imp.Importe) + End If + Next + End If If concep.CuentaPredial <> "" Then cfdi.CuentaPredial(concep.CuentaPredial) If concep.NumeroPedimento <> "" Then cfdi.InformacionAduanera(concep.NumeroPedimento) diff --git a/Bancos/PolizaCheque.aspx.vb b/Bancos/PolizaCheque.aspx.vb index fc8c83826..2b460b21e 100644 --- a/Bancos/PolizaCheque.aspx.vb +++ b/Bancos/PolizaCheque.aspx.vb @@ -794,7 +794,7 @@ Partial Class Bancos_PolizaCheque e.Row.FCDropDownList("DdlSubProyecto").SelectedValue = e.Row.DBCampo("CveSubProyecto") e.Row.FCDropDownList("DdlSubProyecto").Items.Insert(0, New ListItem("Sin SubProyecto Asignado", "-1")) - If UsuarioActual.CveEmpresa = 119 Then + If UsuarioActual.CveEmpresa.Contiene(119, 7, 11, 12, 122, 145) Then e.Row.FCLiteral("LtlSP").Visible = False e.Row.FCDropDownList("DdlSubProyecto").Visible = True End If diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb index 31f7c6a87..fd381693d 100644 --- a/Compras/PopUpVerFactura.aspx.vb +++ b/Compras/PopUpVerFactura.aspx.vb @@ -5,6 +5,7 @@ Imports System.Data Imports System.IO Imports System.Xml Imports Extensiones +Imports iText.Barcodes.Dmcode Imports Microsoft.Reporting.WebForms Imports Stimulsoft.Report Imports Stimulsoft.Report.Web @@ -291,9 +292,6 @@ Partial Class PopUpVerFactura End Using - 'endimg - '"Empresas/Grales/Formatos/EquiposGPS.rdlc" - '"D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc" ImprimirPDF("GPS/ReciboNom.rdlc", lrds, params, "Pallet") ', Content_Disposition:="Inline") End Sub Private Sub rfctxtvalidar() @@ -462,11 +460,11 @@ Partial Class PopUpVerFactura Dim lrds As New List(Of ReportDataSource) Dim rds As New ReportDataSource With {.Name = "DataSet1", .Value = tablaReporte} lrds.Add(rds) - '"Empresas/Grales/Formatos/EquiposGPS.rdlc" + '"D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc" - Dim rutardlc = "GPS/EmbarqueManifiesto.rdlc" + Dim rutardlc = "Formatos\Agro\EmbarqueManifiesto.rdlc" If Not IsNothing(tablaReporte.FiltroPrimero("TipoManifiesto=1")) Then - rutardlc = "GPS/EmbarqueManifiesto2.rdlc" + rutardlc = "Formatos\Agro\EmbarqueManifiesto2.rdlc" End If ImprimirPDF(rutardlc, lrds, params, "Manifesto") ', Content_Disposition:="Inline") End Sub @@ -622,7 +620,7 @@ Partial Class PopUpVerFactura lrds.Add(rds) '"Empresas/Grales/Formatos/EquiposGPS.rdlc" '"D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc" - ImprimirPDF("GPS/EmbarqueManifiestoRemision.rdlc", lrds, params, "Remisión") ', Content_Disposition:="Inline") + ImprimirPDF("Formatos\Agro\EmbarqueManifiestoRemision.rdlc", lrds, params, "Remisión") ', Content_Disposition:="Inline") End Sub Private Sub imprimirManifiestoCartaPorte(cveEmbarqueManifiesto As Integer) @@ -774,7 +772,7 @@ Partial Class PopUpVerFactura lrds.Add(rds) '"Empresas/Grales/Formatos/EquiposGPS.rdlc" '"D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc" - Dim pdf = StreamPDF("GPS/EmbarqueManifiestoCartaPorte.rdlc", lrds, params, "DatosCartaPorte") + Dim pdf = StreamPDF("Formatos\Agro\EmbarqueManifiestoCartaPorte.rdlc", lrds, params, "DatosCartaPorte") Dim LSRutasMail As New List(Of ClsSisMail.ArchivoMail) LSRutasMail.Add(New ClsSisMail.ArchivoMail With {.ArchivoBinario = pdf, .NombreArchivo = String.Format("{0}.pdf", "DatosCartaPorte")}) @@ -788,7 +786,7 @@ Partial Class PopUpVerFactura 'GuardaLogFacturacion($"Ruta XML {ArchivoXML}") 'ResultadoMail = 3 End If - ImprimirPDF("GPS/EmbarqueManifiestoCartaPorte.rdlc", lrds, params, "DatosCartaPorte") ', Content_Disposition:="Inline") + ImprimirPDF("Formatos\Agro\EmbarqueManifiestoCartaPorte.rdlc", lrds, params, "DatosCartaPorte") ', Content_Disposition:="Inline") End Sub @@ -856,7 +854,7 @@ Partial Class PopUpVerFactura 'endimg '"Empresas/Grales/Formatos/EquiposGPS.rdlc" '"D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc" - ImprimirPDF("GPS/PalletEtiqueta2.rdlc", lrds, params, "Pallet") ', Content_Disposition:="Inline") + ImprimirPDF("Formatos\Agro\PalletEtiqueta2.rdlc", lrds, params, "Pallet") ', Content_Disposition:="Inline") End Sub @@ -986,9 +984,9 @@ Partial Class PopUpVerFactura '"Empresas/Grales/Formatos/EquiposGPS.rdlc" '"D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc" - Dim ruta As String = "GPS/PalletEtiquetaWalmart.rdlc" + Dim ruta As String = "Formatos\Agro\PalletEtiquetaWalmart.rdlc" 'If CvetypeImpresion = 2 Then - ' ruta = "GPS/PalletEtiqueta_2.rdlc" + ' ruta = "Formatos\Agro\PalletEtiqueta_2.rdlc" 'End If ImprimirPDF(ruta, lrds, params, "Pallet Caja") ', Content_Disposition:="Inline") End Sub @@ -1084,9 +1082,9 @@ Partial Class PopUpVerFactura '"Empresas/Grales/Formatos/EquiposGPS.rdlc" '"D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc" - Dim ruta As String = "GPS/PalletEtiquetaCaja.rdlc" + Dim ruta As String = "Formatos\Agro\PalletEtiquetaCaja.rdlc" 'If CvetypeImpresion = 2 Then - ' ruta = "GPS/PalletEtiqueta_2.rdlc" + ' ruta = "Formatos\Agro\PalletEtiqueta_2.rdlc" 'End If ImprimirPDF(ruta, lrds, params, "Pallet Caja") ', Content_Disposition:="Inline") End Sub @@ -1454,9 +1452,7 @@ Partial Class PopUpVerFactura End If - - - 'IMPRIME VALE + 'IMPRIME POLIZA If UrlParametros("OP").ToString = "PREPO" Then If UrlParametros("CVEPREPOLIZA") IsNot Nothing AndAlso UrlParametros("CVEPREPOLIZA").ToString.ToEntero > 0 Then ImprimeImPrimePrePolizaS(UrlParametros("CVEPREPOLIZA").ToString.ToEntero) @@ -1507,17 +1503,12 @@ Partial Class PopUpVerFactura Dim FechaCorte As String = $" Fecha fin: {Fecha}" Dim Usuario As String = $" Usuario: {Nombre}" If DtCortesVentas.Rows.Count > 0 Or DtCortesVentasResumen.Rows.Count > 0 Then - Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") - - - - Dim params As New List(Of ReportParameter) params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString)) params.Add(New ReportParameter("AgrupoPor", $"{FechaCorte}{Usuario}")) - params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) + params.Add(New ReportParameter("LogoPath", RutaImagenLogo)) Dim lrds As New List(Of ReportDataSource) Dim rds As New ReportDataSource With {.Name = "DataSet1", .Value = DtCortesVentasResumen} lrds.Add(rds) @@ -1619,8 +1610,6 @@ Partial Class PopUpVerFactura #Region "OP = 'CONG' - IMPRIME GASTO DE CONTRATO" Private Sub ImprimeGastoContrato(CveContrato As Integer, CveContratoGasto As Integer) - Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") - Dim Dr As DataRow = Nothing Dim ObjContratos As New ClsContratos If Not ObjContratos.GetContratos(CveContrato, UsuarioActual.CveEmpresa) Or Not ObjContratos.DtResultados.Rows.Count > 0 Then @@ -1653,7 +1642,7 @@ Partial Class PopUpVerFactura End If params.Add(New ReportParameter("Utilidad", $"$ {(SumaUtilidad - SumaGasto).ToString.FormatoNumero()}")) - params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) + params.Add(New ReportParameter("LogoPath", RutaImagenLogo)) ImprimirPDF("Empresas/Grales/Formatos/ContratoGasto.rdlc", dt, params, $"{Nombre}-Gastos", Formato:="PDF") End Sub @@ -1994,29 +1983,15 @@ Partial Class PopUpVerFactura End If - - End If ObjGral.Dispose() - - - - - - - End If - If Dt.Rows.Count > 0 Then - Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") - - - params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) - + params.Add(New ReportParameter("LogoPath", RutaImagenLogo)) params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString)) @@ -2046,14 +2021,8 @@ Partial Class PopUpVerFactura params.Add(New ReportParameter("Ciudad", Ciudad)) params.Add(New ReportParameter("Licencia", Licencia)) - - - ImprimirPDF($"Empresas/Grales/Formatos/{FormatoRDLC}", Dt, params, String.Format("Carta Porte -{0}", Now.ToDateTime.ToShortDateString)) - - - End If End If @@ -2450,9 +2419,6 @@ Partial Class PopUpVerFactura Next End If - - - Dim nodeTFD As XmlNode = nodeComp.SelectSingleNode(String.Format("//{0}:TimbreFiscalDigital", "tfd"), namespaces) If nodeTFD IsNot Nothing Then FolioFiscal = ValorXML(nodeTFD, "UUID", "") @@ -2483,9 +2449,7 @@ Partial Class PopUpVerFactura If DtConceptos.Rows.Count > 0 Then - Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") - - params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) + params.Add(New ReportParameter("LogoPath", RutaImagenLogo)) 'EMPRESA params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) params.Add(New ReportParameter("RegimenFiscal", UsuarioActual.Empresa.Regimen)) @@ -3561,7 +3525,7 @@ Partial Class PopUpVerFactura Select Case CveConcepto Case 1 'INICIAL Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/Inicial.rdlc", UsuarioActual.Empresa.Ruta)) - Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") + Dim params As New List(Of ReportParameter) Dim SBDireccion As New StringBuilder() @@ -3581,7 +3545,7 @@ Partial Class PopUpVerFactura If Archivo.Exists Then ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Inicial.rdlc", DtMovimientos, params, String.Format("Inventario Inicial - {0}", Folio), RDSName:="DsInventarios") Else - params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) + params.Add(New ReportParameter("LogoPath", RutaImagenLogo)) ImprimirPDF("Empresas/Grales/Formatos/Inicial.rdlc", DtMovimientos, params, String.Format("Inventario Inicial - {0}", Folio), RDSName:="DsInventarios") End If @@ -3589,8 +3553,6 @@ Partial Class PopUpVerFactura Case 2, 32, 33, 36, 48 ' E N T R A D A S Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/Entradas.rdlc", UsuarioActual.Empresa.Ruta)) - Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") - Dim dr As DataRow = Nothing If CveCompra > 0 Then 'buscar en compras, para mandar los datos @@ -3611,7 +3573,7 @@ Partial Class PopUpVerFactura End If If UsuarioActual.CveEmpresa = 119 Then - params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) + params.Add(New ReportParameter("LogoPath", RutaImagenLogo)) params.Add(New ReportParameter("RazonSocialOC", RazonSocialOC)) params.Add(New ReportParameter("RazonSocial", RazonSocial)) params.Add(New ReportParameter("Remision", Remision)) @@ -3671,7 +3633,7 @@ Partial Class PopUpVerFactura ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Entradas.rdlc", DtMovimientos, params, String.Format("Entrada de Almacen - {0}", Folio), RDSName:="DsInventarios") ElseIf UsuarioActual.CveEmpresa = 140 Then - params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) + params.Add(New ReportParameter("LogoPath", RutaImagenLogo)) Dim concepto As String = "" If CveConcepto.Contiene(2, 32, 33) Then concepto = "ENTRADA DE ALMACÉN" @@ -3729,7 +3691,7 @@ Partial Class PopUpVerFactura Else - params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) + params.Add(New ReportParameter("LogoPath", RutaImagenLogo)) params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) params.Add(New ReportParameter("Concepto", "ENTRADA DE ALMACÉN")) @@ -3762,7 +3724,6 @@ Partial Class PopUpVerFactura 'Dim Imagen As New System.IO.FileInfo(String.Format("Empresas/{0}/Logo.png", 72)) Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/Salidas.rdlc", UsuarioActual.Empresa.Ruta)) Dim Archivo2 As New System.IO.FileInfo(String.Format("{0}Formatos/ConsumoInterno.rdlc", UsuarioActual.Empresa.Ruta)) - Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim params As New List(Of ReportParameter) Dim concepto As String = "" If CveConcepto.Contiene(3, 40) Then @@ -3826,7 +3787,6 @@ Partial Class PopUpVerFactura 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) Else - DomicilioSucursal = DomicilioCliente End If @@ -3908,7 +3868,7 @@ Partial Class PopUpVerFactura ElseIf UsuarioActual.CveEmpresa = 140 Then - params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) + params.Add(New ReportParameter("LogoPath", RutaImagenLogo)) params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) params.Add(New ReportParameter("Concepto", concepto)) @@ -3944,7 +3904,7 @@ Partial Class PopUpVerFactura Else Dim A As New System.IO.FileInfo(String.Format("{0}Formatos/EntradaSalida.rdlc", UsuarioActual.Empresa.Ruta)) - params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) + params.Add(New ReportParameter("LogoPath", RutaImagenLogo)) params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) params.Add(New ReportParameter("Concepto", concepto)) @@ -4020,12 +3980,10 @@ Partial Class PopUpVerFactura End If Case 4 ' ENTRADA POR DESARMADO - Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") + Dim params As New List(Of ReportParameter) - - params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) - + params.Add(New ReportParameter("LogoPath", RutaImagenLogo)) params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) params.Add(New ReportParameter("Concepto", "Entrada por Desarmado de Paquete")) params.Add(New ReportParameter("Almacen", Almacen)) @@ -4045,11 +4003,10 @@ Partial Class PopUpVerFactura ImprimirPDF("Empresas/Grales/Formatos/EntradaSalida.rdlc", DtMovimientos, params, String.Format("Entrada por Desarmado - {0}", Folio.ToString), RDSName:="DsInventarios") Case 5 'SALIDA POR ARMADO - Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") + Dim params As New List(Of ReportParameter) - - params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) + params.Add(New ReportParameter("LogoPath", RutaImagenLogo)) params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) params.Add(New ReportParameter("Concepto", "Salida por Armado de Paquete")) @@ -4079,9 +4036,7 @@ Partial Class PopUpVerFactura params.Add(New ReportParameter("NombreEntrego", Personal)) params.Add(New ReportParameter("Responsable", Personal)) params.Add(New ReportParameter("NombreRecibio", Capturo.ToUpper)) - - Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") - params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) + params.Add(New ReportParameter("LogoPath", RutaImagenLogo)) If DtMovimientos.COUNT("Serie") > 0 Then params.Add(New ReportParameter("MostrarSerieLote", "1")) @@ -4105,20 +4060,13 @@ Partial Class PopUpVerFactura ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Resguardo.rdlc", DtMovimientos, params, String.Format("Resguardo - {0}", Folio.ToString), RDSName:="DsInventarios") Else - Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") + Dim params As New List(Of ReportParameter) Dim TipoResponsable As String = "" Dim Responsable As String = "" - Dim Archivo As String = $"Empresas/{UsuarioActual.CveEmpresa}/Formatos/PrestamoProductos.rdlc" - - If Not File.Exists($"{Server.MapPath("~")}/{Archivo}") Then - Archivo = "Empresas/Grales/Formatos/PrestamoProductos.rdlc" - End If - - - params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) - + Dim Archivo As String = RutaFormatoReporte("PrestamoProductos.rdlc") + params.Add(New ReportParameter("LogoPath", RutaImagenLogo)) params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) params.Add(New ReportParameter("Folio", Folio)) params.Add(New ReportParameter("Fecha", Fecha)) @@ -4161,9 +4109,7 @@ Partial Class PopUpVerFactura params.Add(New ReportParameter("NombreEntrego", Capturo.ToUpper)) params.Add(New ReportParameter("Responsable", Personal)) params.Add(New ReportParameter("NombreRecibio", Personal)) - - Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") - params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) + params.Add(New ReportParameter("LogoPath", RutaImagenLogo)) If DtMovimientos.COUNT("Serie") > 0 Then params.Add(New ReportParameter("MostrarSerieLote", "1")) Else @@ -4187,19 +4133,12 @@ Partial Class PopUpVerFactura ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Resguardo.rdlc", DtMovimientos, params, String.Format("Resguardo - {0}", Folio.ToString), RDSName:="DsInventarios") Else - Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") + Dim params As New List(Of ReportParameter) Dim TipoResponsable As String = "" Dim Responsable As String = "" - - Dim Archivo As String = $"Empresas/{UsuarioActual.CveEmpresa}/Formatos/PrestamoProductos.rdlc" - - If Not File.Exists($"{Server.MapPath("~")}/{Archivo}") Then - Archivo = "Empresas/Grales/Formatos/PrestamoProductos.rdlc" - End If - - - params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) + Dim Archivo As String = RutaFormatoReporte("PrestamoProductos.rdlc") + params.Add(New ReportParameter("LogoPath", RutaImagenLogo)) params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) params.Add(New ReportParameter("Folio", Folio)) @@ -4345,10 +4284,7 @@ Partial Class PopUpVerFactura Dim Archivo As New System.IO.FileInfo(String.Format(RutaFormato, UsuarioActual.Empresa.Ruta)) If Archivo.Exists Then - Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") - - - params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) + params.Add(New ReportParameter("LogoPath", RutaImagenLogo)) If UsuarioActual.CveEmpresa = 140 Then params.Add(New ReportParameter("Origen", Almacen)) params.Add(New ReportParameter("Destino", AlmacenDestino)) @@ -4393,10 +4329,8 @@ 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($"{UsuarioActual.Empresa.Ruta}/Logo.png") - - params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) + params.Add(New ReportParameter("LogoPath", RutaImagenLogo)) params.Add(New ReportParameter("Origen", Almacen)) params.Add(New ReportParameter("Destino", AlmacenDestino)) params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy"))) @@ -4442,10 +4376,7 @@ 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($"{UsuarioActual.Empresa.Ruta}/Logo.png") - - - params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) + params.Add(New ReportParameter("LogoPath", RutaImagenLogo)) params.Add(New ReportParameter("Origen", AlmacenDestino)) ' se invierte params.Add(New ReportParameter("Destino", Almacen)) @@ -4455,9 +4386,7 @@ Partial Class PopUpVerFactura params.Add(New ReportParameter("CveConceptoMovRelacionado", CveConceptoMovRelacionado.ToString())) params.Add(New ReportParameter("FolioRelacionado", FolioRelacionado)) ElseIf UsuarioActual.CveEmpresa = 153 Then - Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") - - params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) + params.Add(New ReportParameter("LogoPath", RutaImagenLogo)) params.Add(New ReportParameter("Origen", AlmacenDestino)) ' se invierte params.Add(New ReportParameter("Destino", Almacen)) params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy"))) @@ -4469,9 +4398,7 @@ 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($"{UsuarioActual.Empresa.Ruta}/Logo.png") - - params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) + params.Add(New ReportParameter("LogoPath", RutaImagenLogo)) params.Add(New ReportParameter("Origen", Almacen)) params.Add(New ReportParameter("Destino", AlmacenDestino)) @@ -4579,7 +4506,7 @@ Partial Class PopUpVerFactura ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/DevolucionConsignacion.rdlc", DtMovimientos, params, String.Format("Devolucion por Consignacion - {0}", Folio), RDSName:="DsInventarios") Case 13 'D E V O L U C I O N D E P R O V E E D O R Dim params As New List(Of ReportParameter) - Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") + 'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/DevolucionProveedor.rdlc", UsuarioActual.Empresa.Ruta)) @@ -4627,7 +4554,7 @@ Partial Class PopUpVerFactura If Not Archivo.Exists Then - params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) + params.Add(New ReportParameter("LogoPath", RutaImagenLogo)) ImprimirPDF(String.Format("Empresas/Grales/Formatos/DevolucionProveedor.rdlc", UsuarioActual.Empresa.Ruta), DtMovimientos, params, String.Format("Devolucion Proveedor - {0}", Folio), RDSName:="DsInventarios") Else @@ -4638,7 +4565,7 @@ Partial Class PopUpVerFactura Case 14 'E N T R E G A P O R G A R A N T I A Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/SalidasGarantia.rdlc", UsuarioActual.Empresa.Ruta)) - Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") + Dim params As New List(Of ReportParameter) If UsuarioActual.CveEmpresa = 72 Then @@ -4680,7 +4607,7 @@ Partial Class PopUpVerFactura Case 15 'S A L I D A G A R A N T I A Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/SalidasGarantia.rdlc", UsuarioActual.Empresa.Ruta)) - Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") + Dim params As New List(Of ReportParameter) 'IMPRESION ESPECIAL SALIDA DE COMPUPROVEEDORES y VSH @@ -4729,7 +4656,7 @@ Partial Class PopUpVerFactura 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($"{UsuarioActual.Empresa.Ruta}/Logo.png") + Dim params As New List(Of ReportParameter) If Archivo.Exists Then @@ -4773,7 +4700,7 @@ Partial Class PopUpVerFactura 'End If Else - params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) + params.Add(New ReportParameter("LogoPath", RutaImagenLogo)) Dim CiudadSucursal As String = "" Dim DomicilioSucursal As String = "" @@ -4802,11 +4729,11 @@ Partial Class PopUpVerFactura End If Case 19 'ARMADO DE PAQUETE - Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") + Dim params As New List(Of ReportParameter) - params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) + params.Add(New ReportParameter("LogoPath", RutaImagenLogo)) params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) params.Add(New ReportParameter("Concepto", "Armado de Paquete")) @@ -4827,11 +4754,11 @@ Partial Class PopUpVerFactura ImprimirPDF("Empresas/Grales/Formatos/EntradaSalida.rdlc", DtMovimientos, params, String.Format("Armado de Paquete - {0}", Folio.ToString), RDSName:="DsInventarios") Case 20 'DESARMADO DE PAQUETE - Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") + Dim params As New List(Of ReportParameter) - params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) + params.Add(New ReportParameter("LogoPath", RutaImagenLogo)) params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) params.Add(New ReportParameter("Concepto", "Desarmado de Paquete")) @@ -4852,17 +4779,10 @@ Partial Class PopUpVerFactura Case 21, 22 'SALIDA POR PRESTAMO - Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") + 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" - End If - - params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) - - 'params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) + Dim Archivo As String = RutaFormatoReporte("EntradaSalida.rdlc") + params.Add(New ReportParameter("LogoPath", RutaImagenLogo)) If CveConcepto = 21 Then params.Add(New ReportParameter("Concepto", "Salida por Prestamo")) Else @@ -4875,7 +4795,6 @@ Partial Class PopUpVerFactura 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 @@ -4890,15 +4809,9 @@ Partial Class PopUpVerFactura End If 'Case 22 'ENTRADA POR PRESTAMO - ' Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") + ' ' Dim params As New List(Of ReportParameter) - ' - ' If Imagen.Exists Then - ' params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - ' Else - ' params.Add(New ReportParameter("LogoPath", "")) - ' End If ' params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) ' params.Add(New ReportParameter("Concepto", "Entrada por Prestamo")) @@ -4919,17 +4832,10 @@ Partial Class PopUpVerFactura 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($"{UsuarioActual.Empresa.Ruta}/Logo.png") + Dim params As New List(Of ReportParameter) - - Dim ArchivoRuta As New System.IO.FileInfo(String.Format("{0}Formatos/EntradaSalidaUniforme.rdlc", UsuarioActual.Empresa.Ruta)) - Dim Archivo As String = String.Format("{0}Formatos/EntradaSalidaUniforme.rdlc", UsuarioActual.Empresa.Ruta) - - If Not ArchivoRuta.Exists Then - Archivo = "Empresas/Grales/Formatos/EntradaSalidaUniforme.rdlc" - End If - - params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) + Dim Archivo As String = RutaFormatoReporte("EntradaSalidaUniforme.rdlc") + params.Add(New ReportParameter("LogoPath", RutaImagenLogo)) Dim DepartamentoRecibe As String = GlobalDTRHPersonal(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Departamento", String.Format("NombreCompleto = '{0}'", Recibio)) Dim DepartamentoEntrego As String = GlobalDTRHPersonal(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Departamento", String.Format("NombreCompleto = '{0}'", NombreEntrego)) @@ -4960,19 +4866,13 @@ Partial Class PopUpVerFactura ImprimirPDF(Archivo, DtMovimientos, params, String.Format("Uniforme_{0}", Folio.ToString), RDSName:="DsInventarios") Else - Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") + Dim params As New List(Of ReportParameter) Dim TipoResponsable As String = "" Dim Responsable As String = "" - Dim Archivo As String = $"Empresas/{UsuarioActual.CveEmpresa}/Formatos/PrestamoProductos.rdlc" - - If Not File.Exists($"{Server.MapPath("~")}/{Archivo}") Then - Archivo = "Empresas/Grales/Formatos/PrestamoProductos.rdlc" - End If - - - params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) + Dim Archivo As String = RutaFormatoReporte("PrestamoProductos.rdlc") + params.Add(New ReportParameter("LogoPath", RutaImagenLogo)) params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) params.Add(New ReportParameter("Folio", Folio)) @@ -5007,11 +4907,11 @@ Partial Class PopUpVerFactura End If Case 28, 29 'ENTRADA POR PRESTAMO DE PROVEEDOR - Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") + Dim params As New List(Of ReportParameter) - params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) + params.Add(New ReportParameter("LogoPath", RutaImagenLogo)) Dim ConceptoReporte As String = If(CveConcepto = 28, "Entrada por Préstamo", "Devolución de Préstamo") params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) @@ -5027,12 +4927,8 @@ Partial Class PopUpVerFactura ImprimirPDF("Empresas/Grales/Formatos/PrestamosProveedor.rdlc", DtMovimientos, params, String.Format("Proveedor - {0}", Folio.ToString), RDSName:="DsInventarios") Case 30 - Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/Salidas.rdlc", UsuarioActual.Empresa.Ruta)) - Dim Archivo2 As New System.IO.FileInfo(String.Format("{0}Formatos/ConsumoInterno.rdlc", UsuarioActual.Empresa.Ruta)) - Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim params As New List(Of ReportParameter) - 'If UsuarioActual.CveEmpresa.Contiene(72, 80) Then Dim CiudadSucursal As String = "" Dim DomicilioSucursal As String = "" @@ -5065,16 +4961,11 @@ Partial Class PopUpVerFactura params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy"))) params.Add(New ReportParameter("NombreEntrego", Capturo)) params.Add(New ReportParameter("NombreRecibio", Recibio)) + params.Add(New ReportParameter("LogoPath", RutaImagenLogo)) - params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) - 'End If + ImprimirPDF(RutaFormatoReporte("ConsumoInterno.rdlc"), DtMovimientos, params, String.Format("Salida de Consumo Interno - {0}", Folio.ToString), RDSName:="DsInventarios") - If Archivo2.Exists Then - ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/ConsumoInterno.rdlc", DtMovimientos, params, String.Format("Salida de Consumo Interno - {0}", Folio.ToString), RDSName:="DsInventarios") - Else - ImprimirPDF("Empresas/Grales/Formatos/ConsumoInterno.rdlc", DtMovimientos, params, String.Format("Salida de Consumo Interno - {0}", Folio.ToString), RDSName:="DsInventarios") - End If Case 31 'SALIDA POR DEMOSTRACION Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/SalidaDemostracion.rdlc", UsuarioActual.Empresa.Ruta)) @@ -5096,7 +4987,7 @@ Partial Class PopUpVerFactura 'Dim Imagen As New System.IO.FileInfo(String.Format("Empresas/{0}/Logo.png", 72)) Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/Salidas.rdlc", UsuarioActual.Empresa.Ruta)) Dim Archivo2 As New System.IO.FileInfo(String.Format("{0}Formatos/ConsumoInterno.rdlc", UsuarioActual.Empresa.Ruta)) - Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") + Dim params As New List(Of ReportParameter) If DtMovimientos(0)("CveAlmacen").ToString.ToEntero.Contiene(77, 146, 147, 148, 229, 342, 359, 360, 361, 362) Then @@ -5251,9 +5142,8 @@ Partial Class PopUpVerFactura End If Else - Dim A As New System.IO.FileInfo(String.Format("{0}Formatos/EntradaSalida.rdlc", UsuarioActual.Empresa.Ruta)) - params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) + params.Add(New ReportParameter("LogoPath", RutaImagenLogo)) params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) params.Add(New ReportParameter("Concepto", "SALIDA POR AJUSTE")) params.Add(New ReportParameter("Almacen", Almacen)) @@ -5313,12 +5203,8 @@ Partial Class PopUpVerFactura End If End If + ImprimirPDF(RutaFormatoReporte("EntradaSalida.rdlc"), DtMovimientos, params, String.Format("Salida de Almacen - {0}", Folio.ToString), RDSName:="DsInventarios") - If A.Exists Then - ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/EntradaSalida.rdlc", DtMovimientos, params, String.Format("Salida de Almacen - {0}", Folio.ToString), RDSName:="DsInventarios") - Else - ImprimirPDF("Empresas/Grales/Formatos/EntradaSalida.rdlc", DtMovimientos, params, String.Format("Salida de Almacen - {0}", Folio.ToString), RDSName:="DsInventarios") - End If End If End If @@ -5334,17 +5220,10 @@ Partial Class PopUpVerFactura 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", Fecha)) - 'params.Add(New ReportParameter("FechaInicial", Fecha)) - 'params.Add(New ReportParameter("FechaFinal", Today.ToString("dd/MM/yyyy"))) params.Add(New ReportParameter("Sucursal", "Sucursal")) params.Add(New ReportParameter("Cliente", NombreCliente)) params.Add(New ReportParameter("Folio", Folio)) @@ -5353,7 +5232,17 @@ Partial Class PopUpVerFactura params.Add(New ReportParameter("Observaciones", Observaciones)) 'params.Add(New ReportParameter("Observaciones", "Observaciones con un tamaño mas grande para ver como se ve en el ticket chico.")) - ImprimirPDF(String.Format("Empresas/{0}/Formatos/UsadosEntradas.rdlc", UsuarioActual.CveEmpresa), DtMovimientos, params, "Reporte entrada usados", "PDF", "DsInventarios") + + Dim FIRutaReporte As New System.IO.FileInfo(String.Format("{0}Formatos/UsadosEntradas.rdlc", UsuarioActual.Empresa.Ruta)) + Dim PathRutaReporte As String = "\Formatos\UsadosEntradas.rdlc" + + If Not FIRutaReporte.Exists Then + PathRutaReporte = "\Empresas\Grales\Formatos\UsadosEntradas.rdlc" 'No existe el General solo se hizo para la 140 + End If + + + ImprimirPDF(PathRutaReporte, DtMovimientos, params, "Reporte entrada usados", "PDF", "DsInventarios") + Case 7 Dim params As New List(Of ReportParameter) Dim CiudadSucursal As String = "" @@ -5469,7 +5358,8 @@ Partial Class PopUpVerFactura Dim CveFolio = "" CreaDT() - Dim RutaReporte As New System.IO.FileInfo(String.Format("{0}Formatos/OrdenServicio.rdlc", UsuarioActual.Empresa.Ruta)) + Dim FIRutaReporte As New System.IO.FileInfo(String.Format("{0}Formatos/OrdenServicio.rdlc", UsuarioActual.Empresa.Ruta)) + Dim PathRutaReporte As String = "\Formatos\OrdenServicio.rdlc" If ObjOS.GetOrdenesServicios(CveOS, -1, -1, -1, -1, UsuarioActual.CveEmpresa) Then If ObjOS.DtResultados.Rows.Count > 0 Then @@ -5526,17 +5416,17 @@ Partial Class PopUpVerFactura End If End If - Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") - If Not RutaReporte.Exists Then - RutaReporte = New System.IO.FileInfo(String.Format("{0}Empresas\Grales\Formatos\OrdenServicio.rdlc", ModExtensiones.DirectorioBaseEmpresas)) + If Not FIRutaReporte.Exists Then + + PathRutaReporte = "\Empresas\Grales\Formatos\OrdenServicio.rdlc" params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString)) - params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) + params.Add(New ReportParameter("LogoPath", RutaImagenLogo)) End If @@ -5555,7 +5445,7 @@ Partial Class PopUpVerFactura lrds.Add(rds2) ObjOS.Dispose() - ImprimirPDF(RutaReporte.FullName, lrds, params, NombreArchivo:=String.Format("OrdenServicio-{0}", CveFolio)) + ImprimirPDF(PathRutaReporte, lrds, params, NombreArchivo:=String.Format("OrdenServicio-{0}", CveFolio)) End Sub Private Sub CreaDT() TmpDTOS = New DataTable @@ -5588,7 +5478,6 @@ Partial Class PopUpVerFactura Private Sub CreaDTMateriales() TmpDTMaterialesOS = New DataTable TmpDTMaterialesOS.Columns.Add("CveOSDetalle", GetType(Integer)) - TmpDTMaterialesOS.Columns.Add("CveOSDetalle", GetType(Integer)) TmpDTMaterialesOS.Columns.Add("CveConsecutivo", GetType(Integer)) TmpDTMaterialesOS.Columns.Add("CveConsecutivoDetalle", GetType(Integer)) @@ -5664,8 +5553,6 @@ Partial Class PopUpVerFactura Private Sub ImprimirPDFAFR(CveAFR As Integer, Tipo As Integer) Dim ObjAF As New ClsAF - 'Dim ObjSubProyecto As New ClsSubProyectos - Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos\ResguardoAF.rdlc", UsuarioActual.Empresa.Ruta)) Dim dtVC As DataTable = Nothing Dim dtHijos As DataTable = Nothing @@ -5677,8 +5564,6 @@ Partial Class PopUpVerFactura If ObjAF.GetActivosFijosResguardos(-1, CveAFR, -1, -1) Then dtVC = ObjAF.DtResultados End If - - dr = dtVC.Rows(0) Select Case Tipo @@ -5728,16 +5613,13 @@ Partial Class PopUpVerFactura ObjAF.Dispose() - Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") - params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) - + params.Add(New ReportParameter("LogoPath", RutaImagenLogo)) params.Add(New ReportParameter("SubproyectoDestino", dr("SubProyectoDestino").ToString)) params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) params.Add(New ReportParameter("Folio", dr("Folio").ToString)) params.Add(New ReportParameter("Responsable", dr("NombreCompleto").ToString)) params.Add(New ReportParameter("Observaciones", dr("ObservacionesAF").ToString)) - If UsuarioActual.CveEmpresa.Contiene(72) Then Dim SBDomicilioSucursal As New StringBuilder() Dim DRSucursal = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa, CveSubProyecto:=dr("CveSubProyecto").ToString.ToEntero, Estatus:=1).FiltroPrimero("") @@ -5768,13 +5650,7 @@ Partial Class PopUpVerFactura params.Add(New ReportParameter("DireccionSucursal", SBDomicilioSucursal.ToString)) End If - - If Archivo.Exists Then - ImprimirPDF(String.Format("{0}Formatos\ResguardoAF.rdlc", UsuarioActual.Empresa.Ruta), dtVC, params, NomArchivo) - Else - ImprimirPDF("Empresas/Grales/Formatos/ResguardoAF.rdlc", dtVC, params, NomArchivo) - End If - + ImprimirPDF(RutaFormatoReporte("ResguardoAF.rdlc"), dtVC, params, NomArchivo) End Sub Private Sub ImprimirPDFAFR2(CveAFR As Integer, Tipo As Integer) @@ -5799,7 +5675,6 @@ Partial Class PopUpVerFactura dr = dtVC.Rows(0) - Select Case Tipo Case 1 params.Add(New ReportParameter("Tipo", "RESGUARDO DE ACTIVO FIJO")) @@ -6017,7 +5892,6 @@ Partial Class PopUpVerFactura End If Dim params As New List(Of ReportParameter) - If CveTipoTransaccion = 1 Then Dim Folio = ObjIE.Folio Dim Importe = ObjIE.Importe @@ -6037,7 +5911,6 @@ Partial Class PopUpVerFactura If UsuarioActual.CveEmpresa.Contiene(141) Then - Dim InicialesUsuarioGenero As String = "" Try @@ -6049,196 +5922,190 @@ Partial Class PopUpVerFactura End Try - params.Add(New ReportParameter("InicialesUsuarioGenero", InicialesUsuarioGenero)) - - End If Dim DtMovimientosPoliza As DataTable = Nothing - If UsuarioActual.CveEmpresa = 48 Then - 'Movimientos del IE - If ObjIE.IDPoliza > 0 Then + If UsuarioActual.CveEmpresa = 48 Then + 'Movimientos del IE + If ObjIE.IDPoliza > 0 Then - Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa) - If Not ObjConta.GetPoliza(ObjIE.IDPoliza, -1, -1, -1, -1) Then - Alert("Ocurrio un error al cargar los datos del cheque", TipoMensaje.MsgError) - Else - DtMovimientosPoliza = ObjConta.DtResultados.AsEnumerable().Take(27).CopyToDataTable - End If - - ObjConta.Dispose() + Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa) + If Not ObjConta.GetPoliza(ObjIE.IDPoliza, -1, -1, -1, -1) Then + Alert("Ocurrio un error al cargar los datos del cheque", TipoMensaje.MsgError) Else - DtMovimientosPoliza = New DataTable - DtMovimientosPoliza.Columns.Add("CODIGO", GetType(String)) - DtMovimientosPoliza.Columns.Add("Cuenta", GetType(String)) - DtMovimientosPoliza.Columns.Add("Cargo", GetType(Double)) - DtMovimientosPoliza.Columns.Add("Abono", GetType(Double)) - - Dim Dr = DtMovimientosPoliza.NewRow - Dr("CODIGO") = "" - Dr("Cuenta") = "" - Dr("Cargo") = 0 - Dr("Abono") = 0 - DtMovimientosPoliza.Rows.Add(Dr) + DtMovimientosPoliza = ObjConta.DtResultados.AsEnumerable().Take(27).CopyToDataTable End If - ElseIf UsuarioActual.CveEmpresa.Contiene(119, 141) Then - Dim PreP As New ClsContabilidad - If PreP.GetPrePolizasDetalle(-1, UsuarioActual.CveEmpresa, CveIE:=CveIE) Then - DtMovimientosPoliza = New DataTable - DtMovimientosPoliza.Columns.Add("CODIGO", GetType(String)) - DtMovimientosPoliza.Columns.Add("Cuenta", GetType(String)) - DtMovimientosPoliza.Columns.Add("Cargo", GetType(Double)) - DtMovimientosPoliza.Columns.Add("Abono", GetType(Double)) - If PreP.DtResultados.Rows.Count > 0 Then - - For Each drt As DataRow In PreP.DtResultados.Rows - Dim Dr = DtMovimientosPoliza.NewRow - Dr("CODIGO") = drt("CuentaCodigo") - Dr("Cuenta") = drt("CuentaNombre") - Dr("Cargo") = If(drt("TipoMovto").ToString = "False", drt("ImporteMN"), "0") - Dr("Abono") = If(drt("TipoMovto").ToString = "True", drt("ImporteMN"), "0") - DtMovimientosPoliza.Rows.Add(Dr) - - Next - - - End If - End If - PreP.Dispose() - End If - - - Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/CHQ-{1}.rdlc", UsuarioActual.Empresa.Ruta, CveCuenta)) - - If Archivo.Exists Then - ImprimirPDF(String.Format("{0}Formatos/CHQ-{1}.rdlc", UsuarioActual.Empresa.Ruta, CveCuenta), DtMovimientosPoliza, params, String.Format("Cheque-{0}", Folio)) + ObjConta.Dispose() Else - params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) - params.Add(New ReportParameter("RFC", UsuarioActual.Empresa.RFC)) - ImprimirPDF(String.Format("Empresas\Grales\Formatos\CHQ.rdlc"), DtMovimientosPoliza, params, String.Format("Cheque-{0}", Folio)) + DtMovimientosPoliza = New DataTable + DtMovimientosPoliza.Columns.Add("CODIGO", GetType(String)) + DtMovimientosPoliza.Columns.Add("Cuenta", GetType(String)) + DtMovimientosPoliza.Columns.Add("Cargo", GetType(Double)) + DtMovimientosPoliza.Columns.Add("Abono", GetType(Double)) + + Dim Dr = DtMovimientosPoliza.NewRow + Dr("CODIGO") = "" + Dr("Cuenta") = "" + Dr("Cargo") = 0 + Dr("Abono") = 0 + DtMovimientosPoliza.Rows.Add(Dr) End If - - - ElseIf CveTipoTransaccion.Contiene(2, 8, 9, 10) Then - - Dim Folio, Observacion, UsuarioRegistro, TextoImporte, PagueseA, Ruta, Banco, NumCuenta, AbonoCuenta, SubProyecto, NotificarA, RefCrediproveedor As String - Dim FechaExpedicion As Date = Now - Dim Importe As Double - Dim FormatoCheque As String = "" - - Dim CveProveedor, CvePersonal, CveCuentaDeposito As Integer - Dim tIdPoliza As Integer - Dim DtMovimientosPoliza As DataTable = Nothing - Dim RFC As String = "" - Dim Correo As String = "" - Dim CLABE As String = "" - Dim NoSucursal As String = "" - Dim Telefono As String = "" - Dim IVA As Double = 0 - - Folio = "" - TextoImporte = "" : Observacion = "" : PagueseA = "" : UsuarioRegistro = "" : Banco = "" : NumCuenta = "" : AbonoCuenta = "" : SubProyecto = "" : NotificarA = "" : RefCrediproveedor = "" - CveProveedor = -1 : CvePersonal = -1 : CveCuentaDeposito = 0 - Ruta = UsuarioActual.Empresa.Ruta - - PagueseA = ObjIE.PagueseA - Folio = ObjIE.Folio - Importe = ObjIE.Importe - CveTipoTransaccion = ObjIE.CveTipoTransaccion - Banco = ObjIE.Banco - NumCuenta = ObjIE.DepositoCuenta - If NumCuenta = "" Then NumCuenta = ObjIE.DepositoCIE - CLABE = ObjIE.DepositoCLABE - If CLABE = "" Then CLABE = ObjIE.DepositoReferencia - NoSucursal = ObjIE.DepositoSucursal - RefCrediproveedor = ObjIE.DepositoRefCrediProveedor - TextoImporte = String.Format("--- {0} ---", Importe.Texto2Letras(ObjIE.CveMoneda)) - FechaExpedicion = ObjIE.FechaDocumento - Observacion = ObjIE.Observaciones - UsuarioRegistro = ObjIE.UsuarioNombre - SubProyecto = ObjIE.SubProyecto - AbonoCuenta = If(ObjIE.EsAbonoEnCuenta, "PARA ABONO EN CUENTA DEL BENEFICIARIO", "") - NotificarA = ObjIE.NotificarA - tIdPoliza = ObjIE.IDPoliza - + ElseIf UsuarioActual.CveEmpresa.Contiene(119, 141) Then Dim PreP As New ClsContabilidad If PreP.GetPrePolizasDetalle(-1, UsuarioActual.CveEmpresa, CveIE:=CveIE) Then + DtMovimientosPoliza = New DataTable + DtMovimientosPoliza.Columns.Add("CODIGO", GetType(String)) + DtMovimientosPoliza.Columns.Add("Cuenta", GetType(String)) + DtMovimientosPoliza.Columns.Add("Cargo", GetType(Double)) + DtMovimientosPoliza.Columns.Add("Abono", GetType(Double)) + If PreP.DtResultados.Rows.Count > 0 Then - CveProveedor = PreP.DtResultados.Rows(0)("CveProveedor").ToString.ToEntero - CvePersonal = PreP.DtResultados.Rows(0)("CvePersonal").ToString.ToEntero - IVA = PreP.DtResultados.SUM("Importe", "CveConceptoContable = 19") ' concepto de IVA + For Each drt As DataRow In PreP.DtResultados.Rows + Dim Dr = DtMovimientosPoliza.NewRow + Dr("CODIGO") = drt("CuentaCodigo") + Dr("Cuenta") = drt("CuentaNombre") + Dr("Cargo") = If(drt("TipoMovto").ToString = "False", drt("ImporteMN"), "0") + Dr("Abono") = If(drt("TipoMovto").ToString = "True", drt("ImporteMN"), "0") + DtMovimientosPoliza.Rows.Add(Dr) - If CveProveedor > 0 Then - Dim Prov As New ClsCompProveedores - If Prov.GetProveedores(ClsCompProveedores.TipoConsulta.ParaUsoEnEmpresa, CveProveedor, "-1", "-1", "-1", "-1", "-1", "-1", "-1", -1, CveEmpresa) Then - If Prov.DtResultados.Rows.Count > 0 Then - RFC = Prov.DtResultados.Rows(0)("RFC").ToString - Correo = Prov.DtResultados.Rows(0)("ContactoMail").ToString - End If - End If - Prov.Dispose() - End If - - If CvePersonal > 0 Then - Dim RH As New ClsRH - If RH.GetPersonal(CvePersonal, UsuarioActual.CveEmpresa) Then - If RH.DtResultados.Rows.Count > 0 Then - Correo = RH.DtResultados.Rows(0)("Correo").ToString - Banco = RH.DtResultados.Rows(0)("Banco").ToString - NumCuenta = RH.DtResultados.Rows(0)("BancoNumCuenta").ToString - CLABE = RH.DtResultados.Rows(0)("CLABE").ToString - End If - - - End If - - RH.Dispose() - - End If + Next End If End If PreP.Dispose() + End If - params.Add(New ReportParameter("Fecha", FechaExpedicion.ToString("dd-MM-yyyy"))) - params.Add(New ReportParameter("Folio", String.Format("Folio: {0}", Folio))) - params.Add(New ReportParameter("PagueseA", PagueseA)) - params.Add(New ReportParameter("Importe", $"$ {Importe.ToString("N2")}")) - params.Add(New ReportParameter("ImporteTexto", TextoImporte.ToUpper)) - params.Add(New ReportParameter("Banco", Banco)) - params.Add(New ReportParameter("NumCuenta", NumCuenta)) - params.Add(New ReportParameter("CLABE", CLABE)) - params.Add(New ReportParameter("Concepto", Observacion)) - params.Add(New ReportParameter("Factura", "")) - params.Add(New ReportParameter("RFC", RFC)) - params.Add(New ReportParameter("IVA", $"$ {IVA.ToString("N2")}")) - params.Add(New ReportParameter("NumSucursal", NoSucursal)) - params.Add(New ReportParameter("Correo", Correo)) - params.Add(New ReportParameter("Telefono", Telefono)) - params.Add(New ReportParameter("NotifiqueA", NotificarA)) - params.Add(New ReportParameter("Obra", SubProyecto)) - params.Add(New ReportParameter("UsuarioRegistro", UsuarioRegistro)) - params.Add(New ReportParameter("TipoTransaccion", CveTipoTransaccion.ToString)) + Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/CHQ-{1}.rdlc", UsuarioActual.Empresa.Ruta, CveCuenta)) - If UsuarioActual.CveEmpresa = 66 Then - params.Add(New ReportParameter("RefCrediproveedor", RefCrediproveedor)) + If Archivo.Exists Then + ImprimirPDF(String.Format("{0}Formatos/CHQ-{1}.rdlc", UsuarioActual.Empresa.Ruta, CveCuenta), DtMovimientosPoliza, params, String.Format("Cheque-{0}", Folio)) + Else + params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) + params.Add(New ReportParameter("RFC", UsuarioActual.Empresa.RFC)) + ImprimirPDF(String.Format("Empresas\Grales\Formatos\CHQ.rdlc"), DtMovimientosPoliza, params, String.Format("Cheque-{0}", Folio)) + End If + + ElseIf CveTipoTransaccion.Contiene(2, 8, 9, 10) Then + + Dim Folio, Observacion, UsuarioRegistro, TextoImporte, PagueseA, Ruta, Banco, NumCuenta, AbonoCuenta, SubProyecto, NotificarA, RefCrediproveedor As String + Dim FechaExpedicion As Date = Now + Dim Importe As Double + Dim FormatoCheque As String = "" + + Dim CveProveedor, CvePersonal, CveCuentaDeposito As Integer + Dim tIdPoliza As Integer + Dim DtMovimientosPoliza As DataTable = Nothing + Dim RFC As String = "" + Dim Correo As String = "" + Dim CLABE As String = "" + Dim NoSucursal As String = "" + Dim Telefono As String = "" + Dim IVA As Double = 0 + + Folio = "" + TextoImporte = "" : Observacion = "" : PagueseA = "" : UsuarioRegistro = "" : Banco = "" : NumCuenta = "" : AbonoCuenta = "" : SubProyecto = "" : NotificarA = "" : RefCrediproveedor = "" + CveProveedor = -1 : CvePersonal = -1 : CveCuentaDeposito = 0 + Ruta = UsuarioActual.Empresa.Ruta + + PagueseA = ObjIE.PagueseA + Folio = ObjIE.Folio + Importe = ObjIE.Importe + CveTipoTransaccion = ObjIE.CveTipoTransaccion + Banco = ObjIE.Banco + NumCuenta = ObjIE.DepositoCuenta + If NumCuenta = "" Then NumCuenta = ObjIE.DepositoCIE + CLABE = ObjIE.DepositoCLABE + If CLABE = "" Then CLABE = ObjIE.DepositoReferencia + NoSucursal = ObjIE.DepositoSucursal + RefCrediproveedor = ObjIE.DepositoRefCrediProveedor + TextoImporte = String.Format("--- {0} ---", Importe.Texto2Letras(ObjIE.CveMoneda)) + FechaExpedicion = ObjIE.FechaDocumento + Observacion = ObjIE.Observaciones + UsuarioRegistro = ObjIE.UsuarioNombre + SubProyecto = ObjIE.SubProyecto + AbonoCuenta = If(ObjIE.EsAbonoEnCuenta, "PARA ABONO EN CUENTA DEL BENEFICIARIO", "") + NotificarA = ObjIE.NotificarA + tIdPoliza = ObjIE.IDPoliza + + Dim PreP As New ClsContabilidad + If PreP.GetPrePolizasDetalle(-1, UsuarioActual.CveEmpresa, CveIE:=CveIE) Then + If PreP.DtResultados.Rows.Count > 0 Then + CveProveedor = PreP.DtResultados.Rows(0)("CveProveedor").ToString.ToEntero + CvePersonal = PreP.DtResultados.Rows(0)("CvePersonal").ToString.ToEntero + + IVA = PreP.DtResultados.SUM("Importe", "CveConceptoContable = 19") ' concepto de IVA + + If CveProveedor > 0 Then + Dim Prov As New ClsCompProveedores + If Prov.GetProveedores(ClsCompProveedores.TipoConsulta.ParaUsoEnEmpresa, CveProveedor, "-1", "-1", "-1", "-1", "-1", "-1", "-1", -1, CveEmpresa) Then + If Prov.DtResultados.Rows.Count > 0 Then + RFC = Prov.DtResultados.Rows(0)("RFC").ToString + Correo = Prov.DtResultados.Rows(0)("ContactoMail").ToString + End If + End If + Prov.Dispose() + End If + + If CvePersonal > 0 Then + Dim RH As New ClsRH + If RH.GetPersonal(CvePersonal, UsuarioActual.CveEmpresa) Then + If RH.DtResultados.Rows.Count > 0 Then + Correo = RH.DtResultados.Rows(0)("Correo").ToString + Banco = RH.DtResultados.Rows(0)("Banco").ToString + NumCuenta = RH.DtResultados.Rows(0)("BancoNumCuenta").ToString + CLABE = RH.DtResultados.Rows(0)("CLABE").ToString + End If + + + End If + + RH.Dispose() + + End If End If + End If + PreP.Dispose() - Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos\Transferencia.rdlc", UsuarioActual.Empresa.Ruta)) - If Archivo.Exists Then - ImprimirPDF(String.Format("{0}Formatos\Transferencia.rdlc", UsuarioActual.Empresa.Ruta), DtDetalle, params, String.Format("Transferencia-{0}", CveIE)) - Else - ImprimirPDF("Empresas\Grales\Formatos\Transferencia.rdlc", DtDetalle, params, String.Format("Transferencia-{0}", CveIE)) - End If + params.Add(New ReportParameter("Fecha", FechaExpedicion.ToString("dd-MM-yyyy"))) + params.Add(New ReportParameter("Folio", String.Format("Folio: {0}", Folio))) + params.Add(New ReportParameter("PagueseA", PagueseA)) + params.Add(New ReportParameter("Importe", $"$ {Importe.ToString("N2")}")) + params.Add(New ReportParameter("ImporteTexto", TextoImporte.ToUpper)) + params.Add(New ReportParameter("Banco", Banco)) + params.Add(New ReportParameter("NumCuenta", NumCuenta)) + params.Add(New ReportParameter("CLABE", CLABE)) + params.Add(New ReportParameter("Concepto", Observacion)) + params.Add(New ReportParameter("Factura", "")) + params.Add(New ReportParameter("RFC", RFC)) + params.Add(New ReportParameter("IVA", $"$ {IVA.ToString("N2")}")) + params.Add(New ReportParameter("NumSucursal", NoSucursal)) + params.Add(New ReportParameter("Correo", Correo)) + params.Add(New ReportParameter("Telefono", Telefono)) + params.Add(New ReportParameter("NotifiqueA", NotificarA)) + params.Add(New ReportParameter("Obra", SubProyecto)) + params.Add(New ReportParameter("UsuarioRegistro", UsuarioRegistro)) + params.Add(New ReportParameter("TipoTransaccion", CveTipoTransaccion.ToString)) - ElseIf CveTipoTransaccion.Contiene(6) Then - 'IMPRESION DE FORMATO DE IE PAGO EN EFECTIVO PARA COMPU - VIATICOS - Dim Folio As String = "", Observacion As String = "", UsuarioRegistro As String = "", TextoImporte As String = "", PagueseA As String = "" + If UsuarioActual.CveEmpresa = 66 Then + params.Add(New ReportParameter("RefCrediproveedor", RefCrediproveedor)) + End If + + + Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos\Transferencia.rdlc", UsuarioActual.Empresa.Ruta)) + If Archivo.Exists Then + ImprimirPDF(String.Format("{0}Formatos\Transferencia.rdlc", UsuarioActual.Empresa.Ruta), DtDetalle, params, String.Format("Transferencia-{0}", CveIE)) + Else + ImprimirPDF("Empresas\Grales\Formatos\Transferencia.rdlc", DtDetalle, params, String.Format("Transferencia-{0}", CveIE)) + End If + + ElseIf CveTipoTransaccion.Contiene(6) Then + 'IMPRESION DE FORMATO DE IE PAGO EN EFECTIVO PARA COMPU - VIATICOS + Dim Folio As String = "", Observacion As String = "", UsuarioRegistro As String = "", TextoImporte As String = "", PagueseA As String = "" Dim Ruta As String = UsuarioActual.Empresa.Ruta Dim FechaExpedicion As Date = Now Dim Importe As Double @@ -6361,7 +6228,7 @@ Partial Class PopUpVerFactura params.Add(New ReportParameter("importe", ParamComprobacion.Rows(0)("Importe").ToString)) params.Add(New ReportParameter("TotAbono", DtComprobacion.SUM("Abonado").ToString)) - params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) + params.Add(New ReportParameter("LogoPath", RutaImagenLogo)) ImprimirPDF("Empresas/Grales/Formatos/RepRembolsosComprobaciones.rdlc", DtComprobacion, params, String.Format("IE{0}", CveIE), Formato:="PDF") End If @@ -6404,9 +6271,6 @@ Partial Class PopUpVerFactura Dim paramList As New List(Of ReportParameter) With paramList - - Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") - .Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) .Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString)) .Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) @@ -6417,21 +6281,11 @@ Partial Class PopUpVerFactura .Add(New ReportParameter("Observaciones", ObjIE.Observaciones, True)) .Add(New ReportParameter("Folio", ObjIE.Folio, True)) .Add(New ReportParameter("MonedaAbreviatura", ObjIE.MonedaAbreviatura, True)) - - - If Imagen.Exists Then - .Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - .Add(New ReportParameter("LogoPath", "")) - End If - + .Add(New ReportParameter("LogoPath", RutaImagenLogo)) End With dtMovs.Dispose() - ImprimirPDF("Empresas\Grales\Formatos\rptChequeMovimientos.rdlc", reportDataSetsList, paramList, ObjIE.Folio, "PDF") - End If - End If End If @@ -6728,7 +6582,7 @@ Partial Class PopUpVerFactura End If ObjPS.Dispose() - Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") + Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) Dim DtDatos As New DataTable @@ -6807,7 +6661,7 @@ Partial Class PopUpVerFactura params.Add(New ReportParameter("Comprobante", Comprobante)) params.Add(New ReportParameter("CodigoTD", CodigoTD)) - params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) + params.Add(New ReportParameter("LogoPath", RutaImagenLogo)) ImprimirPDF("Empresas/Grales/Formatos/Ajuste.rdlc", DtDatos, params, "Reporte de Ajuste", "PDF") ', Content_Disposition:="inline") End Sub @@ -6861,7 +6715,7 @@ Partial Class PopUpVerFactura End If ObjPS.Dispose() - Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") + 'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) Dim DtDatos As New DataTable @@ -6940,54 +6794,97 @@ Partial Class PopUpVerFactura params.Add(New ReportParameter("Comprobante", Comprobante)) params.Add(New ReportParameter("CodigoTD", CodigoTD)) - params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) + params.Add(New ReportParameter("LogoPath", RutaImagenLogo)) ImprimirPDF("Empresas/Grales/Formatos/Ajuste.rdlc", DtDatos, params, "Reporte de Ajuste", "PDF") ', Content_Disposition:="inline") End Sub #End Region -#Region "OP PREPO" - +#Region "IMPRESION POLIZAS" Public Sub ImprimeImPrimePrePolizaS(CvePrePoliza As Integer) + If Not CvePrePoliza > 0 Then Exit Sub + Dim ObjConta As New ClsContabilidad + If ObjConta.GetPrePoliza(CvePrePoliza, UsuarioActual.CveEmpresa) Then - If Not CvePrePoliza > 0 Then - Exit Sub - End If + Dim drp As DataRow = ObjConta.DtResultados.FiltroPrimero("") + If drp IsNot Nothing Then - 'ObjContabilidad.Dispose() + Dim DtDetalle As New DataTable + Dim CveTipoPolizaImp As Integer + Dim FolioPoliza As String + Dim ConceptoPolizaImp As String + Dim CveMonedaImp As Integer + Dim TipoPolImp As String + Dim RutaReporte As String + Dim params = New List(Of ReportParameter) - Dim rutaArchivo As String = "" - Dim params As New List(Of ReportParameter) - Dim Bytes As Byte() = Nothing - Dim DtDetalle As New DataTable - Dim CveTipoPolizaImp As Integer = 0 - Dim FolioPoliza As String = "" - Dim ConceptoPolizaImp As String = "" - Dim CveMonedaImp As Integer = 0 - Dim TipoPolizaString = "" + TipoPolImp = If(drp("CveTipoPoliza").ToString.ToEntero = 1, "Ingreso", If(drp("CveTipoPoliza").ToString.ToEntero = 2, "Egreso", "Diario")) + CveTipoPolizaImp = drp("CveTipoPoliza").ToString.ToEntero + ConceptoPolizaImp = drp("Concepto").ToString + FolioPoliza = drp("FolioPoliza").ToString + CveMonedaImp = drp("CveMoneda").ToString.ToEntero + Dim TipoPolizaString As String = If(CveTipoPolizaImp = 1, "I", If(CveTipoPolizaImp = 2, "E", "D")).ToString - Dim ObjContabilidad As New ClsContabilidad + If UsuarioActual.Empresa.Funcionalidad(282) = "1" Then - Dim TipoPolImp As String = "" + Dim ImpresionPersonalizada As Integer = UsuarioActual.Empresa.Funcionalidad(282).ToEntero + RutaReporte = RutaFormatoReporte("PolizasResumen.rdlc") + If ObjConta.GetPrePolizasDetalleResumen(CvePrePoliza, UsuarioActual.CveEmpresa, ImpresionPersonalizada) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then + Dim dr As DataRow + DtDetalle = ObjConta.DtResultados + dr = DtDetalle.Rows(0) + params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) + params.Add(New ReportParameter("TipoPoliza", TipoPolImp)) + params.Add(New ReportParameter("Finicio", dr("Fecha").ToString.ToDate().ToString("dd/MM/yyyy"))) + params.Add(New ReportParameter("FFin", dr("Fecha").ToString.ToDate().ToString("dd/MM/yyyy"))) + params.Add(New ReportParameter("Fecha", dr("Fecha").ToString.ToDate().ToString("dd/MM/yyyy"))) + params.Add(New ReportParameter("Numero", FolioPoliza)) + params.Add(New ReportParameter("Moneda", If(CveMonedaImp = 2, "Dolar", "Peso Mexicano"))) + params.Add(New ReportParameter("CodigoPostal", "")) + params.Add(New ReportParameter("UsuarioRegistro", UsuarioActual.Usuario)) + params.Add(New ReportParameter("ConceptoPoliza", ConceptoPolizaImp)) + params.Add(New ReportParameter("Folio", FolioPoliza)) + params.Add(New ReportParameter("pImg", RutaImagenLogo)) + End If + ObjConta.Dispose() + Else + RutaReporte = RutaFormatoReporte("Polizas.rdlc") + If ObjConta.GetPrePolizasDetalle(CvePrePoliza, UsuarioActual.CveEmpresa) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then - If ObjContabilidad.GetPrePoliza(CvePrePoliza, UsuarioActual.CveEmpresa) Then + Dim dr As DataRow + DtDetalle = ObjConta.DtResultados.FiltraParametros("Contabilizable = 1", "Orden") + dr = DtDetalle.Rows(0) - Dim dr As DataRow = ObjContabilidad.DtResultados.FiltroPrimero("") + params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) + params.Add(New ReportParameter("TipoPoliza", dr("TipoPoliza").ToString)) + params.Add(New ReportParameter("Finicio", dr("Fecha").ToString.ToDate.ToShortDateString)) + params.Add(New ReportParameter("FFin", dr("Fecha").ToString.ToDate.ToShortDateString)) + params.Add(New ReportParameter("Numero", dr("FolioPoliza").ToString)) + params.Add(New ReportParameter("Moneda", If(CveMonedaImp = 2, "Dolar", "Peso Mexicano"))) + params.Add(New ReportParameter("CodigoPostal", "")) + If UsuarioActual.CveEmpresa.Contiene(141) Then + params.Add(New ReportParameter("Fecha", dr("Fecha").ToString.ToDate.ToString("dd/MM/yyyy hh:mm:ss"))) + Else + params.Add(New ReportParameter("Fecha", dr("Fecha").ToString.ToDate.ToShortDateString)) + End If + If UsuarioActual.CveEmpresa.Contiene(119, 141) Then + params.Add(New ReportParameter("UsuarioRegistro", GlobalDTUsuarios(dr("CveUsuario").ToString.ToEntero).FiltroPrimeroValor("Nombre"))) + End If + If UsuarioActual.CveEmpresa.Contiene(140, 141) Then + params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) + End If + End If + ObjConta.Dispose() + End If - If dr IsNot Nothing Then - - TipoPolImp = If(dr("CveTipoPoliza").ToString.ToEntero = 1, "Ingreso", If(dr("CveTipoPoliza").ToString.ToEntero = 2, "Egreso", "Diario")) - CveTipoPolizaImp = dr("CveTipoPoliza").ToString.ToEntero - ConceptoPolizaImp = dr("Concepto").ToString - FolioPoliza = dr("FolioPoliza").ToString - CveMonedaImp = dr("CveMoneda").ToString.ToEntero + ImprimirPDF(RutaReporte, DtDetalle, params, $"P{TipoPolizaString}{FolioPoliza}", Formato:="PDF") Else Alert("El documento solicitado no existe, favor de revisar su búsqueda.", TipoMensaje.MsgAdvertencia) @@ -6995,124 +6892,7 @@ Partial Class PopUpVerFactura End If - ObjContabilidad.Dispose() - - Select Case CveTipoPolizaImp - Case 1 - TipoPolizaString = "I" - Exit Select - Case 2 - TipoPolizaString = "E" - Exit Select - Case Else - TipoPolizaString = "D" - Exit Select - End Select - - If UsuarioActual.Empresa.Funcionalidad(282).ToEntero = 1 Then - - - Dim Archivo As System.IO.FileInfo - - Dim ImpresionPersonalizada As Integer = UsuarioActual.Empresa.Funcionalidad(282).ToEntero - - Archivo = New System.IO.FileInfo(String.Format("{0}Formatos/PolizasResumen.rdlc", UsuarioActual.Empresa.Ruta)) - Dim Logo As New System.IO.FileInfo(String.Format("{0}Logo.png", UsuarioActual.Empresa.Ruta)) - - Dim ObjConta As New ClsContabilidad - - If ObjConta.GetPrePolizasDetalleResumen(CvePrePoliza, UsuarioActual.CveEmpresa, ImpresionPersonalizada) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then - - Dim dr As DataRow - DtDetalle = ObjConta.DtResultados '.FiltraParametros("Contabilizable = 1", "Orden") - dr = DtDetalle.Rows(0) - - params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) - params.Add(New ReportParameter("TipoPoliza", TipoPolImp)) - params.Add(New ReportParameter("Finicio", dr("Fecha").ToString.ToDate().ToString("dd/MM/yyyy"))) - params.Add(New ReportParameter("FFin", dr("Fecha").ToString.ToDate().ToString("dd/MM/yyyy"))) - - params.Add(New ReportParameter("Fecha", dr("Fecha").ToString.ToDate().ToString("dd/MM/yyyy"))) - - params.Add(New ReportParameter("Numero", FolioPoliza)) - params.Add(New ReportParameter("Moneda", If(CveMonedaImp = 2, "Dolar", "Peso Mexicano"))) - params.Add(New ReportParameter("CodigoPostal", "")) - - params.Add(New ReportParameter("UsuarioRegistro", UsuarioActual.Usuario)) - params.Add(New ReportParameter("ConceptoPoliza", ConceptoPolizaImp)) - - params.Add(New ReportParameter("Folio", FolioPoliza)) - - - If Logo.Exists Then - params.Add(New ReportParameter("pImg", $"file://{Logo.FullName}")) - Else - params.Add(New ReportParameter("pImg", "")) - End If - - - If Archivo.Exists Then - rutaArchivo = Archivo.FullName - Else - rutaArchivo = $"{DirectorioEmpresas}Grales\Formatos\PolizasResumen.rdlc" - End If - - - End If - ObjConta.Dispose() - - - Else - - Dim Archivo = New System.IO.FileInfo(String.Format("{0}Formatos/Polizas.rdlc", UsuarioActual.Empresa.Ruta)) - params = New List(Of ReportParameter) - - Dim ObjConta As New ClsContabilidad - 'If ObjPoliza.GetPoliza(IdPoliza, -1, -1, -1, -1) AndAlso ObjPoliza.DtResultados.Rows.Count > 0 Then - If ObjConta.GetPrePolizasDetalle(CvePrePoliza, UsuarioActual.CveEmpresa) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then - - Dim dr As DataRow - DtDetalle = ObjConta.DtResultados.FiltraParametros("Contabilizable = 1", "Orden") - dr = DtDetalle.Rows(0) - Dim ruta As String = "" - - params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) - params.Add(New ReportParameter("TipoPoliza", dr("TipoPoliza").ToString)) - params.Add(New ReportParameter("Finicio", dr("Fecha").ToString.ToDate.ToShortDateString)) - params.Add(New ReportParameter("FFin", dr("Fecha").ToString.ToDate.ToShortDateString)) - - If UsuarioActual.CveEmpresa.Contiene(141) Then - params.Add(New ReportParameter("Fecha", dr("Fecha").ToString.ToDate.ToString("dd/MM/yyyy hh:mm:ss"))) - Else - params.Add(New ReportParameter("Fecha", dr("Fecha").ToString.ToDate.ToShortDateString)) - End If - - FolioPoliza = dr("FolioPoliza").ToString - params.Add(New ReportParameter("Numero", dr("FolioPoliza").ToString)) - params.Add(New ReportParameter("Moneda", If(CveMonedaImp = 2, "Dolar", "Peso Mexicano"))) - params.Add(New ReportParameter("CodigoPostal", "")) - - If UsuarioActual.CveEmpresa.Contiene(119, 141) Then - params.Add(New ReportParameter("UsuarioRegistro", GlobalDTUsuarios(dr("CveUsuario").ToString.ToEntero).FiltroPrimeroValor("Nombre"))) - End If - If UsuarioActual.CveEmpresa.Contiene(140, 141) Then - params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) - End If - - If Archivo.Exists Then - rutaArchivo = UsuarioActual.Empresa.Ruta & "Formatos/Polizas.rdlc" - Else - rutaArchivo = "Empresas/Grales/Formatos/Polizas.rdlc" - End If - End If - ObjConta.Dispose() - End If - - - ImprimirPDF(rutaArchivo, DtDetalle, params, $"P{TipoPolizaString}{FolioPoliza}", Formato:="PDF") - - - + ObjConta.Dispose() End Sub diff --git a/Compras/ReembolsosComprobaciones.aspx.vb b/Compras/ReembolsosComprobaciones.aspx.vb index ce8b4b94f..0cbbb003f 100644 --- a/Compras/ReembolsosComprobaciones.aspx.vb +++ b/Compras/ReembolsosComprobaciones.aspx.vb @@ -891,35 +891,42 @@ Partial Class Compras_ReembolsosComprobaciones 'Conta ContPAQ AUTOMATICA If UsuarioActual.Empresa.Funcionalidad(200) = "1" AndAlso MsgError.Trim = "" Then If CvePrePolizaIERegistrado > 0 Then - If IdCtaPersonal > 0 Or DdlCajaChica.Visible Then - If IdCtaProveedor > 0 Then - - If ObjMov.ContabilizarPrePoliza(CvePrePolizaIERegistrado, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then + If UsuarioActual.Empresa.TipoContabilidad = 2 Then + If IdCtaPersonal > 0 Or DdlCajaChica.Visible Then + If IdCtaProveedor > 0 Then + If Not ObjMov.ContabilizarPrePoliza(CvePrePolizaIERegistrado, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then + MsgError = "Ocurrio un Error al contabilizar, pongase en contacto con Soporte Técnico" + End If Else - MsgError = "Ocurrio un Error al contabilizar, pongase en contacto con Soporte Técnico" + MsgError = "No tiene cuenta contable de proveedor" End If Else - MsgError = "No tiene cuenta contable de proveedor" + MsgError = "No tiene cuenta contable de personal" End If Else - MsgError = "No tiene cuenta contable de personal" + If Not ObjMov.ContabilizarPrePoliza(CvePrePolizaIERegistrado, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then + MsgError = "Ocurrio un Error al contabilizar, pongase en contacto con Soporte Técnico" + End If End If End If If ChkChequeExcedente.Checked Then - If IdCuentaBancaria > 0 Then - If IdCtaProveedor > 0 Then - - If ObjMov.ContabilizarPrePoliza(CvePrePolizaExcedente, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then + If UsuarioActual.Empresa.TipoContabilidad = 2 Then + If IdCuentaBancaria > 0 Then + If IdCtaProveedor > 0 Then + If Not ObjMov.ContabilizarPrePoliza(CvePrePolizaIERegistrado, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then + MsgError = "Ocurrio un Error al contabilizar, pongase en contacto con Soporte Técnico" + End If Else - MsgError = "Ocurrio un Error al contabilizar, pongase en contacto con Soporte Técnico" + MsgError = "No tiene cuenta contable de proveedor" End If - Else - MsgError = "No tiene cuenta contable de proveedor" + MsgError = "No tiene cuenta contable de personal" End If Else - MsgError = "No tiene Cuenta contable Bancaria" + If Not ObjMov.ContabilizarPrePoliza(CvePrePolizaIERegistrado, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then + MsgError = "Ocurrio un Error al contabilizar, pongase en contacto con Soporte Técnico" + End If End If End If End If diff --git a/Contabilidad/PolizasImpresion.aspx.vb b/Contabilidad/PolizasImpresion.aspx.vb index 2b015f44a..0ea6f1bfa 100644 --- a/Contabilidad/PolizasImpresion.aspx.vb +++ b/Contabilidad/PolizasImpresion.aspx.vb @@ -77,12 +77,7 @@ Partial Class Contabilidad_PolizasImpresion folf = FolioFin.Text.ToEntero() End If - Dim ArchivoReporte As String = "Empresas/Grales/Formatos/Polizas.rdlc" - - If IO.File.Exists(String.Format("{0}Formatos/Polizas.rdlc", UsuarioActual.Empresa.Ruta)) Then - ArchivoReporte = String.Format("{0}Formatos/Polizas.rdlc", UsuarioActual.Empresa.Ruta) - End If - + Dim ArchivoReporte As String = RutaFormatoReporte("Polizas.rdlc") Dim ObjConta As New ClsContabilidad If ObjConta.GetPrePolizasImpresion(UsuarioActual.CveEmpresa, TxtFechaInicio.Text.ToDate, TxtFechaFin.Text.ToDate, CveTipoPoliza:=ddlTipoPoliza.SelectedValue.ToEntero, FolioI:=foli, FolioF:=folf, CveUsuario:=DdlUsuarioRegistro.SelectedValue.ToEntero, CveSubProyecto:=DdlSegmentoNeg.SelectedValue.ToEntero, @@ -99,8 +94,6 @@ Partial Class Contabilidad_PolizasImpresion params.Add(New ReportParameter("Finicio", TxtFechaInicio.Text)) params.Add(New ReportParameter("FFin", TxtFechaFin.Text)) params.Add(New ReportParameter("Fecha", dr("Fecha").ToString.ToDate.ToShortDateString)) - 'params.Add(New ReportParameter("Nombre", dr("Cuenta").ToString)) - 'params.Add(New ReportParameter("Cuenta", dr("Codigo").ToString)) params.Add(New ReportParameter("Numero", dr("Folio").ToString)) params.Add(New ReportParameter("Moneda", "")) params.Add(New ReportParameter("CodigoPostal", "")) diff --git a/Contabilidad/RegPrePolizaS.aspx b/Contabilidad/RegPrePolizaS.aspx index 214930c38..4ba7be742 100644 --- a/Contabilidad/RegPrePolizaS.aspx +++ b/Contabilidad/RegPrePolizaS.aspx @@ -78,8 +78,8 @@ Crear Complemento de Pago
  • - Imprimir Poliza -
    • + Imprimir Poliza + <%--
  • Imprimir PDF Resumen diff --git a/Contabilidad/RegPrePolizaS.aspx.vb b/Contabilidad/RegPrePolizaS.aspx.vb index 75068d7ea..9493d9f22 100644 --- a/Contabilidad/RegPrePolizaS.aspx.vb +++ b/Contabilidad/RegPrePolizaS.aspx.vb @@ -5,6 +5,7 @@ Imports ADSNetLibrary.SIGAPI.Models.OC.Response 'Imports DocumentFormat.OpenXml Imports Extensiones Imports GemBox.Spreadsheet +Imports Microsoft.JScript Imports Microsoft.Reporting.WebForms Partial Class ContabilidadC_RegPrePolizaS @@ -310,7 +311,6 @@ Partial Class ContabilidadC_RegPrePolizaS Else BtnEliminar.Visible = False LnkExcel.Visible = True - LnkImprimirPDF.Visible = False DvPlantilla.Visible = True TxtFechaDocumento.Text = Now.ToString("dd/MM/yyyy") @@ -336,7 +336,6 @@ Partial Class ContabilidadC_RegPrePolizaS CreaDT() BtnEliminar.Visible = False LnkExcel.Visible = True - LnkImprimirPDF.Visible = False DvPlantilla.Visible = True TxtFechaDocumento.Text = Now.ToString("dd/MM/yyyy") @@ -463,7 +462,8 @@ Partial Class ContabilidadC_RegPrePolizaS TxtUsuarioElaboro.Text = dr("Usuario").ToString TxtFechaelaboracion.Text = dr("FechaIng").ToString.ToDate.ToString("dd/MM/yyyy") CvePlantillaPoliza = dr("CvePlantillaPoliza").ToString - + HplImprimirPDF.NavigateUrl = $"/Compras/PopUpVerFactura.aspx?P={Encripta($"OP=PREPO&CvePrePoliza={CvePrePoliza}")}" + HplImprimirPDF.Visible = True If UsuarioActual.CveRol = 1 Then TxtUsuarioElaboro.ToolTip = dr("Modulo").ToString End If @@ -542,7 +542,6 @@ Partial Class ContabilidadC_RegPrePolizaS RegistraScript("comparar();") LnkExcel.Visible = False - LnkImprimirPDF.Visible = True Else Alert("El documento solicitado no existe, favor de revisar su búsqueda.", TipoMensaje.MsgAdvertencia) BtnEliminar.Visible = False @@ -2164,23 +2163,6 @@ Partial Class ContabilidadC_RegPrePolizaS RegistraScript("calculateCargo()", "abono") RegistraScript("comparar()", "compara") End Sub - 'Protected Sub DdlSubProyectoFiltroMov_SelectedIndexChanged(sender As Object, e As EventArgs) - ' For Each Gvr As GridViewRow In GvMov.Rows - ' If DdlSubProyectoFiltroMov.SelectedValue.ToEntero > 0 Then - ' If Gvr.FCDropDownList("DdlSubProyecto").SelectedValue.ToEntero = DdlSubProyectoFiltroMov.SelectedValue.ToEntero Or Not Gvr.FCDropDownList("DdlSubProyecto").SelectedValue.ToEntero > 0 Then - ' Gvr.Visible = True - ' Else - ' Gvr.Visible = False - ' End If - ' Else - ' Gvr.Visible = True - ' End If - ' Next - ' UpPrePoliza.Update() - ' RegistraScript("calculateAbono()", "cargo") - ' RegistraScript("calculateCargo()", "abono") - ' RegistraScript("comparar()", "compara") - 'End Sub Private Sub GvMov_RowEditing(sender As Object, e As GridViewEditEventArgs) Handles GvMov.RowEditing Actualizar = True @@ -2716,81 +2698,6 @@ Partial Class ContabilidadC_RegPrePolizaS End Sub -#Region "Paquete Egresos" - Protected Sub LnkImprimirPDF_Click(sender As Object, e As EventArgs) - - - If UsuarioActual.Empresa.Funcionalidad(282).ToEntero = 1 Then - - ImprimePrePolizasDetalleResumen("PDF") - Else - ImprimirPolizaPDF(IdPoliza) - - End If - - End Sub - - Private Sub ImprimirPolizaPDF(IdPoliza As Integer) - - 'Dim ObjPoliza As New ClsContPAQi(UsuarioActual.Empresa) - - Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/Polizas.rdlc", UsuarioActual.Empresa.Ruta)) - Dim params As New List(Of ReportParameter) - Dim Bytes As Byte() = Nothing - - - Dim ObjConta As New ClsContabilidad - 'If ObjPoliza.GetPoliza(IdPoliza, -1, -1, -1, -1) AndAlso ObjPoliza.DtResultados.Rows.Count > 0 Then - If ObjConta.GetPrePolizasDetalle(CvePrePoliza, UsuarioActual.CveEmpresa) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then - Dim dtVC As DataTable - Dim dr As DataRow - dtVC = ObjConta.DtResultados.FiltraParametros("Contabilizable = 1", "Orden") - dr = dtVC.Rows(0) - Dim ruta As String = "" - params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) - params.Add(New ReportParameter("TipoPoliza", dr("TipoPoliza").ToString)) - params.Add(New ReportParameter("Finicio", dr("Fecha").ToString.ToDate.ToShortDateString)) - params.Add(New ReportParameter("FFin", dr("Fecha").ToString.ToDate.ToShortDateString)) - - If UsuarioActual.CveEmpresa.Contiene(141) Then - params.Add(New ReportParameter("Fecha", dr("Fecha").ToString.ToDate.ToString("dd/MM/yyyy hh:mm:ss"))) - Else - params.Add(New ReportParameter("Fecha", dr("Fecha").ToString.ToDate.ToShortDateString)) - End If - - - - params.Add(New ReportParameter("Numero", dr("FolioPoliza").ToString)) - params.Add(New ReportParameter("Moneda", "")) - params.Add(New ReportParameter("CodigoPostal", "")) - - If UsuarioActual.CveEmpresa.Contiene(119, 141) Then - params.Add(New ReportParameter("UsuarioRegistro", GlobalDTUsuarios(dr("CveUsuario").ToString.ToEntero).FiltroPrimeroValor("Nombre"))) - End If - If UsuarioActual.CveEmpresa.Contiene(140, 141) Then - params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) - End If - - If Archivo.Exists Then - ruta = UsuarioActual.Empresa.Ruta & "Formatos/Polizas.rdlc" - Else - ruta = "Empresas/Grales/Formatos/Polizas.rdlc" - End If - ImprimirbytesPDF(StreamPDF(ruta, dtVC, params, "ppoliza"), String.Format("{0}-{1}", TipoPoliza, dr("FolioPoliza").ToString), "PDF", True) - - End If - - - 'Return String.Format("{0}\{1}\{2}.pdf", AppDomain.CurrentDomain.BaseDirectory, Tick, IdPoliza.ToString) - ObjConta.Dispose() - - End Sub - - - - - -#End Region #Region "Crear A Partier de" @@ -2928,7 +2835,7 @@ Partial Class ContabilidadC_RegPrePolizaS 'Next End If LnkExcel.Visible = False - LnkImprimirPDF.Visible = True + HplImprimirPDF.Visible = True Else Alert("El documento solicitado no existe, favor de revisar su búsqueda.", TipoMensaje.MsgAdvertencia) BtnEliminar.Visible = False @@ -3220,98 +3127,6 @@ Partial Class ContabilidadC_RegPrePolizaS End Sub - Private Sub ImprimePrePolizasDetalleResumen(Optional Tipo As String = "PDF") - - Dim Archivo As System.IO.FileInfo - Dim params As New List(Of ReportParameter) - Dim Bytes As Byte() = Nothing - - Dim ImpresionPersonalizada As Integer = UsuarioActual.Empresa.Funcionalidad(282).ToEntero - Dim ConceptoPoliza As String = TxtConcepto.Text - - - Archivo = New System.IO.FileInfo(String.Format("{0}Formatos/PolizasResumen.rdlc", UsuarioActual.Empresa.Ruta)) - Dim Logo As New System.IO.FileInfo(String.Format("{0}Logo.png", UsuarioActual.Empresa.Ruta)) - - - Dim ObjConta As New ClsContabilidad - 'If ObjPoliza.GetPoliza(IdPoliza, -1, -1, -1, -1) AndAlso ObjPoliza.DtResultados.Rows.Count > 0 Then - If ObjConta.GetPrePolizasDetalleResumen(CvePrePoliza, UsuarioActual.CveEmpresa, ImpresionPersonalizada) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then - Dim dtVC As DataTable - Dim dr As DataRow - - dtVC = ObjConta.DtResultados '.FiltraParametros("Contabilizable = 1", "Orden") - dr = dtVC.Rows(0) - - params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) - params.Add(New ReportParameter("TipoPoliza", DdlTipoPoliza.SelectedItem.Text)) - params.Add(New ReportParameter("Finicio", TxtFechaDocumento.Text)) - params.Add(New ReportParameter("FFin", TxtFechaDocumento.Text)) - - params.Add(New ReportParameter("Fecha", TxtFechaDocumento.Text)) - - params.Add(New ReportParameter("Numero", TxtFolio.Text)) - params.Add(New ReportParameter("Moneda", If(CveMoneda = 2, "Dolar", "Peso Mexicano"))) - params.Add(New ReportParameter("CodigoPostal", "")) - - params.Add(New ReportParameter("UsuarioRegistro", TxtUsuarioElaboro.Text)) - params.Add(New ReportParameter("ConceptoPoliza", ConceptoPoliza)) - - params.Add(New ReportParameter("Folio", TxtFolio.Text)) - - - - - - If Logo.Exists Then - params.Add(New ReportParameter("pImg", $"file://{Logo.FullName}")) - Else - params.Add(New ReportParameter("pImg", "")) - End If - - - - - Dim RutaReprote As String - If Archivo.Exists Then - RutaReprote = Archivo.FullName - Else - RutaReprote = $"{DirectorioEmpresas}Grales\Formatos\PolizasResumen.rdlc" - End If - - Dim TipoPolizaString = "" - - Select Case DdlTipoPoliza.SelectedValue.ToEntero - Case 1 - TipoPolizaString = "I" - Exit Select - Case 2 - TipoPolizaString = "E" - Exit Select - - Case Else - TipoPolizaString = "D" - Exit Select - - End Select - - - ImprimirbytesPDF(StreamPDF(RutaReprote, dtVC, params, "PrePoliza", Formato:=Tipo), $"P{TipoPolizaString}{TxtFolio.Text}", Formato:=Tipo, Descarga:=True) - - End If - ObjConta.Dispose() - - End Sub - - - Protected Sub LnkImprimePDFResumen_Click(sender As Object, e As EventArgs) - ImprimePrePolizasDetalleResumen("PDF") - End Sub - - 'Protected Sub LnkImprimeExcelResumen_Click(sender As Object, e As EventArgs) - ' ImprimePrePolizasDetalleResumen("Excel") - 'End Sub - End Class diff --git a/Contabilidad2/RepAnexoCatalogoMensual.aspx b/Contabilidad2/RepAnexoCatalogoMensual.aspx index b83546560..2c501cad8 100644 --- a/Contabilidad2/RepAnexoCatalogoMensual.aspx +++ b/Contabilidad2/RepAnexoCatalogoMensual.aspx @@ -1,4 +1,4 @@ -<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepAnexoCatalogoMensual.aspx.vb" Inherits="Contabilidad2_RepAnexoCatalogoMensual" %> +<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepAnexoCatalogoMensual.aspx.vb" Inherits="Contabilidad2_RepAnexoCatalogoMensual" EnableEventValidation="false" %> @@ -54,19 +54,41 @@
    + "><%--class="expand"--%> +
    - -
      -
    • Ejercicio: - - -
      • - -
    • - - - +
      +
      + Cuenta: +
      +
      + + + + + +
      +
      + Ejercicio: +
      +
      + +
      + Proyecto: +
      + +
      + SubProyecto: +
      + + +
      + + +
      -
      • -
    • SubProyecto: - - -
      • -
    • Divisor: - - - - + +
    +
    +
    > +
    +
    + Divisor: +
    +
    + + + -
    • - -
  • Trimestre Cuatrimestre: - + +
    + Trimestre Cuatrimestre: +
    +
    + NO Trimestre Cuatrimestre -
    • - -
  • Cuenta: -
    • -
  • - - - - - - - -
    • - - - - - - - - - - + + + @@ -213,7 +221,7 @@ - + diff --git a/Contabilidad2/RepAnexoCatalogoMensual.aspx.vb b/Contabilidad2/RepAnexoCatalogoMensual.aspx.vb index ab5fb1a91..098eb165d 100644 --- a/Contabilidad2/RepAnexoCatalogoMensual.aspx.vb +++ b/Contabilidad2/RepAnexoCatalogoMensual.aspx.vb @@ -88,10 +88,8 @@ Partial Class Contabilidad2_RepAnexoCatalogoMensual Private Sub InicializaValores() CargaCombos() End Sub - Private Sub CargaCombos() - - - + Private Sub CargaCombos() + Dim Conta As New ClsContabilidad If Conta.GetEjercicios(UsuarioActual.CveEmpresa) Then DdlEjercicio.DataSource = Conta.DtResultados @@ -115,13 +113,9 @@ Partial Class Contabilidad2_RepAnexoCatalogoMensual DdlEjercicio.DataBind() DdlEjercicio.SelectedValueExist(Now.Year.ToString) - DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa) - DdlSubProyecto.DataBind() - DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1")) - DdlSubProyecto.SelectedValue = "-1" - - - + CargarCentrosDeCosto(DdlProyecto, DdlSubproyecto, LblProyecto, LblSubProyecto, divProyecto:=divProyecto) + + End Sub #End Region @@ -182,11 +176,7 @@ Partial Class Contabilidad2_RepAnexoCatalogoMensual GvMensual2.Columns(27).Visible = True GvMensual2.Columns(42).Visible = True - End If - - - - + End If UpMensual.Update() If GvMensual2.Rows.Count > 0 Then @@ -194,10 +184,7 @@ Partial Class Contabilidad2_RepAnexoCatalogoMensual LnkExportar.Visible = True UpAcciones.Update() - End If - - - 'RegistraScript($"LimpiaCeros();") + End If Conta.Dispose() End Sub @@ -208,131 +195,105 @@ Partial Class Contabilidad2_RepAnexoCatalogoMensual Protected Sub GvMensual1_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvMensual2.RowDataBound If e.Row.RowType = DataControlRowType.DataRow Then - If e.Row.RowIndex = 0 Then - e.Row.Style.Add("font-weight", "bold") - End If + 'If e.Row.RowIndex = 0 Then + ' e.Row.Style.Add("font-weight", "bold") + 'End If setgrafica(e) - - If e.Row.DataKey("Level").ToEntero = 0 Then + If e.Row.DataKey("Level") = "0" Then e.Row.CssClass = "Totales" - End If - - If e.Row.DataKey("Level").ToEntero = 1 Then + ElseIf e.Row.DataKey("Level") = "1" Then e.Row.CssClass = "SubTotales" End If + 'If e.Row.DBCampo("TipoCuenta").Contiene("3", "4") Then + ' e.Row.CssClass = "Totales" + 'ElseIf e.Row.DBCampo("TipoCuenta").Contiene("1") Then + ' e.Row.CssClass = "SubTotales" + 'End If Dim Enero, Febrero, Marzo, Abril, Mayo, Junio, Julio, Agosto, Septiembre, Octubre, Noviembre, Diciembre As Decimal - Enero = e.Row.DBCampo("Enero").ToDecimal() - Febrero = e.Row.DBCampo("Febrero").ToDecimal() - Marzo = e.Row.DBCampo("Marzo").ToDecimal() - Abril = e.Row.DBCampo("Abril").ToDecimal() - Mayo = e.Row.DBCampo("Mayo").ToDecimal() - Junio = e.Row.DBCampo("Junio").ToDecimal() - Julio = e.Row.DBCampo("Julio").ToDecimal() - Agosto = e.Row.DBCampo("Agosto").ToDecimal() - Septiembre = e.Row.DBCampo("Septiembre").ToDecimal() - Octubre = e.Row.DBCampo("Octubre").ToDecimal() - Noviembre = e.Row.DBCampo("Noviembre").ToDecimal() - Diciembre = e.Row.DBCampo("Diciembre").ToDecimal() + Enero = e.Row.DBCampo("Enero").ToDecimal() + Febrero = e.Row.DBCampo("Febrero").ToDecimal() + Marzo = e.Row.DBCampo("Marzo").ToDecimal() + Abril = e.Row.DBCampo("Abril").ToDecimal() + Mayo = e.Row.DBCampo("Mayo").ToDecimal() + Junio = e.Row.DBCampo("Junio").ToDecimal() + Julio = e.Row.DBCampo("Julio").ToDecimal() + Agosto = e.Row.DBCampo("Agosto").ToDecimal() + Septiembre = e.Row.DBCampo("Septiembre").ToDecimal() + Octubre = e.Row.DBCampo("Octubre").ToDecimal() + Noviembre = e.Row.DBCampo("Noviembre").ToDecimal() + Diciembre = e.Row.DBCampo("Diciembre").ToDecimal() - Dim CveCunetaRow As Integer = e.Row.DataKey("CveCuenta").ToEntero + Dim CveCunetaRow As Integer = e.Row.DataKey("CveCuenta").ToEntero + For x = 2 To GvMensual2.Columns.Count - 1 - - For x = 2 To GvMensual2.Columns.Count - 1 - - If e.Row.Cells(x).Text.Replace("%", "").ToDecimal = 0 Then - e.Row.Cells(x).Text = "-" - ElseIf e.Row.Cells(x).Text.Replace("%", "").ToDecimal < 0 Then - e.Row.Cells(x).ForeColor = Drawing.Color.Red + If e.Row.Cells(x).Text.Replace("%", "").ToDecimal = 0 Then + e.Row.Cells(x).Text = "-" + ElseIf e.Row.Cells(x).Text.Replace("%", "").ToDecimal < 0 Then + e.Row.Cells(x).ForeColor = Drawing.Color.OrangeRed End If If x = 2 Then - e.Row.Cells(x).Text = $"{ If(DdlDivisor.SelectedValue.ToEntero > 1, Enero.ToString("###,###,##0"), Enero.ToString("###,###,###.00")) }" + e.Row.Cells(x).Text = $"{ If(DdlDivisor.SelectedValue.ToEntero > 1, Enero.ToString("###,###,##0"), Enero.ToString("###,###,###.00")) }" End If If x = 3 Then - e.Row.Cells(x).Text = $"{ If(DdlDivisor.SelectedValue.ToEntero > 1, Febrero.ToString("###,###,##0"), Febrero.ToString("###,###,###.00")) }" + e.Row.Cells(x).Text = $"{ If(DdlDivisor.SelectedValue.ToEntero > 1, Febrero.ToString("###,###,##0"), Febrero.ToString("###,###,###.00")) }" End If If x = 6 Then - e.Row.Cells(x).Text = $"{ If(DdlDivisor.SelectedValue.ToEntero > 1, Marzo.ToString("###,###,##0"), Marzo.ToString("###,###,###.00")) }" + e.Row.Cells(x).Text = $"{ If(DdlDivisor.SelectedValue.ToEntero > 1, Marzo.ToString("###,###,##0"), Marzo.ToString("###,###,###.00")) }" End If If x = 10 Then - e.Row.Cells(x).Text = $"{ If(DdlDivisor.SelectedValue.ToEntero > 1, Abril.ToString("###,###,##0"), Abril.ToString("###,###,###.00")) }" + e.Row.Cells(x).Text = $"{ If(DdlDivisor.SelectedValue.ToEntero > 1, Abril.ToString("###,###,##0"), Abril.ToString("###,###,###.00")) }" End If If x = 14 Then - e.Row.Cells(x).Text = $"{ If(DdlDivisor.SelectedValue.ToEntero > 1, Marzo.ToString("###,###,##0"), Marzo.ToString("###,###,###.00")) }" + e.Row.Cells(x).Text = $"{ If(DdlDivisor.SelectedValue.ToEntero > 1, Mayo.ToString("###,###,##0"), Mayo.ToString("###,###,###.00")) }" End If - If x = 17 Then - e.Row.Cells(x).Text = $"{ If(DdlDivisor.SelectedValue.ToEntero > 1, Enero.ToString("###,###,##0"), Enero.ToString("###,###,###.00")) }" + e.Row.Cells(x).Text = $"{ If(DdlDivisor.SelectedValue.ToEntero > 1, Junio.ToString("###,###,##0"), Junio.ToString("###,###,###.00")) }" End If - If x = 21 Then - e.Row.Cells(x).Text = $"{ If(DdlDivisor.SelectedValue.ToEntero > 1, Enero.ToString("###,###,##0"), Enero.ToString("###,###,###.00")) }" + e.Row.Cells(x).Text = $"{ If(DdlDivisor.SelectedValue.ToEntero > 1, Julio.ToString("###,###,##0"), Julio.ToString("###,###,###.00")) }" End If If x = 24 Then - e.Row.Cells(x).Text = $"{ If(DdlDivisor.SelectedValue.ToEntero > 1, Enero.ToString("###,###,##0"), Enero.ToString("###,###,###.00")) }" + e.Row.Cells(x).Text = $"{ If(DdlDivisor.SelectedValue.ToEntero > 1, Agosto.ToString("###,###,##0"), Agosto.ToString("###,###,###.00")) }" End If - - If x = 28 Then - e.Row.Cells(x).Text = $"{ If(DdlDivisor.SelectedValue.ToEntero > 1, Enero.ToString("###,###,##0"), Enero.ToString("###,###,###.00")) }" + e.Row.Cells(x).Text = $"{ If(DdlDivisor.SelectedValue.ToEntero > 1, Septiembre.ToString("###,###,##0"), Septiembre.ToString("###,###,###.00")) }" End If - If x = 32 Then - e.Row.Cells(x).Text = $"{ If(DdlDivisor.SelectedValue.ToEntero > 1, Enero.ToString("###,###,##0"), Enero.ToString("###,###,###.00")) }" + e.Row.Cells(x).Text = $"{ If(DdlDivisor.SelectedValue.ToEntero > 1, Octubre.ToString("###,###,##0"), Octubre.ToString("###,###,###.00")) }" End If - If x = 35 Then - e.Row.Cells(x).Text = $"{ If(DdlDivisor.SelectedValue.ToEntero > 1, Enero.ToString("###,###,##0"), Enero.ToString("###,###,###.00")) }" + If x = 35 Then + e.Row.Cells(x).Text = $"{ If(DdlDivisor.SelectedValue.ToEntero > 1, Noviembre.ToString("###,###,##0"), Noviembre.ToString("###,###,###.00")) }" End If - If x = 38 Then - e.Row.Cells(x).Text = $"{ If(DdlDivisor.SelectedValue.ToEntero > 1, Enero.ToString("###,###,##0"), Enero.ToString("###,###,###.00")) }" + If x = 38 Then + e.Row.Cells(x).Text = $"{ If(DdlDivisor.SelectedValue.ToEntero > 1, Diciembre.ToString("###,###,##0"), Diciembre.ToString("###,###,###.00")) }" + End If + Next + If Enero = 0 Then + e.Row.Cells(2).Text = "-" End If - - - - Next - - - - - If Enero = 0 Then - e.Row.Cells(2).Text = "-" - Else - - - End If - - - - - - - ' e.Row.Cells(1).Style.Add("text-indent", $"{e.Row.DBCampo("Level").ToString.ToEntero * 2}em") - - - - ' Level 0 Total 1 SubTotal 1 - End If + End If End Sub Public Sub setgrafica(e As GridViewRowEventArgs) @@ -356,23 +317,19 @@ Partial Class Contabilidad2_RepAnexoCatalogoMensual Private Sub LnkExportar_Click(sender As Object, e As EventArgs) Handles LnkExportar.Click - Dim SubProyecto As String = "" - - If DdlSubProyecto.SelectedValue.ToEntero > 0 Then - SubProyecto = DdlSubProyecto.SelectedItem.Text - End If - Dim SbFiltros As New StringBuilder() SbFiltros.AppendFormat("Fecha Inicio: {0} Fecha Fin: {1}|", $"01/01/{DdlEjercicio.SelectedValue}", $"31/12/{DdlEjercicio.SelectedValue}") + SbFiltros.AppendFormat("Cuenta : {0}|", DdlCuentas.SelectedItem.Text) + SbFiltros.AppendFormat("Centro Costo : {0}|", If(DdlSubproyecto.SelectedValue.ToEntero > 0, DdlSubproyecto.SelectedItem.Text, "Todos")) SbFiltros.AppendFormat("Divisor : {0}|", DdlDivisor.SelectedItem.Text) - GvMensual2.ExportToExcelGembox("AnexoCatálogoMensual", UsuarioActual, "Anexo del Catálogo - Mensual", DatoTituloExtra:=$"Periodo {DdlPeriodo.SelectedItem.Text}", DatosFiltros:=SbFiltros.ToString()) - 'GvMensual2.ExportToExcelGembox("AnexoCatálogoMensual", UsuarioActual, $"01/01/{DdlEjercicio.SelectedValue}", $"31/12/{DdlEjercicio.SelectedValue}", "Anexo del Catálogo - Mensual", SubProyecto, DdlDivisor.SelectedValue.ToEntero, DatoTituloExtra:=$"Periodo {DdlPeriodo.SelectedItem.Text}") - + GvMensual2.ExportToExcelGembox("AnexoCatálogoMensual", UsuarioActual, "Anexo del Catálogo - Mensual", DatosFiltros:=SbFiltros.ToString()) End Sub - Public Overrides Sub VerifyRenderingInServerForm(ByVal control As Control) - End Sub + Public Overrides Sub VerifyRenderingInServerForm(control As Control) + ' Verifies that the control is rendered + End Sub + End Class diff --git a/Contabilidad2/RepEstadoActividades.aspx b/Contabilidad2/RepEstadoActividades.aspx index f65afe649..eff3e94e4 100644 --- a/Contabilidad2/RepEstadoActividades.aspx +++ b/Contabilidad2/RepEstadoActividades.aspx @@ -66,8 +66,8 @@ - -
    + +
    Normal Consolidado diff --git a/Contabilidad2/RepEstadoActividades.aspx.vb b/Contabilidad2/RepEstadoActividades.aspx.vb index 67463cddb..f48ff1d83 100644 --- a/Contabilidad2/RepEstadoActividades.aspx.vb +++ b/Contabilidad2/RepEstadoActividades.aspx.vb @@ -98,6 +98,13 @@ Partial Class AC_RepEstadoActividades CargaEjercicios() CargaDatos() + + + If UsuarioActual.Empresa.GrupoEmpresa > 0 And UsuarioActual.CveRol = 1 Then + DVConsolidado1.Visible = True + DVConsolidado2.Visible = True + End If + End If End Sub diff --git a/Contabilidad2/RepSituacionFinanciera.aspx b/Contabilidad2/RepSituacionFinanciera.aspx index 6233683c5..fa55f44f0 100644 --- a/Contabilidad2/RepSituacionFinanciera.aspx +++ b/Contabilidad2/RepSituacionFinanciera.aspx @@ -64,8 +64,8 @@
    - -
    + +
    Normal Consolidado diff --git a/Contabilidad2/RepSituacionFinanciera.aspx.vb b/Contabilidad2/RepSituacionFinanciera.aspx.vb index 459796aae..516435df9 100644 --- a/Contabilidad2/RepSituacionFinanciera.aspx.vb +++ b/Contabilidad2/RepSituacionFinanciera.aspx.vb @@ -149,6 +149,11 @@ Partial Class AC2_SituacionFinanciera CargaEjercicios() + If UsuarioActual.Empresa.GrupoEmpresa > 0 And UsuarioActual.CveRol = 1 Then + DVConsolidado1.Visible = True + DVConsolidado2.Visible = True + End If + 'CargaDatos() End If End Sub diff --git a/Empresas/158/Formatos/Polizas.rdlc b/Empresas/158/Formatos/Polizas.rdlc new file mode 100644 index 000000000..7c5d23293 --- /dev/null +++ b/Empresas/158/Formatos/Polizas.rdlc @@ -0,0 +1,2892 @@ + + + 0 + + + + System.Data.DataSet + /* Local Connection */ + + 7ef92796-1755-4a85-b80c-8c8266256a94 + + + + + + DataSet1 + /* Local Query */ + + + + Id + System.Int16 + + + IdPoliza + System.Int16 + + + Fecha + System.DateTime + + + TipoPol + System.String + + + Nombre + System.String + + + Cuenta + System.String + + + CuentaFormato + System.String + + + Numero + System.String + + + Referencia + System.String + + + Concepto + System.String + + + ConceptoPoliza + System.String + + + Cargos + System.Double + + + Abonos + System.Double + + + Cargo + System.Double + + + Abono + System.Double + + + Folio + System.Double + + + Codigo + System.Double + + + SegNeg + System.String + + + TipoMovto + System.Double + + + UsuarioRegistro + System.String + + + CuentaNombre + System.String + + + + DataSet1 + C:\inetpub\wwwroot\ADSistemas\Ventas.root\Reportes\DataSet1.xsd + DataTable1 + + + + + + + + + + + + + + + 2.15421cm + + + 2.15421cm + + + 2.15421cm + + + 2.15421cm + + + 2.15421cm + + + 2.15421cm + + + 2.15421cm + + + 2.15421cm + + + 2.15421cm + + + + + 0.6cm + + + + + true + true + + + + + + + + + + + + Textbox1 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Textbox2 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Textbox3 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Textbox34 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Textbox25 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Textbox17 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + + + + + + + + Textbox5 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + ="Folio: " & Fields!Folio.Value + + + + + + + Textbox7 + + + 2pt + 2pt + 2pt + 2pt + + + 2 + + + + + + + 0.6cm + + + + + true + true + + + + + Concepto: + + + + =Fields!ConceptoPoliza.Value + + + + + + + Textbox103 + + + 2pt + 2pt + 2pt + 2pt + + + 7 + + + + + + + + + + + + true + true + + + + + Fecha: + + + + =Fields!Fecha.Value + + + + + + + Textbox107 + + + 2pt + 2pt + 2pt + 2pt + + + 2 + + + + + + + 0.42438cm + + + + + true + true + + + + + Referencia + + + + + + + Textbox15 + + + #008204 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Cuenta + + + + + + + Textbox16 + + + #008204 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Concepto + + + + + + + Textbox28 + + + #008204 + 2pt + 2pt + 2pt + 2pt + + + 4 + + + + + + + + + true + true + + + + + Sucursal + + + + + + + Textbox46 + + + #008204 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Cargos + + + + + + + Textbox52 + + + #008204 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Abonos + + + + + + + Textbox66 + + + #008204 + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.07938cm + + + + + true + + + + + =Fields!Referencia.Value + + + + + + 1pt + 1pt + 1pt + 1pt + + + + + + + + true + + + + + =Fields!CuentaFormato.Value + + + + + + 1pt + 1pt + 1pt + 1pt + + + + + + + + true + true + + + + + =Fields!CuentaNombre.Value + + + + + + + Cuenta1 + + + 1pt + 1pt + 1pt + 1pt + + + 4 + + + + + + + + + true + true + + + + + =Fields!SegNeg.Value + + + + + + + SegNeg + + + 1pt + 1pt + 1pt + 1pt + + + + + + + + true + + + + + = Fields!Cargo.Value + + + + + + + + =iif(Fields!TipoMovto.Value ="0",False,True) + + + + 1pt + 1pt + 1pt + 1pt + es-MX + + + + + + + + true + + + + + = Fields!Abono.Value + + + + + + + Abono + + =iif(Fields!TipoMovto.Value ="1",False,True) + + + + 1pt + 1pt + 1pt + 1pt + es-MX + + + + + + + + 0.07938cm + + + + + true + true + + + + + + + + + + + 1pt + 1pt + 1pt + 1pt + + + + + + + + true + true + + + + + + + + + + + 1pt + 1pt + 1pt + 1pt + + + + + + + + true + true + + + + + =Fields!Concepto.Value + + + + + + + Concepto + + + 1pt + 1pt + 1pt + 1pt + + + 4 + + + + + + + + + true + true + + + + + + + + + + + + Textbox113 + + + 1pt + 1pt + 1pt + 1pt + + + + + + + + true + true + + + + + + + + + + + + Textbox114 + + + 1pt + 1pt + 1pt + 1pt + + + + + + + + true + true + + + + + + + + + + + + Textbox115 + + + 1pt + 1pt + 1pt + 1pt + + + + + + + + 0.07938cm + + + + + true + true + + + + + =Code.IsNewPage(Fields!IdPoliza.Value,nothing,nothing) + + + + + + 1pt + 1pt + 1pt + 1pt + + + + + + + + true + true + + + + + =Fields!UsuarioRegistro.Value + + + + + + 1pt + 1pt + 1pt + 1pt + + + + + + + + true + true + + + + + + + + + + + 1pt + 1pt + 1pt + 1pt + + + + + + + + true + true + + + + + + + + + + + 1pt + 1pt + 1pt + 1pt + + + + + + + + true + true + + + + + + + + + + + 1pt + 1pt + 1pt + 1pt + + + + + + + + true + true + + + + + + + + + + + 1pt + 1pt + 1pt + 1pt + + + + + + + + true + true + + + + + Totales: + + + + + + + Textbox11 + + + + Black + + 1pt + + 1pt + 1pt + 1pt + 1pt + + + + + + + + true + true + + + + + =Sum(Fields!Cargo.Value) + + + + + + + Textbox12 + + + + + + 1pt + 1pt + 1pt + 1pt + en-US + + + + + + + + true + true + + + + + =Sum(Fields!Abono.Value) + + + + + + + Abono + + + + + + 1pt + 1pt + 1pt + 1pt + en-US + + + + + + + + 2.26688cm + + + + + true + true + + + + + Usuario: + + + + + + + + + =Fields!UsuarioRegistro.Value + + + + + + + UsuarioRegistro1 + + + Bottom + 1pt + 1pt + 1pt + 1pt + + + 3 + + + + + + + + true + true + + + + + Revisado Por: + + + + + + + + + + + + + + + + Textbox41 + + + Bottom + 1pt + 1pt + 1pt + 1pt + + + 3 + + + + + + + + true + true + + + + + Autorizado Por: + + + + + + + + + + + + + + + + UsuarioRegistro + + + + + + Bottom + 1pt + 1pt + 1pt + 1pt + + + 3 + + + + + + + + + + + + + + + + + + + + + + + + + + + =Fields!IdPoliza.Value + + + End + true + + + + =Fields!UsuarioRegistro.Value + + + + + + =Fields!Folio.Value + + + + + After + + + After + + + After + + + + + + + + + + Before + + + Before + + + + + + true + DataSet1 + + End + true + + 0.05076cm + 4.1294cm + 19.38789cm + + + + + + true + true + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + 5.6618cm + + + + + + + + + Impreso de póliza del + + + + =Parameters!Finicio.Value + + + + al + + + + =Parameters!FFin.Value + + + + + + + + + =UCase(Parameters!TipoPoliza.Value) + + + + + + + Textbox4 + 2.10635in + 1.6616cm + 9.94376cm + + + 2pt + 2pt + + + + true + true + + + + + ="Página: " & Globals!PageNumber + + + + + + + Textbox35 + 0.26458cm + 16.57041cm + 0.52564cm + 2.8175cm + 1 + + + 2pt + 2pt + 2pt + 2pt + + + + Embedded + logo + FitProportional + 0.15875cm + 1.6616cm + 2.95904cm + 2 + + + + + + + + + + + 0.99437cm + true + true + + + true + true + + + + + Fecha Impresión: + + + + + + + + =Now() + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =UCase(Parameters!TipoPoliza.Value) + + + + # + + + + =Fields!Folio.Value + + + + + + + + + + + + + + + + Textbox8 + 13.15727cm + 0.4cm + 6.86562cm + 1 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Fields!Fecha.Value + + + + + + + + + + + + + + + + Textbox8 + 0.29718cm + 13.15729cm + 0.4cm + 6.86562cm + 2 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 1.25pt + + + + 27.94cm + 21.59cm + 0.5cm + 0.5cm + 0.5cm + 0.5cm + 0.03cm + - - - =Parameters!Direccion.Value - - - - - - 2pt - 2pt - 1pt - 1pt - - - 5 - - - - - - - - - + true true @@ -182,625 +150,7 @@ - - - - - 2pt - 2pt - 1pt - 1pt - - - - - - - - true - true - - - - - Código postal: - - - - - - - Textbox103 - - - 2pt - 2pt - 2pt - 2pt - - - 2 - - - - - - - true - true - - - - - =Parameters!CodigoPostal.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.25in - - - - - true - true - - - - - Reg. Fed.: - - - - =Parameters!RFC.Value - - - - - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - 4 - - - - - - - - - true - true - - - - - Cta. Estatal: - - - - - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - 2 - - - - - - - true - true - - - - - =Parameters!Cta.Value - - - - - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.25in - - - - - true - true - - - - - Fecha - - - - - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Tipo - - - - - - - Textbox19 - - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Número - - - - - - - Textbox20 - - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - - Textbox27 - - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Concepto - - - - - - - Textbox33 - - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - - Textbox39 - - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - - Textbox45 - - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Clase - - - - - - - Textbox51 - - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Diario - @@ -810,58 +160,11 @@ - Textbox65 + Textbox1 - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.25in - - - - - true - true - - - - - No. - - - - - - - Black - - 1pt - 2pt 2pt 2pt @@ -872,33 +175,30 @@ - + true true - Refer. + - - Textbox15 + Textbox2 - - Black - - 1pt - 2pt 2pt 2pt @@ -909,70 +209,30 @@ - + true true - Cuenta + - - Textbox16 + Textbox3 - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Nombre - - - - - - - Black - - 1pt - 2pt 2pt 2pt @@ -992,12 +252,14 @@ - Textbox34 @@ -1005,11 +267,6 @@ - - Black - - 1pt - 2pt 2pt 2pt @@ -1020,898 +277,26 @@ - + true true - Diario + - - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Seg. - - - - - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Cargos - - - - - - - Textbox52 - - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Abonos - - - - - - - Textbox66 - - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.15in - - - - - true - - - - - =Fields!Fecha.Value - - - - Fecha1 - - - - - - 1pt - 1pt - 1pt - 1pt - - - - - - - - true - - - - - =Parameters!TipoPoliza.Value - - - - - - - - - 1pt - 1pt - 1pt - 1pt - - - - - - - - true - true - - - - - =Parameters!Numero.Value - - - - - - - Textbox6 - - - - - - 1pt - 4pt - 1pt - 1pt - - - - - - - - true - true - - - - - =Fields!ConceptoPoliza.Value - - - - - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - 2 - - - - - - - true - true - - - - - - - - - - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.15in - - - - - true - - - - - =RowNumber("Fecha") - - - - - - - Textbox2 - - - 1pt - 1pt - 1pt - 1pt - - - - - - - - true - - - - - =Fields!Referencia.Value - - - - - - 1pt - 1pt - 1pt - 1pt - - - - - - - - true - - - - - =Fields!Codigo.Value - - - - - - 1pt - 1pt - 1pt - 1pt - - - - - - - - true - - - - - =Fields!CodigoCuenta.Value - - - - - - - CodigoCuenta - - - 1pt - 1pt - 1pt - 1pt - - - 2 - - - - - - - true - true - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - - - - - =Fields!Cargo.Value - - - - - - 1pt - 1pt - 1pt - 1pt - - - - - - - - true - - - - - =Fields!Abono.Value - - - - - - 1pt - 1pt - 1pt - 1pt - - - - - - - - 0.15in - - - - - true - true - - - - - - - - - - - 1pt - 1pt - 1pt - 1pt - - - - - - - - true - true - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - - - - - =Fields!Concepto.Value - - - - - - 1pt - 1pt - 1pt - 1pt - - - 2 - - - - - - - true - true - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - @@ -1935,13 +320,14 @@ - Textbox17 @@ -1959,7 +345,7 @@ - + true true @@ -1968,52 +354,17 @@ - - Textbox21 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.2in - - - - - true - true - - - - - - - - - @@ -2028,148 +379,28 @@ - + true true - + ="Folio: " & Fields!Numero.Value - - Textbox11 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Total póliza: - - - - @@ -2184,34 +415,136 @@ + + + + 0.6cm + - + + true true - =Sum(Fields!Cargo.Value) + Concepto: + + + =Fields!ConceptoPoliza.Value + - - Cargo1 + Textbox103 - - Black + 2pt + 2pt + 2pt + 2pt + + + 7 + + + + + + + + + + + + true + true + + + + + Fecha: + + + + =Fields!Fecha.Value + + + + + + + Textbox107 + + + 2pt + 2pt + 2pt + 2pt + + + 2 + + + + + + + 0.6cm + + + + + true + true + + + + + Referencia + + + + + + + Textbox15 + - 1pt - + + LightGrey 2pt 2pt 2pt @@ -2222,23 +555,842 @@ - + + true true - =Sum(Fields!Abono.Value) + Cuenta + + + + + + Textbox16 + + + LightGrey + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Concepto + + + + + + + Textbox28 + + + LightGrey + 2pt + 2pt + 2pt + 2pt + + + 4 + + + + + + + + + true + true + + + + + Sucursal + + + + + + + Textbox46 + + + LightGrey + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Cargos + + + + + + + Textbox52 + + + LightGrey + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Abonos + + + + + + + Textbox66 + + + LightGrey + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.37063cm + + + + + true + + + + + =Fields!Referencia.Value + + + 1pt + 1pt + 1pt + 1pt + + + + + + + + true + + + + + =Fields!CodigoCuenta.Value + + + + + + 1pt + 1pt + 1pt + 1pt + + + + + + + + true + true + + + + + =Fields!NombreCuenta.Value + + + + + + + Cuenta1 + + + 1pt + 1pt + 1pt + 1pt + + + 4 + + + + + + + + + true + true + + + + + =Fields!SegNeg.Value + + + + + + + SegNeg + + + 1pt + 1pt + 1pt + 1pt + + + + + + + + true + + + + + = Fields!Cargo.Value + + + + + + + + =iif(Fields!TipoMovto.Value ="0",False,True) + + + + 1pt + 1pt + 1pt + 1pt + es-MX + + + + + + + + true + + + + + = Fields!Abono.Value + + + + + + + Abono + + =iif(Fields!TipoMovto.Value ="1",False,True) + + + + 1pt + 1pt + 1pt + 1pt + es-MX + + + + + + + + 0.41479cm + + + + + true + true + + + + + + + + + + + 1pt + 1pt + 1pt + 1pt + + + + + + + + true + true + + + + + + + + + + + 1pt + 1pt + 1pt + 1pt + + + + + + + + true + true + + + + + =Fields!Concepto.Value + + + + + + + Concepto + + + 1pt + 1pt + 1pt + 1pt + + + 4 + + + + + + + + + true + true + + + + + + + + + + + + Textbox113 + + + 1pt + 1pt + 1pt + 1pt + + + + + + + + true + true + + + + + + + + + + + + Textbox114 + + + 1pt + 1pt + 1pt + 1pt + + + + + + + + true + true + + + + + + + + + + + + Textbox115 + + + 1pt + 1pt + 1pt + 1pt + + + + + + + + 0.6cm + + + + + true + true + + + + + =Code.IsNewPage(Fields!Id.Value,nothing,nothing) + + + + + + 1pt + 1pt + 1pt + 1pt + + + + + + + + true + true + + + + + =Fields!NombreUsuario.Value + + + + + + 1pt + 1pt + 1pt + 1pt + + + + + + + + true + true + + + + + + + + + + + 1pt + 1pt + 1pt + 1pt + + + + + + + + true + true + + + + + + + + + + + 1pt + 1pt + 1pt + 1pt + + + + + + + + true + true + + + + + + + + + + + 1pt + 1pt + 1pt + 1pt + + + + + + + + true + true + + + + + + + + + + + 1pt + 1pt + 1pt + 1pt + + + + + + + + true + true + + + + + Totales: + + + + + + + Textbox11 @@ -2248,10 +1400,88 @@ 1pt - 2pt - 2pt - 2pt - 2pt + 1pt + 1pt + 1pt + 1pt + + + + + + + + true + true + + + + + =Sum(Fields!Cargo.Value) + + + + + + + Textbox12 + + + + + + 1pt + 1pt + 1pt + 1pt + en-US + + + + + + + + true + true + + + + + =Sum(Fields!Abono.Value) + + + + + + + Abono + + + + + + 1pt + 1pt + 1pt + 1pt + en-US @@ -2276,16 +1506,22 @@ - + - =FormatDateTime(Fields!Fecha.Value, DateFormat.ShortDate) - =Fields!TipoPol.Value + =Fields!Fecha.Value + =Fields!TipoPoliza.Value =Fields!Numero.Value =Fields!ConceptoPoliza.Value - Start + End + true + + + =Fields!NombreUsuario.Value + + @@ -2303,13 +1539,7 @@ After - After - - - After - - - + @@ -2322,27 +1552,57 @@ + true DataSet1 - Start + End + true - 0.02083in - 1.65in - 7.9617in + 0.05076cm + 3.18542cm + 19.38789cm + + true + true + + + + + + + + 2pt + 2pt + 2pt + 2pt + + - 1.65in + 3.59805cm @@ -2368,28 +1629,32 @@ Impreso de póliza del =Parameters!Finicio.Value al =Parameters!FFin.Value @@ -2401,16 +1666,10 @@ - Moneda: + =UCase(Parameters!TipoPoliza.Value) - - - =Parameters!Moneda.Value - @@ -2421,9 +1680,8 @@ Textbox4 - 0.61055cm - 1.8125in - 1.26472cm + 2.10635in + 1.6616cm 9.94376cm - - true - - - - - Hoja: - - - - =Globals!PageNumber - - - - - - - - - Fecha: - - - - =Parameters!Fecha.Value - - - - - - - - - - - - Textbox4 - 0.61055cm - 5.94612in - 0.89872cm - 4.22452cm - 1 - - - - External - = Parameters!pImg.Value + = Parameters!LogoPath.Value FitProportional - 0.19871in - 1.52576cm - 1.54252cm - 1.70215cm - 2 + 0.15875cm + 2.05823cm + 2.34125cm + 1 @@ -2523,44 +1713,79 @@ - 0.23958in + 0.7827cm true true - + true true - Fecha Impresión: + Fecha Impresión: - - =Today - - + + =Now() + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + ="Página: " & Globals!PageNumber + + + + + + + Textbox35 + 0.13103cm + 16.09414cm + 0.52564cm + 3.29375cm + 1 @@ -2576,11 +1801,19 @@ + + + 1.25pt + - 0.19685in - 0.19685in - 0.01181in + 27.94cm + 21.59cm + 0.5cm + 0.5cm + 0.5cm + 0.5cm + 0.03cm