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()
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", ""))