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

0 CyC Impresión de saldo anticipo

Browse Source
This commit is contained in:
rakcsle
2025-01-14 12:31:48 -07:00
parent af90bff689
commit 0d22f97804
2 changed files with 39 additions and 34 deletions
Download Patch File Download Diff File Expand all files Collapse all files

42
Compras/PopUpVerFactura.aspx.vb
View File

@@ -1617,18 +1617,19 @@ Partial Class PopUpVerFactura
DatosSaldoAntNCDev.FiltroPrimeroValor("Tipo", $"CveVenta={CveVenta}"),
DatosSaldoAntNCDev.FiltroPrimeroValor("Tipo", $"CveIE={CveIE}"))
Folio = If(CveVenta > 0,
DatosSaldoAntNCDev.FiltroPrimeroValor("Folio", $"CveVenta={CveVenta}"),
DatosSaldoAntNCDev.FiltroPrimeroValor("Folio", $"CveIE={CveIE}"))
If CveIE > 0 Then
CveVenta = DatosSaldoAntNCDev.FiltroPrimeroValor("CveVenta", $"CveIE={CveIE}").ToEntero
Folio = DatosSaldoAntNCDev.FiltroPrimeroValor("Folio", $"CveIE={CveIE}")
Else
Folio = DatosSaldoAntNCDev.FiltroPrimeroValor("Folio", $"CveVenta={CveVenta}")
End If
End If
If TipoDocto.Contiene("Egs", "Dev", "Ant") Then
If TipoDocto.Contiene("Egs", "Dev", "Ant", "NC") Then
Dim AplicaAmortizacion As Boolean = False
If TipoDocto.Contiene("Ant") Then AplicaAmortizacion = True
@@ -1648,31 +1649,9 @@ Partial Class PopUpVerFactura
Dim DbRowVenta = ObjVentas.DtResultados.Copy().FiltroPrimero("")
If DbRowVenta IsNot Nothing Then
'Dim VentaActual As New Venta(UsuarioActual)
'VentaActual.CveVenta = CveVentaAmortizada
'VentaActual.TipoDocto = DbRowVenta("TipoDocto").ToString
'VentaActual.Fecha = DbRowVenta("Fecha").ToString.ToDate
'VentaActual.CveCliente = DbRowVenta("CveCliente").ToString.ToEntero
'VentaActual.CveMoneda = DbRowVenta("CveMoneda").ToString.ToEntero
'VentaActual.SerieFolio = DbRowVenta("SerieFolio").ToString
'VentaActual.ClienteNombre = DbRowVenta("ClienteNombre").ToString
'VentaActual.TC = DbRowVenta("TipoCambio").ToString.ToDecimal
'VentaActual.Total = DbRowVenta("Total").ToString.ToDecimal
'VentaActual.IVA = DbRowVenta("IVA").ToString.ToDecimal
'VentaActual.IEPS = DbRowVenta("IEPS").ToString.ToDecimal
'VentaActual.RetIVA = DbRowVenta("RetIVA").ToString.ToDecimal
'VentaActual.RetISR = DbRowVenta("RetISR").ToString.ToDecimal
'VentaActual.PorcentajeIVA = DbRowVenta("PorcentajeIVA").ToString.ToDecimal
'VentaActual.UsuarioActual = UsuarioActual
'VentaActual.CveSubProyecto = DbRowVenta("CveSubProyecto").ToString.ToEntero
'VentaActual.CveMoneda = DbRowVenta("CveMoneda").ToString.ToEntero
'VentaActual.SerieFolio = DbRowVenta("SerieFolio").ToString
params.Add(New ReportParameter("SerieFolio", DbRowVenta("SerieFolio").ToString))
params.Add(New ReportParameter("Moneda", DbRowVenta("Moneda").ToString))
params.Add(New ReportParameter("Cliente", DbRowVenta("Cliente").ToString))
params.Add(New ReportParameter("Cliente", DbRowVenta("ClienteNombre").ToString))
End If
@@ -1685,26 +1664,23 @@ Partial Class PopUpVerFactura
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
'params.Add(New ReportParameter("FechaInicio", FechaI))
'params.Add(New ReportParameter("FechaFin", FechaF))
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
params.Add(New ReportParameter("FechaImpresion", NowADS().ToString))
'params.Add(New ReportParameter("AgrupadoPor", $"<b>Agrupado Por:</b> {Grupo}{FechaIn}{FechaFn}"))
params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
params.Add(New ReportParameter("SaldoAntNCDev", SaldoAntNCDev.ToString))
params.Add(New ReportParameter("Monto", Monto.ToString))
params.Add(New ReportParameter("Saldo", Saldo.ToString))
params.Add(New ReportParameter("Folio", Folio))
Dim NombreArchivo As String = "SaldoAntNCDev.rdlc"
Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos\{1}", UsuarioActual.Empresa.Ruta, NombreArchivo))
If Archivo.Exists Then
ImprimirPDF(Archivo.FullName, DTNCVinculadas, params, "OrdenesdeCompraporvincular ", Opcion)
ImprimirPDF(Archivo.FullName, DTNCVinculadas, params, "Aplicaciones", "PDF")
Else
ImprimirPDF($"Empresas/Grales/Formatos/{NombreArchivo}", DTNCVinculadas, params, "OrdenesdeCompraporvincular", Opcion)
ImprimirPDF($"Empresas/Grales/Formatos/{NombreArchivo}", DTNCVinculadas, params, "Aplicaciones", "PDF")
End If
End If