Boa tarde
estou sim , veja o codigo
//Toma4
Ide.indIEToma:= inContribuinte;
if sqlXMLIETomador.AsString = 'ISENTO' then
begin
Ide.indIEToma:= inIsento;
Ide.Toma4.IE := 'ISENTO';
end
else
if sqlXMLIETomador.AsString = 'VAZIO' then
begin
Ide.indIEToma:= inNaoContribuinte;
Ide.Toma4.IE := '';
end
else
if sqlXMLIETomador.AsString <> '' then
begin
Ide.indIEToma:= inContribuinte;
Ide.Toma4.IE := sqlXMLIETomador.AsString;
end
else
Ide.indIEToma:= inNaoContribuinte;
Ide.Toma4.CNPJCPF := sqlXMLCNPJTomador.AsString;
Ide.Toma4.xNome := sqlXMLNomeTomador.AsString;
Ide.Toma4.xFant := sqlXMLNomeTomador.AsString;
Ide.Toma4.fone := '00000000'; //copy(TelefoneRemetente, 1, 12);
Ide.Toma4.EnderToma.xLgr := sqlXMLEnderecoTomador.AsString;
Ide.Toma4.EnderToma.nro := sqlXMLNumeroTomador.AsString;
Ide.Toma4.EnderToma.xCpl := sqlXMLComplTomador.AsString;
Ide.Toma4.EnderToma.xBairro := Formatar(sqlXMLBairroTomador.AsString, 3, true, 'X');
Ide.Toma4.EnderToma.cMun := sqlXMLIbgeTomador.AsInteger;
Ide.Toma4.EnderToma.xMun := sqlXMLCidadeTomador.AsString;
Ide.Toma4.EnderToma.CEP := StrToIntDef(RemoverCaracter(sqlXMLCepTomador.AsString), 0);
Ide.Toma4.EnderToma.UF := sqlXMLUFTomador.AsString;
Ide.Toma4.EnderToma.cPais := 1058;
Ide.Toma4.EnderToma.xPais := 'BRASIL';
Ide.toma4.toma := tmOutros;// tmExpedidor;