Error 824 Contribuyente no tiene valides de obligaciones

[Jesus Castelo]

Ahora en la mañana me tope con este problema. Me dicen que es un problema general del SAT, es una actualizacion de su lista de contribuyentes, incluso si alguien tiene deudas con el SAT su servicio de facturacion va a seguir estando bloqueado. Que tanto saben de este asunto??

[Dado]

Pero eso no es nuevo, la lista de contribuyentes ha existido desde siempre y para eso sirve, para bloquear a los emisores que el SAT no quiera que facturen.

[Jesus Castelo]

ok, pero mi PAC me dice que en este momento estan actualizando esa lista y que por esa razon a muchas personas no se les permite facturar en este momento. Eso es cierto o el PAC me esta mintiendo??

[wmormar]

Creo que te estan cuenteando, asi como las famosas ventanas de mantenimiento, le hechan la culpa al SAT, cuando son cuestiones totalmente del PAC. Limitaciones, poca capacidad, etc, etc...

saludos

ok, pero mi PAC me dice que en este momento estan actualizando esa lista y que por esa razon a muchas personas no se les permite facturar en este momento. Eso es cierto o el PAC me esta mintiendo??

[Dado]

Si, la lista LCO (asi se llama) se actualiza diario, es MUY pesada, de casi 1.5 gigabytes y tiene millones de registros asi que se tarda un rato en que el PAC la procese, aunque no deberia tardar mas de media hora, o 45 minutos por muy lento que tenga sus servidores.

[jazuniga]

Buenas tardes.

Me prodrían por favor recomenda un programa para poder ver la LCO en formato XML? o como la convierto a un modo visible más amigable...

La quise importar en Excel y me marco error. La quise abrir con XML Notepad y también error.

Muchas gracias.

Saludos.

C.P. Jorge Zúñiga M.

[Oscargf]

Les mando una pequeña aplicación de consola (en VB) para buscar un solo RFC.

El xml del SAT lo renombré a LCO_SAT.xml y lo metí en una carpeta: c:\1\
Primero hay que quitarle el sello al xml del SAT con el openssl:

openssl smime -decrypt -verify -inform DER -in "C:\1\LCO_SAT.XML" -noverify -out "C:\1\lco_sin_sello.xml"

se crea en la misma carpeta otro xml sin el sello (lco_sin_sello.xml)

se abre la aplicación y se le pone el RFC a buscar. Si lo encuentra te muestra los demas datos (No de certificado, fecha de vencimiento...)

el código es este:

Código: Seleccionar todo

Imports System.Xml
Module Module1
    Dim RFC As String = ""
    Dim RutaXML As String = "C:/1/lco_sin_sello.xml"
    Dim RFCaBuscar, validezObligaciones, noCertificado, EstadoCert, FechaInCert, FechaVenCert As String
    Dim encontrado As Boolean = False

    Sub Main()
        Console.WriteLine("Escribir el RFC a buscar sin espacios ni guiones")
        Console.Write("RFC a buscar: ")
        RFCaBuscar = Console.ReadLine.ToUpper

        Dim reader As XmlTextReader = New XmlTextReader(RutaXML)

        Do While (reader.Read())   ' <--- Lee el siguiente nodo
            Select Case reader.NodeType
                Case XmlNodeType.Element '
                    Select Case reader.Name

                        Case "lco:Contribuyente"
                            If reader.HasAttributes Then
                                While reader.MoveToNextAttribute()    ' <--- Lee el siguiente atributo

                                    If reader.Name = "RFC" Then
                                        If reader.Value = RFCaBuscar Then
                                            encontrado = True
                                            RFC = reader.Value

                                        Else
                                            encontrado = False

                                        End If


                                    End If


                                End While
                            End If

                        Case "lco:Certificado"
                            If encontrado Then

                                If reader.HasAttributes Then
                                    While reader.MoveToNextAttribute()    ' <--- Lee el siguiente atributo


                                        Select Case reader.Name
                                            Case "ValidezObligaciones"
                                                validezObligaciones = reader.Value

                                            Case "EstatusCertificado"
                                                EstadoCert = reader.Value
                                            Case "noCertificado"
                                                noCertificado = reader.Value
                                            Case "FechaFinal"
                                                FechaVenCert = reader.Value
                                            Case "FechaInicio"
                                                FechaInCert = reader.Value
                                        End Select


                                    End While
                                End If

                            End If

                    End Select

            End Select
        Loop

        If RFC = "" Then
            Console.WriteLine("RFC no encontrado")
        Else
            Console.WriteLine("RFC  ENCONTRADO")
            Console.WriteLine("rfc: " & RFC)
            Console.WriteLine("No Certificado: " & noCertificado)
            Console.WriteLine("Validez Obligaciones: " & validezObligaciones)
            Console.WriteLine("Estatus cert: " & EstadoCert)
            Console.WriteLine("Fecha Inicio Cert: " & FechaInCert)
            Console.WriteLine("Fecha Vencimiento Cert.: " & FechaVenCert)

        End If

        Console.ReadLine()

    End Sub

End Module

Tarda un poco, pero no es nada comparado con lo que tarda en abrir el xml el WordPad

Saludos