From b7003710950febe3942497eb194cb18564176907 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Tue, 11 Jan 2022 17:38:47 -0700 Subject: [PATCH] Correcion en validaciones y servicio a domicilio --- Ventas/PV.aspx | 37 ++- Ventas/PV.aspx.vb | 586 ++++++++++++++++++++++++++-------------------- 2 files changed, 368 insertions(+), 255 deletions(-) diff --git a/Ventas/PV.aspx b/Ventas/PV.aspx index eae1650c2..c6cc93950 100644 --- a/Ventas/PV.aspx +++ b/Ventas/PV.aspx @@ -494,7 +494,7 @@ Servicio a Domicilio:  - + @@ -928,7 +928,7 @@
- + @@ -2790,21 +2790,22 @@

- + +

- +

- +
@@ -2813,6 +2814,7 @@ +
@@ -2969,6 +2971,8 @@ + +
@@ -3135,8 +3139,7 @@
- <%-- @@ -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; diff --git a/Ventas/PV.aspx.vb b/Ventas/PV.aspx.vb index 0465c385d..133fc23a1 100644 --- a/Ventas/PV.aspx.vb +++ b/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) - - If Me.CveVenta > 0 Then - ObjFactura = New Modelos.Factura(UsuarioActual, CveVenta, UsuarioActual.CveEmpresa, EsCancelacion:=False) - Else - ObjFactura = New Modelos.Factura(UsuarioActual) - 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)) + Try + If Me.CveVenta > 0 Then + ObjFactura = New Modelos.Factura(UsuarioActual, CveVenta, UsuarioActual.CveEmpresa, EsCancelacion:=False) + Else + ObjFactura = New Modelos.Factura(UsuarioActual) + ObjFactura.CvePrePoliza = -1 End If - 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 + 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 - DtInv.AcceptChanges() - ObjFactura.DtInventario = DtInv.FiltraParametros("Seleccionado = 1") - End If + 'DETALLES + ObjFactura.DtDetalle = TmpDT + ObjFactura.DtFirmas = DTmpF - ObjFactura.ServicioDomicilio = ChkServicioDomicilio.Checked + 'CLIENTE + ObjFactura.CveCliente = CveCliente + ObjFactura.SetCliente() - '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 = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveAlmacen", $"CveTipoAlmacen = 29 AND CveSubProyecto = {DdlSubProyectoDatos.SelectedValue}").ToString.ToEntero - ObjFactura.DtInventario = TmpDT.Copy.FiltraParametros("CveTipoPS = 2") + '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 - 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 - 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.") + ObjFactura.ServicioDomicilio = ChkServicioDomicilio.Checked + + '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 - - '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.") + Catch ex As Exception + OnError("Ocurrió un error al generar la venta", ex) + If ObjFactura IsNot Nothing Then + ObjFactura.Dispose() + ObjFactura = Nothing End If - - End If - + End Try 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 ExistenciaActual = DtInv.SUM("Cantidad", String.Format("Serie = '{0}'", Row.FCTextBox("TxtSerie").Text.ToString)) + Dim Existencia = ObjInventarios.GetExistenciasPSSerie(Row.FCTextBox("TxtSerie").Text.ToString.Trim, ddlAlmacen.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) + 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: {0}. 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 = TmpDT.Copy.FiltraParametros("CveTipoPS = 2") + DtInv.AcceptChanges() + - 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}") - - DdlBCIUsado.DataSource = DTBCIUsados.FiltraParametros(String.Format("CveTamaño = {0}", DrTamanio("CveTamaño"))) + 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"))) + 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