Merge branch 'master' of http://192.168.10.111:8383/SIG

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()
 
@@ -37767,7 +37777,7 @@ Partial Class Ventas
     End Sub
 
     Private Sub RecalculaPrecios()
-        If TmpDT IsNot Nothing Then
+        If TmpDT IsNot Nothing AndAlso (CveVenta <= 0 OrElse EsCreaApartirDe OrElse ModalidadEdicion) Then
             For Each Row As DataRow In TmpDT.Rows
                 Dim Cantidad As Decimal = Row("Cantidad").ToString().ToDecimal()
                 Dim CveClasificacion As Integer = Row("CveClasificacion").ToString().ToEntero