RDLC ReciboDePago 119,13,83, Gral, rdl Recoleccion
This commit is contained in:
rakcsle
@@ -1448,16 +1448,19 @@ Partial Class PopUpVerFactura
|
||||
Dim Licencia As String = ""
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
Dim SBDireccionO As New StringBuilder()
|
||||
Dim SBDireccionD As New StringBuilder()
|
||||
|
||||
Dim Dt As DataTable = Nothing
|
||||
|
||||
Dim FormatoRDLC As String = ""
|
||||
|
||||
Dim params As New List(Of ReportParameter)
|
||||
|
||||
If CveMovimiento > 0 Then
|
||||
|
||||
FormatoRDLC = "CartaPorte.rdlc"
|
||||
|
||||
Dim ObjInv As New ClsInventarios
|
||||
If ObjInv.GetMovimientos(CveMovimiento, -1, -1, UsuarioActual.CveEmpresa) Then
|
||||
If ObjInv.DtResultados.Rows.Count > 0 Then
|
||||
@@ -1528,6 +1531,7 @@ Partial Class PopUpVerFactura
|
||||
|
||||
ElseIf CveTimbre > 0 Then
|
||||
|
||||
FormatoRDLC = "RecoleccionTimbrado.rdlc"
|
||||
|
||||
Dim ObjGral As New ClsGenerales
|
||||
|
||||
@@ -1536,6 +1540,8 @@ Partial Class PopUpVerFactura
|
||||
|
||||
Dim Dr As DataRow = ObjGral.DtResultados.Rows(0)
|
||||
|
||||
Dim TipoDocto As String = Dr("TipoDocto").ToString
|
||||
|
||||
SerieFolio = Dr("SerieFolio").ToString
|
||||
DomicilioSucursal = $"{Dr("DirOriCalle").ToString} {Dr("NoExtOrigen").ToString}, Col. {Dr("ColoniaOrigen").ToString} "
|
||||
LugarFecha = $"{Dr("MunicipioOrigen").ToString}, {Dr("EstadoOrigen").ToString} {Dr("FechaMovto").ToString.ToDate.ToShortDateString}"
|
||||
@@ -1587,17 +1593,139 @@ Partial Class PopUpVerFactura
|
||||
EspecifUnidad = Dr("Especificacion").ToString
|
||||
|
||||
|
||||
|
||||
If ObjGral.GetGralMovimientosDetalleTimbre(CveTimbre, UsuarioActual.CveEmpresa) Then
|
||||
Dt = ObjGral.DtResultados
|
||||
End If
|
||||
|
||||
|
||||
Dim Ruta As String = UsuarioActual.Empresa.Ruta
|
||||
Dim PathXML As String = $"{Ruta}XML\{TipoDocto}\{SerieFolio }.xml"
|
||||
|
||||
|
||||
Dim FechaEmision, FechaCertificacion As DateTime
|
||||
Dim FolioFiscal, NoSerieCertificado, NoSerieCertificadoContribuyente, SelloCFDi, SelloSAT, SerieCertificadoSAT As String
|
||||
|
||||
FolioFiscal = ""
|
||||
NoSerieCertificado = ""
|
||||
SelloCFDi = ""
|
||||
SelloSAT = ""
|
||||
SerieCertificadoSAT = ""
|
||||
|
||||
|
||||
If UsuarioActual.CveUsuario = 100 Then
|
||||
Alert(PathXML)
|
||||
End If
|
||||
|
||||
If System.IO.File.Exists(PathXML) Then
|
||||
|
||||
Dim ReceptorRFC As String = ""
|
||||
|
||||
Dim XmlDoc As New System.Xml.XmlDocument
|
||||
XmlDoc.Load(PathXML)
|
||||
|
||||
Dim nodo As XmlNode = XmlDoc.DocumentElement
|
||||
Dim Version = ValorXML(nodo, "version")
|
||||
|
||||
Dim namespaces As New XmlNamespaceManager(XmlDoc.NameTable)
|
||||
Dim Prefijo As String = If(XmlDoc.DocumentElement.Prefix = "", "cfd", XmlDoc.DocumentElement.Prefix)
|
||||
Dim cfdVer As String = ""
|
||||
|
||||
If Version = "3.2" Then
|
||||
Prefijo = "cfd"
|
||||
cfdVer = "http://www.sat.gob.mx/cfd/2"
|
||||
ElseIf Version = "3.3" Then
|
||||
cfdVer = "http://www.sat.gob.mx/cfd/3"
|
||||
Else ' se considera que es la version 4.0
|
||||
cfdVer = "http://www.sat.gob.mx/cfd/4"
|
||||
End If
|
||||
|
||||
namespaces.AddNamespace(Prefijo, cfdVer)
|
||||
namespaces.AddNamespace("tfd", "http://www.sat.gob.mx/TimbreFiscalDigital")
|
||||
namespaces.AddNamespace("implocal", "http://www.sat.gob.mx/implocal")
|
||||
namespaces.AddNamespace("registrofiscal", "http://www.sat.gob.mx/registrofiscal")
|
||||
|
||||
Dim node As XmlNode
|
||||
|
||||
node = XmlDoc.SelectSingleNode(String.Format("//{0}:Receptor", Prefijo), namespaces)
|
||||
|
||||
If node IsNot Nothing Then
|
||||
ReceptorRFC = ValorXML(node, "RFC")
|
||||
End If
|
||||
|
||||
|
||||
|
||||
|
||||
If Version.Contiene("3.3", "4.0") Then
|
||||
FechaEmision = XmlDoc.DocumentElement.Attributes("Fecha").InnerText.ToDate
|
||||
NoSerieCertificadoContribuyente = XmlDoc.DocumentElement.Attributes("NoCertificado").InnerText
|
||||
|
||||
For i As Integer = 0 To XmlDoc.DocumentElement("cfdi:Complemento").ChildNodes.Count - 1
|
||||
If XmlDoc.DocumentElement("cfdi:Complemento").ChildNodes(i).Name = "tfd:TimbreFiscalDigital" Then
|
||||
FolioFiscal = XmlDoc.DocumentElement("cfdi:Complemento").ChildNodes(i).Attributes("UUID").InnerText
|
||||
NoSerieCertificado = XmlDoc.DocumentElement("cfdi:Complemento").ChildNodes(i).Attributes("NoCertificadoSAT").InnerText
|
||||
FechaCertificacion = XmlDoc.DocumentElement("cfdi:Complemento").ChildNodes(i).Attributes("FechaTimbrado").InnerText.ToDate
|
||||
SelloCFDi = XmlDoc.DocumentElement("cfdi:Complemento").ChildNodes(i).Attributes("SelloCFD").InnerText
|
||||
SelloSAT = XmlDoc.DocumentElement("cfdi:Complemento").ChildNodes(i).Attributes("SelloSAT").InnerText
|
||||
SerieCertificadoSAT = XmlDoc.DocumentElement("cfdi:Complemento").ChildNodes(i).Attributes("NoCertificadoSAT").InnerText
|
||||
|
||||
|
||||
|
||||
End If
|
||||
Next
|
||||
Else
|
||||
FechaEmision = XmlDoc.DocumentElement.Attributes("fecha").InnerText.ToDate
|
||||
NoSerieCertificadoContribuyente = XmlDoc.DocumentElement.Attributes("noCertificado").InnerText
|
||||
|
||||
For i As Integer = 0 To XmlDoc.DocumentElement("cfdi:Complemento").ChildNodes.Count - 1
|
||||
If XmlDoc.DocumentElement("cfdi:Complemento").ChildNodes(i).Name = "tfd:timbreFiscalDigital" Then
|
||||
FolioFiscal = XmlDoc.DocumentElement("cfdi:Complemento").ChildNodes(i).Attributes("UUID").InnerText
|
||||
NoSerieCertificado = XmlDoc.DocumentElement("cfdi:Complemento").ChildNodes(i).Attributes("noCertificadoSAT").InnerText
|
||||
FechaCertificacion = XmlDoc.DocumentElement("cfdi:Complemento").ChildNodes(i).Attributes("fechaTimbrado").InnerText.ToDate
|
||||
SelloCFDi = XmlDoc.DocumentElement("cfdi:Complemento").ChildNodes(i).Attributes("selloCFD").InnerText
|
||||
SelloSAT = XmlDoc.DocumentElement("cfdi:Complemento").ChildNodes(i).Attributes("selloSAT").InnerText
|
||||
SerieCertificadoSAT = XmlDoc.DocumentElement("cfdi:Complemento").ChildNodes(i).Attributes("NoCertificadoSAT").InnerText
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
|
||||
Dim CadenaOriginals As String = String.Format("||{0}|{1}|{2}T{3}|{4}|{5}||", If(Version.Contiene("3.3", "4.0"), "1.1", "1.0"), FolioFiscal, FechaCertificacion.ToString("yyyy-MM-dd"), FechaCertificacion.ToString("HH:mm:ss"), SelloCFDi, NoSerieCertificado)
|
||||
|
||||
Dim RutaCBB As String = $"{UsuarioActual.Empresa.Ruta}CBB\{SerieFolio}.jpg"
|
||||
Dim ImagenCBB As New System.IO.FileInfo(RutaCBB)
|
||||
|
||||
|
||||
If Not ImagenCBB.Exists Then
|
||||
Dim CBB As New ClbNegBICFDv3_2.ClsNegCBBGenerar()
|
||||
CBB.GenerarCBB(UsuarioActual.Empresa.RFC, ReceptorRFC, 1, FolioFiscal, RutaCBB)
|
||||
End If
|
||||
|
||||
|
||||
Dim ImgCBB As String = $"file://{ImagenCBB.FullName}"
|
||||
|
||||
|
||||
params.Add(New ReportParameter("FolioFiscal", FolioFiscal))
|
||||
params.Add(New ReportParameter("CertificadoSAT", NoSerieCertificado))
|
||||
params.Add(New ReportParameter("FechaCertificacion", FechaCertificacion.ToString))
|
||||
params.Add(New ReportParameter("SelloCFDI", SelloCFDi))
|
||||
params.Add(New ReportParameter("SelloSAT", SelloSAT))
|
||||
params.Add(New ReportParameter("CertificadoContribuyente", NoSerieCertificadoContribuyente))
|
||||
params.Add(New ReportParameter("QR", ImgCBB.ToString))
|
||||
params.Add(New ReportParameter("SerieCertificadoSAT", SerieCertificadoSAT))
|
||||
params.Add(New ReportParameter("CadenaOriginal", CadenaOriginals))
|
||||
|
||||
End If
|
||||
|
||||
|
||||
|
||||
End If
|
||||
|
||||
ObjGral.Dispose()
|
||||
|
||||
Dim ObjGrales As New ClsGenerales
|
||||
|
||||
If ObjGrales.GetGralMovimientosDetalleTimbre(CveTimbre, UsuarioActual.CveEmpresa) Then
|
||||
Dt = ObjGrales.DtResultados
|
||||
End If
|
||||
|
||||
ObjGrales.Dispose()
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
@@ -1605,7 +1733,7 @@ Partial Class PopUpVerFactura
|
||||
|
||||
|
||||
If Dt.Rows.Count > 0 Then
|
||||
Dim params As New List(Of ReportParameter)
|
||||
|
||||
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
|
||||
|
||||
|
||||
@@ -1615,8 +1743,6 @@ Partial Class PopUpVerFactura
|
||||
params.Add(New ReportParameter("LogoPath", ""))
|
||||
End If
|
||||
|
||||
|
||||
|
||||
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
|
||||
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
|
||||
params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
|
||||
@@ -1646,11 +1772,28 @@ Partial Class PopUpVerFactura
|
||||
params.Add(New ReportParameter("Ciudad", Ciudad))
|
||||
params.Add(New ReportParameter("Licencia", Licencia))
|
||||
|
||||
ImprimirPDF("Empresas/Grales/Formatos/CartaPorte.rdlc", Dt, params, String.Format("Carta Porte -{0}", Now.ToDateTime.ToShortDateString))
|
||||
|
||||
|
||||
|
||||
ImprimirPDF($"Empresas/Grales/Formatos/{FormatoRDLC}", Dt, params, String.Format("Carta Porte -{0}", Now.ToDateTime.ToShortDateString))
|
||||
|
||||
|
||||
|
||||
|
||||
End If
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Function ValorNodoXML(n As System.Xml.XmlNode, Campo As String, Optional Retorno As String = "") As String
|
||||
Dim o As System.Xml.XmlNode = n.Attributes.Cast(Of System.Xml.XmlAttribute)().SingleOrDefault(Function(a) String.Compare(a.Name, Campo, True) = 0)
|
||||
If o Is Nothing Then
|
||||
Return Retorno
|
||||
Else
|
||||
Return o.Value
|
||||
End If
|
||||
End Function
|
||||
|
||||
Private Function ValorXML(n As XmlNode, Campo As String, Optional Retorno As String = "") As String
|
||||
Dim o As XmlNode = n.Attributes.Cast(Of XmlAttribute)().SingleOrDefault(Function(a) String.Compare(a.Name, Campo, True) = 0)
|
||||
If o Is Nothing Then
|
||||
|
||||
Reference in New Issue
Block a user