Olá Rocha, apenas corrigindo seu link correto é http://www.5volution.com.br/downloads/f ... tteste.rar
:{
Hasa
Moderador: Moderadores





Código: Selecionar todos
Public Shared Function ValidarXML(ByVal p_empresa As Integer, ByVal p_serie As Integer, ByVal p_num_venda As Integer) As Boolean
Dim xmlPath As String = ""
Dim xsdPath As String = ""
'ByVal xmlPath As String, ByVal xsdPath As String) As Boolean
Dim t_qljavenda = (From ljavenda In db.ljavenda
Where ljavenda.empresa = p_empresa And
ljavenda.serie = p_serie And
ljavenda.num_venda = p_num_venda
Select ljavenda).Single
xmlPath = "C:\CFe" + t_qljavenda.chave_acesso.ToString.Trim + ".xml"
xsdPath = "C:\MensagemEntrada.xsd"
Try
Dim settings As New XmlReaderSettings()
settings.Schemas.Add(Nothing, xsdPath)
settings.ValidationType = ValidationType.Schema
Dim xmlDocument As New XmlDocument()
xmlDocument.Load(xmlPath)
Dim xmlReader__1 As XmlReader = XmlReader.Create(New StringReader(xmlDocument.InnerXml), settings)
While xmlReader__1.Read()
End While
Return True
Catch ex As Exception
MessageBox.Show(ex.Message, "Aviso", MessageBoxButtons.OK, MessageBoxIcon.Information)
Return False
End Try
End Function
