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

24
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
@@ -1622,7 +1622,7 @@ Partial Class PopUpVerFactura
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,14 +1756,30 @@ Partial Class PopUpVerFactura
lrds.Add(rds5)
If UsuarioActual.CveEmpresa.Contiene(197, 193) Then
Dim CveCuenta As Integer = -1
If UsuarioActual.CveEmpresa = 193 Then
Dim CveCuenta As Integer = 186367
CveCuenta = 186367
Else
CveCuenta = 0
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}
@@ -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"