Cambios BDH

Compras/PopUpVerFactura.aspx.vb

@@ -4575,6 +4575,7 @@ Partial Class PopUpVerFactura
 
         Dim ModeloAuto As String = RowAjuste("ModeloAuto").ToString
         Dim MarcaAuto As String = RowAjuste("MarcaAuto").ToString
+        Dim CodigoTD As String = RowAjuste("CodigoTD").ToString
 
         Dim MarcaPS As String = ""
         Dim CveMarca As Integer = -1
@@ -4687,6 +4688,7 @@ Partial Class PopUpVerFactura
 
         params.Add(New ReportParameter("Anio", Año))
         params.Add(New ReportParameter("Comprobante", Comprobante))
+        params.Add(New ReportParameter("CodigoTD", CodigoTD))
 
         If Imagen.Exists Then
             params.Add(New ReportParameter("LogoPath", logouri))