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