0 CyC Impresión de saldo anticipo
This commit is contained in:
rakcsle
@@ -1617,18 +1617,19 @@ Partial Class PopUpVerFactura
|
|||||||
DatosSaldoAntNCDev.FiltroPrimeroValor("Tipo", $"CveVenta={CveVenta}"),
|
DatosSaldoAntNCDev.FiltroPrimeroValor("Tipo", $"CveVenta={CveVenta}"),
|
||||||
DatosSaldoAntNCDev.FiltroPrimeroValor("Tipo", $"CveIE={CveIE}"))
|
DatosSaldoAntNCDev.FiltroPrimeroValor("Tipo", $"CveIE={CveIE}"))
|
||||||
|
|
||||||
Folio = If(CveVenta > 0,
|
|
||||||
DatosSaldoAntNCDev.FiltroPrimeroValor("Folio", $"CveVenta={CveVenta}"),
|
|
||||||
DatosSaldoAntNCDev.FiltroPrimeroValor("Folio", $"CveIE={CveIE}"))
|
|
||||||
|
|
||||||
|
|
||||||
If CveIE > 0 Then
|
If CveIE > 0 Then
|
||||||
CveVenta = DatosSaldoAntNCDev.FiltroPrimeroValor("CveVenta", $"CveIE={CveIE}").ToEntero
|
CveVenta = DatosSaldoAntNCDev.FiltroPrimeroValor("CveVenta", $"CveIE={CveIE}").ToEntero
|
||||||
|
Folio = DatosSaldoAntNCDev.FiltroPrimeroValor("Folio", $"CveIE={CveIE}")
|
||||||
|
Else
|
||||||
|
Folio = DatosSaldoAntNCDev.FiltroPrimeroValor("Folio", $"CveVenta={CveVenta}")
|
||||||
End If
|
End If
|
||||||
|
|
||||||
End If
|
End If
|
||||||
|
|
||||||
If TipoDocto.Contiene("Egs", "Dev", "Ant") Then
|
If TipoDocto.Contiene("Egs", "Dev", "Ant", "NC") Then
|
||||||
Dim AplicaAmortizacion As Boolean = False
|
Dim AplicaAmortizacion As Boolean = False
|
||||||
If TipoDocto.Contiene("Ant") Then AplicaAmortizacion = True
|
If TipoDocto.Contiene("Ant") Then AplicaAmortizacion = True
|
||||||
|
|
||||||
@@ -1648,31 +1649,9 @@ Partial Class PopUpVerFactura
|
|||||||
Dim DbRowVenta = ObjVentas.DtResultados.Copy().FiltroPrimero("")
|
Dim DbRowVenta = ObjVentas.DtResultados.Copy().FiltroPrimero("")
|
||||||
|
|
||||||
If DbRowVenta IsNot Nothing Then
|
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("SerieFolio", DbRowVenta("SerieFolio").ToString))
|
||||||
params.Add(New ReportParameter("Moneda", DbRowVenta("Moneda").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
|
End If
|
||||||
|
|
||||||
@@ -1685,26 +1664,23 @@ Partial Class PopUpVerFactura
|
|||||||
|
|
||||||
|
|
||||||
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
|
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("NombreEmpresa", UsuarioActual.Empresa.Empresa))
|
||||||
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
|
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
|
||||||
params.Add(New ReportParameter("FechaImpresion", NowADS().ToString))
|
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("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("Monto", Monto.ToString))
|
||||||
params.Add(New ReportParameter("Saldo", Saldo.ToString))
|
params.Add(New ReportParameter("Saldo", Saldo.ToString))
|
||||||
|
params.Add(New ReportParameter("Folio", Folio))
|
||||||
|
|
||||||
Dim NombreArchivo As String = "SaldoAntNCDev.rdlc"
|
Dim NombreArchivo As String = "SaldoAntNCDev.rdlc"
|
||||||
|
|
||||||
Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos\{1}", UsuarioActual.Empresa.Ruta, NombreArchivo))
|
Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos\{1}", UsuarioActual.Empresa.Ruta, NombreArchivo))
|
||||||
|
|
||||||
If Archivo.Exists Then
|
If Archivo.Exists Then
|
||||||
ImprimirPDF(Archivo.FullName, DTNCVinculadas, params, "OrdenesdeCompraporvincular ", Opcion)
|
ImprimirPDF(Archivo.FullName, DTNCVinculadas, params, "Aplicaciones", "PDF")
|
||||||
Else
|
Else
|
||||||
ImprimirPDF($"Empresas/Grales/Formatos/{NombreArchivo}", DTNCVinculadas, params, "OrdenesdeCompraporvincular", Opcion)
|
ImprimirPDF($"Empresas/Grales/Formatos/{NombreArchivo}", DTNCVinculadas, params, "Aplicaciones", "PDF")
|
||||||
End If
|
End If
|
||||||
|
|
||||||
End If
|
End If
|
||||||
|
|||||||
@@ -868,6 +868,34 @@ Partial Class Ventas_PVCobranza
|
|||||||
If Not String.IsNullOrEmpty(MsgTimbrado) Then
|
If Not String.IsNullOrEmpty(MsgTimbrado) Then
|
||||||
msBuild.AppendFormat("<br/>{0}<br/>", MsgTimbrado)
|
msBuild.AppendFormat("<br/>{0}<br/>", MsgTimbrado)
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
If respNC IsNot Nothing Then
|
||||||
|
For Each dr As DataRow In respNC.Factura.DtAnticiposAplicados.Rows
|
||||||
|
msBuild.AppendLine($"<br><a class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={Encripta(String.Format("OP=AMORTIZACIONHIS&CVEIE={0}&CVEVENTA={1}&CVECLIENTE={2}&CVEVENTAAMORTIZADA={3}&MONTO={4}&SALDO={5}",
|
||||||
|
dr("CveIE").ToString,
|
||||||
|
dr("CveVenta").ToString,
|
||||||
|
respNC.Factura.CveCliente,
|
||||||
|
respNC.CveVenta,
|
||||||
|
respNC.Factura.Total,
|
||||||
|
(respNC.Factura.Total - respNC.Factura.DtAnticiposAplicados.SUM("Importe"))))}"">Imprimir historial {dr("Folio").ToString}</a><br/>")
|
||||||
|
Next
|
||||||
|
Else
|
||||||
|
For Each dr As DataRow In respFactura.Factura.DtAnticiposAplicados.Rows
|
||||||
|
msBuild.AppendLine($"<br><a class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={Encripta(String.Format("OP=AMORTIZACIONHIS&CVEIE={0}&CVEVENTA={1}&CVECLIENTE={2}&CVEVENTAAMORTIZADA={3}&MONTO={4}&SALDO={5}",
|
||||||
|
dr("CveIE").ToString,
|
||||||
|
dr("CveVenta").ToString,
|
||||||
|
respFactura.Factura.CveCliente,
|
||||||
|
respFactura.CveVenta,
|
||||||
|
respFactura.Factura.Total,
|
||||||
|
(respFactura.Factura.Total - respFactura.Factura.DtAnticiposAplicados.SUM("Importe"))))}"">Imprimir historial {dr("Folio").ToString}</a><br/>")
|
||||||
|
Next
|
||||||
|
End If
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
Else
|
Else
|
||||||
msBuild.Append($"Pago Registrado correctamente.<br/><br/> <a href=""/Compras/PopUpVerFactura.aspx?P={Encripta(String.Format("OP=VTA&CVEVENTA={0}&PAG=1&GUARDAR=1&TICKET=1®ENERAR=1", CveVenta))}"" class='Texto'>Imprimir ticket</a>")
|
msBuild.Append($"Pago Registrado correctamente.<br/><br/> <a href=""/Compras/PopUpVerFactura.aspx?P={Encripta(String.Format("OP=VTA&CVEVENTA={0}&PAG=1&GUARDAR=1&TICKET=1®ENERAR=1", CveVenta))}"" class='Texto'>Imprimir ticket</a>")
|
||||||
End If
|
End If
|
||||||
@@ -1124,7 +1152,7 @@ Partial Class Ventas_PVCobranza
|
|||||||
SbAlert.AppendFormat("<ul><li><a class=""Texto"" href=""/Compras/PopUpVerFactura.aspx?P={0}"">Descargar PDF Factura</a></li></ul><br/>", Encripta(String.Format("OP=VTA&CVEVENTA={0}&PAG=1&GUARDAR=1", Retorno.CveVenta)))
|
SbAlert.AppendFormat("<ul><li><a class=""Texto"" href=""/Compras/PopUpVerFactura.aspx?P={0}"">Descargar PDF Factura</a></li></ul><br/>", Encripta(String.Format("OP=VTA&CVEVENTA={0}&PAG=1&GUARDAR=1", Retorno.CveVenta)))
|
||||||
|
|
||||||
For Each dr As DataRow In DtAnticipos.Rows
|
For Each dr As DataRow In DtAnticipos.Rows
|
||||||
SBAmortizaciones.AppendLine($"<br><a class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={Encripta(String.Format("OP=AMORTIZACIONHIS&CVEIE={0}&CVEVENTA{1}&CVECLIENTE={2}&CVEVENTAAMORTIZADA={3}&MONTO={4}&SALDO={5}",
|
SBAmortizaciones.AppendLine($"<br><a class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={Encripta(String.Format("OP=AMORTIZACIONHIS&CVEIE={0}&CVEVENTA={1}&CVECLIENTE={2}&CVEVENTAAMORTIZADA={3}&MONTO={4}&SALDO={5}",
|
||||||
dr("CveIE").ToString,
|
dr("CveIE").ToString,
|
||||||
dr("CveVenta").ToString,
|
dr("CveVenta").ToString,
|
||||||
Retorno.Factura.CveCliente,
|
Retorno.Factura.CveCliente,
|
||||||
@@ -1191,6 +1219,7 @@ Partial Class Ventas_PVCobranza
|
|||||||
End If
|
End If
|
||||||
|
|
||||||
Return Retorno
|
Return Retorno
|
||||||
|
|
||||||
End Function
|
End Function
|
||||||
|
|
||||||
Private Function ValidateString(texto As String, contenidoValidar As String) As Boolean
|
Private Function ValidateString(texto As String, contenidoValidar As String) As Boolean
|
||||||
|
|||||||
Reference in New Issue
Block a user