Private Sub cmdValidar_Click(Index As Integer)
'validar XML de lote
Dialog1.Filter = "xml|*.xml"
Dialog1.ShowOpen
Dim arquivo As String
arquivo = Dialog1.FileName
'funcao para validar arquivo XML
Dim nfse As asscshnfse.asscshnfse
Set nfse = New asscshnfse.asscshnfse
Dim ret As Boolean
ret = nfse.ValidarArquivoXML(arquivo)
If ret = True Then
txtStatus.Text = txtStatus.Text + "(4) Validar Lote:" + vbCrLf + "Lote validado com sucesso!" + vbCrLf
Else
txtStatus.Text = txtStatus.Text + "(4) Validar Lote:" + vbCrLf + "Falha na validação." + vbCrLf
End If
End Sub