Rep ventas, rep PS filtro Servicio Domicilio

Ventas/RepVentaDetalle.aspx.vb

@@ -120,6 +120,15 @@ Partial Class RepVentaDetalle
             InicializaValores()
             CargaDatos()
             CreaDataTableColor()
+
+            If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
+
+                LblServicioDomicilioFiltro.Visible = True
+                DVServicioDomicilio.Visible = True
+
+            End If
+
+
         End If
     End Sub
 
@@ -192,6 +201,10 @@ Partial Class RepVentaDetalle
         DdlClientes.SelectedValue = CveCliente
         DdlUsuario.SelectedValueExist(CveUsuario)
         DdlGrupo.SelectedValueExist(Grupo)
+
+
+        DdlServicioDomicilio.SelectedValue = If(Request("ServicioDomicilio") IsNot Nothing, Request("ServicioDomicilio").ToString, "-1").ToString
+
         UPFiltros.Update()
 
         txtFechaI.Text = If(Anio <> "-1", String.Format("01/01/{0}", Anio), txtFechaI.Text)
@@ -499,7 +512,8 @@ Partial Class RepVentaDetalle
                                          IVA, Vendedores, DdlUsuario.SelectedValue.ToEntero, Estatus, FechaI, FechaF,
                                          CveCorte.ToEntero, TipoComprobante, DdlSubProyectoEjecucion.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, FechaIEjec, FechaFEjec,
                                          CveProyecto, Sucursales, TipoCambio, TCEspecifico, CveMoneda, CveUsuarioConsulta:=UsuarioActual.CveUsuario, CveClienteClasificacion:=DdlClienteClasificacion.SelectedValue.ToEntero,
-                                         CveCondicionesPago:=CveCondicionesPago, TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero, ModalidadContable:=Not ChkLecturaAdmin.Checked, CveTipoRelacion:=DdlTipoRelacion.SelectedValue.ToEntero()) Then
+                                         CveCondicionesPago:=CveCondicionesPago, TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero, ModalidadContable:=Not ChkLecturaAdmin.Checked, CveTipoRelacion:=DdlTipoRelacion.SelectedValue.ToEntero(),
+                                         ServicioDomicilio:=DdlServicioDomicilio.SelectedValue.ToEntero) Then
             DtVentas = AddRows(ObjVentas.DtResultados)
             ImgImprimir.Enabled = True
             GvDatos.DataSource = AddRows(ObjVentas.DtResultados)