Boa tarde, estou trabalhando para a implementação de um relatório dinâmico para um cliente e estou usando como base um webinar realizado em 2016. Porém ao utilizar comando similares me surgiu o erro:
Error 5800 : Scripting Error. **
** [ Extended Info:Source: Report , Event: OnReportStart , Line number: 11 Description:O objeto não dá suporte para a propriedade ou método: ‘Application.GetFrame’]
Segue o código que realizei:
Sub OnReportStart
dim counter, detail, g_header, screen, cb1
counter = 1
set detail = Report.Sections(“Detail”)
set g_header = Report.Sections(“Detail”)'Report.Sections(“GroupHeader”)
**set screen = Application.GetFrame(“Inferior”).Screen **
cb1 = screen.Item(“Grupo1.Grupo47.Grupo1.CheckBox1”).Value
if cb1.Value then
detail.Controls(“Field”&CStr(counter)).DataField="AnteCamara01"
g_header.Controls(“Label”&CStr(counter)).Caption="AnteCamara01"
counter=counter + 1
end if
End Sub
Não sei se há alguma conexão com o problema, mas a versão utilizada do E3 é a 4.6.162.
Grato por qualquer ajuda.