From f6d9d0e8097ef90decc93ecccec50730a4f72741 Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 26 Sep 2024 17:27:57 -0700 Subject: [PATCH] =?UTF-8?q?--=20nombre=20descarga=20vista=20previa=20--=20?= =?UTF-8?q?SMS,=20activaci=C3=B3n=20de=20fecha=20cx,=20en=20cotizaci=C3=B3?= =?UTF-8?q?n?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Ventas/Ventas.aspx.vb | 21 ++++++++++++++++----- 1 file changed, 16 insertions(+), 5 deletions(-) diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index d1c800ec4..64aae4db1 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -16868,7 +16868,18 @@ Partial Class Ventas CartaPorte.Parametros.Add(New ReportParameter($"TieneCartaPorte", "False")) End If - ImprimirbytesPDF(PdfFactura(ObjFactura, Guardar:=False, SubReportData:=CartaPorte), "Factura", "PDF") + Dim tNombreSugerido As String = "Vista Previa - Factura" + Select Case DdlTipoComprobante.SelectedValue + Case "Cot" + tNombreSugerido = "Vista Previa - Cotización" + Case "Egs" + tNombreSugerido = "Vista Previa - Egreso" + Case "Ant" + tNombreSugerido = "Vista Previa - Anticipo" + End Select + tNombreSugerido = tNombreSugerido & " - " & LblSerie.Text & "-" & TxtFolio.Text + + ImprimirbytesPDF(PdfFactura(ObjFactura, Guardar:=False, SubReportData:=CartaPorte), tNombreSugerido, "PDF") End Sub @@ -38493,11 +38504,11 @@ Partial Class Ventas item.Text = $"  {item.Text}" Next - If Opcion <> "Cot" Then - RegistraScript("$('#DvModalTipoVenta').modal({ backdrop: 'static', keyboard: false });") - Else - TrVentasMedicas2.Visible = False + If Opcion = "Cot" Then + 'TrVentasMedicas2.Visible = False TrVentasMedicas3.Visible = False + Else + RegistraScript("$('#DvModalTipoVenta').modal({ backdrop: 'static', keyboard: false });") End If End Sub