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

--fix impresion rep cortes E197

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2024-05-03 18:20:24 -07:00
parent f278f866cf
commit b245f24b3a
1 changed files with 42 additions and 26 deletions
Download Patch File Download Diff File Expand all files Collapse all files

68
Compras/PopUpVerFactura.aspx.vb
View File

@@ -1582,7 +1582,7 @@ Partial Class PopUpVerFactura
End If
End If
If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then
If UsuarioActual.Empresa.Funcionalidad(109) = "1" OrElse UsuarioActual.CveEmpresa = 197 Then
If ObjPuntoVenta.GetVta_ReporteCortes(UsuarioActual.CveEmpresa, MinFecha, MaxFecha, CveSubProyecto, CveCorte:=CveCorte) Then
DtReporteCorte = ObjPuntoVenta.DtResultados.FiltraParametros("CveCorte > 0")
End If
@@ -1610,19 +1610,19 @@ Partial Class PopUpVerFactura
If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then
DtMetodosPago = DtCortesVentasResumen.FiltraParametros("MetodoPago <> 'Crédito'")
End If
Dim DirFormato As String = "Empresas/Grales/Formatos/RepCortes.rdlc"
If File.Exists(UsuarioActual.Empresa.Ruta + "\Formatos\RepCortes.rdlc") Then
Dim DirFormato As String = "Empresas/Grales/Formatos/RepCortes.rdlc"
If File.Exists(UsuarioActual.Empresa.Ruta + "\Formatos\RepCortes.rdlc") Then
DirFormato = UsuarioActual.Empresa.Ruta + "\Formatos\RepCortes.rdlc"
End If
Dim params As New List(Of ReportParameter)
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", ClsPaginas.NowADS().ToString("dd/MM/yyyy hh:mm:ss tt")))
params.Add(New ReportParameter("AgrupoPor", $"{FechaCorte}{Usuario}"))
params.Add(New ReportParameter("LogoPath", RutaImagenLogo))
If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then
If UsuarioActual.Empresa.Funcionalidad(109) = "1" OrElse UsuarioActual.CveEmpresa = 197 Then
If DtReporteCorte IsNot Nothing Then
Dim DtTT = GenerateTransposedTable(DtReporteCorte)
Dim DtDatosVentas As New DataTable()
@@ -1756,32 +1756,48 @@ Partial Class PopUpVerFactura
lrds.Add(rds5)
If UsuarioActual.CveEmpresa = 193 Then
Dim CveCuenta As Integer = 186367
Using ObjConta As New ClsContabilidad
If ObjConta.GetAnexoCatalogo(CveCuenta, Fecha.ToDate(), Fecha.ToDate(), -1, -1, -1, UsuarioActual.CveEmpresa, 1) Then
Dim rdsConta As New ReportDataSource With {.Name = "DsContabilidad", .Value = ObjConta.DtResultados}
lrds.Add(rdsConta)
End If
End Using
If UsuarioActual.CveEmpresa.Contiene(197, 193) Then
Dim CveCuenta As Integer = -1
If UsuarioActual.CveEmpresa = 193 Then
CveCuenta = 186367
Else
CveCuenta = 0
If DtDepositos IsNot Nothing Then
Dim rdsDepositos As New ReportDataSource With {.Name = "DsDepositos", .Value = DtDepositos}
If CveSubProyecto = 12756 Then 'nav
CveCuenta = 188796
End If
If CveSubProyecto = 12755 Then 'hillo
CveCuenta = 188795
End If
End If
If CveCuenta >= 0 Then
Using ObjConta As New ClsContabilidad
If ObjConta.GetAnexoCatalogo(CveCuenta, Fecha.ToDate(), Fecha.ToDate(), -1, -1, -1, UsuarioActual.CveEmpresa, 1) Then
Dim rdsConta As New ReportDataSource With {.Name = "DsContabilidad", .Value = ObjConta.DtResultados}
lrds.Add(rdsConta)
End If
End Using
End If
If DtDepositos IsNot Nothing Then
Dim rdsDepositos As New ReportDataSource With {.Name = "DsDepositos", .Value = DtDepositos}
lrds.Add(rdsDepositos)
End If
End If
End If
'params.Add(New ReportParameter("VentasCorte", RowCorte("VentasCorte").ToString()))
'params.Add(New ReportParameter("NotasCredito", RowCorte("NotasCredito").ToString()))
'params.Add(New ReportParameter("NotasCredito", RowCorte("NotasCredito").ToString()))
'params.Add(New ReportParameter("VentasCredito", RowCorte("VentasCorte").ToString()))
'params.Add(New ReportParameter("VentasCorte", RowCorte("VentasCorte").ToString()))
'params.Add(New ReportParameter("VentasCorte", RowCorte("VentasCorte").ToString()))
End If
End If
'params.Add(New ReportParameter("VentasCorte", RowCorte("VentasCorte").ToString()))
'params.Add(New ReportParameter("NotasCredito", RowCorte("NotasCredito").ToString()))
'params.Add(New ReportParameter("NotasCredito", RowCorte("NotasCredito").ToString()))
'params.Add(New ReportParameter("VentasCredito", RowCorte("VentasCorte").ToString()))
'params.Add(New ReportParameter("VentasCorte", RowCorte("VentasCorte").ToString()))
'params.Add(New ReportParameter("VentasCorte", RowCorte("VentasCorte").ToString()))
End If
End If
Dim rds As New ReportDataSource With {.Name = "DataSet1", .Value = DtMetodosPago}
Dim rds As New ReportDataSource With {.Name = "DataSet1", .Value = DtMetodosPago}
lrds.Add(rds)
Dim rds2 As New ReportDataSource With {.Name = "DataSet2", .Value = DtCortesVentas}
lrds.Add(rds2)
@@ -6277,7 +6293,7 @@ Partial Class PopUpVerFactura
DtPrecios.Columns.Add(New DataColumn("CBBase64", GetType(String)))
For Each Row As DataRow In DtPrecios.Rows
Row("CBBase64") = system.Convert.ToBase64String(GeneraCodigoQR(Row("CodigoBarras").ToString(), 40, 150, 0, "CODE_39", True))
Row("CBBase64") = System.Convert.ToBase64String(GeneraCodigoQR(Row("CodigoBarras").ToString(), 40, 150, 0, "CODE_39", True))
Next
Dim DirectorioArchivo As String = "Empresas/Grales/Formatos/Etiqueta.mrt"