Correcion en validaciones y servicio a domicilio

Ventas/PV.aspx

@@ -494,7 +494,7 @@
                         <tr align="left" id="TrServicioDomicilio" runat="server" visible="false">
                             <td><b>Servicio a Domicilio:</b>&nbsp;</td>
                             <td>
-                                <asp:CheckBox ID="ChkServicioDomicilio" runat="server" CssClass="make-switchsd" data-size="small" Text="" ClientIDMode="Static" />
+                                <asp:CheckBox ID="ChkServicioDomicilio" runat="server" AutoPostBack="true" OnCheckedChanged="ChkServicioDomicilio_CheckedChanged" />
                             </td>
                         </tr>
                     </table>
@@ -928,7 +928,7 @@
                                             </div>
                                             <div class=" col-sm-8">
                                                 <div class="Widthall" style="overflow-x: auto;">
-                                                    <asp:GridView ID="GvInv" runat="server" AutoGenerateColumns="false" DataKeyNames="Origen,CvePS" EmptyDataText="Aun no hay registros." ShowHeaderWhenEmpty="True" Width="100%" HeaderStyle-CssClass="Titulos" CssClass="table table-striped  table-hover" Style="text-align: center;" GridLines="None">
+                                                    <asp:GridView ID="GvInv" runat="server" AutoGenerateColumns="false" DataKeyNames="Consec,Origen,CodigoPS,CvePS,Serie,AplicaSerie" EmptyDataText="Aun no hay registros." ShowHeaderWhenEmpty="True" Width="100%" HeaderStyle-CssClass="Titulos" CssClass="table table-striped  table-hover" Style="text-align: center;" GridLines="None">
                                                         <Columns>
                                                             <asp:TemplateField>
                                                                 <ItemTemplate>
@@ -2790,21 +2790,22 @@
                                                                     <div class="col-md-4">
                                                                         <label>Año:</label>
                                                                         <br />
-                                                                        <asp:TextBox ID="TxtAnioVehiculo" type="number" runat="server" Height="100%" Width="100%" CssClass="form-control" CausesValidation="true"></asp:TextBox>
+                                                                        <asp:TextBox ID="TxtAnioVehiculo" type="number" runat="server" Height="100%" Width="100%" CssClass="form-control" ></asp:TextBox>
+                                                                        <asp:CustomValidator ID="CVAnio" runat="server" ClientValidationFunction="ValidaAnioVehiculo" ValidateEmptyText="true" ControlToValidate="TxtAnioVehiculo" Display="Dynamic" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Año''</b> es necesario, por favor ingréselo." ValidationGroup="GrpAddVenta"></asp:CustomValidator>
                                                                     </div>
                                                                 </div>
                                                                 <div class="row">
                                                                     <div class="col-md-6">
                                                                         <label>Usado:</label>
                                                                         <br />
-                                                                        <asp:DropDownList ID="DdlRecepcionUsados" CssClass="form-control input-sm select2me" runat="server" CausesValidation="true" DataTextField="CodigoPS" DataValueField="CvePSCargo" Width="100%" OnSelectedIndexChanged="DdlRecepcionUsados_SelectedIndexChanged" AutoPostBack="true">
+                                                                        <asp:DropDownList ID="DdlRecepcionUsados" CssClass="form-control input-sm select2me" runat="server" DataTextField="CodigoPS" DataValueField="CvePSCargo" Width="100%" OnSelectedIndexChanged="DdlRecepcionUsados_SelectedIndexChanged" AutoPostBack="true">
                                                                         </asp:DropDownList>
                                                                     </div>
                                                                     <div class="col-md-6">
                                                                         <label>BCI:</label>
                                                                         <br />
                                                                         <asp:DropDownList ID="DdlBCIUsado" CssClass="form-control input-sm select2me" runat="server" CausesValidation="true" DataTextField="BCI" DataValueField="CveBCIUsado" Width="100%">
-                                                                        </asp:DropDownList>
+                                                                        </asp:DropDownList>                                                                        
                                                                     </div>
                                                                 </div>
                                                                 <div class="row">
@@ -2813,6 +2814,7 @@
                                                                             <asp:DropDownList ID="DdlMarcaUsado" CssClass="form-control input-sm select2me" runat="server" DataTextField="Marca" DataValueField="CveMarcaUsado" Width="100%">
                                                                                 <asp:ListItem Selected="True" Text="Seleccione la Marca" Value="-1"></asp:ListItem>
                                                                             </asp:DropDownList>
+                                                                            <asp:CustomValidator ID="RFVMarcaUsado" runat="server" ClientValidationFunction="ValidaMarcaUsado" ControlToValidate="DdlMarcaUsado" Display="Dynamic" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Marca''</b> es necesario, por favor ingréselo." ValidationGroup="GrpAddVenta"></asp:CustomValidator>
                                                                             <label for="<%= DdlMarcaUsado.ClientID.ToString()%>">Marca:</label>
                                                                         </div>
                                                                     </div>
@@ -2969,6 +2971,8 @@
                                                                     <asp:DropDownList ID="DdlBCIAjuste" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" CausesValidation="true" DataTextField="BCI" DataValueField="CveBCIUsado" Width="100%" AutoPostBack="true">
                                                                     </asp:DropDownList>
                                                                     <label for="<%= DdlBCIAjuste.ClientID.ToString()%>">BCI:</label>
+                                                                    <asp:RequiredFieldValidator ID="RFVBCIAjuste" runat="server" ControlToValidate="DdlBCIAjuste" InitialValue="-1"  Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''BCI''</b> es necesario, por favor ingréselo." ValidationGroup="GrpAddVenta"></asp:RequiredFieldValidator>
+                                                                    <ajax:ValidatorCalloutExtender ID="VCEBCIAjuste" runat="server" HighlightCssClass="vco" TargetControlID="RFVBCIAjuste" Width="300px"></ajax:ValidatorCalloutExtender>
                                                                 </div>
                                                             </div>
                                                             <div class="col-md-6">
@@ -3135,8 +3139,7 @@
                             <div class="modal-footer">
                                 <asp:UpdatePanel ID="UpAgregar" runat="server" UpdateMode="Conditional">
                                     <ContentTemplate>
-                                        <%--                                        <asp:Button ID="BtnCalculaMesesUso" Text="" OnClick="BtnCalculaMesesUso_Click" ClientIDMode="Static" Style="display: none;" runat="server" />--%>
+                                        <asp:Button ID="LnkAgregarPS" OnClick="LnkAgregarPS_Click" runat="server" CssClass="btn btn-primary" Text="Agregar" ValidationGroup="GrpAddVenta" />
-                                        <asp:Button ClientIDMode="Static" ID="LnkAgregarPS" OnClick="LnkAgregarPS_Click" runat="server" CssClass="btn btn-primary" Text="Agregar" ValidationGroup="GrpAddVenta" UseSubmitBehavior="false" />
                                         <button type="button" class="btn btn-default" data-dismiss="modal">Cancelar</button>
                                     </ContentTemplate>
                                 </asp:UpdatePanel>
@@ -3176,6 +3179,26 @@
             }
         });
 
+        function ValidaMarcaUsado(val, args) {
+            //VALIDA SOLO SI SE SELECCIONO UN USADO
+            var cveUsado = ToDouble($get("C_DdlRecepcionUsados").value);
+            if (cveUsado > 0) {
+                args.IsValid = (ToDouble(args.Value) > 0);
+            } else {
+                args.IsValid = true;
+            }
+        }
+
+        function ValidaAnioVehiculo(val, args) {
+            //VALIDA SOLO SI SE SELECCIONO UN USADO
+            var cveUsado = ToDouble($get("C_DdlRecepcionUsados").value);
+            if (cveUsado > 0) {
+                args.IsValid = (ToDouble(args.Value) > 0);
+            } else {
+                args.IsValid = true;
+            }
+        }
+
         function ValidarCodigoEnsamble(source, arguments) {
             let CveMarca = HdnPSAjusteMarca.value;
             let CveClasificacion = HdnPSAjusteClasificacion.value;

Ventas/PV.aspx.vb

@@ -3067,7 +3067,7 @@ Partial Class PV
         If e.Row.RowType = DataControlRowType.DataRow Then
 
             'SERIE ALMACEN
-            If e.Row.DBCampo("CveTipoInvPS").ToEntero = 5 Then
+            If e.Row.DBCampo("CveTipoInvPS").ToEntero = 5 OrElse CBool(e.Row.DBCampo("AplicaSerie")) Then
                 If CveVenta > 0 Then
                     e.Row.FCLiteral("LtlSerie").Visible = True
                 Else
@@ -3198,6 +3198,27 @@ Partial Class PV
             Exit Sub
         End If
 
+        If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso ChkServicioDomicilio.Checked AndAlso ddlAlmacen.SelectedValue.ToEntero() <= 0 Then
+            Alert("Debe seleccionar un almacen de servicio a domicilio.", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
+
+        If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso ChkServicioDomicilio.Checked AndAlso GvInv.Rows.Cast(Of GridViewRow)().Count(Function(gvr) gvr.FCCheckBox("cbInv").Checked) <= 0 Then
+            Alert("Debe tener producto seleccionados para servicio a domicilio.", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
+
+        If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso ChkServicioDomicilio.Checked AndAlso GvInv.Rows.Cast(Of GridViewRow)().Count(Function(gvr) gvr.FCCheckBox("cbInv").Checked) > 0 Then
+            For Each GvRow As GridViewRow In GvInv.Rows
+                If GvRow.RowType = DataControlRowType.DataRow Then
+                    If String.IsNullOrEmpty(GvRow.FCTextBox("TxtSerie").Text.Trim) AndAlso CBool(GvRow.DataKey("AplicaSerie")) Then
+                        Alert(String.Format("El producto {0} requiere serie.", GvRow.DataKey("CodigoPS")), TipoMensaje.MsgAdvertencia)
+                        Exit Sub
+                    End If
+                End If
+            Next
+        End If
+
         'VALIDA PRECIO AL AGREGAR A ALMACEN
         If Not UsuarioActual.TienePermisoProceso(169) Then
             If Not CveContrato > 0 Then
@@ -3463,255 +3484,274 @@ Partial Class PV
 #Region "OBJETO VENTA"
 
     Private Sub CreaObjetosVenta(Optional VistaPrevia As Boolean = False)
-
+        Try
-        If Me.CveVenta > 0 Then
+            If Me.CveVenta > 0 Then
-            ObjFactura = New Modelos.Factura(UsuarioActual, CveVenta, UsuarioActual.CveEmpresa, EsCancelacion:=False)
+                ObjFactura = New Modelos.Factura(UsuarioActual, CveVenta, UsuarioActual.CveEmpresa, EsCancelacion:=False)
-        Else
+            Else
-            ObjFactura = New Modelos.Factura(UsuarioActual)
+                ObjFactura = New Modelos.Factura(UsuarioActual)
-            ObjFactura.CvePrePoliza = -1
+                ObjFactura.CvePrePoliza = -1
-        End If
-
-        ObjFactura.CveUsuario = UsuarioActual.CveUsuario
-        ObjFactura.CveEmpresa = UsuarioActual.CveEmpresa
-        ObjFactura.TipoCambio = TxtTipoCambio.Text.Trim.ToDecimal
-        ObjFactura.TipoCambioDolares = TxtTipoCambioDlls.Text.Trim.ToDecimal
-        ObjFactura.ConvertirPesos = ChkConvertirDoctoPesos.Checked
-        ObjFactura.ConvertirDolares = ChkConvertirDolares.Checked
-        ObjFactura.CveMoneda = DdlMoneda.SelectedValue.ToEntero
-        ObjFactura.Moneda = DdlMoneda.SelectedItem.Text
-        ObjFactura.MonedaSAT = GlobalDTMonedas.FiltroPrimeroValor("AbreviaturaSAT", $"CveMoneda = {DdlMoneda.SelectedValue}")
-        ObjFactura.TipoDocto = If(IfNull(ViewState("CveRemision"), 0).ToString.ToEntero > 0, "Ing", DdlTipoComprobante.SelectedValue)
-        'ObjFactura.RefDocto = TxtDocto.Text.Trim
-        ObjFactura.Folio = If(EstablecioFolio Or VistaPrevia Or (CveVenta > 0 And (NuevaFactura.Contiene(0, 2))), TxtFolio.Text.Trim.ToEntero, -1)
-        'ObjFactura.Folio = If(ExFolioFactura, FolioXML.ToEntero, -1)
-        ObjFactura.Serie = If(VistaPrevia, "VistaPrevia", LblSerie.Text)
-        ObjFactura.Fecha = New Date(TxtFecha.Text.Trim.ToDate.Year, TxtFecha.Text.Trim.ToDate.Month, TxtFecha.Text.Trim.ToDate.Day, Now.Hour, Now.Minute, Now.Second)
-        ObjFactura.CveMetodoPago = DdlMetodoPago.SelectedValue.ToEntero
-        ObjFactura.MetodoPago = DdlMetodoPago.SelectedItem.Text
-        ObjFactura.ClaveMetodoPagoSAT = GlobalDTMetodosPago.FiltroPrimeroValor("ClaveSAT", $"CveMetodoPago = {DdlMetodoPago.SelectedValue}")
-        ObjFactura.FechaVencimiento = TxtFechaPago.Text.ToDate
-
-        ObjFactura.CveMetodoPago33 = DdlMetodoPago33.SelectedValue.ToEntero
-        ObjFactura.MetodoPago33 = If(DdlMetodoPago33.SelectedValue.ToEntero > 0, DdlMetodoPago33.SelectedItem.Text, "")
-        ObjFactura.ClaveMetodoPagoSAT = GlobalDTVtaMetodoPago.FiltroPrimeroValor("ClaveMetodoPagoSAT", $"CveMetodoPago = {DdlMetodoPago33.SelectedValue}")
-
-        ObjFactura.CveFormaPago33 = DdlFormaPago33.SelectedValue.ToEntero
-        ObjFactura.FormaPago33 = If(DdlFormaPago33.SelectedValue.ToEntero > 0, DdlFormaPago33.SelectedItem.Text, "")
-        ObjFactura.FormaPagoSAT33 = GlobalDTVtaFormaPago.FiltroPrimeroValor("ClaveFormaPagoSAT", $"CveFormaPago = {DdlFormaPago33.SelectedValue}")
-
-        ObjFactura.CveUsoCFDI = DdlUsoCFDI.SelectedValue.ToEntero
-        ObjFactura.UsoCFDI = If(DdlUsoCFDI.SelectedValue.ToEntero > 0, DdlUsoCFDI.SelectedItem.Text, "")
-        ObjFactura.ClaveUsoCFDI = GlobalDTSATUsosCFDI.FiltroPrimeroValor("UsoCFDI", $"CveUsoCFDI = {DdlUsoCFDI.SelectedValue}")
-
-        ObjFactura.UsuarioCreo = LblUsuario.Text.Trim
-
-        ObjFactura.CveCondicionEntrega = If(DdlFormaEntrega.SelectedItem IsNot Nothing, DdlFormaEntrega.SelectedValue.ToEntero, -1)
-        ObjFactura.CondicionEntrega = If(DdlFormaEntrega.SelectedItem IsNot Nothing, DdlFormaEntrega.SelectedItem.Text, "")
-        ObjFactura.CondicionesPago = If(RBLPago.SelectedValue = "2", 0, If(RBLPago.SelectedValue = "1", 1, 2)) ' 0 - Contado, 1 - Credito, 2 - termianl
-        ObjFactura.FormaPago = DdlFormaPago.SelectedValue.ToEntero
-
-        Select Case ObjFactura.TipoDocto
-            Case "Ing"
-                ObjFactura.TipoDocumento = "Factura"
-            Case "Rem"
-                ObjFactura.TipoDocumento = "Remision"
-            Case "Cot"
-                ObjFactura.TipoDocumento = "Cotizacion"
-            Case "Egs"
-                ObjFactura.TipoDocumento = "Nota de Crédito"
-            Case "Dev"
-                ObjFactura.TipoDocumento = "Nota de Devolución"
-            Case Else
-                ObjFactura.TipoDocumento = ""
-        End Select
-
-
-        ObjFactura.Fech1 = Now
-        ObjFactura.Fech2 = Now
-        ObjFactura.Fech3 = Now
-        ObjFactura.Alfa1 = ""
-        ObjFactura.Alfa2 = ""
-        ObjFactura.Alfa3 = ""
-        ObjFactura.Num1 = 0
-        ObjFactura.Num2 = 0
-        ObjFactura.Num3 = DdlOrdenPago.SelectedValue.ToDouble
-        ObjFactura.FechaPago = TxtFechaPago.Text.ToDate
-
-        ObjFactura.CveCorte = CveCorte
-        ObjFactura.CveMesa = -1
-        ObjFactura.NumeroPersonas = 0
-        ObjFactura.CveContrato = If(CveContrato > 0, CveContrato, CvePresupuesto)
-        ObjFactura.CveClienteSucursal = DdlSucursalCliente.SelectedValue.ToEntero
-        ObjFactura.Entrega = Entrega
-        ObjFactura.Vigencia = Now
-
-        ObjFactura.CveVentaPadre = If(CveDevolucion > 0, CveDevolucion, CvePedido)
-        ObjFactura.CveVendedor = DdlVendedor.SelectedValue.ToEntero
-        If DdlVendedor.SelectedValue.ToEntero > 0 AndAlso Not UsuarioActual.TienePermisoProceso(161) Then
-            DdlVendedor.Enabled = False
-        End If
-
-        ObjFactura.FechaEjecucion = Now
-
-        ObjFactura.CveSucursalEjecucion = DdlSubProyectoDatos.SelectedValue.ToEntero
-        ObjFactura.CveSucursalCobranza = -1
-
-        ObjFactura.CveSubProyecto = DdlSubProyectoDatos.SelectedValue.ToEntero
-        ObjFactura.CveSubProyectoEjecucion = DdlSubProyectoDatos.SelectedValue.ToEntero
-        ObjFactura.CveSubProyectoCobranza = -1
-
-        ObjFactura.AtencionA = If(ObjFactura.TipoDocto = "Cot", TxtAtencionA.Text, "-1")
-        ObjFactura.MotivoDescuento = TxtMotivoDescuento.Text.Trim
-        ObjFactura.Observaciones = TxtObsFact.Text.Trim
-        ObjFactura.Det_OrdenCompra = ""
-        ObjFactura.Det_FechaOrdenCompra = MinFecha.ToShortDateString
-        ObjFactura.MonedaAbreviatura = ""
-
-        'Totales, Y se llena TmpDTImpuestos
-        ObjFactura.SubTotal = TxtSubTotal.Text.ToDecimal
-        ObjFactura.Descuento = LblDescuentos.Text.Trim.ToDecimal
-        ObjFactura.Amortizacion = LblAmortizacion.Text.Trim.ToDecimal
-        ObjFactura.IVA = TxtIVA.Text.ToDecimal
-        ObjFactura.RetIVA = TxtRetIVA.Text.ToDecimal
-        ObjFactura.RetISR = TxtRetISR.Text.ToDecimal
-        ObjFactura.IEPS = TxtIEPS.Text.ToDecimal
-        ObjFactura.Total = TxtTotal.Text.ToDecimal
-
-        ObjFactura.DtDeduccion = New DataTable
-
-        'OTROS
-        ObjFactura.Det_FechaOrdenCompra = ""
-        ObjFactura.Det_OrdenCompra = ""
-
-        ObjFactura.CveNCaVincular = DdlNCFactura.SelectedValue.ToEntero
-
-        If ObjFactura.CveMoneda <> 1 AndAlso ChkConvertirDoctoPesos.Checked Then
-            ObjFactura.TipoCambio = TxtTipoCambio.Text.Trim.ToDecimal
-            ObjFactura.CveMoneda = 1
-
-            ObjFactura.Moneda = "Pesos"
-            ObjFactura.MonedaSAT = GlobalDTMonedas.FiltroPrimeroValor("AbreviaturaSAT", $"CveMoneda = {ObjFactura.CveMoneda}")
-        End If
-
-        If ObjFactura.CveMoneda <> 2 AndAlso ChkConvertirDolares.Checked Then
-            ObjFactura.TipoCambio = TxtTipoCambioDlls.Text.Trim.ToDecimal
-            ObjFactura.CveMoneda = 2
-
-            ObjFactura.Moneda = "Dólares"
-            ObjFactura.MonedaSAT = GlobalDTMonedas.FiltroPrimeroValor("AbreviaturaSAT", $"CveMoneda = {ObjFactura.CveMoneda}")
-        End If
-
-        'Se agrega CveVenta -1
-        For Each Row As DataRow In TmpDT.Rows
-            Row("CveVenta") = ObjFactura.CveVenta
-        Next
-
-
-        'DETALLES
-        ObjFactura.DtDetalle = TmpDT
-        ObjFactura.DtFirmas = DTmpF
-
-        'CLIENTE
-        ObjFactura.CveCliente = CveCliente
-        ObjFactura.SetCliente()
-
-        'SUCURSAL
-        ObjFactura.CveSucursal = DdlSubProyectoDatos.SelectedValue.ToEntero
-        ObjFactura.SetSubProyectoMatriz(Me)
-        ObjFactura.SetSubProyecto(Me)
-        ObjFactura.ClienteSucursal = New Modelos.SucursalModel
-        ObjFactura.ClienteSucursal.NoExt = CliNoExt
-        ObjFactura.ClienteSucursal.NoInt = CliNoInt
-        ObjFactura.ClienteSucursal.Localidad = CliLocalidad
-        ObjFactura.ClienteSucursal.Direccion = LblDireccion.Text
-        ObjFactura.ClienteSucursal.Colonia = LblColonia.Text
-        ObjFactura.ClienteSucursal.Municipio = LblCiudad.Text
-        ObjFactura.ClienteSucursal.Estado = LblEstado.Text
-        ObjFactura.ClienteSucursal.CP = LblCP.Text
-        ObjFactura.ClienteSucursal.Pais = CliPais
-        ObjFactura.ClienteSucursal.CorreoSucursal = CliCorreoCot.ToString
-        ObjFactura.ClienteSucursal.TelefonoSucursal = LblTelefono.Text
-        ObjFactura.ClienteSucursal.Sucursal = DdlSucursalCliente.SelectedItem.Text
-
-        ObjFactura.DtDetalle = TmpDT
-        ObjFactura.DtPagos = DtPagos
-        ObjFactura.DtPromociones = DtPromociones
-
-        Dim FM As New Modelos.FemsaFactura
-        Dim TmpDT7Eleven As New DataTable
-        Dim TmpDTComplementosTimbrado As New DataTable
-
-        PrepararTimbrado(FM, TmpDT7Eleven, TmpDTComplementosTimbrado)
-
-        ObjFactura.FemsaFactura = FM
-
-        ObjFactura.Timbre = PreParaTimbre(ObjFactura)
-
-        ObjFactura.DtAjustes = TmpDTAjustes
-
-        ObjFactura.DtRecepcionUsados = TmpDTRecepcionUsados
-
-        ObjFactura.DtPolizasVirtuales = TmpDTPolizaVirtual
-
-        ObjFactura.GenerarPDFFactura = False
-
-        Dim CveTipoAlmacen As Integer = If(TmpDTAjustes IsNot Nothing AndAlso TmpDTAjustes.Rows.Count > 0, 6, 22)
-        If GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltraParametros($"CveTipoAlmacen = {CveTipoAlmacen} AND CveSubProyecto= {DdlSubProyectoDatos.SelectedValue}").Rows.Count > 0 Then
-            ObjFactura.CveAlmacenRecepcionUsados = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltraParametros($"CveTipoAlmacen = {CveTipoAlmacen} AND CveSubProyecto= {DdlSubProyectoDatos.SelectedValue}").Rows(0)("CveAlmacen").ToString.ToEntero
-        End If
-
-        'If Not ddlAlmacen.SelectedValue.ToEntero > 0 AndAlso ddlAlmacen.Items.Count > 1 AndAlso UsuarioActual.Empresa.Funcionalidad(531).ToString = "1" Then
-        '    ddlAlmacen.SelectedIndex = 1
-        'End If
-
-        If ddlAlmacen.SelectedValue.ToEntero > 0 Then
-            ObjFactura.CveAlmacen = ddlAlmacen.SelectedValue.ToEntero
-
-            If Not DtInv.Columns.Contains("Seleccionado") Then
-                DtInv.Columns.Add("Seleccionado", GetType(Integer))
             End If
 
-            For Each Gvr As GridViewRow In GvInv.Rows
+            ObjFactura.CveUsuario = UsuarioActual.CveUsuario
-                Dim Dr As DataRow = DtInv.Select($"CvePS={Gvr.DataKey("CvePS")}")(0)
+            ObjFactura.CveEmpresa = UsuarioActual.CveEmpresa
-                If Gvr.FCCheckBox("cbInv").Checked AndAlso ddlAlmacen.SelectedValue.ToEntero > 0 Then
+            ObjFactura.TipoCambio = TxtTipoCambio.Text.Trim.ToDecimal
-                    Dr("Seleccionado") = 1
+            ObjFactura.TipoCambioDolares = TxtTipoCambioDlls.Text.Trim.ToDecimal
-                Else
+            ObjFactura.ConvertirPesos = ChkConvertirDoctoPesos.Checked
-                    Dr("Seleccionado") = 0
+            ObjFactura.ConvertirDolares = ChkConvertirDolares.Checked
-                End If
+            ObjFactura.CveMoneda = DdlMoneda.SelectedValue.ToEntero
+            ObjFactura.Moneda = DdlMoneda.SelectedItem.Text
+            ObjFactura.MonedaSAT = GlobalDTMonedas.FiltroPrimeroValor("AbreviaturaSAT", $"CveMoneda = {DdlMoneda.SelectedValue}")
+            ObjFactura.TipoDocto = If(IfNull(ViewState("CveRemision"), 0).ToString.ToEntero > 0, "Ing", DdlTipoComprobante.SelectedValue)
+            'ObjFactura.RefDocto = TxtDocto.Text.Trim
+            ObjFactura.Folio = If(EstablecioFolio Or VistaPrevia Or (CveVenta > 0 And (NuevaFactura.Contiene(0, 2))), TxtFolio.Text.Trim.ToEntero, -1)
+            'ObjFactura.Folio = If(ExFolioFactura, FolioXML.ToEntero, -1)
+            ObjFactura.Serie = If(VistaPrevia, "VistaPrevia", LblSerie.Text)
+            ObjFactura.Fecha = New Date(TxtFecha.Text.Trim.ToDate.Year, TxtFecha.Text.Trim.ToDate.Month, TxtFecha.Text.Trim.ToDate.Day, Now.Hour, Now.Minute, Now.Second)
+            ObjFactura.CveMetodoPago = DdlMetodoPago.SelectedValue.ToEntero
+            ObjFactura.MetodoPago = DdlMetodoPago.SelectedItem.Text
+            ObjFactura.ClaveMetodoPagoSAT = GlobalDTMetodosPago.FiltroPrimeroValor("ClaveSAT", $"CveMetodoPago = {DdlMetodoPago.SelectedValue}")
+            ObjFactura.FechaVencimiento = TxtFechaPago.Text.ToDate
+
+            ObjFactura.CveMetodoPago33 = DdlMetodoPago33.SelectedValue.ToEntero
+            ObjFactura.MetodoPago33 = If(DdlMetodoPago33.SelectedValue.ToEntero > 0, DdlMetodoPago33.SelectedItem.Text, "")
+            ObjFactura.ClaveMetodoPagoSAT = GlobalDTVtaMetodoPago.FiltroPrimeroValor("ClaveMetodoPagoSAT", $"CveMetodoPago = {DdlMetodoPago33.SelectedValue}")
+
+            ObjFactura.CveFormaPago33 = DdlFormaPago33.SelectedValue.ToEntero
+            ObjFactura.FormaPago33 = If(DdlFormaPago33.SelectedValue.ToEntero > 0, DdlFormaPago33.SelectedItem.Text, "")
+            ObjFactura.FormaPagoSAT33 = GlobalDTVtaFormaPago.FiltroPrimeroValor("ClaveFormaPagoSAT", $"CveFormaPago = {DdlFormaPago33.SelectedValue}")
+
+            ObjFactura.CveUsoCFDI = DdlUsoCFDI.SelectedValue.ToEntero
+            ObjFactura.UsoCFDI = If(DdlUsoCFDI.SelectedValue.ToEntero > 0, DdlUsoCFDI.SelectedItem.Text, "")
+            ObjFactura.ClaveUsoCFDI = GlobalDTSATUsosCFDI.FiltroPrimeroValor("UsoCFDI", $"CveUsoCFDI = {DdlUsoCFDI.SelectedValue}")
+
+            ObjFactura.UsuarioCreo = LblUsuario.Text.Trim
+
+            ObjFactura.CveCondicionEntrega = If(DdlFormaEntrega.SelectedItem IsNot Nothing, DdlFormaEntrega.SelectedValue.ToEntero, -1)
+            ObjFactura.CondicionEntrega = If(DdlFormaEntrega.SelectedItem IsNot Nothing, DdlFormaEntrega.SelectedItem.Text, "")
+            ObjFactura.CondicionesPago = If(RBLPago.SelectedValue = "2", 0, If(RBLPago.SelectedValue = "1", 1, 2)) ' 0 - Contado, 1 - Credito, 2 - termianl
+            ObjFactura.FormaPago = DdlFormaPago.SelectedValue.ToEntero
+
+            Select Case ObjFactura.TipoDocto
+                Case "Ing"
+                    ObjFactura.TipoDocumento = "Factura"
+                Case "Rem"
+                    ObjFactura.TipoDocumento = "Remision"
+                Case "Cot"
+                    ObjFactura.TipoDocumento = "Cotizacion"
+                Case "Egs"
+                    ObjFactura.TipoDocumento = "Nota de Crédito"
+                Case "Dev"
+                    ObjFactura.TipoDocumento = "Nota de Devolución"
+                Case Else
+                    ObjFactura.TipoDocumento = ""
+            End Select
+
+
+            ObjFactura.Fech1 = Now
+            ObjFactura.Fech2 = Now
+            ObjFactura.Fech3 = Now
+            ObjFactura.Alfa1 = ""
+            ObjFactura.Alfa2 = ""
+            ObjFactura.Alfa3 = ""
+            ObjFactura.Num1 = 0
+            ObjFactura.Num2 = 0
+            ObjFactura.Num3 = DdlOrdenPago.SelectedValue.ToDouble
+            ObjFactura.FechaPago = TxtFechaPago.Text.ToDate
+
+            ObjFactura.CveCorte = CveCorte
+            ObjFactura.CveMesa = -1
+            ObjFactura.NumeroPersonas = 0
+            ObjFactura.CveContrato = If(CveContrato > 0, CveContrato, CvePresupuesto)
+            ObjFactura.CveClienteSucursal = DdlSucursalCliente.SelectedValue.ToEntero
+            ObjFactura.Entrega = Entrega
+            ObjFactura.Vigencia = Now
+
+            ObjFactura.CveVentaPadre = If(CveDevolucion > 0, CveDevolucion, CvePedido)
+            ObjFactura.CveVendedor = DdlVendedor.SelectedValue.ToEntero
+            If DdlVendedor.SelectedValue.ToEntero > 0 AndAlso Not UsuarioActual.TienePermisoProceso(161) Then
+                DdlVendedor.Enabled = False
+            End If
+
+            ObjFactura.FechaEjecucion = Now
+
+            ObjFactura.CveSucursalEjecucion = DdlSubProyectoDatos.SelectedValue.ToEntero
+            ObjFactura.CveSucursalCobranza = -1
+
+            ObjFactura.CveSubProyecto = DdlSubProyectoDatos.SelectedValue.ToEntero
+            ObjFactura.CveSubProyectoEjecucion = DdlSubProyectoDatos.SelectedValue.ToEntero
+            ObjFactura.CveSubProyectoCobranza = -1
+
+            ObjFactura.AtencionA = If(ObjFactura.TipoDocto = "Cot", TxtAtencionA.Text, "-1")
+            ObjFactura.MotivoDescuento = TxtMotivoDescuento.Text.Trim
+            ObjFactura.Observaciones = TxtObsFact.Text.Trim
+            ObjFactura.Det_OrdenCompra = ""
+            ObjFactura.Det_FechaOrdenCompra = MinFecha.ToShortDateString
+            ObjFactura.MonedaAbreviatura = ""
+
+            'Totales, Y se llena TmpDTImpuestos
+            ObjFactura.SubTotal = TxtSubTotal.Text.ToDecimal
+            ObjFactura.Descuento = LblDescuentos.Text.Trim.ToDecimal
+            ObjFactura.Amortizacion = LblAmortizacion.Text.Trim.ToDecimal
+            ObjFactura.IVA = TxtIVA.Text.ToDecimal
+            ObjFactura.RetIVA = TxtRetIVA.Text.ToDecimal
+            ObjFactura.RetISR = TxtRetISR.Text.ToDecimal
+            ObjFactura.IEPS = TxtIEPS.Text.ToDecimal
+            ObjFactura.Total = TxtTotal.Text.ToDecimal
+
+            ObjFactura.DtDeduccion = New DataTable
+
+            'OTROS
+            ObjFactura.Det_FechaOrdenCompra = ""
+            ObjFactura.Det_OrdenCompra = ""
+
+            ObjFactura.CveNCaVincular = DdlNCFactura.SelectedValue.ToEntero
+
+            If ObjFactura.CveMoneda <> 1 AndAlso ChkConvertirDoctoPesos.Checked Then
+                ObjFactura.TipoCambio = TxtTipoCambio.Text.Trim.ToDecimal
+                ObjFactura.CveMoneda = 1
+
+                ObjFactura.Moneda = "Pesos"
+                ObjFactura.MonedaSAT = GlobalDTMonedas.FiltroPrimeroValor("AbreviaturaSAT", $"CveMoneda = {ObjFactura.CveMoneda}")
+            End If
+
+            If ObjFactura.CveMoneda <> 2 AndAlso ChkConvertirDolares.Checked Then
+                ObjFactura.TipoCambio = TxtTipoCambioDlls.Text.Trim.ToDecimal
+                ObjFactura.CveMoneda = 2
+
+                ObjFactura.Moneda = "Dólares"
+                ObjFactura.MonedaSAT = GlobalDTMonedas.FiltroPrimeroValor("AbreviaturaSAT", $"CveMoneda = {ObjFactura.CveMoneda}")
+            End If
+
+            'Se agrega CveVenta -1
+            For Each Row As DataRow In TmpDT.Rows
+                Row("CveVenta") = ObjFactura.CveVenta
             Next
 
-            DtInv.AcceptChanges()
 
-            ObjFactura.DtInventario = DtInv.FiltraParametros("Seleccionado = 1")
+            'DETALLES
-        End If
+            ObjFactura.DtDetalle = TmpDT
+            ObjFactura.DtFirmas = DTmpF
 
-        ObjFactura.ServicioDomicilio = ChkServicioDomicilio.Checked
+            'CLIENTE
+            ObjFactura.CveCliente = CveCliente
+            ObjFactura.SetCliente()
 
-        'VALIDA ENTREGA POR ADELANTADO
+            'SUCURSAL
-        If UsuarioActual.Empresa.Funcionalidad(145) = "1" Then
+            ObjFactura.CveSucursal = DdlSubProyectoDatos.SelectedValue.ToEntero
-            'INCRUSTAMOS ALMACEN ENTREGA POR ADELANTADO CUANDO SEA REMISION Y NO TRAIGA ASIGNADO POR EL USUARIO
+            ObjFactura.SetSubProyectoMatriz(Me)
-            If ObjFactura.CveAlmacenTraspasoDestino <= 0 And ObjFactura.TipoDocto = "Rem" Then
+            ObjFactura.SetSubProyecto(Me)
-                If ObjFactura.ServicioDomicilio Then
+            ObjFactura.ClienteSucursal = New Modelos.SucursalModel
-                    ObjFactura.CveAlmacenServicioDomicilio = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveAlmacen", $"CveTipoAlmacen = 29 AND CveSubProyecto = {DdlSubProyectoDatos.SelectedValue}").ToString.ToEntero
+            ObjFactura.ClienteSucursal.NoExt = CliNoExt
-                    ObjFactura.DtInventario = TmpDT.Copy.FiltraParametros("CveTipoPS = 2")
+            ObjFactura.ClienteSucursal.NoInt = CliNoInt
+            ObjFactura.ClienteSucursal.Localidad = CliLocalidad
+            ObjFactura.ClienteSucursal.Direccion = LblDireccion.Text
+            ObjFactura.ClienteSucursal.Colonia = LblColonia.Text
+            ObjFactura.ClienteSucursal.Municipio = LblCiudad.Text
+            ObjFactura.ClienteSucursal.Estado = LblEstado.Text
+            ObjFactura.ClienteSucursal.CP = LblCP.Text
+            ObjFactura.ClienteSucursal.Pais = CliPais
+            ObjFactura.ClienteSucursal.CorreoSucursal = CliCorreoCot.ToString
+            ObjFactura.ClienteSucursal.TelefonoSucursal = LblTelefono.Text
+            ObjFactura.ClienteSucursal.Sucursal = DdlSucursalCliente.SelectedItem.Text
+
+            ObjFactura.DtDetalle = TmpDT
+            ObjFactura.DtPagos = DtPagos
+            ObjFactura.DtPromociones = DtPromociones
+
+            Dim FM As New Modelos.FemsaFactura
+            Dim TmpDT7Eleven As New DataTable
+            Dim TmpDTComplementosTimbrado As New DataTable
+
+            PrepararTimbrado(FM, TmpDT7Eleven, TmpDTComplementosTimbrado)
+
+            ObjFactura.FemsaFactura = FM
+
+            ObjFactura.Timbre = PreParaTimbre(ObjFactura)
+
+            ObjFactura.DtAjustes = TmpDTAjustes
+
+            ObjFactura.DtRecepcionUsados = TmpDTRecepcionUsados
+
+            ObjFactura.DtPolizasVirtuales = TmpDTPolizaVirtual
+
+            ObjFactura.GenerarPDFFactura = False
+
+            Dim CveTipoAlmacen As Integer = If(TmpDTAjustes IsNot Nothing AndAlso TmpDTAjustes.Rows.Count > 0, 6, 22)
+            If GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltraParametros($"CveTipoAlmacen = {CveTipoAlmacen} AND CveSubProyecto= {DdlSubProyectoDatos.SelectedValue}").Rows.Count > 0 Then
+                ObjFactura.CveAlmacenRecepcionUsados = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltraParametros($"CveTipoAlmacen = {CveTipoAlmacen} AND CveSubProyecto= {DdlSubProyectoDatos.SelectedValue}").Rows(0)("CveAlmacen").ToString.ToEntero
+            End If
+
+            'If Not ddlAlmacen.SelectedValue.ToEntero > 0 AndAlso ddlAlmacen.Items.Count > 1 AndAlso UsuarioActual.Empresa.Funcionalidad(531).ToString = "1" Then
+            '    ddlAlmacen.SelectedIndex = 1
+            'End If
+
+            If ddlAlmacen.SelectedValue.ToEntero > 0 Then
+                ObjFactura.CveAlmacen = ddlAlmacen.SelectedValue.ToEntero
+
+                If Not DtInv.Columns.Contains("Seleccionado") Then
+                    DtInv.Columns.Add("Seleccionado", GetType(Integer))
                 End If
 
-                ObjFactura.CveAlmacenTraspasoDestino = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveAlmacen", $"CveTipoAlmacen = 10 AND CveSubProyecto = {DdlSubProyectoDatos.SelectedValue}").ToString.ToEntero
+                For Each Gvr As GridViewRow In GvInv.Rows
+                    Dim Dr As DataRow = DtInv.Select($"CvePS={Gvr.DataKey("CvePS")}")(0)
+                    If Gvr.FCCheckBox("cbInv").Checked AndAlso ddlAlmacen.SelectedValue.ToEntero > 0 Then
+                        Dr("Seleccionado") = 1
+                    Else
+                        Dr("Seleccionado") = 0
+                    End If
+                Next
 
+                DtInv.AcceptChanges()
+
+                ObjFactura.DtInventario = DtInv.FiltraParametros("Seleccionado = 1")
             End If
 
-            'SI LA SUCURSAL NO TIENE ENTREGA POR ADELANTADO 
+            ObjFactura.ServicioDomicilio = ChkServicioDomicilio.Checked
-            If ObjFactura.CveAlmacenTraspasoDestino <= 0 And ObjFactura.TipoDocto = "Rem" Then
+
-                ObjFactura.ErrorList.Add("Ocurrió un error al seleccionar el almacen de entrega por adelantado de la sucursal.")
+            'VALIDA ENTREGA POR ADELANTADO
+            If UsuarioActual.Empresa.Funcionalidad(145) = "1" Then
+                'INCRUSTAMOS ALMACEN ENTREGA POR ADELANTADO CUANDO SEA REMISION Y NO TRAIGA ASIGNADO POR EL USUARIO
+                If ObjFactura.CveAlmacenTraspasoDestino <= 0 And ObjFactura.TipoDocto = "Rem" Then
+                    If ObjFactura.ServicioDomicilio Then
+                        ObjFactura.CveAlmacenServicioDomicilio = ddlAlmacen.SelectedValue.ToEntero() 'GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveAlmacen", $"CveTipoAlmacen = 29 AND CveSubProyecto = {DdlSubProyectoDatos.SelectedValue}").ToString.ToEntero
+
+                        'PREPARA DT INVENTARIO
+                        Dim DtInv = TmpDT.Copy.FiltraParametros("CveTipoPS = 2")
+                        For Each GvRow As GridViewRow In GvInv.Rows
+                            If GvRow.RowType = DataControlRowType.DataRow Then
+                                Dim filtro = DtInv.Select(String.Format("CvePS = {0} AND Consec = {1}", GvRow.DataKey("CvePS"), GvRow.DataKey("Consec")))
+                                If filtro IsNot Nothing AndAlso filtro.Length > 0 Then
+                                    Dim Row = filtro(0)
+                                    Row("Serie") = GvRow.FCTextBox("TxtSerie").Text.Trim
+                                End If
+                            End If
+                        Next
+
+                        ObjFactura.DtInventario = DtInv
+                    End If
+
+                    ObjFactura.CveAlmacenTraspasoDestino = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveAlmacen", $"CveTipoAlmacen = 10 AND CveSubProyecto = {DdlSubProyectoDatos.SelectedValue}").ToString.ToEntero
+
+                End If
+
+                'SI LA SUCURSAL NO TIENE ENTREGA POR ADELANTADO 
+                If ObjFactura.CveAlmacenTraspasoDestino <= 0 And ObjFactura.TipoDocto = "Rem" Then
+                    ObjFactura.ErrorList.Add("Ocurrió un error al seleccionar el almacen de entrega por adelantado de la sucursal.")
+                End If
+
+                'SI LA SUCURSAL NO TIENE SERVICIO A DOMICILIO 
+                If ObjFactura.ServicioDomicilio AndAlso ObjFactura.CveAlmacenServicioDomicilio <= 0 And ObjFactura.TipoDocto = "Rem" Then
+                    ObjFactura.ErrorList.Add("No existe un almacen configurado como 'Servicio a Domicilio' en esta sucursal.")
+                End If
+
             End If
-
+        Catch ex As Exception
-            'SI LA SUCURSAL NO TIENE SERVICIO A DOMICILIO 
+            OnError("Ocurrió un error al generar la venta", ex)
-            If ObjFactura.ServicioDomicilio AndAlso ObjFactura.CveAlmacenServicioDomicilio <= 0 And ObjFactura.TipoDocto = "Rem" Then
+            If ObjFactura IsNot Nothing Then
-                ObjFactura.ErrorList.Add("No existe un almacen configurado como 'Servicio a Domicilio' en esta sucursal.")
+                ObjFactura.Dispose()
+                ObjFactura = Nothing
             End If
-
+        End Try
-        End If
-
     End Sub
 
 #End Region
@@ -4133,6 +4173,8 @@ Partial Class PV
             CambiaSucursal()
         End If
         ObjSubProyectos.Dispose()
+
+        ChkServicioDomicilio_CheckedChanged(ChkServicioDomicilio, EventArgs.Empty)
     End Sub
     Protected Sub DdlTipoComprobante_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlTipoComprobante.SelectedIndexChanged
         CambiaTipoComprobante()
@@ -4310,6 +4352,8 @@ Partial Class PV
         TmpDT.Columns.Add("EliminarDB", GetType(Boolean))
         TmpDT.Columns("EliminarDB").DefaultValue = False
 
+        TmpDT.Columns.Add("AplicaSerie", GetType(Boolean))
+
     End Sub
 
     Private Sub CreaDTmpC()
@@ -4346,6 +4390,8 @@ Partial Class PV
             Exit Sub
         End If
 
+        Dim AplicaSerie = CBool(GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePS).FiltroPrimeroValor("AplicaSerie"))
+
         If TmpDT.FiltraParametros("AsientoContableVentas <> '" & AsientoContableVentas.ToString & "'").Rows.Count = 0 Then
             Dim Row As DataRow = Nothing
             Row = TmpDT.NewRow()
@@ -4380,6 +4426,7 @@ Partial Class PV
             Row("SubProyecto") = SubProyecto
             Row("Serie") = Serie
             Row("TiempoEntrega") = TiempoEntrega
+            Row("AplicaSerie") = AplicaSerie
 
             TmpDT.Rows.Add(Row)
             GvPS.DataSource = TmpDT.FiltraParametros("EliminarDB = False")
@@ -4596,6 +4643,7 @@ Partial Class PV
             End If
         End If
 
+
         TotalCalculableImpuestos = (Cantidad * (PU)) - Descuento
 
         If Modalidad = "A" Then
@@ -4671,6 +4719,7 @@ Partial Class PV
         Row("CveVentaDetallePedido2") = CveVentaDetallePedido2
         Row("CuentaPredial") = CuentaPredial
         Row("EsCargo") = EsCargo
+        Row("AplicaSerie") = DrPS("AplicaSerie")
 
         If EsCargo AndAlso ConsecPSPadre >= 0 Then
             Row("ConsecPSPadre") = ConsecPSPadre
@@ -5036,6 +5085,8 @@ Partial Class PV
             End If
         End If
         Me.CveVentaDetalle = -1
+
+        UpAgregar.Update()
     End Sub
     Private Function AgregarPS() As Boolean
         Dim CveVentaDetalle As Integer = Me.CveVentaDetalle
@@ -5278,6 +5329,8 @@ Partial Class PV
         DtInv = TmpDT.Copy.FiltraParametros("CveTipoPS = 2")
         CargaGVInv(DtInv)
 
+        ChkServicioDomicilio_CheckedChanged(ChkServicioDomicilio, EventArgs.Empty)
+
         UpContado.Update()
         UpPS.Update()
         RegistraScript("BorraDescuentos();", "BorraDescuentos")
@@ -5864,24 +5917,23 @@ Partial Class PV
 
         Dim Index = Row.RowIndex
         Dim ObjInventarios As New ClsInventarios
-        Dim Existencia = ObjInventarios.GetExistenciasPSSerie("", ddlAlmacen.SelectedValue.ToEntero, UsuarioActual.CveEmpresa)
+        Dim Existencia = ObjInventarios.GetExistenciasPSSerie(Row.FCTextBox("TxtSerie").Text.ToString.Trim, ddlAlmacen.SelectedValue.ToEntero, UsuarioActual.CveEmpresa)
-        Dim ExistenciaActual = DtInv.SUM("Cantidad", String.Format("Serie = '{0}'", Row.FCTextBox("TxtSerie").Text.ToString))
+        ObjInventarios.Dispose()
 
         'Valida Existencia
-        If Existencia - ExistenciaActual <= 0 Then
+        If Existencia <= 0 Then
             Alert(String.Format("Not hay existencia suficiente del producto con la Serie: <b>{0}</b>. Por favor rectifique y vuelva a intentar", Row.FCTextBox("TxtSerie").Text.ToString), TipoMensaje.MsgAdvertencia)
             Row.FCTextBox("TxtSerie").Text = ""
             Row.FCHiddenField("HdnSerie").Value = ""
-            TmpDT.Rows(Index)("Serie") = ""
+            DtInv.Rows(Index)("Serie") = ""
         Else
             Row.FCHiddenField("HdnSerie").Value = Row.FCTextBox("TxtSerie").Text
-            TmpDT.Rows(Index)("Serie") = Row.FCTextBox("TxtSerie").Text
+            DtInv.Rows(Index)("Serie") = Row.FCTextBox("TxtSerie").Text
         End If
 
-        TmpDT.AcceptChanges()
+        DtInv.AcceptChanges()
-        DtInv = TmpDT.Copy.FiltraParametros("CveTipoPS = 2")
+
 
-        ObjInventarios.Dispose()
     End Sub
 
     Private Function ValidaSerieINV() As Boolean
@@ -7804,11 +7856,49 @@ Partial Class PV
         Response.Redirect($"~/Ventas/PV.aspx")
     End Sub
     Protected Sub DdlRecepcionUsados_SelectedIndexChanged(sender As Object, e As EventArgs)
-        Dim DrTamanio As DataRow = GlobalDTAcumTamaños.FiltroPrimero($"CveEmpresa = {UsuarioActual.CveEmpresa} AND CvePSCargo = {DdlRecepcionUsados.SelectedValue}")
+        If DdlRecepcionUsados.SelectedValue.ToEntero() > 0 Then
-
+            Dim DrTamanio As DataRow = GlobalDTAcumTamaños.FiltroPrimero($"CveEmpresa = {UsuarioActual.CveEmpresa} AND CvePSCargo = {DdlRecepcionUsados.SelectedValue}")
-        DdlBCIUsado.DataSource = DTBCIUsados.FiltraParametros(String.Format("CveTamaño = {0}", DrTamanio("CveTamaño")))
+            DdlBCIUsado.DataSource = DTBCIUsados.FiltraParametros(String.Format("CveTamaño = {0}", DrTamanio("CveTamaño")))
+        Else
+            DdlBCIUsado.Items.Clear()
+            DdlBCIUsado.DataSource = Nothing
+        End If
         DdlBCIUsado.DataBind()
 
-        UpModalVenta.Update()
+        UpAddVenta.Update()
+    End Sub
+    Protected Sub ChkServicioDomicilio_CheckedChanged(sender As Object, e As EventArgs)
+        If ChkServicioDomicilio.Checked Then
+            PreparaServicioDomicilio()
+        Else
+            ddlAlmacen.Items.Clear()
+            ddlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa).FiltraParametros($"CveSubProyecto = {DdlSubProyectoDatos.SelectedValue.ToEntero}")
+            ddlAlmacen.Items.Insert(0, New ListItem(" Seleccione ", "-1"))
+            ddlAlmacen.DataBind()
+            If GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa).FiltraParametros($"CveSubProyecto = {DdlSubProyectoDatos.SelectedValue.ToEntero}").Rows.Count > 0 Then
+                ddlAlmacen.SelectedValueExist(UsuarioActual.CveAlmacen)
+            End If
+
+            For Each GvRow As GridViewRow In GvInv.Rows
+                If GvRow.RowType = DataControlRowType.DataRow Then
+                    GvRow.FCCheckBox("cbInv").Enabled = True
+                End If
+            Next
+        End If
+
+        UpINV.Update()
+    End Sub
+
+    Private Sub PreparaServicioDomicilio()
+        ddlAlmacen.Items.Clear()
+        ddlAlmacen.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveTipoAlmacen:=29).FiltraParametros($"CveSubProyecto = {DdlSubProyectoDatos.SelectedValue}")
+        ddlAlmacen.DataBind()
+
+        For Each GvRow As GridViewRow In GvInv.Rows
+            If GvRow.RowType = DataControlRowType.DataRow Then
+                GvRow.FCCheckBox("cbInv").Checked = True
+                GvRow.FCCheckBox("cbInv").Enabled = False
+            End If
+        Next
     End Sub
 End Class