joffre
14 years agoRegular Contributor
Web Testing on version 7.52 and 8.60
I was having trouble by testing our software on version 7.52 so I've decided to download the newest version and give it a try.
Here is the 7.52 code:
Here is the 8.60 code:
Note that they are almost the same. The 7.52 code stop working on second line, when it tries to do the following command:
Is it a problem with the older version or I'm doing something wrong?
I did the same things on both versions.
Here is the 7.52 code:
Set IE = Aliases.iexplore
Set FPWeb = IE.pageFpwebFolhaDePagamento
Sub CAD_Empresa
Call IE.ToURL(http://localhost/fpweb/FrameMDI.aspx)
'Click no Menu Tabelas
Call FPWeb.frameFrame1.formForm1.panelBarra32.panelMenuCache10.textnodeTabelas.Click()
'Click no SubMenu Tabelas Básicas
Call IE.pageHttpLocalhostFpwebBarraprinc.panelOuterBorder.panelInnerBorder.panelScrollContainer.table.cellTabelasBSicas.Click()
'Click no SubMenu Empresas
Call IE.pageHttpLocalhostFpwebBarraprinc1.panelOuterBorder.panelInnerBorder.panelScrollContainer.table.cellEmpresas.Click()
'Click em Novo
FPWeb.frameFrame2.formForm1.table.cell.submitbuttonNovo.Click
'Informo o Nome da Empresa
FPWeb.frameFrame2.formForm1.panelPnlcodigo.panel.textboxTxtdescemp.Text = "NOME DA EMPRESA"
'Informo o Nome de Fantasia
FPWeb.frameFrame2.formForm1.panelPnledicao.panel.textboxTxtnomefant.Text = "NOME DE FANTASIA"
'Informo o Num CAGED
FPWeb.frameFrame2.formForm1.panelPnledicao.panel.textboxTxtnumcaged.Text = "100"
'Informo a Qtde de Funcionários
FPWeb.frameFrame2.formForm1.panelPnledicao.panel.textboxTxtnumfunc.Text = "100"
'Seleciono a opção Tabelas Próprias
Call FPWeb.frameFrame2.formForm1.panelPnledicao.panel.checkboxChkindtabproprias.ClickChecked(True)
'Seleciono a opção Tabela de Salário
Call FPWeb.frameFrame2.formForm1.panelPnledicao.panel.checkboxChkindtabsalario.ClickChecked(True)
'Click em Salvar
FPWeb.frameFrame2.formForm1.table.cell.submitbuttonSalva.Click
End Sub
Here is the 8.60 code:
Set IE = Aliases.iexplore
Set FPWeb = IE.pageFpwebFolhaDePagamento
Sub CAD_Empresa
Call IE.ToUrl(http://localhost/fpweb/FrameMDI.aspx)
'Click no Menu Tabelas
Call FPWeb.frameFrame1.formForm1.panelBarra32.panelMenuCache10.textnodeTabelas.Click()
'Click no SubMenu Tabelas Básicas
Call IE.pagepopup0.panelOuterBorder.panelInnerBorder.panelScrollContainer.table.cellTabelasBSicas.Click()
'Click no SubMenu Empresas
Call IE.pagepopup1.panelOuterBorder.panelInnerBorder.panelScrollContainer.table.cellEmpresas.Click()
'Click em Novo
FPWeb.frameFrame2.formForm1.table.cell.submitbuttonNovo.Click
'Informo o Nome da Empresa
Call FPWeb.frameFrame2.formForm1.panelPnlcodigo.panel.textboxTxtdescemp.SetText("NOME DA EMPRESA")
'Informo o Nome de Fantasia
Call FPWeb.frameFrame2.formForm1.panelPnledicao.panel.textboxTxtnomefant.SetText("NOME DE FANTASIA")
'Informo o Num CAGED
Call FPWeb.frameFrame2.formForm1.panelPnledicao.panel.textboxTxtnumcaged.SetText("100")
'Informo a Qtde de Funcionários
Call FPWeb.frameFrame2.formForm1.panelPnledicao.panel.textboxTxtnumfunc.SetText("100")
'Seleciono a opção Tabelas Próprias
Call FPWeb.frameFrame2.formForm1.panelPnledicao.panel.checkboxChkindtabproprias.ClickChecked(True)
'Seleciono a opção Tabela de Salário
Call FPWeb.frameFrame2.formForm1.panelPnledicao.panel.checkboxChkindtabsalario.ClickChecked(True)
'Click em Salvar
FPWeb.frameFrame2.formForm1.table.cell.submitbuttonSalva.Click
End Sub
Note that they are almost the same. The 7.52 code stop working on second line, when it tries to do the following command:
cellTabelasBSicas.Click()
Is it a problem with the older version or I'm doing something wrong?
I did the same things on both versions.