Ferretera.

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

Sistemas/CatSesiones.aspx

@@ -66,6 +66,7 @@
         <asp:ListItem Text="GlobalDTVendedoresOld" Value="GlobalDTVendedoresOld"></asp:ListItem> 
         <asp:ListItem Text="GlobalDTAC" Value="GlobalDTAC"></asp:ListItem> 
         <asp:ListItem Text="GlobalDTSATUsosCFDI" Value="GlobalDTSATUsosCFDI"></asp:ListItem> 
+        <asp:ListItem Text="GlobalDTVtaCondicionesEntrega" Value="GlobalDTVtaCondicionesEntrega"></asp:ListItem> 
        
 
     </asp:DropDownList>&nbsp;&nbsp; 

Sistemas/CatSesiones.aspx.vb

@@ -109,7 +109,8 @@ Partial Class Sistemas_CatSesiones
             cargaAC()
         ElseIf DdlVariable.SelectedItem.Value = "GlobalDTSATUsosCFDI" Then
             CargaUsosCFDI()
-
+        ElseIf DdlVariable.SelectedItem.Value = "GlobalDTVtaCondicionesEntrega" Then
+            CargaCondicionesEntrega()
         End If
 
 
@@ -289,7 +290,9 @@ Partial Class Sistemas_CatSesiones
 
         'Fin Carga Usuarios
     End Sub
-
+    Private Sub CargaCondicionesEntrega()
+        GlobalDTVtaCondicionesEntrega(UsuarioActual.CveEmpresa) = Nothing
+    End Sub
 
     Private Sub CargaProductosServiciosSimplificado()
         GlobalDTPSSimplificado(UsuarioActual.CveEmpresa) = Nothing

Ventas/PVCobranza.aspx

@@ -300,6 +300,10 @@
                             <asp:BoundField HeaderText="Importe" DataField="Saldo" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
                             <asp:TemplateField HeaderText="" ItemStyle-HorizontalAlign="Right">
                                 <ItemTemplate>
+                                    <asp:LinkButton ID="LnkImprimir" runat="server" AlternateText="Imprimir ticket"
+                                                    CssClass="btn btn-circle btn-sm blue" Text="<i class='fa fa-print'></i>" ToolTip="Imprimir"
+                                                    OnClick="LnkImprimir_Click" Visible="false" />
+                                    &nbsp;
                                     <asp:LinkButton ID="BtnPagar" runat="server" CssClass="btn btn-xs btn-success" Text="Cobrar" CommandName="Cobrar" CommandArgument='<%# Eval("CveVenta") %>' />
                                 </ItemTemplate>
                             </asp:TemplateField>

Ventas/PVCobranza.aspx.vb

@@ -223,6 +223,11 @@ Partial Class Ventas_PVCobranza
                 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

Ventas/Ventas.aspx.vb

@@ -2644,7 +2644,10 @@ Partial Class Ventas
             CargaMonedas()
             CargaVendedores()
             CargarAlmacenes()
-            'CargaFormaEntrega()
+            If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then
+                CargaFormaEntrega()
+            End If
+
             CargaCuentasTerminal()
             'CargaDdlNCPS()
             'CargarCamiones()
@@ -4972,6 +4975,11 @@ Partial Class Ventas
 
             ViewState("CveSubProyectoVenta") = DbRowVenta("CveSubProyecto").ToString().ToEntero()
 
+            If DbRowVenta("CveCondicionEntrega").ToString().ToEntero() > 0 Then
+                DdlFormaEntrega.SelectedValueExist(DbRowVenta("CveCondicionEntrega").ToString())
+                DdlFormaEntrega.Enabled = False
+            End If
+
             Me.CveEstatusFacturaPadre = DbRowVenta("CveEstatusFacturaPadre").ToString().ToEntero()
 
             If UsuarioActual.Empresa.Funcionalidad(705) = "1" Then
@@ -10914,6 +10922,12 @@ Partial Class Ventas
                         MensajeAlert.Clear()
 
                         Try
+                            If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then
+                                If ObjFactura.TipoDocto.Contiene("Ing", "Cot") AndAlso ObjFactura.CondicionesPago = 1 Then
+                                    ImpresionDirectaPDF()
+                                End If
+                            End If
+
                             'LIMPIA CONDICIONES DE PAGO - CONTADO
                             RBLPago.SelectedValue = "1"
                             LimpiaEscondeContado()
@@ -10923,10 +10937,6 @@ Partial Class Ventas
                             OnError("Ocurrió un error al limpiar los datos", ex)
                         End Try
 
-                        'If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then
-                        '    ImpresionDirectaPDF()
-                        'End If
-
                     Else
                         ObjVentas.RollBack()