This one is the button to confirm the event:
Principal.ECO_WIN7_ETAPAX = represents a test set(group);
cbAbrirEco = represents a test;
copiaAdmin, chamaGravaini, copiaAdmin, prograssoBarra = function;
__________________________________________________________
Test_btnConfirmar_OnClick procedure (Sender);
var i: integer;
var x: Integer;
var posicaoBarra: OleVariant;
begin
UserForms.SelecionaTest.cxProgressBar1.Transparent: = false;
UserForms.SelecionaTest.cxProgressBar1.Visible: = true;
progressoBarra (5);
copiaAdmin;
chamaGravaIni;
///
i: = 0;
// Will Check basic step which should run
Then if UserForms.SelecionaTest.cbAbrirEco.Checked
begin
CT_2_14;
end;
progressoBarra (5);
Then if UserForms.SelecionaTest.cbAbrirMonitor.Checked
begin
abrirmonitornfe;
end;
progressoBarra (20);
// ECOWIN7 - Check which step will perform
if UserForms.SelecionaTest.cbSelEtapas.ItemIndex = 0 then
begin
configMonitorNfe ('ECO-WIN7');
Then if UserForms.SelecionaTest.cbEtapa1.Checked
begin
verificaSeConfigBase ("ECO-WIN7 ',' 0 'i);
Principal.ECO_WIN7_ETAPA1;
i: = i + 1;
//UserForms.Test.ModalResult: = MrCancel;
end;
Then if UserForms.SelecionaTest.cbEtapa2.Checked
begin
verificaSeConfigBase ('ECO-WIN7', '1', i);
Principal.ECO_WIN7_ETAPA2;
i: = i + 1;
end;
Then if UserForms.SelecionaTest.cbEtapa3.Checked
begin
verificaSeConfigBase ('ECO-WIN7', '2', i);
Principal.ECO_WIN7_ETAPA3;
i: = i + 1;
end;
Then if UserForms.SelecionaTest.cbEtapa4.Checked
begin
verificaSeConfigBase ("ECO-WIN7 ',' 3 ', i);
Principal.ECO_WIN7_ETAPA4;
i: = i + 1;
end;
Then if UserForms.SelecionaTest.cbEtapa5.Checked
begin
verificaSeConfigBase ("ECO-WIN7 ',' 4 'i);
Principal.ECO_WIN7_ETAPA5;
i: = i + 1;
end;
Then if UserForms.SelecionaTest.cbEtapa6.Checked
begin
verificaSeConfigBase ("ECO-WIN7 ',' 5 ', i);
Principal.ECO_WIN7_ETAPA6;
i: = i + 1;
end;
Then if UserForms.SelecionaTest.cbEtapa7.Checked
begin
verificaSeConfigBase ("ECO-WIN7 ',' 6 ', i);
Principal.ECO_WIN7_ETAPA7;
i: = i + 1;
end;
posicaoBarra: posicaoBarra + = 5;
Then if UserForms.SelecionaTest.cbEtapa8.Checked
begin
verificaSeConfigBase ('ECO-WIN7', '7', i);
Principal.ECO_WIN7_ETAPA8;
i: = i + 1;
end;
Then if UserForms.SelecionaTest.cbEtapa9.Checked
begin
verificaSeConfigBase ('ECO-WIN7', '8', i);
Principal.ECO_WIN7_ETAPA9;
i: = i + 1;
end;
Then if UserForms.SelecionaTest.cbEtapa10.Checked
begin
verificaSeConfigBase ('ECO-WIN7', '9', i);
Principal.ECO_WIN7_ETAPA10;
i: = i + 1;
end;
Then if UserForms.SelecionaTest.cbEtapa11.Checked
begin
verificaSeConfigBase ("ECO-WIN7 ',' 10 'i);
Principal.ECO_WIN7_ETAPA11;
i: = i + 1;
end;
Then if UserForms.SelecionaTest.cbEtapa12.Checked
begin
verificaSeConfigBase ('ECO-WIN7', '11', i);
Principal.ECO_WIN7_ETAPA12;
i: = i + 1;
end;
Then if UserForms.SelecionaTest.cbEtapa13.Checked
begin
verificaSeConfigBase ('ECO-WIN7', '12', i);
Principal.ECO_WIN7_ETAPA13 (true);
i: = i + 1;
end;
end;
// ECOBOLETO - Check which step will perform
Then if UserForms.SelecionaTest.cbSelEtapas.ItemIndex = 2
begin
configMonitorNfe ('ECOBOLETO-WIN7');
Then if UserForms.SelecionaTest.cbEtapa1Boleto.Checked
begin
verificaSeConfigBase ('ECOBOLETO-WIN7', '0' i);
Principal.ECOBOLETO_WIN7_ETAPA_1;
i: = i + 1;
end;
Then if UserForms.SelecionaTest.cbEtapa2Boleto.Checked
begin
verificaSeConfigBase ('ECOBOLETO-WIN7', '1', i) ;;
Principal.ECOBOLETO_WIN7_ETAPA_2;
i: = i + 1;
end;
end;
// ECOOS - Check which step will perform
if UserForms.SelecionaTest.cbSelEtapas.ItemIndex = 1 then
begin
configMonitorNfe ('ECOOS-WIN7');
Then if UserForms.SelecionaTest.cbEtapa1OS.Checked
begin
verificaSeConfigBase ('ECOOS-WIN7', '0' i);
Principal.ECOOS_WIN7_ETAPA_1;
i: = i + 1;
end;
end;
end;
