From 98017286c9a1785f12fcbebbc3cf4a78cf707917 Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 18 Sep 2023 09:04:21 -0700 Subject: [PATCH] -- option explicit --- Compras/PopUpVerFactura.aspx.vb | 165 +++++++++++++----------------- Compras/Proveedores.aspx.vb | 44 ++++---- Ventas/ProductosServicios.aspx.vb | 8 +- 3 files changed, 98 insertions(+), 119 deletions(-) diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb index 0ec2f8250..51bfb7927 100644 --- a/Compras/PopUpVerFactura.aspx.vb +++ b/Compras/PopUpVerFactura.aspx.vb @@ -96,7 +96,7 @@ Partial Class PopUpVerFactura Dim CveEmpresaToken As Integer = UserParams("CVEEMPRESA").ToString().ToEntero() Dim CveUsuario As Integer = IfNull(UserParams("CVEUSUARIO"), 100, UserParams("CVEUSUARIO").ToString().ToEntero()).ToString().ToEntero() - Dim UsuarioToken = ValidaUsuarioSistema(CveEmpresaToken, CveUsuario) + Dim UsuarioToken As Usuario = ValidaUsuarioSistema(CveEmpresaToken, CveUsuario) If UsuarioToken IsNot Nothing AndAlso Context.Session("UsuarioSIG") Is Nothing Then Context.Session("UsuarioSIG") = UsuarioToken @@ -319,7 +319,7 @@ Partial Class PopUpVerFactura cvePersonal = Request("cvePersonal").ToString.ToEntero() End If Dim RFCs As New StringBuilder - Dim contador = 0 + Dim contador As Integer = 0 Using objnom As New ClsNominas If objnom.PreNominaTotalSemana(numeroPeriodo, UsuarioActual.CveEmpresa, cveSubProyecto, cveTipoNomina, tipoTrabajador, ejercicio, facturado) Then For Each item As DataRow In objnom.DtResultados.Select("CvePersonal > 0") @@ -384,7 +384,7 @@ Partial Class PopUpVerFactura lrds.Add(rds2) '"D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc" - Dim rutardlc = "Formatos\RepAgroInventarioDiario.rdlc" + Dim rutardlc As String = "Formatos\RepAgroInventarioDiario.rdlc" If EnviarCorrreo Then Dim para As String = "caudillo.90d@gmail.com" Dim dtCorreos As DataTable = New DataTable() @@ -537,7 +537,7 @@ Partial Class PopUpVerFactura lrds.Add(rds) '"D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc" - Dim rutardlc = "Formatos\Agro\EmbarqueManifiesto.rdlc" + Dim rutardlc As String = "Formatos\Agro\EmbarqueManifiesto.rdlc" If Not IsNothing(tablaReporte.FiltroPrimero("TipoManifiesto=1")) Then rutardlc = "Formatos\Agro\EmbarqueManifiesto2.rdlc" End If @@ -847,7 +847,7 @@ Partial Class PopUpVerFactura lrds.Add(rds) '"Empresas/Grales/Formatos/EquiposGPS.rdlc" '"D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc" - Dim pdf = StreamPDF("Formatos\Agro\EmbarqueManifiestoCartaPorte.rdlc", lrds, params, "DatosCartaPorte") + Dim pdf As Byte() = StreamPDF("Formatos\Agro\EmbarqueManifiestoCartaPorte.rdlc", lrds, params, "DatosCartaPorte") Dim LSRutasMail As New List(Of ClsSisMail.ArchivoMail) LSRutasMail.Add(New ClsSisMail.ArchivoMail With {.ArchivoBinario = pdf, .NombreArchivo = String.Format("{0}.pdf", "DatosCartaPorte")}) @@ -913,9 +913,9 @@ Partial Class PopUpVerFactura Dim bcode As New BarcodeLib.Barcode() - Dim img = bcode.Encode(BarcodeLib.TYPE.CODE128, String.Format("{0}", noPallet), 500, 100) + Dim img As Drawing.Image = bcode.Encode(BarcodeLib.TYPE.CODE128, String.Format("{0}", noPallet), 500, 100) Dim barcodebyte As Byte() - Using ms = New MemoryStream() + Using ms As New MemoryStream() img.Save(ms, System.Drawing.Imaging.ImageFormat.Png) barcodebyte = ms.ToArray() End Using @@ -1021,9 +1021,9 @@ Partial Class PopUpVerFactura Dim bcode As New BarcodeLib.Barcode() - Dim img = bcode.Encode(BarcodeLib.TYPE.CODE128, String.Format("{0}", GTIN), 500, 200) + Dim img As Drawing.Image = bcode.Encode(BarcodeLib.TYPE.CODE128, String.Format("{0}", GTIN), 500, 200) Dim barcodebyte As Byte() - Using ms = New MemoryStream() + Using ms As New MemoryStream() img.Save(ms, System.Drawing.Imaging.ImageFormat.Png) barcodebyte = ms.ToArray() End Using @@ -1035,14 +1035,12 @@ Partial Class PopUpVerFactura rds2.Value = dtqr lrds.Add(rds2) 'endimg - - Dim dtqr2 As DataTable = dtqr.Clone() Dim bcode2 As New BarcodeLib.Barcode() - Dim img2 = bcode2.Encode(BarcodeLib.TYPE.CODE128, String.Format("{0}", GTINAll.Replace("(", "").Replace(")", "")), 900, 100) + Dim img2 As Drawing.Image = bcode2.Encode(BarcodeLib.TYPE.CODE128, String.Format("{0}", GTINAll.Replace("(", "").Replace(")", "")), 900, 100) Dim barcodebyte2 As Byte() - Using ms = New MemoryStream() + Using ms As New MemoryStream() img2.Save(ms, System.Drawing.Imaging.ImageFormat.Png) barcodebyte2 = ms.ToArray() End Using @@ -1052,8 +1050,6 @@ Partial Class PopUpVerFactura Dim rds22 As New ReportDataSource With {.Name = "dsImagenesGTIN", .Value = dtqr2} lrds.Add(rds22) - - Dim rds As New ReportDataSource With {.Name = "DataSet1", .Value = tablaReporte} lrds.Add(rds) @@ -1137,9 +1133,9 @@ Partial Class PopUpVerFactura Dim bcode As New BarcodeLib.Barcode() - Dim img = bcode.Encode(BarcodeLib.TYPE.CODE128, String.Format("{0}", noPallet), 500, 100) + Dim img As Drawing.Image = bcode.Encode(BarcodeLib.TYPE.CODE128, String.Format("{0}", noPallet), 500, 100) Dim barcodebyte As Byte() - Using ms = New MemoryStream() + Using ms As New MemoryStream() img.Save(ms, System.Drawing.Imaging.ImageFormat.Png) barcodebyte = ms.ToArray() End Using @@ -1171,8 +1167,8 @@ Partial Class PopUpVerFactura Dim ObjUsuarios As New ClsSisUsuarios If ObjUsuarios.GetUsuarios(CveUsuario) Then If ObjUsuarios.DtResultados.Rows.Count > 0 Then - Dim Usuario = ObjUsuarios.DtResultados.Rows(0)("Usuario").ToString() - Dim Contrasenia = ObjUsuarios.DtResultados.Rows(0)("Contraseña").ToString() + Dim Usuario As String = ObjUsuarios.DtResultados.Rows(0)("Usuario").ToString() + Dim Contrasenia As String = ObjUsuarios.DtResultados.Rows(0)("Contraseña").ToString() UsuarioToken = ObjUsuarios.ValidaUsuario(Usuario, Contrasenia, IMEI, CveEmpresa) UsuarioToken.CveEmpresa = CveEmpresa CreaObjetoEmpresa(UsuarioToken) @@ -1557,10 +1553,9 @@ Partial Class PopUpVerFactura Dim ObjPuntoVenta As New ClsPuntoVenta Dim DtCortesVentasResumen As DataTable = Nothing Dim DtCortesVentas As DataTable = Nothing - Dim Fecha = "", Nombre = "" + Dim Fecha As String = "", Nombre As String = "" If ObjVenta.GetCortesDetalleVentasResumen(CveCorte, CveSubProyecto, UsuarioActual.CveEmpresa) Then DtCortesVentasResumen = ObjVenta.DtResultados - End If If ObjPuntoVenta.GetCortesDetalleVentas(CveCorte, CveSubProyecto, UsuarioActual.CveEmpresa) Then @@ -1967,7 +1962,7 @@ Partial Class PopUpVerFactura XmlDoc.Load(PathXML) Dim nodo As XmlNode = XmlDoc.DocumentElement - Dim Version = ValorXML(nodo, "version") + Dim Version As String = ValorXML(nodo, "version") Dim namespaces As New XmlNamespaceManager(XmlDoc.NameTable) Dim Prefijo As String = If(XmlDoc.DocumentElement.Prefix = "", "cfd", XmlDoc.DocumentElement.Prefix) @@ -2122,7 +2117,7 @@ Partial Class PopUpVerFactura End Function Private Sub ImprimeFormatoCartaPorteTimbrado(CveTimbre As Integer) - Dim resp = PreParaImpresionCartaPorte(CveTimbre) + Dim resp As Modelos.MSubReportData = PreParaImpresionCartaPorte(CveTimbre) If resp.DataSources.Count > 0 AndAlso resp.Parametros.Count > 0 Then ImprimirPDF("Empresas/Grales/Formatos/CartaPorteTimbrado.rdlc", resp.DataSources, resp.Parametros, resp.SerieFolio) End If @@ -2260,7 +2255,7 @@ Partial Class PopUpVerFactura XMLDoc.Load(Path) Catch ex As Exception Try - Dim oReader = New StreamReader(Path, Encoding.GetEncoding("ISO-8859-1")) + Dim oReader As New StreamReader(Path, Encoding.GetEncoding("ISO-8859-1")) XMLDoc.Load(oReader) oReader.Dispose() Catch ex2 As Exception @@ -2277,7 +2272,7 @@ Partial Class PopUpVerFactura Dim Prefijo As String = If(XMLDoc.DocumentElement.Prefix = "", "cfd", XMLDoc.DocumentElement.Prefix) Dim cfdVer As String = "http://www.sat.gob.mx/cfd/3" Dim namespaces As New XmlNamespaceManager(XMLDoc.NameTable) - Dim Version = ValorXML(XMLDoc.DocumentElement, "version") + Dim Version As String = ValorXML(XMLDoc.DocumentElement, "version") If Version = "3.3" Then cfdVer = "http://www.sat.gob.mx/cfd/3" Else ' se considera que es la version 4.0 @@ -2304,7 +2299,7 @@ Partial Class PopUpVerFactura If nodeCliente IsNot Nothing Then ClienteRFC = ValorXML(nodeCliente, "RFC") ClienteNombre = ValorXML(nodeCliente, "Nombre") - Dim UsoCFDI = ValorXML(nodeCliente, "UsoCFDI") + Dim UsoCFDI As String = ValorXML(nodeCliente, "UsoCFDI") ClienteUsoCFDi = String.Format("{0} - {1}", UsoCFDI, GlobalDTSATUsosCFDI().FiltroPrimeroValor("Descripcion", String.Format("UsoCFDI = '{0}'", UsoCFDI))) End If @@ -2391,9 +2386,9 @@ Partial Class PopUpVerFactura Dim nodeMercanciaPadre As XmlNodeList = nodeComp.SelectNodes(String.Format("//{0}:Mercancias", "cartaporte20"), namespaces) If UsuarioActual.CveEmpresa = 13 AndAlso nodeMercanciaPadre IsNot Nothing Then - Dim PesoNetoTotal = ValorXML(nodeMercanciaPadre(0), "PesoNetoTotal", "") - Dim UnidadPeso = ValorXML(nodeMercanciaPadre(0), "UnidadPeso", "") - Dim NumTotalMercancias = ValorXML(nodeMercanciaPadre(0), "NumTotalMercancias", "") + Dim PesoNetoTotal As String = ValorXML(nodeMercanciaPadre(0), "PesoNetoTotal", "") + Dim UnidadPeso As String = ValorXML(nodeMercanciaPadre(0), "UnidadPeso", "") + Dim NumTotalMercancias As String = ValorXML(nodeMercanciaPadre(0), "NumTotalMercancias", "") params.Add(New ReportParameter("PesoNetoTotal", PesoNetoTotal)) params.Add(New ReportParameter("UnidadPeso", UnidadPeso)) @@ -2423,14 +2418,14 @@ Partial Class PopUpVerFactura Row("RFC") = ValorXML(node, "RFCRemitenteDestinatario", "") Row("Nombre") = ValorXML(node, "NombreRemitenteDestinatario", "") - Dim nodeDomicilio = node.ChildNodes.Cast(Of XmlNode).FirstOrDefault(Function(x) x.Name = "cartaporte20:Domicilio") 'node.SelectSingleNode(String.Format("//{0}:Domicilio", "cartaporte"), namespaces) + Dim nodeDomicilio As XmlNode = node.ChildNodes.Cast(Of XmlNode).FirstOrDefault(Function(x) x.Name = "cartaporte20:Domicilio") 'node.SelectSingleNode(String.Format("//{0}:Domicilio", "cartaporte"), namespaces) If nodeDomicilio IsNot Nothing Then Dim Estado As String = "" Dim Municipio As String = "" Dim Colonia As String = "" - Dim calle = ValorXML(nodeDomicilio, "Calle", "") - Dim CP = ValorXML(nodeDomicilio, "CodigoPostal", "") + Dim calle As String = ValorXML(nodeDomicilio, "Calle", "") + Dim CP As String = ValorXML(nodeDomicilio, "CodigoPostal", "") Dim dr As DataRow = GlobalDTGralColonias(ValorXML(nodeDomicilio, "Estado", ""), ValorXML(nodeDomicilio, "Municipio", ""), ValorXML(nodeDomicilio, "Colonia", "")).FiltroPrimero("") If dr IsNot Nothing Then @@ -2449,7 +2444,7 @@ Partial Class PopUpVerFactura params.Add(New ReportParameter("DistanciaTotal", DistanciaTotal.ToString())) End If - Dim nodeRelacion = XMLDoc.SelectSingleNode(String.Format("//{0}:CfdiRelacionados", Prefijo), namespaces) + Dim nodeRelacion As XmlNode = XMLDoc.SelectSingleNode(String.Format("//{0}:CfdiRelacionados", Prefijo), namespaces) If nodeRelacion IsNot Nothing Then Dim RelacionCodigo As String = ValorXML(nodeRelacion, "TipoRelacion") @@ -2474,17 +2469,16 @@ Partial Class PopUpVerFactura Relacion = "08 - Factura generada por pagos en parcialidades" Case "09" Relacion = "09 - Factura generada por pagos diferidos" - End Select - Dim nodoDocumentosRealcionados = XMLDoc.SelectNodes(String.Format("//{0}:CfdiRelacionados", Prefijo), namespaces) - For Each node As XmlNode In nodoDocumentosRealcionados + Dim nodoDocumentosRelacionados As XmlNodeList = XMLDoc.SelectNodes(String.Format("//{0}:CfdiRelacionados", Prefijo), namespaces) + For Each node As XmlNode In nodoDocumentosRelacionados Dim nRow As DataRow = DTRelacionados.NewRow nRow("Relacion") = Relacion Try - Dim nodoUUID = node.ChildNodes.Cast(Of XmlNode).FirstOrDefault(Function(x) x.Name = "cfdi:CfdiRelacionado") + Dim nodoUUID As XmlNode = node.ChildNodes.Cast(Of XmlNode).FirstOrDefault(Function(x) x.Name = "cfdi:CfdiRelacionado") nRow("UUID") = ValorXML(nodoUUID, "UUID", "") Catch ex As Exception nRow("UUID") = "" @@ -2724,7 +2718,7 @@ Partial Class PopUpVerFactura End Using If Folio > 0 AndAlso DtDetalle IsNot Nothing AndAlso DtDetalle.Rows.Count > 0 Then - Dim ObjFactura = New Modelos.Factura + Dim ObjFactura As New Modelos.Factura ObjFactura.Version = "3.3" ObjFactura.CveUsuario = UsuarioActual.CveUsuario ObjFactura.CveEmpresa = UsuarioActual.CveEmpresa @@ -2934,12 +2928,12 @@ Partial Class PopUpVerFactura Dim PathArchivo As String = "" 'String.Format("{0}PDF\{1}\{2}.pdf", UsuarioActual.Empresa.Ruta, Vta.TipoDocto, Vta.SerieFolio) - Dim TmpDTImpuestos = New DataTable + Dim TmpDTImpuestos As New DataTable TmpDTImpuestos.Columns.Add("ImpuestoLocal", GetType(String)) TmpDTImpuestos.Columns.Add("Importe", GetType(Double)) TmpDTImpuestos.Columns.Add("Orden", GetType(Integer)) - Dim TmpDTImpuestosIVAIEPS = New DataTable + Dim TmpDTImpuestosIVAIEPS As New DataTable TmpDTImpuestosIVAIEPS.Columns.Add("Impuesto", GetType(String)) TmpDTImpuestosIVAIEPS.Columns.Add("tasa", GetType(String)) TmpDTImpuestosIVAIEPS.Columns.Add("Importe", GetType(Double)) @@ -2962,7 +2956,7 @@ Partial Class PopUpVerFactura 'Vta.Subproyecto = ObjVentas.DtResultados.Rows(0).DataRowToObject(Of Modelos.SucursalModel) Dim CveSubProyecto As Integer = dtVentas(0)("CveSubProyecto").ToString().ToEntero() - Dim DtSubProyecto = GlobalDTSubProyectos(-1, CveSubProyecto:=CveSubProyecto, CveEmpresa:=dtVentas(0)("CveEmpresa").ToString().ToEntero()) + Dim DtSubProyecto As DataTable = GlobalDTSubProyectos(-1, CveSubProyecto:=CveSubProyecto, CveEmpresa:=dtVentas(0)("CveEmpresa").ToString().ToEntero()) Vta.SubProyecto = DtSubProyecto.Rows(0).DataRowToObject(Of Modelos.SubProyectoModel) 'Vta.SubProyecto = ObjVentas.DtResultados.Rows(0).DataRowToObject(Of Modelos.SubProyectoModel) @@ -3076,7 +3070,7 @@ Partial Class PopUpVerFactura Dim dtImpuesto As DataTable = ObjVentas.DtResultados If dtImpuesto.Rows.Count > 0 Then For Each Row As DataRow In dtImpuesto.Rows - Dim Orden = 80 + Dim Orden As Integer = 80 If Row("Importe").ToString.ToDouble <> 0 Then DR("ImpuestoLocal") = Row("ImpuestoLocal").ToString DR("Importe") = Row("Importe").ToString.ToDouble @@ -3340,15 +3334,11 @@ Partial Class PopUpVerFactura Optional EsTransitorio As Boolean = False, Optional CveAlmacenRecepcion As Integer = -1, Optional CveAlmacenTransitorioRecepcion As Integer = -1, Optional FolioBusquedaTrasitorio As Integer = -1) Dim ObjInventarios As New ClsInventarios - - - - ObjInventarios.GetMovimientos(CveMovimiento, -1, -1, UsuarioActual.CveEmpresa) Dim CveConcepto As Integer = ObjInventarios.CveConcepto Dim Folio As String = ObjInventarios.Folio.ToString - Dim CveCompra = ObjInventarios.CveCompra + Dim CveCompra As Integer = ObjInventarios.CveCompra Dim Fecha As String = ObjInventarios.Fecha.ToShortDateString Dim FechaHora As DateTime = ObjInventarios.FechaHora Dim Almacen As String = ObjInventarios.Almacen @@ -3439,8 +3429,6 @@ Partial Class PopUpVerFactura End If End If - - Dim CantidadProductos As Decimal = 0 Dim CantidadUsados As Decimal = 0 @@ -3531,12 +3519,7 @@ Partial Class PopUpVerFactura keys(0) = DtMovimientos.Columns("No") DtMovimientos.PrimaryKey = keys End If - End If - - - - End If If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso CveCompra > 0 Then @@ -4282,8 +4265,8 @@ Partial Class PopUpVerFactura Dim SBDireccionD As New StringBuilder() Dim CveCliente As Integer = 0 Dim CveDireccionEnvio As Integer = 0 - Dim ClienteNombre = "", EnvioContacto = "", EnvioDireccion = "", EnvioColonia = "", EnvioCiudad = "", EnvioEstado = "", ClientePais = "", EnvioCP = "", Contrato = "", - Paqueteria = "", NumContrato = "", Guia = "" + Dim ClienteNombre As String = "", EnvioContacto As String = "", EnvioDireccion As String = "", EnvioColonia As String = "", EnvioCiudad As String = "", EnvioEstado As String = "", ClientePais As String = "", EnvioCP As String = "", Contrato As String = "", + Paqueteria As String = "", NumContrato As String = "", Guia As String = "" Dim CveContrato As Integer = 0 If DtMovimientos IsNot Nothing AndAlso DtMovimientos.Rows.Count > 0 Then @@ -5449,7 +5432,7 @@ Partial Class PopUpVerFactura Private Sub GenerarPDFOS(CveOS As Integer) Dim ObjOS As New ClsOS() Dim params As New List(Of ReportParameter) - Dim CveFolio = "" + Dim CveFolio As String = "" CreaDT() Dim FIRutaReporte As New System.IO.FileInfo(String.Format("{0}Formatos/OrdenServicio.rdlc", UsuarioActual.Empresa.Ruta)) @@ -5716,7 +5699,7 @@ Partial Class PopUpVerFactura If UsuarioActual.CveEmpresa.Contiene(72) Then Dim SBDomicilioSucursal As New StringBuilder() - Dim DRSucursal = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa, CveSubProyecto:=dr("CveSubProyecto").ToString.ToEntero, Estatus:=1).FiltroPrimero("") + Dim DRSucursal As DataRow = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa, CveSubProyecto:=dr("CveSubProyecto").ToString.ToEntero, Estatus:=1).FiltroPrimero("") If DRSucursal IsNot Nothing Then Dim CiudadSucursal As String = String.Format("{0},{1}", DRSucursal("Municipio"), DRSucursal("Estado")) @@ -5866,21 +5849,21 @@ Partial Class PopUpVerFactura ObjVentas.Dispose() If drv IsNot Nothing Then - Dim Total = drv("Total").ToString().ToDecimal() - Dim CveEstatusFactura = drv("CveEstatusFactura").ToString().ToEntero() - Dim FolioFiscal = drv("FolioFiscal").ToString() - Dim RFCReceptor = drv("RFCReceptor").ToString() - Dim SelloCancelacion = drv("SelloCancelacion").ToString() - Dim SelloSolicitudCancelacion = drv("SelloSolicitudCancelacion").ToString() - Dim EstadoCancelacion = drv("EstadoCancelacion").ToString() - Dim FechaCancelacion = drv("FechaCancelacion").ToString.ToDateTime + Dim Total As Decimal = drv("Total").ToString().ToDecimal() + Dim CveEstatusFactura As Integer = drv("CveEstatusFactura").ToString().ToEntero() + Dim FolioFiscal As String = drv("FolioFiscal").ToString() + Dim RFCReceptor As String = drv("RFCReceptor").ToString() + Dim SelloCancelacion As String = drv("SelloCancelacion").ToString() + Dim SelloSolicitudCancelacion As String = drv("SelloSolicitudCancelacion").ToString() + Dim EstadoCancelacion As String = drv("EstadoCancelacion").ToString() + Dim FechaCancelacion As DateTime = drv("FechaCancelacion").ToString.ToDateTime Dim MotivoCancelacion As String = "" Dim FolioSustitucion As String = "" Dim DirectorioArchivo As String = "Empresas/Grales/Formatos/AcuseCancelacion.mrt" - Dim RFCEmisor = UsuarioActual.Empresa.RFC + Dim RFCEmisor As String = UsuarioActual.Empresa.RFC Dim Titulo As String = "Acuse de cancelación de CFDI" Dim EstadoCFDI As String = "Cancelado" @@ -5906,9 +5889,9 @@ Partial Class PopUpVerFactura Using ObjV As New ClsVentas If ObjV.GetVentasPendientesCancelacion(UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, CveVenta:=CveVenta) Then - Dim RowCancelacion = ObjV.DtResultados.FiltroPrimero("") + Dim RowCancelacion As DataRow = ObjV.DtResultados.FiltroPrimero("") If RowCancelacion IsNot Nothing Then - Dim CveMotivoCancelacion = RowCancelacion("CveMotivoCancelacion").ToString().ToEntero() + Dim CveMotivoCancelacion As Integer = RowCancelacion("CveMotivoCancelacion").ToString().ToEntero() FolioSustitucion = RowCancelacion("FolioFiscalSustitucion").ToString() If CveMotivoCancelacion > 0 Then @@ -5954,7 +5937,7 @@ Partial Class PopUpVerFactura params.Add(New ReportParameter("MsgError", "")) params.Add(New ReportParameter("FechaCancelacion", FechaCancelacion.ToString("dd/MM/yyyy HH:mm:ss"))) - Dim DtAcuse = New DataTable("DtAcuse") + Dim DtAcuse As New DataTable("DtAcuse") DtAcuse.Columns.Add(New DataColumn("FolioFiscal", GetType(String))) DtAcuse.Columns.Add(New DataColumn("Estatus", GetType(String))) DtAcuse.Columns.Add(New DataColumn("MotivoCancelacion", GetType(String))) @@ -5962,7 +5945,7 @@ Partial Class PopUpVerFactura If CveEstatusFactura = 20 Then - Dim RowCFDI = DtAcuse.NewRow() + Dim RowCFDI As DataRow = DtAcuse.NewRow() RowCFDI("FolioFiscal") = FolioFiscal RowCFDI("Estatus") = "Solicitud de cancelación recibida" @@ -6018,7 +6001,7 @@ Partial Class PopUpVerFactura #Region "I E C H E Q U E S" Private Sub ImprimirIE(CveIE As Integer, CveEmpresa As Integer) - Dim CveTipoTransaccion = -1 + Dim CveTipoTransaccion As Integer = -1 Dim ObjIE As New ClsBancos() ObjIE.GetBancosIE(CveIE, UsuarioActual.CveEmpresa) If ObjIE.DtResultados.Rows.Count > 0 Then @@ -6027,13 +6010,13 @@ Partial Class PopUpVerFactura Dim params As New List(Of ReportParameter) If CveTipoTransaccion = 1 Then - Dim Folio = ObjIE.Folio - Dim Importe = ObjIE.Importe - Dim Observacion = ObjIE.Observaciones - Dim ImporteLetra = String.Format("--- {0} ---", Importe.Texto2Letras(ObjIE.CveMoneda)) - Dim Beneficiario = ObjIE.PagueseA - Dim Fecha = ObjIE.FechaDocumento.ToShortDateString - Dim CveCuenta = ObjIE.CveCuenta + Dim Folio As String = ObjIE.Folio + Dim Importe As Double = ObjIE.Importe + Dim Observacion As String = ObjIE.Observaciones + Dim ImporteLetra As String = String.Format("--- {0} ---", Importe.Texto2Letras(ObjIE.CveMoneda)) + Dim Beneficiario As String = ObjIE.PagueseA + Dim Fecha As String = ObjIE.FechaDocumento.ToShortDateString + Dim CveCuenta As Integer = ObjIE.CveCuenta params.Add(New ReportParameter("Fecha", Fecha)) params.Add(New ReportParameter("Folio", Folio)) params.Add(New ReportParameter("Beneficiario", Beneficiario)) @@ -6042,11 +6025,8 @@ Partial Class PopUpVerFactura params.Add(New ReportParameter("Observaciones", Observacion)) params.Add(New ReportParameter("Tipo", If(ObjIE.EsAbonoEnCuenta, "PARA ABONO EN CUENTA DEL BENEFICIARIO", ""))) - If UsuarioActual.CveEmpresa.Contiene(141) Then - Dim InicialesUsuarioGenero As String = "" - Try Dim NombreUsuarioRenero As String = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("Nombre", $"CveUsuario ={ObjIE.CveUsuario}") If NombreUsuarioRenero.Trim.Length > 0 Then @@ -6055,7 +6035,6 @@ Partial Class PopUpVerFactura Catch ex As Exception End Try - params.Add(New ReportParameter("InicialesUsuarioGenero", InicialesUsuarioGenero)) End If @@ -6080,7 +6059,7 @@ Partial Class PopUpVerFactura DtMovimientosPoliza.Columns.Add("Cargo", GetType(Double)) DtMovimientosPoliza.Columns.Add("Abono", GetType(Double)) - Dim Dr = DtMovimientosPoliza.NewRow + Dim Dr As DataRow = DtMovimientosPoliza.NewRow Dr("CODIGO") = "" Dr("Cuenta") = "" Dr("Cargo") = 0 @@ -6099,7 +6078,7 @@ Partial Class PopUpVerFactura If ObjIE.DtResultados.Rows.Count > 0 Then For Each drt As DataRow In ObjIE.DtResultados.Rows - Dim Dr = DtMovimientosPoliza.NewRow + Dim Dr As DataRow = DtMovimientosPoliza.NewRow Dr("CODIGO") = drt("CuentaCodigo") Dr("Cuenta") = drt("CuentaNombre") Dr("Cargo") = If(drt("TipoMovto").ToString = "False", drt("ImporteMN"), "0") @@ -6387,7 +6366,7 @@ Partial Class PopUpVerFactura End If - Dim rds = New ReportDataSource("DataSet1", dtMovs) + Dim rds As New ReportDataSource("DataSet1", dtMovs) reportDataSetsList.Add(rds) Dim dtnc As New DataTable @@ -6396,7 +6375,7 @@ Partial Class PopUpVerFactura dtnc = ObjCompra.DtResultados End If ObjCompra.Dispose() - Dim rds2 = New ReportDataSource("DataSet2", dtnc) + Dim rds2 As New ReportDataSource("DataSet2", dtnc) reportDataSetsList.Add(rds2) dtnc.Dispose() @@ -6536,7 +6515,7 @@ Partial Class PopUpVerFactura Dim FechaCaducidad As Date = DetalleRow.Item("FechaCaducidad").ToString.ToDate PS = String.Format("{0} - {1}", DetalleRow.Item("Codigo").ToString, DetalleRow.Item("PS").ToString) If Modalidad = "Individual" Then - Dim reporteByte = New MemoryStream(GenerarEtiqueta(CvePS, Lote, FechaCaducidad, PS)) + Dim reporteByte As New MemoryStream(GenerarEtiqueta(CvePS, Lote, FechaCaducidad, PS)) Dim docEtiqueta As New iText.Kernel.Pdf.PdfDocument(New iText.Kernel.Pdf.PdfReader(reporteByte)) docEtiqueta.CopyPagesTo(1, docEtiqueta.GetNumberOfPages(), pdfdoc) @@ -6545,7 +6524,7 @@ Partial Class PopUpVerFactura Dim Cant As Integer = DetalleRow.Item("Cantidad").ToString.ToEntero - 1 For i As Integer = 0 To Cant - Dim reporteByte = New MemoryStream(GenerarEtiqueta(CvePS, Lote, FechaCaducidad, PS)) + Dim reporteByte As New MemoryStream(GenerarEtiqueta(CvePS, Lote, FechaCaducidad, PS)) Dim docEtiqueta As New iText.Kernel.Pdf.PdfDocument(New iText.Kernel.Pdf.PdfReader(reporteByte)) docEtiqueta.CopyPagesTo(1, docEtiqueta.GetNumberOfPages(), pdfdoc) @@ -6584,7 +6563,7 @@ Partial Class PopUpVerFactura Dim Lote As String = DetalleRow.Item("Lote").ToString Dim FechaCaducidad As Date = DetalleRow.Item("FechaCaducidad").ToString.ToDate If Modalidad = "Individual" Then - Dim reporteByte = New MemoryStream(GenerarEtiqueta(CvePS, Lote, FechaCaducidad, PS)) + Dim reporteByte As New MemoryStream(GenerarEtiqueta(CvePS, Lote, FechaCaducidad, PS)) Dim docEtiqueta As New iText.Kernel.Pdf.PdfDocument(New iText.Kernel.Pdf.PdfReader(reporteByte)) docEtiqueta.CopyPagesTo(1, docEtiqueta.GetNumberOfPages(), pdfdoc) @@ -6593,7 +6572,7 @@ Partial Class PopUpVerFactura Dim Cant As Integer = DetalleRow.Item("Cantidad").ToString.ToEntero - 1 For i As Integer = 0 To Cant - Dim reporteByte = New MemoryStream(GenerarEtiqueta(CvePS, Lote, FechaCaducidad, PS)) + Dim reporteByte As New MemoryStream(GenerarEtiqueta(CvePS, Lote, FechaCaducidad, PS)) Dim docEtiqueta As New iText.Kernel.Pdf.PdfDocument(New iText.Kernel.Pdf.PdfReader(reporteByte)) docEtiqueta.CopyPagesTo(1, docEtiqueta.GetNumberOfPages(), pdfdoc) @@ -6714,7 +6693,7 @@ Partial Class PopUpVerFactura ObjPS.Dispose() - Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) + Dim logouri As String = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) Dim DtDatos As New DataTable Dim params As New List(Of ReportParameter) @@ -6954,7 +6933,7 @@ Partial Class PopUpVerFactura Dim CveMonedaImp As Integer Dim TipoPolImp As String Dim RutaReporte As String - Dim params = New List(Of ReportParameter) + Dim params As New List(Of ReportParameter) TipoPolImp = If(drp("CveTipoPoliza").ToString.ToEntero = 1, "Ingreso", If(drp("CveTipoPoliza").ToString.ToEntero = 2, "Egreso", "Diario")) CveTipoPolizaImp = drp("CveTipoPoliza").ToString.ToEntero diff --git a/Compras/Proveedores.aspx.vb b/Compras/Proveedores.aspx.vb index 30dd0ee1c..8cfa32948 100644 --- a/Compras/Proveedores.aspx.vb +++ b/Compras/Proveedores.aspx.vb @@ -1338,7 +1338,7 @@ Partial Class Compras_Proveedores If UsuarioActual.TienePermisoProceso(273) Then If CType(sender, GridView).ID = "GvA" And e.Row.DBCampo("CveCompra").ToEntero > 0 And e.Row.DBCampo("TipoDocto") = "NC" Then - Dim Parametros = Encripta($"CveCompra={e.Row.DBCampo("CveCompra").ToEntero}&SerieFolio={e.Row.DBCampo("SerieFolio")}&CveMoneda={e.Row.DBCampo("CveMoneda")}&CveProveedor={CveProveedor}&Saldo={e.Row.DBCampo("Saldo")}&Original={e.Row.DBCampo("Original")}&CvePrePoliza={e.Row.DBCampo("CvePrePoliza")}&FechaCompra={e.Row.DBCampo("Fecha")}") + Dim Parametros As String = Encripta($"CveCompra={e.Row.DBCampo("CveCompra").ToEntero}&SerieFolio={e.Row.DBCampo("SerieFolio")}&CveMoneda={e.Row.DBCampo("CveMoneda")}&CveProveedor={CveProveedor}&Saldo={e.Row.DBCampo("Saldo")}&Original={e.Row.DBCampo("Original")}&CvePrePoliza={e.Row.DBCampo("CvePrePoliza")}&FechaCompra={e.Row.DBCampo("Fecha")}") e.Row.FCHyperLink("HLDevolverDinero").Visible = True e.Row.FCHyperLink("HLDevolverDinero").NavigateUrl = $"/Bancos/IE.aspx?Opcion=DevDinC&P={Parametros}" End If @@ -1452,8 +1452,8 @@ Partial Class Compras_Proveedores Private Sub CargaCuentasDDL(Ddl As DropDownList, CveFuncionalidad As Integer) 'CARGA LO YA SELECCIONADO - Dim CveSeleccionado = -1 - Dim Seleccionado = "" + Dim CveSeleccionado As Integer = -1 + Dim Seleccionado As String = "" Seleccionado = Ddl.SelectedItem.Text CveSeleccionado = Ddl.SelectedValue.ToEntero @@ -1544,7 +1544,7 @@ Partial Class Compras_Proveedores Dim tIdContaProveedor As Integer Dim CuentaAbono As Integer - Dim ErrorBancos = False + Dim ErrorBancos As Boolean = False Dim ErrorConta As Boolean = False Dim ErrorContactos As Boolean = False Dim ErrorSucursales As Boolean = False @@ -1645,7 +1645,7 @@ Partial Class Compras_Proveedores If IdCuentaContable > 0 Then ObjContaAC.GetCuentas(IdCuentaContable, "-1", -1) - Dim dt = ObjContaAC.DtResultados + Dim dt As DataTable = ObjContaAC.DtResultados Dim CtaCodigo As String If dt.Rows.Count = 1 Then @@ -1836,7 +1836,7 @@ Partial Class Compras_Proveedores Dim CreoCuenta As Boolean = False If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso (UsuarioActual.Empresa.UsaAC Or (UsuarioActual.Empresa.UsaContabilidad And UsuarioActual.Empresa.Funcionalidad(322).ToString.Trim.ToEntero = 0)) Then - Dim ObjContaAC = New ClsContPAQi(UsuarioActual.Empresa) + Dim ObjContaAC As New ClsContPAQi(UsuarioActual.Empresa) Dim drCuenta As DataRow = ObjContaAC.DtResultados.FiltroPrimero("") If drCuenta IsNot Nothing Then CuentaAbono = drCuenta("Id").ToString.ToEntero @@ -2962,8 +2962,8 @@ Partial Class Compras_Proveedores If Adjunto.Trim.Length > 0 Then - Dim linkDescarga = "/Empresas/" & UsuarioActual.Empresa.CveEmpresa & "/Edoc/Proveedor/" & CveProveedor & "/" & Adjunto - Dim linkDescargaArchivo = UsuarioActual.Empresa.Ruta & "Edoc/Proveedor/" & CveProveedor & "/" & Adjunto + Dim linkDescarga As String = "/Empresas/" & UsuarioActual.Empresa.CveEmpresa & "/Edoc/Proveedor/" & CveProveedor & "/" & Adjunto + Dim linkDescargaArchivo As String = UsuarioActual.Empresa.Ruta & "Edoc/Proveedor/" & CveProveedor & "/" & Adjunto If File.Exists(linkDescargaArchivo) Then ImgDownLoad.Visible = True @@ -3378,7 +3378,7 @@ Partial Class Compras_Proveedores If e.Row.RowType = DataControlRowType.DataRow Then If CveProveedor < 0 Then - For Index = 1 To TempDTCuentasBancos.Rows.Count + For Index As Integer = 1 To TempDTCuentasBancos.Rows.Count TempDTCuentasBancos.Rows(Index - 1)("CveCuentaDeposito") = Index Next TempDTCuentasBancos.AcceptChanges() @@ -3455,7 +3455,7 @@ Partial Class Compras_Proveedores Alert("No se pudo borrar la Cuenta Bancaria. Por favor intente nuevamente.", TipoMensaje.MsgError) End If Else - Dim index = GvRow.RowIndex + Dim index As Integer = GvRow.RowIndex TempDTCuentasBancos.Rows.RemoveAt(index) Alert("Cuenta Bancaria borrada con éxito.", TipoMensaje.MsgInformacion) End If @@ -3626,7 +3626,7 @@ Partial Class Compras_Proveedores 'Dim DtMonedas As New DataTable 'DtMonedas.Columns.Add("CveMoneda", GetType(Integer)) 'DtMonedas.Columns.Add("Abreviatura", GetType(String)) - Dim OcupaFiltro = False + Dim OcupaFiltro As Boolean = False If CType(GVHistorial.DataSource, DataTable) IsNot Nothing AndAlso CType(GVHistorial.DataSource, DataTable).MAX("CveMoneda").ToEntero > 1 Then OcupaFiltro = True @@ -3717,10 +3717,10 @@ Partial Class Compras_Proveedores Dim DTCxPTempral As DataTable = Nothing 'OBTENEMOS LOS DATOS - Dim FI = If(TxtFechaInicioCXP.Text = "" Or TxtFechaInicioCXP.Text = "__/__/____", "-1", TxtFechaInicioCXP.Text) - Dim FF = If(TxtFechaFinCXP.Text = "" Or TxtFechaFinCXP.Text = "__/__/____", "-1", TxtFechaFinCXP.Text) - Dim FVI = If(txtFechaVI.Text = "" Or txtFechaVI.Text = "__/__/____", "-1", txtFechaVI.Text) - Dim FVF = If(txtFechaVF.Text = "" Or txtFechaVF.Text = "__/__/____", "-1", txtFechaVF.Text) + Dim FI As String = If(TxtFechaInicioCXP.Text = "" Or TxtFechaInicioCXP.Text = "__/__/____", "-1", TxtFechaInicioCXP.Text) + Dim FF As String = If(TxtFechaFinCXP.Text = "" Or TxtFechaFinCXP.Text = "__/__/____", "-1", TxtFechaFinCXP.Text) + Dim FVI As String = If(txtFechaVI.Text = "" Or txtFechaVI.Text = "__/__/____", "-1", txtFechaVI.Text) + Dim FVF As String = If(txtFechaVF.Text = "" Or txtFechaVF.Text = "__/__/____", "-1", txtFechaVF.Text) Dim ObjMovtos As New ClsMovimientos() If ObjMovtos.GetCxPProveedor(CveProveedor, FI, FF, -1, -1, -1, -1, CveMonedaFiltro, -1, RBSucursal.SelectedValue.ToEntero, -1, FVI, FVF) Then @@ -3729,7 +3729,7 @@ Partial Class Compras_Proveedores If DTCxPTempral IsNot Nothing AndAlso DTCxPTempral.Rows.Count > 0 Then Dim dr As DataRow = DTCxPTempral.Rows(0) - Dim lista = New List(Of CrystalParametro) + Dim lista As New List(Of CrystalParametro) lista.Add(New CrystalParametro("Empresa", UsuarioActual.Empresa.Empresa)) lista.Add(New CrystalParametro("TipoCuentas", DdlTipoCuentasCxP.SelectedItem.Text)) @@ -4052,10 +4052,10 @@ Partial Class Compras_Proveedores If rblreporte.SelectedValue = "cxp" Then 'OBTENEMOS LOS DATOS - Dim FI = If(TxtFechaInicioCXP.Text = "" Or TxtFechaInicioCXP.Text = "__/__/____", "-1", TxtFechaInicioCXP.Text) - Dim FF = If(TxtFechaFinCXP.Text = "" Or TxtFechaFinCXP.Text = "__/__/____", "-1", TxtFechaFinCXP.Text) - Dim FVI = If(txtFechaVI.Text = "" Or txtFechaVI.Text = "__/__/____", "-1", txtFechaVI.Text) - Dim FVF = If(txtFechaVF.Text = "" Or txtFechaVF.Text = "__/__/____", "-1", txtFechaVF.Text) + Dim FI As String = If(TxtFechaInicioCXP.Text = "" Or TxtFechaInicioCXP.Text = "__/__/____", "-1", TxtFechaInicioCXP.Text) + Dim FF As String = If(TxtFechaFinCXP.Text = "" Or TxtFechaFinCXP.Text = "__/__/____", "-1", TxtFechaFinCXP.Text) + Dim FVI As String = If(txtFechaVI.Text = "" Or txtFechaVI.Text = "__/__/____", "-1", txtFechaVI.Text) + Dim FVF As String = If(txtFechaVF.Text = "" Or txtFechaVF.Text = "__/__/____", "-1", txtFechaVF.Text) Dim FechaIn As String = $" Fecha Inicio: {TxtFechaInicioCXP.Text}" Dim FechaFn As String = $" Fecha Fin: {TxtFechaFinCXP.Text}" @@ -4105,8 +4105,8 @@ Partial Class Compras_Proveedores 'OBTENEMOS LOS DATOS Dim DtANC As DataTable - Dim FI = If(TxtFechaInicioCXP.Text = "" Or TxtFechaInicioCXP.Text = "__/__/____", "-1", TxtFechaInicioCXP.Text) - Dim FF = If(TxtFechaFinCXP.Text = "" Or TxtFechaFinCXP.Text = "__/__/____", "-1", TxtFechaFinCXP.Text) + Dim FI As String = If(TxtFechaInicioCXP.Text = "" Or TxtFechaInicioCXP.Text = "__/__/____", "-1", TxtFechaInicioCXP.Text) + Dim FF As String = If(TxtFechaFinCXP.Text = "" Or TxtFechaFinCXP.Text = "__/__/____", "-1", TxtFechaFinCXP.Text) Dim CveProveedorSucursal As Integer = RBSucursal.SelectedValue.ToEntero() If ObjMovtos.GetAnticiposProveedor(CveProveedor, If(CveProveedorSucursal = 0, -1, CveProveedorSucursal), CveMoneda, -1, FI, FF) Then DtANC = If(DdlTipoCuentasCxP.SelectedValue = "-1", ObjMovtos.DtResultados, ObjMovtos.DtResultados.FiltraParametros("Tipo = 'Act'", "Moneda, FechaVencimiento")) diff --git a/Ventas/ProductosServicios.aspx.vb b/Ventas/ProductosServicios.aspx.vb index fa0a64b08..ad3d30557 100644 --- a/Ventas/ProductosServicios.aspx.vb +++ b/Ventas/ProductosServicios.aspx.vb @@ -1869,10 +1869,10 @@ Partial Class ProductosyServicios CargaGvPSAdicionales() End Sub Private Sub GvPSAdicionales_RowDeleting(sender As Object, e As GridViewDeleteEventArgs) Handles GvPSAdicionales.RowDeleting - Dim TieneError = False + Dim TieneError As Boolean = False - Dim CvePSAdicional = GvPSAdicionales.Rows(e.RowIndex).DataKey("CvePSAdicional").ToEntero - Dim PSAdicional = GvPSAdicionales.Rows(e.RowIndex).DataKey("PS").ToString + Dim CvePSAdicional As Integer = GvPSAdicionales.Rows(e.RowIndex).DataKey("CvePSAdicional").ToEntero + Dim PSAdicional As String = GvPSAdicionales.Rows(e.RowIndex).DataKey("PS").ToString Dim ObjProductosServicios As New ClsProductosServicios() If Not ObjProductosServicios.RemovePSAdicionales(CvePS, CvePSAdicional) Then @@ -1912,7 +1912,7 @@ Partial Class ProductosyServicios Private Sub BtnAgregarPSAdicional_Click(sender As Object, e As EventArgs) Handles BtnAgregarPSAdicional.Click Dim ObjProductosServicios As New ClsProductosServicios() ObjProductosServicios.IniciaTransacSQL() - Dim TieneError = False + Dim TieneError As Boolean = False If CvePSAdicional < 0 Then If Not ObjProductosServicios.AddPSAdicionales(CvePS, DdlPSAdicional.SelectedValue.ToEntero, If(TxtCantidadPSAdicional.Visible, TxtCantidadPSAdicional.Text.ToDecimal, 0)) Then