Jump to content
Sign in to follow this  
Banguala

Como sumar Valores en un xml

Recommended Posts

Buenos días tengo un XML con los datos del "CFDI factura en México" del cual necesito calcular las Base de Impuestos Tasa 0% para el IVA. El dato se encuentra en el Nodo de concepto, en el mismo por cada concepto se repite el cfdi:Traslado con el atributo Base que es donde esté el valor que requiero que sume siempre que se cumpla la condición que el Campo "Impuesto = "002" y que  que "TasaoCuota = 0.000000" agradezco mucho si me pueden ayudar con este calculo.  

 

</

 

Captura.PNG

Share this post


Link to post
Share on other sites

Hola Isidrod, perdón no me explique correctamente. Necesito obtener los datos mediante programación en vba ya que utilizo el Excel como medio para concentrar los datos que traen varios XML de facturas, o sea desde Excel busco una carpeta donde guardo los XML de facturas y de ellos traigo campos específicos como es fecha de emisión, subtotal, etc en todos los casos son valores exactos de un campo sin embargo el valor de la Base para impuestos se repite por cada concepto de la factura por lo que necesito buscar en cada concepto el valor de la Base cuando los campos sean Impuesto= 002 y TasaOCuota = 0 te dejo acá un XML para que puedas ver lo que digo y de antemano muchas gracias

0AD413D0-0AC7-4EC4-8641-EFCF2C4048F4@1000000000XX0.xml

Share this post


Link to post
Share on other sites

como comprenderás los xml no tienen un solo formato  te dejo estos link

https://lerh13.blogspot.com/2018/11/vba-excel-macro-para-leer-xml-cfdi-33-y.html

https://ayudaexcel.com/foro/topic/39035-importar-datos-de-xml-cfdi-33-a-excel/

'https://www.extendoffice.com
Sub From_XML_To_XL()
'UpdatebyKutoolsforExcel20151214
    Dim xWb As Workbook
    Dim xSWb As Workbook
    Dim xStrPath As String
    Dim xFileDialog As FileDialog
    Dim xFile As String
    Dim xCount As Long
    
     With Application
.ScreenUpdating = False
.Calculation = xlCalculationManual
    On Error GoTo ErrHandler
    With Worksheets("Hoja1").Select
    
    
    Set xFileDialog = Application.FileDialog(msoFileDialogFolderPicker)
    xFileDialog.AllowMultiSelect = False
    xFileDialog.Title = "Select a folder [Kutools for Excel]"
    If xFileDialog.Show = -1 Then
        xStrPath = xFileDialog.SelectedItems(1)
    End If
    If xStrPath = "" Then Exit Sub
    Application.ScreenUpdating = False
    Set xSWb = ThisWorkbook
    xCount = 1
    xFile = Dir(xStrPath & "\*.xml")
    Do While xFile <> ""
        Set xWb = Workbooks.OpenXML(xStrPath & "\" & xFile)
        xWb.Sheets(1).UsedRange.Copy xSWb.Sheets(1).Cells(xCount, 1)
        xWb.Close False
        xCount = xSWb.Sheets(1).UsedRange.Rows.Count + 2
        xFile = Dir()
    Loop
   
  End With
   .ScreenUpdating = True
.Calculation = xlCalculationAutomatic
End With
    xSWb.Save
    Exit Sub
ErrHandler:

    MsgBox "no files xml", , "Kutools for Excel"
End Sub

de este código no tengo exactamente el link pero de esa pagina lo baje

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.
Sign in to follow this  

×
×
  • Create New...

Important Information

Privacy Policy

Ayuda Excel - Madrid, Madrid, ES - Valorada por 6254 personas - Aprender Excel - Total: 4.7 / 5