AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

-- option explicit

Browse Source
This commit is contained in:
rrene
2023-09-18 09:04:21 -07:00
parent a66043a7ba
commit 98017286c9
3 changed files with 98 additions and 119 deletions
Download Patch File Download Diff File Expand all files Collapse all files

165
Compras/PopUpVerFactura.aspx.vb
View File

@@ -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

44
Compras/Proveedores.aspx.vb
View File

@@ -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 = $"&emsp;<b>Fecha Inicio:</b>&nbsp;{TxtFechaInicioCXP.Text}"
Dim FechaFn As String = $"&emsp;<b>Fecha Fin:</b>&nbsp;{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"))

8
Ventas/ProductosServicios.aspx.vb
View File

@@ -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