diff --git a/Ventas/PV.aspx.vb b/Ventas/PV.aspx.vb index 3d7b18770..de98864d3 100644 --- a/Ventas/PV.aspx.vb +++ b/Ventas/PV.aspx.vb @@ -650,14 +650,14 @@ Partial Class PV End Set End Property - Private ReadOnly Property ClasificacionesDescuentos As Dictionary(Of Integer, Decimal) - Get - Return New Dictionary(Of Integer, Decimal) From { - {20516, 0.21D}, 'Descuento para lubricantes LTH - {20515, 0.25D} 'Descuento para filtros LTH - } - End Get - End Property + 'Private ReadOnly Property ClasificacionesDescuentos As Dictionary(Of Integer, Decimal) + ' Get + ' Return New Dictionary(Of Integer, Decimal) From { + ' {20516, 0.21D}, 'Descuento para lubricantes LTH + ' {20515, 0.25D} 'Descuento para filtros LTH + ' } + ' End Get + 'End Property Private Property CveAutorizacion As Integer Get Return (IfNull(ViewState("CveAutorizacion"), "-1", ViewState("CveAutorizacion"))).ToString().ToEntero() @@ -1484,7 +1484,7 @@ Partial Class PV TrRetIVA.Style.Add("display", "") UsuarioActual.Empresa.MostrarRetIVA = True If TmpDT IsNot Nothing Then - Dim PorcentajeRetIVA = (TmpDT.MAX("PorcentajeRetIVA").ToDecimal() * 100) + Dim PorcentajeRetIVA As Decimal = (TmpDT.MAX("PorcentajeRetIVA").ToDecimal() * 100) LblRetIVA.Text = PorcentajeRetIVA.FormatoNumero(2) End If @@ -1814,11 +1814,11 @@ Partial Class PV ViewState("CveClienteAnterior") = CveCliente 'SI EL DETALLE NO TIENE MOVIMIENTOS DE INVENTARIO ES VISIBLE - Dim CantidadFacturadaRemision = 0.0 + Dim CantidadFacturadaRemision As Decimal = 0 For Each Gvr As GridViewRow In GvPS.Rows Gvr.FCLinkButton("imgE").Visible = Not Gvr.DataKey("CantidadFacturadaRem").ToString.ToDouble > 0 AndAlso Gvr.DataKey("EsCargo") = "False" Gvr.FCLinkButton("imgD").Visible = Not Gvr.DataKey("CantidadInventario").ToString.ToDouble > 0 AndAlso Gvr.DataKey("EsCargo") = "False" - CantidadFacturadaRemision += Gvr.DataKey("CantidadFacturadaRem").ToString.ToDouble + CantidadFacturadaRemision += Gvr.DataKey("CantidadFacturadaRem").ToString.ToDecimal Next 'ACTIVA CAMBIO DE CLIENTE - SI NO TIENE NADA FACTURADO @@ -2156,7 +2156,7 @@ Partial Class PV If ObjPVenta.DtResultados.Rows.Count > 0 Then CveCorte = ObjPVenta.CveCorte - Dim FechaICorte = ObjPVenta.FechaInicial.Date '.AddDays(-1) + Dim FechaICorte As Date = ObjPVenta.FechaInicial.Date '.AddDays(-1) If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso FechaICorte < Now.Date Then DebeCerrarCorte = True LblMotivoBloqueo.Text = $"Existe un corte del día {FechaICorte.ToString("dd/MM/yyyy")}. Favor de cerrarlo para iniciar un nuevo corte." @@ -2223,32 +2223,32 @@ Partial Class PV Dt.Columns.Add("Descripcion", GetType(String)) Dt.Columns.Add("Importe", GetType(Decimal)) - Dim Dr1 = Dt.NewRow + Dim Dr1 As DataRow = Dt.NewRow Dr1("Descripcion") = "Fondo de Caja" Dr1("Importe") = ObjPVenta.DtResultados(0)("ImporteInicial").ToString.ToDouble Dt.Rows.Add(Dr1) - Dim Dr2 = Dt.NewRow + Dim Dr2 As DataRow = Dt.NewRow Dr2("Descripcion") = "Ventas en Efectivo" Dr2("Importe") = ObjPVenta.DtResultados(0)("VentasEfectivo").ToString.ToDouble Dt.Rows.Add(Dr2) - Dim Dr3 = Dt.NewRow + Dim Dr3 As DataRow = Dt.NewRow Dr3("Descripcion") = "Propinas" Dr3("Importe") = ObjPVenta.DtResultados(0)("Propina").ToString.ToDouble Dt.Rows.Add(Dr3) - Dim Dr4 = Dt.NewRow + Dim Dr4 As DataRow = Dt.NewRow Dr4("Descripcion") = "Entradas" Dr4("Importe") = ObjPVenta.DtResultados(0)("Ingresado").ToString.ToDouble Dt.Rows.Add(Dr4) - Dim Dr5 = Dt.NewRow + Dim Dr5 As DataRow = Dt.NewRow Dr5("Descripcion") = "Salidas" Dr5("Importe") = ObjPVenta.DtResultados(0)("Retirado").ToString.ToDouble Dt.Rows.Add(Dr5) - Dim Dr6 = Dt.NewRow + Dim Dr6 As DataRow = Dt.NewRow Dr6("Descripcion") = "Total" Dr6("Importe") = Total Dt.Rows.Add(Dr6) @@ -2318,7 +2318,7 @@ Partial Class PV If TxtEfectivoEnCaja.Text.Trim <> "" Then If ObjPVenta.UpdateFinalizadoVtaCortes(CveCorte, TxtEfectivoEnCaja.Text.ToDouble, LblDiferenciaCaja.Text.ToDouble, Now, UsuarioActual.CveEmpresa) Then RegistraScript($"window.location.href = '/Compras/PopUpVerFactura.aspx?P={Encripta(String.Format("OP=CORT&CVECORTE={0}&FORMATO={1}", CveCorte, "PDF"))}'", "Imprimir") - Dim Liga = "document.location.href=""/Ventas/PV.aspx"";" + Dim Liga As String = "document.location.href=""/Ventas/PV.aspx"";" Alert("Se ha cerrado el turno correctamente.", TipoMensaje.MsgInformacion, Liga) End If End If @@ -2329,7 +2329,7 @@ Partial Class PV If TxtEfectivoCajaBloqueo.Text.Trim <> "" Then If ObjPVenta.UpdateFinalizadoVtaCortes(CveCorte, TxtEfectivoCajaBloqueo.Text.ToDouble, LblDiferenciaCajaBloqueo.Text.ToDouble, Now, UsuarioActual.CveEmpresa) Then RegistraScript($"window.location.href = '/Compras/PopUpVerFactura.aspx?P={Encripta(String.Format("OP=CORT&CVECORTE={0}&FORMATO={1}", CveCorte, "PDF"))}'", "Imprimir") - Dim Liga = "document.location.href=""/Ventas/PV.aspx"";" + Dim Liga As String = "document.location.href=""/Ventas/PV.aspx"";" Alert("Se ha cerrado el turno correctamente.", TipoMensaje.MsgInformacion, Liga) End If Else @@ -2773,7 +2773,7 @@ Partial Class PV UpPS.Update() End Sub Private Sub CargaFormatoSucursal() - Dim dr = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveSubProyecto = {0}", If(DdlSubProyectoDatos.SelectedValue = "", "-1", DdlSubProyectoDatos.SelectedValue))) + Dim dr As DataRow = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveSubProyecto = {0}", If(DdlSubProyectoDatos.SelectedValue = "", "-1", DdlSubProyectoDatos.SelectedValue))) If dr IsNot Nothing Then ViewState("SucCalle") = dr("Calle") ViewState("SucNoExt") = dr("NoExt") @@ -2820,7 +2820,7 @@ Partial Class PV If CveClienteSuc > 0 Then If ObjCliente.GetSucursales(CveCliente, CveClienteSuc) Then If ObjCliente.DtResultados.Rows.Count > 0 Then - Dim Correo = ObjCliente.DtResultados.Rows(0)("Correo").ToString + Dim Correo As String = ObjCliente.DtResultados.Rows(0)("Correo").ToString If Correo.Trim.Length > 0 Then ViewState("Mail") = Correo End If @@ -2992,7 +2992,7 @@ Partial Class PV End Sub Private Sub CargaVendedores() - Dim CveVendedorActual = DdlVendedor.SelectedValue + Dim CveVendedorActual As Integer = DdlVendedor.SelectedValue.ToEntero DdlVendedor.Items.Clear() @@ -3127,10 +3127,11 @@ Partial Class PV TmpDT.Rows(row.RowIndex)("Orden") = row.FCTextBox("TxtOrden").Text.ToEntero Next - Dim resultados = From OrdenDT In TmpDT - Order By OrdenDT("Orden").ToString.ToEntero - Select OrdenDT - TmpDT = resultados.CopyToDataTable + 'Dim resultados = From OrdenDT In TmpDT + ' Order By OrdenDT("Orden").ToString.ToEntero + ' Select OrdenDT + 'TmpDT = resultados.CopyToDataTable + TmpDT = TmpDT.FiltraParametros("", "Orden") CalculaTotalesVenta() GvPS.DataSource = TmpDT.FiltraParametros("EliminarDB = False") @@ -3305,11 +3306,11 @@ Partial Class PV If DdlTipoComprobante.SelectedValue.Contiene("Rem", "Ing") Then Dim MensajeCosto As New StringBuilder - Dim CostoMenor = 0.0D - Dim CostoMayor = 0.0D - Dim Costo = 0.0D - Dim EsValido = False 'BANDERA - Dim EsValidoMayor = False + Dim CostoMenor As Decimal = 0 + Dim CostoMayor As Decimal = 0 + Dim Costo As Decimal = 0 + Dim EsValido As Boolean = False 'BANDERA + Dim EsValidoMayor As Boolean = False 'VALIDA PROMOCIONES Y EXISTENCIAS @@ -3321,7 +3322,7 @@ Partial Class PV Dim ObjInventarios As New ClsInventarios - Dim PU = 0.0D + Dim PU As Decimal = 0 For Each dr As DataRow In TmpDT.Rows 'SI ES SERVICIO NO VALIDA If GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=dr("CvePS").ToString.ToEntero).FiltroPrimeroValor("CveTipoPS").ToString.ToEntero = 1 Then @@ -3450,7 +3451,7 @@ Partial Class PV Dim Retorno As Modelos.Factura.MMensajeFactura = Nothing Dim urlFactura As String = "" - Dim urlAjuste = "" + Dim urlAjuste As String = "" Dim SbAlert As New StringBuilder Try @@ -3536,7 +3537,7 @@ Partial Class PV Retorno.Mensajes(Retorno.Mensajes.Count - 1) = SbAlert.ToString() End If - For Each Mensaje In Retorno.Mensajes + For Each Mensaje As String In Retorno.Mensajes Alert(Mensaje, If(Retorno.TieneError, TipoMensaje.MsgError, TipoMensaje.MsgInformacion), If(Retorno.TieneError, "", Retorno.LigaPV), ShowCloseButton:=False) Next @@ -3553,14 +3554,14 @@ Partial Class PV End Sub Private Function DescargarFactura(CveVenta As Integer, CveEmpresa As Integer, Optional GetBytes As Boolean = True) As Byte() - Dim Url = New Uri(String.Format("{0}://{1}:{2}/Compras/PopUpVerFactura.aspx?P={3}", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, Encripta(String.Format("OP=VTA&CVEVENTA={0}&PAG=1&GUARDAR=1", CveVenta)))) + Dim Url As New Uri(String.Format("{0}://{1}:{2}/Compras/PopUpVerFactura.aspx?P={3}", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, Encripta(String.Format("OP=VTA&CVEVENTA={0}&PAG=1&GUARDAR=1", CveVenta)))) Dim File As Byte() = Nothing Try - Using httpClient = New HttpClient() + Using httpClient As New HttpClient() httpClient.Timeout = New TimeSpan(0, 15, 0) - Using request = New HttpRequestMessage(HttpMethod.Get, Url) + Using request As New HttpRequestMessage(HttpMethod.Get, Url) request.Headers.Add("ADSToken", Encripta(String.Format("CVEEMPRESA={0}&TICKS={1}&CveUsuario=100", CveEmpresa, DateTime.UtcNow.Ticks))) - Dim response = httpClient.SendAsync(request).Result + Dim response As HttpResponseMessage = httpClient.SendAsync(request).Result If GetBytes AndAlso response.StatusCode = Net.HttpStatusCode.OK Then File = response.Content.ReadAsByteArrayAsync().Result End If @@ -3810,12 +3811,12 @@ Partial Class PV 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") + Dim DtInv As DataTable = 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"))) + Dim filtro As DataRow() = 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) + Dim Row As DataRow = filtro(0) Row("Serie") = GvRow.FCTextBox("TxtSerie").Text.Trim End If End If @@ -4083,7 +4084,7 @@ Partial Class PV Dim PrecioSugerido As Decimal = 0 PrecioSugerido = drPS("Precio").ToString.ToDecimal If UsuarioActual.CveEmpresa.Contiene(80, 119) Then - Dim CvePrecioListaPS = GlobalDTCliente(UsuarioActual.CveEmpresa, -1).FiltroPrimeroValor("CvePrecioLista", $"CveCliente = {CveCliente}").ToEntero + Dim CvePrecioListaPS As Integer = GlobalDTCliente(UsuarioActual.CveEmpresa, -1).FiltroPrimeroValor("CvePrecioLista", $"CveCliente = {CveCliente}").ToEntero If CvePrecioListaPS > 0 Then Dim ObjPS As New ClsProductosServicios If ObjPS.GetPSPreciosLista(UsuarioActual.CveEmpresa, CvePrecioListaPS, CvePS:=CvePSParametro) Then @@ -4091,9 +4092,9 @@ Partial Class PV PrecioSugerido = ObjPS.DtResultados.FiltroPrimeroValor("PrecioLista").ToDecimal If PrecioSugerido = 0 Then Dim ObjInventarios As New ClsInventarios - Dim CostoPS = ObjInventarios.GetCostoPS(CvePSParametro, TxtCantidad.Text.Trim.ToDouble, -1, "-1", TxtFecha.Text.ToDate, DdlSubProyectoDatos.SelectedValue.ToEntero) + Dim CostoPS As Decimal = ObjInventarios.GetCostoPS(CvePSParametro, TxtCantidad.Text.Trim.ToDouble, -1, "-1", TxtFecha.Text.ToDate, DdlSubProyectoDatos.SelectedValue.ToEntero) ObjInventarios.Dispose() - Dim PorcentajePrecio = ObjPS.DtResultados.FiltroPrimeroValor("Porcentaje").ToDecimal + Dim PorcentajePrecio As Decimal = ObjPS.DtResultados.FiltroPrimeroValor("Porcentaje").ToDecimal If CostoPS > 0 And PorcentajePrecio > 0 Then PrecioSugerido = ((PorcentajePrecio / 100) + 1) * CostoPS End If @@ -4343,26 +4344,26 @@ Partial Class PV If ValidaCondicionesComerciales AndAlso DtPorcentajeMarcas IsNot Nothing AndAlso DtPorcentajeMarcas.Rows.Count > 0 Then 'VERIFICA SI EL PRODUCTO TIENE ESPECIFICADA UNA MARCA If Not String.IsNullOrEmpty(DrPS("CveMarca").ToString()) AndAlso DrPS("CveMarca").ToString().ToEntero() > 0 Then - Dim RowPorcentaje = DtPorcentajeMarcas.FiltroPrimero($"CveMarca={DrPS("CveMarca").ToString()}") + Dim RowPorcentaje As DataRow = DtPorcentajeMarcas.FiltroPrimero($"CveMarca={DrPS("CveMarca").ToString()}") 'REALIZA LOS DESCUENTOS DE ACUERDO AL PORCENTAJE POR MARCA If RowPorcentaje IsNot Nothing Then '(AHORA LOS DESCUENTOS SON ACUMULABLES) 'Descuento = 0 - Dim PorcentajeProducto = RowPorcentaje("PorcentajeProducto").ToString().ToDecimal() / 100D - Dim PorcentajeProducto2 = RowPorcentaje("PorcentajeProducto2").ToString().ToDecimal() / 100D - Dim PorcentajeProducto3 = RowPorcentaje("PorcentajeProducto3").ToString().ToDecimal() / 100D + Dim PorcentajeProducto As Decimal = RowPorcentaje("PorcentajeProducto").ToString().ToDecimal() / 100D + Dim PorcentajeProducto2 As Decimal = RowPorcentaje("PorcentajeProducto2").ToString().ToDecimal() / 100D + Dim PorcentajeProducto3 As Decimal = RowPorcentaje("PorcentajeProducto3").ToString().ToDecimal() / 100D Dim TotalInicial As Decimal = (Cantidad * (PU)) '- Descuento - Dim TotalFinal = TotalInicial + Dim TotalFinal As Decimal = TotalInicial 'SI APLICA EL PRIMER DESCUENTO If PorcentajeProducto > 0 Then Dim Descuento1 As Decimal = (TotalInicial * PorcentajeProducto).RoundSQL(2) - Dim Total2 = (TotalInicial - Descuento1) + Dim Total2 As Decimal = (TotalInicial - Descuento1) 'SI APLICA EL SEGUNDO DESCUENTO If PorcentajeProducto2 > 0 Then Dim Descuento2 As Decimal = (Total2 * PorcentajeProducto2).RoundSQL(2) - Dim Total3 = (Total2 - Descuento2) + Dim Total3 As Decimal = (Total2 - Descuento2) 'SI APLICA EL TERCER DESCUENTO If PorcentajeProducto3 > 0 Then @@ -4385,20 +4386,20 @@ Partial Class PV 'SI TIENE PRONTO PAGO CALCULA EL IMPORTE If DdlTipoComprobante.SelectedValue = "Ing" AndAlso RowPorcentaje("ProntoPago").ToString().ToDecimal() > 0 Then Dim TotalProntoPago As Decimal = (Cantidad * (PU)) - Descuento - Dim PorcentajeProntoPago = RowPorcentaje("ProntoPago").ToString().ToDecimal() / 100D + Dim PorcentajeProntoPago As Decimal = RowPorcentaje("ProntoPago").ToString().ToDecimal() / 100D ObjDescuento.ImporteProntoPago = (TotalProntoPago * PorcentajeProntoPago).RoundSQL(2) End If End If End If - Else - 'If CveMarcaPS = 1092 Then ' E140 - alcalinas LTH - ' Descuento = ((Cantidad * PU) * 0.183D).RoundSQL(2) - 'End If - If DrPS("CveClasificacion").ToString.ToEntero.Contiene(20516, 20515) Then - Descuento = ((Cantidad * PU) * ClasificacionesDescuentos(DrPS("CveClasificacion").ToString.ToEntero)).RoundSQL(2) - End If + 'Else + ' 'If CveMarcaPS = 1092 Then ' E140 - alcalinas LTH + ' ' Descuento = ((Cantidad * PU) * 0.183D).RoundSQL(2) + ' 'End If + ' If DrPS("CveClasificacion").ToString.ToEntero.Contiene(20516, 20515) Then + ' Descuento = ((Cantidad * PU) * ClasificacionesDescuentos(DrPS("CveClasificacion").ToString.ToEntero)).RoundSQL(2) + ' End If End If ''condicion final, si es cambio de Vigencia, no aplica descuento @@ -4699,14 +4700,14 @@ Partial Class PV Exit Sub End If - Dim CveTipoInv = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePS).FiltroPrimeroValor("Inv_CveMetodoInventario").ToEntero + Dim CveTipoInv As Integer = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePS).FiltroPrimeroValor("Inv_CveMetodoInventario").ToEntero If Cantidad <> 1 And CveTipoInv = 5 AndAlso UsuarioActual.CveEmpresa <> 72 Then Alert("El producto se tiene que dar salida por serie y producto por producto (Cantidad = 1).", TipoMensaje.MsgAdvertencia) Exit Sub End If - Dim AplicaSerie = CBool(GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePS).FiltroPrimeroValor("AplicaSerie")) + Dim AplicaSerie As Boolean = CBool(GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePS).FiltroPrimeroValor("AplicaSerie")) If TmpDT.FiltraParametros("AsientoContableVentas <> '" & AsientoContableVentas.ToString & "'").Rows.Count = 0 Then Dim Row As DataRow = Nothing @@ -5211,10 +5212,10 @@ Partial Class PV If Not CveContrato > 0 Then 'BANDERAS PARA VALIDACIONES - Dim EsValido = False - Dim EsValidoMayor = False - Dim CostoMenor = 0.0D - Dim CostoMayor = 0.0D + Dim EsValido As Boolean = False + Dim EsValidoMayor As Boolean = False + Dim CostoMenor As Decimal = 0.0D + Dim CostoMayor As Decimal = 0.0D 'PRECIO MINIMO If UsuarioActual.Empresa.Funcionalidad(129).ToEntero > 0 AndAlso UsuarioActual.CveUsuario <> 1560 Then @@ -5331,7 +5332,7 @@ Partial Class PV GvPSRowIndexEdit = GvRow.RowIndex ConsecutivoVenta = GvRow.DataKey("Consec").ToEntero CveVentaDetalle = GvRow.DataKey("CveVentaDetalle").ToEntero - Dim EsCargo = CBool(GvRow.DataKey("EsCargo")) + Dim EsCargo As Boolean = CBool(GvRow.DataKey("EsCargo")) LnkAgregarPS.Text = "Actualizar" DdlClasificacion.SelectedValueExist(GvRow.DataKey("CveClasificacion")) CargaPS(DdlClasificacion.SelectedValue.ToEntero, DdlPS) @@ -5476,7 +5477,7 @@ Partial Class PV End If 'SELECCIONA EL PS DEPENDIENDO LA MODALIDAD (CODIGO BARRAS - DDL) - Dim CvePS = DdlPS.SelectedValue.ToEntero + Dim CvePS As Integer = DdlPS.SelectedValue.ToEntero Dim DrPS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePS).FiltroPrimero("") If ValidaAgregarPS(CvePS, DdlUnidadMedida.SelectedValue.ToEntero, TxtPrecio.Text.Trim.ToDouble, HdnTipoPS.Value.ToEntero, TxtCantidad.Text.ToDecimal) Then @@ -5494,9 +5495,9 @@ Partial Class PV End If Dim ObjDescuento As New Modelos.VentaDescuentos - If DrPS("CveClasificacion").ToString.ToEntero.Contiene(20516, 20515) Then - ObjDescuento.ImporteDescuento = ((Cantidad * PU) * ClasificacionesDescuentos(DrPS("CveClasificacion").ToString.ToEntero)) - End If + 'If DrPS("CveClasificacion").ToString.ToEntero.Contiene(20516, 20515) Then + ' ObjDescuento.ImporteDescuento = ((Cantidad * PU) * ClasificacionesDescuentos(DrPS("CveClasificacion").ToString.ToEntero)) + 'End If ObjDescuento = CalcularDescuentos(CvePS, Cantidad, PU) If ObjDescuento.EsPUModificado Then @@ -5512,7 +5513,7 @@ Partial Class PV Proyecto = RowSP("Proyecto").ToString End If - Dim Consec = AgregarProductoServicio(Cantidad, DdlUnidadMedida.SelectedValue.ToEntero, DdlUnidadMedida.SelectedItem.Text, DdlClasificacion.SelectedValue.ToEntero, DdlClasificacion.SelectedItem.Text, + Dim Consec As Integer = AgregarProductoServicio(Cantidad, DdlUnidadMedida.SelectedValue.ToEntero, DdlUnidadMedida.SelectedItem.Text, DdlClasificacion.SelectedValue.ToEntero, DdlClasificacion.SelectedItem.Text, CvePS, "", TxtObsPS.Text.Trim, PU, ObjDescuento.ImporteDescuento, CveProyecto, Proyecto, DdlSubProyectoDatos.SelectedValue.ToEntero, DdlSubProyectoDatos.SelectedItem.Text, Serie:="", TiempoEntrega:="", CuentaPredial:="", RegeneraIEPS:=ClienteDesglosaIEPS, CveVentaDetalle:=CveVentaDetalle, EsCargo:=EsCargo) @@ -5548,7 +5549,7 @@ Partial Class PV Exit Sub End If - Dim Total = 0.0D + Dim Total As Decimal = 0.0D Dim Descuento As Decimal = HdnDescuento.Value.ToDecimal Dim Porcentaje As Decimal = Descuento / TmpDT.SUMD("Total") Dim LastDr As DataRow = Nothing @@ -5661,7 +5662,7 @@ Partial Class PV #Region "CALCULA TOTALES" Private Sub CalculaTotalesVenta(Optional RecalculaImpuestosLocales As Boolean = True) - Dim TmpDT = Me.TmpDT.FiltraParametros("EliminarDB = False", Orderby:="Consec") + Dim TmpDT As DataTable = Me.TmpDT.FiltraParametros("EliminarDB = False", Orderby:="Consec") Dim TotalSubTotal As Decimal = TmpDT.SUM("TotalImporte").ToDecimal Dim TotalDescuentos As Decimal = TmpDT.SUM("Descuento").ToDecimal @@ -5744,7 +5745,7 @@ Partial Class PV Dim Cuerpo As String = String.Empty Dim ResultadoMail As Integer = 0 - Dim TipoComprobante = "" + Dim TipoComprobante As String = "" If DdlTipoComprobante.SelectedValue.ToString = "Ing" Then TipoComprobante = "Factura" If DdlTipoComprobante.SelectedValue.ToString = "Egs" Then TipoComprobante = "Nota de Crédito" @@ -6144,8 +6145,8 @@ Partial Class PV DtPagos.Rows.RemoveAt(e.RowIndex) 'JJMQ 20160506: Validacion para no pagar de mas a peticion de I.P. - Dim abonado = DtPagos.SUM("Importe") - Dim saldo = TxtTotal.Text.Replace(",", "").ToDouble - abonado + Dim abonado As Decimal = DtPagos.SUMD("Importe") + Dim saldo As Decimal = TxtTotal.Text.Replace(",", "").ToDecimal - abonado 'CVImporteContado.ValueToCompare = (saldo.FormatoNumero(2).ToDouble).ToString CargaGridContado() @@ -6173,7 +6174,7 @@ Partial Class PV 'Pago en Efectivo If TxtImporteEfectivo.Text.ToDecimal > 0 Then If DdlCuentaEfectivo.Items.Count > 0 Then - Dim DrEfectivo = DtPagos.NewRow + Dim DrEfectivo As DataRow = DtPagos.NewRow DrEfectivo("CveTipoMovimiento") = 13 DrEfectivo("TipoMovimiento") = "Pago en Efectivo" DrEfectivo("CveCuenta") = DdlCuentaEfectivo.SelectedValue @@ -6192,7 +6193,7 @@ Partial Class PV 'Pago Tarjeta Credito If TxtImporteCredito.Text.ToDecimal > 0 Then If DdlCuentaTarjetaCredito.Items.Count > 0 Then - Dim DrCredito = DtPagos.NewRow + Dim DrCredito As DataRow = DtPagos.NewRow DrCredito("CveTipoMovimiento") = 12 DrCredito("TipoMovimiento") = "Tarjeta de Crédito" DrCredito("CveCuenta") = DdlCuentaTarjetaCredito.SelectedValue @@ -6211,7 +6212,7 @@ Partial Class PV 'Pago Tarjeta Debito If TxtImporteDebito.Text.ToDecimal > 0 Then If DdlCuentaTarjetaDebito.Items.Count > 0 Then - Dim DrDebito = DtPagos.NewRow + Dim DrDebito As DataRow = DtPagos.NewRow DrDebito("CveTipoMovimiento") = 11 DrDebito("TipoMovimiento") = "Tarjeta de Debito" DrDebito("CveCuenta") = DdlCuentaTarjetaDebito.SelectedValue @@ -6231,7 +6232,7 @@ Partial Class PV 'Pago Tarjeta Debito If TxtImporteCheque.Text.ToDecimal > 0 Then If DdlCuentaCheque.Items.Count > 0 Then - Dim DrCheque = DtPagos.NewRow + Dim DrCheque As DataRow = DtPagos.NewRow DrCheque("CveTipoMovimiento") = 3 DrCheque("TipoMovimiento") = "Cheque" DrCheque("CveCuenta") = DdlCuentaCheque.SelectedValue @@ -6251,7 +6252,7 @@ Partial Class PV 'Pago Transferencia If TxtImporteTransferencia.Text.ToDecimal > 0 Then If DdlCuentaTransferencia.Items.Count > 0 Then - Dim DrCheque = DtPagos.NewRow + Dim DrCheque As DataRow = DtPagos.NewRow DrCheque("CveTipoMovimiento") = 8 DrCheque("TipoMovimiento") = "Transferencia" DrCheque("CveCuenta") = DdlCuentaTransferencia.SelectedValue @@ -6281,7 +6282,7 @@ Partial Class PV LimpiaEscondeContado() End Sub Private Function ValidaPagosContado() As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False If DtPagos.SUM("Importe").ToString.ToDecimal > TxtTotal.Text.ToDecimal Then Alert("El importe de los pagos no puede exceder el importe de la factura. Por favor verifique.", TipoMensaje.MsgAdvertencia) @@ -6308,13 +6309,13 @@ Partial Class PV #Region " SERIE ALMACEN " Protected Sub BtnSerie_Click(sender As Object, e As EventArgs) - Dim Row = CType(CType(sender, Button).NamingContainer, GridViewRow) + Dim Row As GridViewRow = CType(CType(sender, Button).NamingContainer, GridViewRow) If Row.FCTextBox("TxtSerie").Text.Trim = "" Then Exit Sub - Dim Index = Row.RowIndex + Dim Index As Integer = Row.RowIndex Dim ObjInventarios As New ClsInventarios - Dim Existencia = ObjInventarios.GetExistenciasPSSerie(Row.FCTextBox("TxtSerie").Text.ToString.Trim, ddlAlmacen.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) + Dim Existencia As Decimal = ObjInventarios.GetExistenciasPSSerie(Row.FCTextBox("TxtSerie").Text.ToString.Trim, ddlAlmacen.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) ObjInventarios.Dispose() 'Valida Existencia @@ -6334,9 +6335,9 @@ Partial Class PV End Sub Private Function ValidaSerieINV() As Boolean - Dim Retorno = False - Dim Existencia = 0.0 - Dim ExistenciaActual = 0.0 + Dim Retorno As Boolean = False + Dim Existencia As Decimal = 0 + Dim ExistenciaActual As Decimal = 0 Dim ObjInventarios As New ClsInventarios For Each Gvr As GridViewRow In GvInv.Rows @@ -6351,7 +6352,7 @@ Partial Class PV If Gvr.FCTextBox("TxtSerie").Visible = True And Gvr.FCTextBox("TxtSerie").Text.Trim <> "" Then Existencia = ObjInventarios.GetExistenciasPSSerie(Gvr.FCTextBox("TxtSerie").Text.ToString, ddlAlmacen.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) - ExistenciaActual = DtInv.SUM("Cantidad", String.Format("Serie = '{0}'", Gvr.FCTextBox("TxtSerie").Text.Trim)) + ExistenciaActual = DtInv.SUMD("Cantidad", String.Format("Serie = '{0}'", Gvr.FCTextBox("TxtSerie").Text.Trim)) 'Valida Existencia If Existencia - ExistenciaActual < 0 Or Existencia = 0 Then @@ -6562,7 +6563,7 @@ Partial Class PV End If Dim EsPersonaMoral As Boolean = (RdTipoPersona.SelectedValue = "1") - Dim DtUsosCFDI = GlobalDTSATUsosCFDI(If(Not EsPersonaMoral, 1, 0), RegimenFiscalReceptor:=RegimenFiscalCliente).FiltraParametros($"CveUsoCFDI = {CveUsoCFDI}") + Dim DtUsosCFDI As DataTable = GlobalDTSATUsosCFDI(If(Not EsPersonaMoral, 1, 0), RegimenFiscalReceptor:=RegimenFiscalCliente).FiltraParametros($"CveUsoCFDI = {CveUsoCFDI}") If DtUsosCFDI.Rows.Count = 0 Then Alert("El Uso CFDI no corresponde con el tipo de persona (fisca, moral) y el régimen fiscal.", TipoMensaje.MsgAdvertencia) @@ -6582,7 +6583,7 @@ Partial Class PV Dim ObjCliente As New ClsClientes Dim TipoPersona As Boolean = If(RdTipoPersona.SelectedValue.ToEntero = 1, True, False) - Dim GeneroCliente = If(DdlGeneroCliente.SelectedValue.ToEntero = 1 Or DdlGeneroCliente.SelectedValue.ToEntero = -1, True, False) + Dim GeneroCliente As Boolean = If(DdlGeneroCliente.SelectedValue.ToEntero = 1 Or DdlGeneroCliente.SelectedValue.ToEntero = -1, True, False) If ObjCliente.AgregarClienteNoFrecuente(TxtNombreCliente.Text.Trim, TxtDireccionCliente.Text.Trim, TxtNumExtCliente.Text.Trim, TxtNumIntCliente.Text.Trim, TxtColoniaCliente.Text.Trim, TxtLocalidadCliente.Text.Trim, TxtCiudadCliente.Text.Trim, DdlEstadoSAT.SelectedValue.ToEntero, @@ -6980,7 +6981,7 @@ Partial Class PV DdlTipoDefecto.DataSource = GlobalDTAcumTiposDefecto(UsuarioActual.CveEmpresa) DdlTipoDefecto.Items.Insert(0, New ListItem("Seleccione", "-1")) - Dim DtTamanios = GlobalDTAcumTamaños(UsuarioActual.CveEmpresa).FiltraParametros($" CvePSCargo > 0") + Dim DtTamanios As DataTable = GlobalDTAcumTamaños(UsuarioActual.CveEmpresa).FiltraParametros($" CvePSCargo > 0") CargaModelos() CargaBCIAjuste() @@ -7018,6 +7019,7 @@ Partial Class PV DtModelosAuto = ObjGral.DtResultados DdlModeloAuto.DataSource = DtModelosAuto End If + ObjGral.Dispose() DdlModeloAuto.DataBind() DdlModeloAuto.Items.Insert(0, New ListItem("-", "-1")) End Sub @@ -7266,7 +7268,7 @@ Partial Class PV If PrecioSugerido = 0 Then Dim ObjInventarios As New ClsInventarios - Dim CostoPS = ObjInventarios.GetCostoPS(CvePSParametro, TxtCantidad.Text.Trim.ToDouble, -1, "-1", TxtFecha.Text.ToDate, DdlSubProyectoDatos.SelectedValue.ToEntero(), CveTipoAlmacen:=1) + Dim CostoPS As Decimal = ObjInventarios.GetCostoPS(CvePSParametro, TxtCantidad.Text.Trim.ToDouble, -1, "-1", TxtFecha.Text.ToDate, DdlSubProyectoDatos.SelectedValue.ToEntero(), CveTipoAlmacen:=1) 'si el costo es cero, puede ser que no halla movimientos del producto, en esa sucursal. y se volverá a sacar sin especificar sucursal If CostoPS = 0 Then CostoPS = ObjInventarios.GetCostoPS(CvePSParametro, TxtCantidad.Text.Trim.ToDouble, -1, "-1", TxtFecha.Text.ToDate, -1, CveTipoAlmacen:=1) ObjInventarios.Dispose() @@ -7969,10 +7971,8 @@ Partial Class PV End If Dim ListaPScargo As New List(Of Modelos.MConceptoUsado) - Dim DTTamanios As DataTable = GlobalDTAcumTamaños(UsuarioActual.CveEmpresa) - Dim DTCvePSCostos = DTTamanios.FiltraParametros("", "", {"CvePSCargo"}) - + Dim DTCvePSCostos As DataTable = DTTamanios.FiltraParametros("", "", {"CvePSCargo"}) Dim CveUnidadMedidaPSA As Integer = -1 Dim UnidadMedidaPSA As String = "Unidad" @@ -8060,7 +8060,7 @@ Partial Class PV Next ObjProductosServicios.Dispose() - Dim ModalidadBack = Modalidad + Dim ModalidadBack As String = Modalidad 'CAMBIA LA MODALIDAD PARA AGREGAR LOS PS CARGO If Modalidad = "U" Then Modalidad = "A"