E13. Formato de carta porte en 1 sola hoja

Compras/PopUpVerFactura.aspx.vb

@@ -2047,6 +2047,7 @@ Partial Class PopUpVerFactura
                         For Each parametro As ReportParameter In params
                             retorno.Parametros.Add(New ReportParameter($"SRP_{parametro.Name}", parametro.Values.Item(0)))
                         Next
+                        retorno.Parametros.Add(New ReportParameter($"TieneCartaPorte", "True"))
                     Else
                         retorno.Parametros.AddRange(params)
                     End If
@@ -2690,7 +2691,7 @@ Partial Class PopUpVerFactura
         Dim CveTimbreCartaPorteVenta As Integer = -1
         Dim CartaPorte As Modelos.MSubReportData = Nothing
 
-        If Vta.TipoDocto = "Ing" Then
+        If UsuarioActual.CveEmpresa = 13 AndAlso Vta.TipoDocto = "Ing" Then
             Using ObjGral As New ClsGenerales
                 If ObjGral.GetGralTimbre(-1, "Ing", MinFecha, MaxFecha, 0, UsuarioActual.CveEmpresa, -1, CveVenta:=CveVenta) AndAlso ObjGral.DtResultados.Rows.Count > 0 Then
                     Dim RowCP As DataRow = ObjGral.DtResultados.Rows(0)
@@ -2713,6 +2714,9 @@ Partial Class PopUpVerFactura
                 'CartaPorte.DataSources.Add(New ReportDataSource() With {.Name = "DataSet1", .Value = dt})
 
                 CartaPorte = PreParaImpresionCartaPorte(CveTimbreCartaPorteVenta, AplicaSubReporte:=True)
+            Else
+                CartaPorte = New Modelos.MSubReportData()
+                CartaPorte.Parametros.Add(New ReportParameter($"TieneCartaPorte", "False"))
             End If
         End If