Correciones

Ventas/Ventas.aspx.vb

@@ -2246,12 +2246,12 @@ Partial Class Ventas
 
                     'Modalidad Contrato
                     If Request("CveContrato") IsNot Nothing AndAlso IsNumeric(Request("CveContrato")) AndAlso Request("CveContrato").ToEntero() > 0 AndAlso Request("Tipo") IsNot Nothing AndAlso IsNumeric(Request("Tipo")) AndAlso Request("Tipo").Contiene("0", "1") Then
-                        
+
                         If DdlTipoComprobante.SelectedValue.Contiene("Ped", "PeC") Then
                             TrAlmacenAsignado.Visible = True
                             TrAlmacenOrigen.Visible = True
-
                         End If
+
                         UPCondicionesPago.Visible = False
                         RequiereAlmacenDestino = True
                         CveContrato = Request("CveContrato").ToEntero()
@@ -3292,8 +3292,10 @@ Partial Class Ventas
                     DdlAlmacenAsignado.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoAlmacen:=-1).FiltraParametros($"CveSubProyecto = {DdlSubProyectoDatos.SelectedValue.ToEntero()} {If(DdlTipoComprobante.SelectedValue = "Ped", "", "AND CveTipoAlmacen IN (4,10)")}")
                     DdlAlmacenAsignado.DataBind()
                     DdlAlmacenAsignado.Enabled = True
+
                     TrAlmacenAsignado.Visible = True
                     TrAlmacenOrigen.Visible = True
+
                     TrTipoPedido.Visible = True
                     TrObs.InnerText = "No. Serie"
                     SpObs.InnerText = "Contrato"
@@ -7575,7 +7577,6 @@ Partial Class Ventas
         End If
     End Sub
 
-
     Private Sub CreaObjetosVentaAmortizacion(ObjVentas As ClsVentas, FolioFiscalRelacionado As String, CveAnticipoPadre As Integer,
                                              Optional CveVentasPadre As Integer = -1, Optional NCDescuento As Boolean = False)
         ObjFacturaDevolucion = New Modelos.Factura
@@ -12264,7 +12265,9 @@ Partial Class Ventas
             End If
 
             If UsuarioActual.CveEmpresa.Contiene(1, 72, 80) Then
-                DdlTipoAmortizacionAnticipo.Items.Add(New ListItem("Amortización anticipo sobre factura en cero", "3"))
+                If Not DdlTipoAmortizacionAnticipo.Items.Cast(Of ListItem).Any(Function(x) x.Value = "3") Then
+                    DdlTipoAmortizacionAnticipo.Items.Add(New ListItem("Amortización anticipo sobre factura en cero", "3"))
+                End If
             End If
 
             If UsuarioActual.Empresa.Funcionalidad(343) = "1" Then