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

Ventas/Ventas.aspx.vb

@@ -7214,10 +7214,14 @@ Partial Class Ventas
                 If Opcion = "Cot" Then
                     DdlTipoComprobante.SelectedValueExist("Cot")
                 Else
-                    If Not String.IsNullOrEmpty(UsuarioActual.CveTipoDocumento) Then
-                        DdlTipoComprobante.SelectedValueExist(UsuarioActual.CveTipoDocumento)
-                        DdlTipoComprobante_SelectedIndexChanged(DdlTipoComprobante, Nothing)
+                    'SI ES REFACTURACION NO DEBE CAMBIAR EL TIPÖ DOCTO
+                    If Not (Request("NuevaFactura") IsNot Nothing AndAlso Request("NuevaFactura").ToString() = "1") Then
+                        If Not String.IsNullOrEmpty(UsuarioActual.CveTipoDocumento) Then
+                            DdlTipoComprobante.SelectedValueExist(UsuarioActual.CveTipoDocumento)
+                            DdlTipoComprobante_SelectedIndexChanged(DdlTipoComprobante, Nothing)
+                        End If
                     End If
+
                 End If
             End If
         End If
@@ -32174,8 +32178,12 @@ Partial Class Ventas
                 HdnIVAOriginal.Value = TxtIVA.Text
             End If
 
-            RBLPago.Items(0).Enabled = True 'sino está activo lo activamos porque las remisiones pueden ser a crédito
-            RBLPago.SelectedValue = "1"
+            If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then
+                RBLPago.SelectedValuesIfExist(dtSeleccionadas.FiltroPrimeroValor("CondicionesPago"))
+            Else
+                RBLPago.Items(0).Enabled = True 'sino está activo lo activamos porque las remisiones pueden ser a crédito
+                RBLPago.SelectedValue = "1"
+            End If
 
             RemisionesLista.Clear()