case rgTipoEmissao.ItemIndex of
0: ACBrNFe1.Configuracoes.Geral.FormaEmissao := teNormal;
1: if ACBrNFe1.Configuracoes.WebServices.UFCodigo in [13, 15, 26, 21, 22, 24, 29, 32, 41, 50, 51, 52] then
ACBrNFe1.Configuracoes.Geral.FormaEmissao := teSVCRS
else
ACBrNFe1.Configuracoes.Geral.FormaEmissao := teSVCAN;
end;
case rgTipoEmissao.ItemIndex of
0: Ide.tpEmis := teNormal;
1: if ACBrNFe1.Configuracoes.WebServices.UFCodigo in [13, 15, 26, 21, 22, 24, 29, 32, 41, 50, 51, 52] then
Ide.tpEmis := teSVCRS
else
Ide.tpEmis := teSVCAN;
end;
Fiz esses exemplos que o Italo colocou, mas esta aparecendo o problema descrito acima.
Obrigado