Jump to content

CBAEZ

Members
  • Content Count

    2
  • Joined

  • Last visited

About CBAEZ

  • Rank
    Newbie

Converted

  • Campos
    ;

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

  1. Tengo la siguiente macro pero no logro hacer que me deje de poner el nombre del la ruta del archivo, alguien que me pueda ayudar Sub Ruta_CFDI() Dim fs, carpeta, archivo, subcarpeta As Object contador = 2 Set fs = CreateObject("Scripting.FileSystemObject") With Application.FileDialog(msoFileDialogFolderPicker) If .Show = -1 Then Ruta = .SelectedItems(1) End If End With If Ruta = "" Then Exit Sub End If Set carpeta = fs.GetFolder(Ruta) For Each archivo In carpeta.Files If Right(archivo, 4) = ".xml" Then Range("AB" & contador).value = Ruta & "\" & archivo.Name contador = contador + 1 End If Next If contador = 1 Then MsgBox "No se encontro ningún archivo *.XML" & Chr(10) & Ruta, vbCritical, "Importar datos CFDI" End If Call Lectura_CFDI End Sub Sub Lectura_CFDI() Dim doc As MSXML2.DOMDocument60 Dim objXMLDOMNodeList As MSXML2.IXMLDOMNodeList Dim intIndiceNodo As Integer Dim Concepto As String Set doc = New MSXML2.DOMDocument60 Set r = Range("p1").CurrentRegion filas = r.Rows.Count For i = 5 To filas doc.Load ("" & Cells(i, 28) & "") Cells(i, 8) = 0 Cells(i, 9) = 0 Cells(i, 10) = 0 Set lists = doc.DocumentElement EmisorRFC = lists.ChildNodes(Emisor).getAttribute("Rfc") & lists.ChildNodes(Emisor).getAttribute("rfc") EmisorNobmre = lists.ChildNodes(Emisor).getAttribute("nombre") & lists.ChildNodes(Emisor).getAttribute("Nombre") EmisorRegimen = lists.ChildNodes(Emisor).getAttribute("RegimenFiscal") ReceptorRFC = lists.ChildNodes(1).getAttribute("rfc") & lists.ChildNodes(1).getAttribute("Rfc") ReceptorNobmre = lists.ChildNodes(1).getAttribute("nombre") & lists.ChildNodes(1).getAttribute("Nombre") ReceptorUso = lists.ChildNodes(1).getAttribute("UsoCFDI") IVA = lists.ChildNodes(3).getAttribute("totalImpuestosTrasladados") & lists.ChildNodes(3).getAttribute("TotalImpuestosTrasladados") Set objXMLDOMNodeList = lists.ChildNodes For intIndiceAtributo = 0 To objXMLDOMNodeList.Item(2).ChildNodes.Length - 1 Concepto = Concepto & lists.ChildNodes(2).ChildNodes(intIndiceAtributo).getAttribute("descripcion") & "\" & lists.ChildNodes(2).ChildNodes(intIndiceAtributo).getAttribute("Descripcion") & "\" Next intIndiceAtributo For intIndiceAtributo = 0 To objXMLDOMNodeList.Item(3).ChildNodes.Length - 1 If lists.ChildNodes(3).ChildNodes(intIndiceAtributo).nodeName = "cfdi:Retenciones" Then If lists.ChildNodes(3).ChildNodes(intIndiceAtributo).ChildNodes(intIndiceAtributo).getAttribute("Impuesto") = "IVA" Then RetIVA = lists.ChildNodes(3).ChildNodes(intIndiceAtributo).ChildNodes(0).getAttribute("Importe") On Error Resume Next RetISR = lists.ChildNodes(3).ChildNodes(intIndiceAtributo).ChildNodes(1).getAttribute("Importe") Cells(i, 9) = RetISR Cells(i, 10) = RetIVA RetISR = 0 RetIVA = 0 Else On Error Resume Next RetIVA = lists.ChildNodes(3).ChildNodes(intIndiceAtributo).ChildNodes(1).getAttribute("Importe") RetISR = lists.ChildNodes(3).ChildNodes(intIndiceAtributo).ChildNodes(0).getAttribute("Importe") Cells(i, 12) = RetISR Cells(i, 13) = RetIVA RetISR = 0 RetIVA = 0 End If End If Next intIndiceAtributo For intIndiceAtributo = 0 To objXMLDOMNodeList.Item(4).ChildNodes.Length - 1 If Not IsNull(lists.ChildNodes(4).ChildNodes(intIndiceAtributo).getAttribute("TUA")) Then TUA = lists.ChildNodes(4).ChildNodes(intIndiceAtributo).getAttribute("TUA") End If If Not IsNull(lists.ChildNodes(4).ChildNodes(intIndiceAtributo).getAttribute("UUID")) Then Folio = lists.ChildNodes(4).ChildNodes(intIndiceAtributo).getAttribute("UUID") End If If Not IsNull(lists.ChildNodes(4).ChildNodes(intIndiceAtributo).getAttribute("TotaldeTraslados")) Then ISH = lists.ChildNodes(4).ChildNodes(intIndiceAtributo).getAttribute("TotaldeTraslados") End If If Not IsNull(lists.ChildNodes(4).ChildNodes(intIndiceAtributo).getAttribute("FechaTimbrado")) Then FechaTimbrado = lists.ChildNodes(4).ChildNodes(intIndiceAtributo).getAttribute("FechaTimbrado") & lists.ChildNodes(4).ChildNodes(intIndiceAtributo).getAttribute("FechaTimbrado") End If If Not IsNull(lists.ChildNodes(4).ChildNodes(intIndiceAtributo).getAttribute("RfcProvCertif")) Then RfcProvCertif = lists.ChildNodes(4).ChildNodes(intIndiceAtributo).getAttribute("RfcProvCertif") End If Next intIndiceAtributo Cells(i, 2) = doc.DocumentElement.getAttribute("serie") & doc.DocumentElement.getAttribute("Serie") Cells(i, 3) = doc.DocumentElement.getAttribute("Folio") & doc.DocumentElement.getAttribute("folio") Cells(i, 4) = ReceptorRFC Cells(i, 5) = ReceptorNobmre Cells(i, 6) = EmisorRFC Cells(i, 7) = EmisorNobmre Cells(i, 8) = Folio Cells(i, 9) = Concepto Cells(i, 10) = doc.DocumentElement.getAttribute("subTotal") & doc.DocumentElement.getAttribute("SubTotal") Cells(i, 11) = IVA Cells(i, 14) = doc.DocumentElement.getAttribute("total") & doc.DocumentElement.getAttribute("Total") Cells(i, 15) = doc.DocumentElement.getAttribute("fecha") & doc.DocumentElement.getAttribute("Fecha") Cells(i, 16) = doc.DocumentElement.getAttribute("fecha") & doc.DocumentElement.getAttribute("FechaTimbrado") Cells(i, 17) = doc.DocumentElement.getAttribute("tipoDeComprobante") & doc.DocumentElement.getAttribute("TipoDeComprobante") Cells(i, 18) = doc.DocumentElement.getAttribute("CondicionesDePago") & doc.DocumentElement.getAttribute("CondicionesDePago") Cells(i, 19) = doc.DocumentElement.getAttribute("FormaPago") Cells(i, 20) = doc.DocumentElement.getAttribute("metodoDePago") & doc.DocumentElement.getAttribute("MetodoPago") Cells(i, 21) = EmisorRegimen Cells(i, 22) = ReceptorUso Cells(i, 23) = doc.DocumentElement.getAttribute("Moneda") Cells(i, 24) = doc.DocumentElement.getAttribute("LugarExpedicion") Cells(i, 25) = doc.DocumentElement.getAttribute("NoCertificado") & doc.DocumentElement.getAttribute("noCertificado") Cells(i, 26) = doc.DocumentElement.getAttribute("version") & doc.DocumentElement.getAttribute("Version") Cells(i, 27) = RfcProvCertif ReceptorRFC = "" ReceptorNobmre = "" EmisorRFC = "" EmisorNobmre = "" Folio = "" Concepto = "" If Cells(i, 11) = "" Then Cells(i, 11) = 0 End If If Cells(i, 12) = "" Then Cells(i, 12) = 0 End If Next Set doc = Nothing MsgBox "Mario A. Rodríguez" & Chr(10) & "importado"
  2. TENGO EL SIGUIENTE ARCHIVO DE EXCEL QUE ME AYUDA A EXTRAER DATOS DE ARCHIVOS XML DE FACTURAS PARA HACER UNA RELACIÓN, EL PROBLEMA ES QUE SE ACTUALIZARON VARIOS DATOS EN LOS ARCHIVOS XML Y AHORA NO ME EXTRAE LOS DATOS, ME PODRÍAN AYUDAR CON ESTE PROBLEMITA, DE ANTEMANO MUCHAS GRACIAS, LOS DATOS A EXTRAER ESTAN COLOREADOS DE AMARILLO ESTE ES EL EJEMPLO DE XML <cfdi:Comprobante xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:schemaLocation="http://www.sat.gob.mx/cfd/3 http://www.sat.gob.mx/sitio_internet/cfd/3/cfdv33.xsd" LugarExpedicion="94470" MetodoPago="PUE" TipoDeComprobante="I" Total="125397.62" Moneda="MXN" Certificado="MIIGGzCCBAOgAwIBAgIUMDAwMDEwMDAwMDA0MDQyNDg4MDkwDQYJKoZIhvcNAQELBQAwggGyMTgwNgYDVQQDDC9BLkMuIGRlbCBTZXJ2aWNpbyBkZSBBZG1pbmlzdHJhY2nDs24gVHJpYnV0YXJpYTEvMC0GA1UECgwmU2VydmljaW8gZGUgQWRtaW5pc3RyYWNpw7NuIFRyaWJ1dGFyaWExODA2BgNVBAsML0FkbWluaXN0cmFjacOzbiBkZSBTZWd1cmlkYWQgZGUgbGEgSW5mb3JtYWNpw7NuMR8wHQYJKoZIhvcNAQkBFhBhY29kc0BzYXQuZ29iLm14MSYwJAYDVQQJDB1Bdi4gSGlkYWxnbyA3NywgQ29sLiBHdWVycmVybzEOMAwGA1UEEQwFMDYzMDAxCzAJBgNVBAYTAk1YMRkwFwYDVQQIDBBEaXN0cml0byBGZWRlcmFsMRQwEgYDVQQHDAtDdWF1aHTDqW1vYzEVMBMGA1UELRMMU0FUOTcwNzAxTk4zMV0wWwYJKoZIhvcNAQkCDE5SZXNwb25zYWJsZTogQWRtaW5pc3RyYWNpw7NuIENlbnRyYWwgZGUgU2VydmljaW9zIFRyaWJ1dGFyaW9zIGFsIENvbnRyaWJ1eWVudGUwHhcNMTYxMTE1MTYxMzA5WhcNMjAxMTE1MTYxMzA5WjCBuzEfMB0GA1UEAxMWRkxFVEVTIE1BTlNVUiBTQSBERSBDVjEfMB0GA1UEKRMWRkxFVEVTIE1BTlNVUiBTQSBERSBDVjEfMB0GA1UEChMWRkxFVEVTIE1BTlNVUiBTQSBERSBDVjElMCMGA1UELRMcRk1BOTYwMzA3SzQ4IC8gTUVVQzcyMDkwMU5GNDEeMBwGA1UEBRMVIC8gTUVVQzcyMDkwMUhWWkxTUjA3MQ8wDQYDVQQLEwZNQVRSSVowggEiMA0GCSqGSIb3DQEBAQUAA4IBDwAwggEKAoIBAQClyurA/XRizWWYZhOtU/TO2kCQHuwwB/0QVZEbCPx4oyi7kvVSpT7tzJ4oPyW22+q5BUZ778QOev1+d2ukSAomnfM+dtB/zjFZ6JTj9CyeyzPnR+DqvHhD/GFHQ0voP861i8nx7vFHBD1SUzC8OO8KGDh2CamfJ9uyI2XRhiQ+nQ6Jmh6SiPLGjYrns4DGC9PsJ6CHBGiHto+D+rpwn0hA1KonrhBoglUKl3UipTl5slEHumLrILhMA+16DU9tWwr4fbHUTYx2UouJzfyd/LCV9hD+jnWrFXMAJZ41jhmUlkHhMRcuxuYQoaVpgZzf3YAVzLxaXZM6Gy7ghXYJossTAgMBAAGjHTAbMAwGA1UdEwEB/wQCMAAwCwYDVR0PBAQDAgbAMA0GCSqGSIb3DQEBCwUAA4ICAQCMw9Z0s7v8Ba+qbORDhoDTxIV9k/CSkngE+euSNSXRwLeS/ILj/r3BGFaUWK2MEs5qxML4XWhDCCyW+SaHmdVEJ84aecFakmMjg+0DIFicXYPRqvb9yHZQ/55kRmOHwBoc0N4Wwkfci0ZW/fqP53HgLHQYHW24QH2qsqGPL/KYJ+06sqerkIvm8sB/CUXNL4P8dgu/aLIvKKEfXjDEs6JrLbv57OdSvRg4OuabNuw0nfJx8XqjxoVq4qNDY09yaQcN2V54nKeKfWUHIfXwZuo/X5XocZdX3geM9u/X4FPGmZwgCwYW/I69xDEqEF68Wlskidwi/T5E310PyMjeTs0dREg5pVwwBV5Q8FWxSxb8PzA9p0lObtEYMccV+mEoblihDfaYBJg3q1vLQlaOapXa9eIQsPIWLFtHiZ4Fmdd8BGfEuYqdW3EFA1CJMHHmFxP7Q2lJG7KXaaWZKUCFx7xIm2SsWq/loGieMEGsuQx6kKyuCacCbHMoVN213/7aob1/Fq65Yr2Rn7JLW5DjBf+ZSq7xq21HWsxrAfB/S1aZgfdFZd8ZlH6jda7LnBzNKeiIuAcgjP4pR4NNV+uaK9O21MJWabXZXoBbsVo2sy/dBu/EBkvp0Q96d3hME5LDKg/C+oj/DpCN2KV7LAqELVOzLj2uI8t9I4iTjRhJ1bb6qw==" SubTotal="108101.40" CondicionesDePago="CREDITO" NoCertificado="00001000000404248809" FormaPago="03" Sello="i4rMh1utMQFMsX0KQ3xtLJlpOlB/bzx4WNfxM/pBVYhOlD4ZVAYibxuplsqhttVYWZvrYLFTkeWLKlhIrLPK7oHowLjyFqC+7PKfUBLpWuNdblSEPtUhl1qNkMPjVW5K0lQwCFRB3j6dWRmAAMoJx+IeijBbva/fbC96hHQUO15f2zIE+V7+7MkL6hXA95hUeq/2Jc2UgEVq2U6HoBv69JV62sVZ7fPdpy4H4OvV1Gxakp383WwEDT/5ixV6jGoVl5beotdCtovw3XGE492SDgXTLPWRZf8Sq6u+GJhr2MG8igPW62OQSRdbsrR4BVVwuZtb+h/O2hTwz3G1ZKdS+Q==" Fecha="2017-08-04T11:18:57" Folio="00041" Version="3.3" xmlns:cfdi="http://www.sat.gob.mx/cfd/3"> <cfdi:Emisor Rfc="FMA960307K48" Nombre="FLETES MANSUR SA DE CV" RegimenFiscal="601" /> <cfdi:Receptor Rfc="CAP821208LQ3" Nombre="CEMENTOS APASCO S.A. DE C.V." UsoCFDI="G03" /> <cfdi:Conceptos> <cfdi:Concepto ClaveProdServ="11111800" Cantidad="1801.69" ClaveUnidad="A75" Unidad="TONELADA" Descripcion="SUMINISTRO DE ARCILLA BAJO SILICE" ValorUnitario="60.00" Importe="108101.40"> <cfdi:Impuestos> <cfdi:Traslados> <cfdi:Traslado Base="108101.40" Impuesto="002" TipoFactor="Tasa" TasaOCuota="0.160000" Importe="17296.22" /> </cfdi:Traslados> </cfdi:Impuestos> </cfdi:Concepto> </cfdi:Conceptos> <cfdi:Impuestos TotalImpuestosTrasladados="17296.22"> <cfdi:Traslados> <cfdi:Traslado Impuesto="002" TipoFactor="Tasa" TasaOCuota="0.160000" Importe="17296.22" /> </cfdi:Traslados> </cfdi:Impuestos> <cfdi:Complemento> <tfd:TimbreFiscalDigital xmlns:tfd="http://www.sat.gob.mx/TimbreFiscalDigital" xsi:schemaLocation="http://www.sat.gob.mx/TimbreFiscalDigital http://www.sat.gob.mx/sitio_internet/cfd/TimbreFiscalDigital/TimbreFiscalDigitalv11.xsd" Version="1.1" UUID="09387BF3-71CD-4A20-905D-82014A4A7E12" FechaTimbrado="2017-08-04T11:26:59" RfcProvCertif="SAT970701NN3" SelloCFD="i4rMh1utMQFMsX0KQ3xtLJlpOlB/bzx4WNfxM/pBVYhOlD4ZVAYibxuplsqhttVYWZvrYLFTkeWLKlhIrLPK7oHowLjyFqC+7PKfUBLpWuNdblSEPtUhl1qNkMPjVW5K0lQwCFRB3j6dWRmAAMoJx+IeijBbva/fbC96hHQUO15f2zIE+V7+7MkL6hXA95hUeq/2Jc2UgEVq2U6HoBv69JV62sVZ7fPdpy4H4OvV1Gxakp383WwEDT/5ixV6jGoVl5beotdCtovw3XGE492SDgXTLPWRZf8Sq6u+GJhr2MG8igPW62OQSRdbsrR4BVVwuZtb+h/O2hTwz3G1ZKdS+Q==" NoCertificadoSAT="00001000000403258748" SelloSAT="TK6t6wRNKeeHk9YaOoykoFK61vLYfm2l9rl/IpEdT1d4rKFdy0Obu7azbhQOz4IMYTrLeEbirnm+x+Psvqxy4vHIdBnixZwc5Ft58gESDHGfa7HpFQMZaEgL8j3uZiizypYSIwyDzYT02r3HsgJoDSjEe7AwuHrZahh3ieXu7vSyP/nnby7u2EKX1VrtIJ7saM/XePiNr7TxkjuraJI+ZsjfGc5aw6M0wyrUUrLfL5geodRMiJe3skhw7nDWwCsOnZHnnj+pEiRQn18MYqqgmyI6omARmZkcdsfCHPsDjP2HRdV68AouOb2myVE3Iq5Ez4Dl/FON+5/dqriZl+5IEQ==" /> </cfdi:Complemento> </cfdi:Comprobante>
×
×
  • Create New...

Important Information

Privacy Policy