Merge branch 'master' of http://oirigoyen@192.168.10.111:8383/SIG.git

Compras/Compras.aspx.vb

@@ -9825,7 +9825,7 @@ Partial Class Compras_Compras
         Dim ObjInventario As New ClsInventarios(ObjCompra.IniciaTransacSQL)
         Dim ObjContabilidad As New ClsContabilidad(ObjCompra.IniciaTransacSQL)
         Dim ObjAF As New ClsAF(ObjCompra.IniciaTransacSQL)
-        Dim ObjContaAC As ClsContPAQi = New ClsContPAQi(UsuarioActual.Empresa)
+        Dim ObjContaAC As ClsContPAQi  '= New ClsContPAQi(UsuarioActual.Empresa)
 
         Dim Retorno As Boolean = True
         Dim CveEstatusFactura As Integer = HdnCveEstatusFactura.Value.ToEntero

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))