Obtener todos los archivos txt de las carpetas y subcarpetas

Dim logtxt() As String = Directory.GetFiles(rutaempresa & "\" & "compra", "*.txt", SearchOption.AllDirectories)

Inicializar combobox con mes y año actual

Dim mes As Integer = Now.ToString("MM").Substring(1, 1) - 1
cbMes.SelectedIndex = mes

 Dim anio As Integer = Now.ToString("yyyy")
 For i As Integer = 2017 To anio
            cbAnio.Items.Add(i)
 Next
 cbAnio.SelectedItem = anio

Formato Documentos Tributarios Electrónicos

formato_dte.pdf 2006-07-20 v1.0
formato_dte.pdf 2010-04-08 v1.0
formato_dte.pdf 2012-07-27 v1.0
formato_dte.pdf 2014-09-30 v1.0
formato_dte.pdf 2017-09-20 v2.0
formato_dte.pdf 2018-01-18 v2.1

Descargar

Función Math

Ejemplo, calcular el IVA

Dim neto As Long = 100

Dim iva As Long = Math.Round(neto * 0.19, 0, MidpointRounding.AwayFromZero)

Doble comilla

Dim doubleQuote As String = """"

Consulta Avanzada Estado DTE

Documentación: http://www.sii.cl/factura_electronica/OIFE2006_QueryEstDteAv_MDE.pdf

urlws certificación: https://maullin.sii.cl/DTEWS/services/QueryEstDteAv?wsdl
urlws producción: https://palena.sii.cl/DTEWS/services/QueryEstDteAv?wsdl

Ejemplo xml entrada:

<SOAP-ENV:Envelope
xmlns:SOAP-ENV ="http://schemas.xmlsoap.org/soap/envelope/"
xmlns:SOAP-ENC="http://schemas.xmlsoap.org/soap/encoding/"
xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
xmlns:xsd="http://www.w3.org/2001/XMLSchema">
<SOAP-ENV:Body>
<m:getEstDteAv xmlns:m="http://DefaultNamespace" SOAP-ENV:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/">
<RutEmpresa xsi:type="xsd:string">String</RutEmpresa>
<DvEmpresa xsi:type="xsd:string">String</DvEmpresa>
<RutReceptor xsi:type="xsd:string">String</RutReceptor>
<DvReceptor xsi:type="xsd:string">String</DvReceptor>
<TipoDte xsi:type="xsd:string">String</TipoDte>
<FolioDte xsi:type="xsd:string">String</FolioDte>
<FechaEmisionDte xsi:type="xsd:string">String</FechaEmisionDte>
<MontoDte xsi:type="xsd:string">String</MontoDte>
<FirmaDte xsi:type="xsd:string">String</FirmaDte>
<Token xsi:type="xsd:string">String</Token>
</m:getEstDteAv>
</SOAP-ENV:Body>
</SOAP-ENV:Envelope>

xml de entrada validado en:
https://www.xmlvalidation.com/
https://www.freeformatter.com/xml-validator-xsd.html

Respuesta ws:

<?xml version="1.0" encoding="UTF-8"?>
<soapenv:Envelope
xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/"
xmlns:xsd="http://www.w3.org/2001/XMLSchema"
xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
<soapenv:Body>
<ns1:getEstDteAvResponse
soapenv:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/"
xmlns:ns1="http://DefaultNamespace">
<ns1:getEstDteAvReturn xsi:type="xsd:string">
<?xml version="1.0" encoding="UTF-8"?>
<SII:RESPUESTA xmlns:SII="http://www.sii.cl/XMLSchema">
<SII:RESP_HDR>
<SII:ESTADO>0</SII:ESTADO>
</SII:RESP_HDR>
<SII:RESP_BODY>
<RECIBIDO>SI</RECIBIDO>
<ESTADO>DOK</ESTADO>
<GLOSA>Documento Recibido por el SII. Datos Coinciden con los Registrados</GLOSA>
<TRACKID>1234567890</TRACKID>
<NUMATENCION>999991 [09/04/2013 13:10:44]</NUMATENCION>
</SII:RESP_BODY>
</SII:RESPUESTA>
</ns1:getEstDteAvReturn>
</ns1:getEstDteAvResponse>
</soapenv:Body>
</soapenv:Envelope>


Referencias:
http://www.sii.cl/factura_electronica/doc_emp_aut.htm
http://www.sii.cl/factura_electronica/factura_mercado/instructivo.htm

Extraer dato de nodo xml

Dim respuesta As String = "<TRACKID>1234568</TRACKID>"

Dim nodo As String = "<TRACKID>"
Dim nodoCount As String = nodo.Lenght


Dim i As Integer = respuesta.IndexOf("<TRACKID>") + 9
Dim j As Integer = respuesta.IndexOf("</TRACKID>")

Dim dato As String = respuesta.Substring(i , j - i)

Día de la semana en palabras

MessageBox.Show(Now.ToString("dddd"))

Remover nodo xml

Dim id As Integer = 3
        Dim doc As New XmlDocument()
        doc.Load("usuarios.xml")

        Dim str As String = "/Usuarios/Usuario[id=" & id & "]"
        Dim del As XmlElement = doc.SelectSingleNode("/Usuarios/Usuario[id=" & id & "]")

        If Not del Is Nothing Then
            del.ParentNode.RemoveChild(del)
        End If

        Dim settings As New XmlWriterSettings()
        settings.Indent = True
        Dim wout As XmlWriter = XmlWriter.Create("usuarios.xml", settings)
        doc.Save(wout)
        wout.Close()

Recorrer nodo xml y capturar su valor

Dim doc As New XmlDocument()
doc.Load("usuarios.xml")

For Each node As XmlNode In doc.GetElementsByTagName("id")
        MessageBox.Show(node.InnerText)
Next


opción 2

Dim xdoc As XDocument = XDocument.Load("usuarios.xml")
        For Each element As XElement In xdoc.Descendants()

            If element.Name.ToString.Contains("id") Then
                MessageBox.Show(element.Value)
            End If
        Next