Private Sub cmdGeraLote_Click(Index As Integer)
Dim nLote As Long
nLote = InputBox("Informe o no. do lote a ser gerado", "Lote de envio", 1)
'gera lote
If nLote > 0 Then
Dialog1.Filter = "xml|*.xml"
Dialog1.ShowOpen
Dim arquivo As String
arquivo = Dialog1.FileName
'funcao para gerar lote a partir do xml rps escolhido
Dim nfse As asscshnfse.asscshnfse
Set nfse = New asscshnfse.asscshnfse
txtStatus.Text = txtStatus.Text + "(3) Gerar Lote:" + vbCrLf + nfse.GeraLote(arquivo, nLote) + vbCrLf
End If
End Sub