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

--FIX impresion corte

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2025-05-07 15:02:18 -07:00
parent a8b02dd738
commit 8cd026e63d
1 changed files with 5 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
Compras/PopUpVerFactura.aspx.vb
View File

@@ -1736,11 +1736,13 @@ Partial Class PopUpVerFactura
Dim OpcionDetallado As Integer = 1 Dim OpcionDetallado As Integer = 1
If UsuarioActual.Empresa.Funcionalidad(109) = "1" OrElse UsuarioActual.CveEmpresa.Contiene(197, 189) Then OpcionDetallado = 2 If UsuarioActual.Empresa.Funcionalidad(109) = "1" OrElse UsuarioActual.CveEmpresa.Contiene(197, 189) Then OpcionDetallado = 2
If CveCorte > 0 AndAlso (FechaConsulta = ModExtensiones.MaxFecha OrElse CveSubProyecto <= 0) Then If CveCorte > 0 Then
Using ObjVta As New ClsPuntoVenta Using ObjVta As New ClsPuntoVenta
If ObjVta.GetVta_Cortes("-1", "-1", -1, CveCorte, UsuarioActual.CveEmpresa, -1) AndAlso ObjVta.DtResultados.Rows.Count > 0 Then If ObjVta.GetVta_Cortes("-1", "-1", -1, CveCorte, UsuarioActual.CveEmpresa, -1) AndAlso ObjVta.DtResultados.Rows.Count > 0 Then
FechaConsulta = ObjVta.DtResultados.FiltroPrimeroValor("FechaInicial").ToString().ToDate().Date If (FechaConsulta = ModExtensiones.MaxFecha OrElse CveSubProyecto <= 0) Then
CveSubProyecto = ObjVta.DtResultados.FiltroPrimeroValor("CveSubProyecto").ToEntero() FechaConsulta = ObjVta.DtResultados.FiltroPrimeroValor("FechaInicial").ToString().ToDate().Date
CveSubProyecto = ObjVta.DtResultados.FiltroPrimeroValor("CveSubProyecto").ToEntero()
End If
Nombre = ObjVta.DtResultados.FiltroPrimeroValor("UsuarioNombre").ToString Nombre = ObjVta.DtResultados.FiltroPrimeroValor("UsuarioNombre").ToString
End If End If
End Using End Using