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

Browse Source
This commit is contained in:
JORGE LUIS CAUDILLO ESPARZA
2021-02-25 20:33:44 -07:00
parent 6d7f64f1ec
commit fd45f7a5b7
1387 changed files with 1800 additions and 194860 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
Contabilidad2/RepAnexoCatalogoMensualHorizontal.aspx.vb
View File

@@ -270,19 +270,19 @@ Partial Class Contabilidad_RepAnexoCatalogoMensualHorizontal
End If
End Sub
Protected Sub LnkImprimir_Click(sender As Object, e As EventArgs) Handles LnkImprimir.Click
If Not IsNothing(DtDatos) Then
ImprimirReporte()
End If
End Sub
'Protected Sub LnkImprimir_Click(sender As Object, e As EventArgs) Handles LnkImprimir.Click
' If Not IsNothing(DtDatos) Then
' ImprimirReporte()
' End If
'End Sub
Protected Sub LnkExcel_Click(sender As Object, e As EventArgs) Handles LnkExcel.Click
If Not IsNothing(DtDatos) Then
ImprimirReporte("Excel")
'GvDatos.ExportToExcelG("AnexoCatalogo" & Now.ToShortDateString & ".xlsx")
'GvDatos.ExportToExcelG("ExistenciasHorizontal.xlsx", "Anexo Catalogo", UsuarioActual, "".ToString, 100, 200)
End If
End Sub
'Protected Sub LnkExcel_Click(sender As Object, e As EventArgs) Handles LnkExcel.Click
' If Not IsNothing(DtDatos) Then
' ImprimirReporte("Excel")
' 'GvDatos.ExportToExcelG("AnexoCatalogo" & Now.ToShortDateString & ".xlsx")
' 'GvDatos.ExportToExcelG("ExistenciasHorizontal.xlsx", "Anexo Catalogo", UsuarioActual, "".ToString, 100, 200)
' End If
'End Sub
Private Sub ImprimirReporte(Optional Formato As String = "PDF")
'ubicacion del rdlc
Dim reportpath As String = "Contabilidad/Reportes/RepAnexoCatalogo.rdlc"