MDFe.SetAmbiente(nAmb): "ERRO" Index 2 out of bounds 0 .. 1

IMATECH · 5 Agosto, 2019

Mensagens:

05/08/2019 20:16:59 - MDFe.SetAmbiente( "2" )
05/08/2019 20:17:00 - ERRO: TRadioGroup Index 2 out of bounds 0 .. 1

doacbrmdfeunit.pas ( Correção sugerida )

{ TMetodoSetAmbiente }

{ Params: 0 - NumAmbiente : Integer 1- Producao / 2- Homologacao
}
procedure TMetodoSetAmbiente.Executar;
var
  NumAmbiente: Integer;
begin
  NumAmbiente := StrToIntDef(fpCmd.Params(0), 2);

  if (NumAmbiente < 1) or (NumAmbiente > 2) then
    raise Exception.Create('Ambiente Inválido: '+IntToStr(NumAmbiente));

  with TACBrObjetoMDFe(fpObjetoDono) do
  begin
    with MonitorConfig.DFE.WebService do
      // Correção sugerida:
      Ambiente := NumAmbiente - 1; // Ambiente := NumAmbiente;

    MonitorConfig.SalvarArquivo;
  end;
end;