--actualiza remisión especial

Ventas/Ventas.aspx

@@ -870,7 +870,7 @@
                             <td>
                                 <asp:UpdatePanel ID="UpRemEspecial" runat="server" UpdateMode="Conditional">
                                     <ContentTemplate>
-                                        <asp:CheckBox ID="ChkRemEspecial" runat="server" />
+                                        <asp:CheckBox ID="ChkRemEspecial" runat="server" AutoPostBack="true" OnCheckedChanged="ChkRemEspecial_CheckedChanged" />
                                     </ContentTemplate>
                                 </asp:UpdatePanel>
                             </td>

Ventas/Ventas.aspx.vb

@@ -5245,24 +5245,17 @@ Partial Class Ventas
                                 EsDiasCreditoFijo = CBool(DbRowVenta("EsDiasCreditoFijo").ToString())
 
                                 If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
-                                    If DbRowVenta("Num2").ToString().ToEntero() = 2000 Then
+                                    If DbRowVenta("Num2").ToString = "2000" Then
                                         ChkRemEspecial.Checked = True
                                         ChkRemEspecial.Enabled = False
                                         TxtFech2.Text = DbRowVenta("Fech2").ToString()
-                                        TrRemEspecial.Visible = UsuarioActual.TienePermisoProceso(390)
+                                    End If
+                                    If UsuarioActual.TienePermisoProceso(390) Then
+                                        TrRemEspecial.Visible = True
+                                        ChkRemEspecial.Enabled = True
                                     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 
-                                '        'LkNotaCredito.Visible = UsuarioActual.TienePermisoProceso(175)
-                                '        If UsuarioActual.TienePermisoProceso(264) Then
-                                '            InicializaAplicaRNCDevolucion(TmpDT)
-                                '        End If
-                                '    End If
-                                'End If
-
                             Case "RNC"
                                 Trsaldo.Visible = True
                                 HplSaldoAuxiliar.NavigateUrl = String.Format("/Contabilidad/PopUpAuxiliar.aspx?Tipo=CxCClientes&CveCliente={0}&CveVenta={1}&TB_iframe=true&height=550&width=920", DbRowVenta("CveCliente"), DbRowVenta("CveVenta"))
@@ -39788,5 +39781,13 @@ Partial Class Ventas
     '    End Sub
     'End Class
 
+
+    Protected Sub ChkRemEspecial_CheckedChanged(sender As Object, e As EventArgs)
+        Dim objV As New ClsVentas
+        If objV.UpdateVentaRemisionEspecial(CveVenta, If(ChkRemEspecial.Checked, 2000, 0), Now.AddDays(7), UsuarioActual.CveEmpresa) Then
+            Alert("Se aplicó el cambio", TipoMensaje.ToastInformacion)
+        End If
+        objV.Dispose()
+    End Sub
 End Class