Puntos GDiaz:

--5ta y 6ta revision

Ventas/Ventas.aspx.vb

@@ -3614,6 +3614,10 @@ Partial Class Ventas
 
             End If
 
+            If UsuarioActual.Empresa.CveEmpresa = 189 Then
+                ImgAntiPend.Visible = False
+            End If
+
         End If
 
     End Sub
@@ -5236,6 +5240,15 @@ Partial Class Ventas
                                 DiasCredito = DbRowVenta("DiasCredito").ToString().ToEntero()
                                 EsDiasCreditoFijo = CBool(DbRowVenta("EsDiasCreditoFijo").ToString())
 
+                                If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
+                                    If DbRowVenta("Num2").ToString().ToEntero() = 2000 Then
+                                        ChkRemEspecial.Checked = True
+                                        ChkRemEspecial.Enabled = False
+                                        TxtFech2.Text = DbRowVenta("Fech2").ToString()
+                                        TrRemEspecial.Visible = UsuarioActual.TienePermisoProceso(390)
+                                    End If
+                                End If
+
                                 'If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then
                                 '    Dim TienePermiso As String = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, -1).FiltroPrimeroValor("CveSubProyecto", String.Format("CveSubProyecto = {0}", DbRowVenta("CveSubProyecto")))
                                 '    If TienePermiso <> "" Then ' si tiene acceso en el subproyecto 
@@ -6650,10 +6663,14 @@ Partial Class Ventas
         DdlTipoRelacionARelacionar.Items.Insert(0, New ListItem("-", "-1"))
     End Sub
     Private Sub CargaFormaEntrega()
-        TrFormaEntrega.Visible = True
-        DdlFormaEntrega.DataSource = GlobalDTVtaCondicionesEntrega(UsuarioActual.CveEmpresa)
-        DdlFormaEntrega.DataBind()
-        DdlFormaEntrega.Items.Insert(0, New ListItem("Seleccione", "-1"))
+        If GlobalDTVtaCondicionesEntrega(UsuarioActual.CveEmpresa).Rows.Count > 0 Then
+            TrFormaEntrega.Visible = True
+            DdlFormaEntrega.DataSource = GlobalDTVtaCondicionesEntrega(UsuarioActual.CveEmpresa)
+            DdlFormaEntrega.DataBind()
+            DdlFormaEntrega.Items.Insert(0, New ListItem("Seleccione", "-1"))
+        Else
+            TrFormaEntrega.Visible = False
+        End If
     End Sub
     Private Sub CargaMonedas()
         DdlMoneda.DataSource = GlobalDTMonedas
@@ -12418,6 +12435,15 @@ Partial Class Ventas
             End If
         End If
 
+        'VALOR PARA REMISIONES ESPECIALES
+        If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
+            If ObjFactura.TipoDocto = "Rem" AndAlso ChkRemEspecial.Checked Then
+                ObjFactura.Num2 = 2000
+                'FECHA DE VIGENCIA PARA REMISION ESPECIAL
+                ObjFactura.Fech2 = DateTime.Now.AddDays(1).Date
+            End If
+        End If
+
         If divcondicionespago.Visible Then
             ObjFactura.FechaPago = TxtFechaPago.Text.ToDate
         Else
@@ -18549,6 +18575,10 @@ Partial Class Ventas
             TrAntEspecial.Visible = DdlTipoComprobante.SelectedValue = "Ant"
         End If
 
+        If UsuarioActual.Empresa.Funcionalidad(382) = "1" AndAlso DdlTipoComprobante.SelectedValue = "Rem" Then
+            TrRemEspecial.Visible = UsuarioActual.TienePermisoProceso(390)
+        End If
+
         'REINICIALIZA VALORES DE ENTREGA POR ADELANTADO
         RequiereAlmacenDestino = False
         TrAlmacenAsignado.Visible = False
@@ -18696,6 +18726,7 @@ Partial Class Ventas
             ImgAntiPend.Visible = True
         End If
 
+
         If ImgAntiPend.Visible Then
             If Me.TmpDTAnticiposNCIxCCliente IsNot Nothing Then
                 Dim DtMovtos As DataTable = Me.TmpDTAnticiposNCIxCCliente.FiltraParametros($"Saldo > 0 And SaldoSubtotal > 0  {If(CveVenta < 0, $"AND Tipo IN('NC','RNC','IxC','Ant') ", "")}")