Ferretera.

--Impresion directa de facturas y cotizaciones a credito
--Condiciones de entrega e impresion para entrega a domicilio en cajas

Ventas/PVCobranza.aspx.vb

@@ -220,8 +220,13 @@ Partial Class Ventas_PVCobranza
         If e.Row.RowType = DataControlRowType.DataRow Then
 
             If e.Row.DBCampo("CveUsuarioCobranza") <> "" Then
-                e.Row.BackColor = Drawing.ColorTranslator.FromHtml("#3598dc")
-                'e.Row.CssClass = "blue-madison"
+                e.Row.BackColor = Drawing.ColorTranslator.FromHtml("#3598dc")
+                'e.Row.CssClass = "blue-madison"
+            End If
+
+            If e.Row.DBCampo("CveCondicionEntrega").ToEntero() = 9 Then
+                e.Row.FCLinkButton("LnkImprimir").Visible = True
+                ScriptManager.GetCurrent(Me).RegisterPostBackControl(e.Row.FCLinkButton("LnkImprimir"))
             End If
         End If
     End Sub
@@ -598,4 +603,14 @@ Partial Class Ventas_PVCobranza
         End If
         ObjVentas.Dispose()
     End Sub
+    Protected Sub LnkImprimir_Click(sender As Object, e As EventArgs)
+        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
+
+        Dim CveVenta As Integer = GvRow.DataKey("CveVenta").ToEntero()
+
+        If CveVenta > 0 Then
+            ImpresionDirectaPDF(CveVenta)
+        End If
+
+    End Sub
 End Class