Em VB6 está assim:
Código: Selecionar todos
Private Sub btnConsultaIdentificadoresEventosTabela_Click()
On Erro GoTo Erro:
Dim ret As String
Dim tipoEvento As Long
Dim chave As String
Dim dataInicial As Date
Dim dataFinal As Date
tipoEvento = InputBox("Informe o Tipo do Evento", "Consulta Tabela eSocial", "")
chave = InputBox("Informe a Chave", "Consulta Tabela eSocial", "")
dataInicial = InputBox("Informe a Data Inicial", "Consulta Tabela eSocial", "01/MM/AAAA")
dataFinal = InputBox("Informe a Data Final", "Consulta Tabela eSocial", "01/MM/AAAA")
ret = eSocial.ConsultaIdentificadoresEventosTabela(txtEmpregador.Text, tipoEvento, chave, dataInicial, dataFinal)
rtbRespostas.Text = ret
Erro:
MsgBox Err.Description
End Sub
Private Sub btnConsultaIdentificadoresEventosTrabalhador_Click()
On Erro GoTo Erro:
Dim ret As String
Dim tipoEvento As Long
Dim cpfTrabalhador As String
Dim dataInicial As Date
Dim dataFinal As Date
tipoEvento = InputBox("Informe o Tipo do Evento", "Consulta Trabalhador eSocial", "")
cpfTrabalhador = InputBox("Informe o CPF do Trabalhador", "Consulta Trabalhador eSocial", "")
dataInicial = InputBox("Informe a Data Inicial", "Consulta Tabela eSocial", "01/MM/AAAA")
dataFinal = InputBox("Informe a Data Final", "Consulta Tabela eSocial", "01/MM/AAAA")
ret = eSocial.ConsultaIdentificadoresEventosTrabalhador(txtEmpregador.Text, cpfTrabalhador, dataInicial, dataFinal)
rtbRespostas.Text = ret
Erro:
MsgBox Err.Description
End Sub
Itamar M. Lins Jr.
