AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

-- mejora en código para buscar la ruta del reporte

Browse Source
This commit is contained in:
rrene
2023-05-15 16:31:52 -07:00
parent 01d326ff4e
commit 117c32a48d
2 changed files with 227 additions and 391 deletions
Download Patch File Download Diff File Expand all files Collapse all files

609
Compras/PopUpVerFactura.aspx.vb
View File

File diff suppressed because it is too large Load Diff

9
Contabilidad/PolizasImpresion.aspx.vb
View File

@@ -77,12 +77,7 @@ Partial Class Contabilidad_PolizasImpresion
folf = FolioFin.Text.ToEntero() folf = FolioFin.Text.ToEntero()
End If End If
Dim ArchivoReporte As String = "Empresas/Grales/Formatos/Polizas.rdlc" Dim ArchivoReporte As String = RutaFormatoReporte("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 ObjConta As New ClsContabilidad Dim ObjConta As New ClsContabilidad
If ObjConta.GetPrePolizasImpresion(UsuarioActual.CveEmpresa, TxtFechaInicio.Text.ToDate, TxtFechaFin.Text.ToDate, CveTipoPoliza:=ddlTipoPoliza.SelectedValue.ToEntero, FolioI:=foli, 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, 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("Finicio", TxtFechaInicio.Text))
params.Add(New ReportParameter("FFin", TxtFechaFin.Text)) params.Add(New ReportParameter("FFin", TxtFechaFin.Text))
params.Add(New ReportParameter("Fecha", dr("Fecha").ToString.ToDate.ToShortDateString)) 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("Numero", dr("Folio").ToString))
params.Add(New ReportParameter("Moneda", "")) params.Add(New ReportParameter("Moneda", ""))
params.Add(New ReportParameter("CodigoPostal", "")) params.Add(New ReportParameter("CodigoPostal", ""))