Private Sub cmdConsultaLote_Click(Index As Integer)
Dim nProt As String
nProt = InputBox("No Protocolo:", "Protocolo", 1)
If nProt <> Empty Then
'funcao para consultar lote enviado
Dim nfse As asscshnfse.asscshnfse
Set nfse = New asscshnfse.asscshnfse
Dim ret As String
ret = nfse.WsConsultaLoteRps(nProt)
txtStatus.Text = txtStatus.Text + "(6) Consulta Lote RPS:" + vbCrLf + ret + vbCrLf
End If
End Sub