Erro ao Enviar XML

[wagner_fix]

Pessoal estou com dificuldades ao enviar o XML

Está dando o erro...

Rejeição: Codigo de Municipio de localizacao remetente: digito invalido

Isso quer dizer que não somo somo mais?

Tipo:

CodigoMunicipio := StrToInt(txtRemeCodUf.Text) * 100000 + StrToInt(txtRemeCodCid.Text);

Rem.EnderReme.cMun := CodigoMunicipio;

Faço direto?

Rem.EnderReme.cMun := StrToInt(txtRemeCodCid.Text);

Não quero arriscar sem antes ter a certeza...

Obrigado,

Wagner

[Italo Giurizzato Junior]

Bom dia Wagner,

Dica: baixe o MOC - Manual de Orientações do Contribuinte, para eventuais consultas.

No que diz respeito ao campo Rem.EnderReme.cMun (Página 95 do MOC 1.03 ou Página 106 do MOC 1.04b),

temos que o tamanho desse campo é 7.

O código do município (tabela do IBGE) tem tamanho 5, portanto falta 2 para completar os 7 e esses 2 digitos

refere-se ao código da UF (tabela do IBGE).

Exemplo:

UF: SP (tabela do IBGE = 35)

xMun: ARARAQUARA (tabela do IBGE = 03208)

txtRemeCodUf.Text := '35';

txtRemeCodCid.Text := '03208';

CodigoMunicipio := StrToInt(txtRemeCodUf.Text) * 100000 + StrToInt(txtRemeCodCid.Text);

Rem.EnderReme.cMun := CodigoMunicipio;

Eu sei, o MOC não deixa claro que tem que ser desta forma.

Espero ter ajudado.

[wagner_fix]

Olá Italo boa tarde...

Fiz conforme o seu script e não funcionou...

Só que se eu fizer isso...

Rem.EnderReme.cMun := StrToInt(txtRemeCodCid.Text);

Funciona...

Está incorreto se eu fazer isso?

[Italo Giurizzato Junior]

Boa tarde Wagner,

Qual é o conteudo de txtRemeCodCid.Text ?

No meu sistema utilizo a formula apresentada no post anterior, pois armazeno no banco de dados o código da UF e do Municipio separados.

Agora se você armazena os dois juntos, ai tem que ser do seu jeito.

[wagner_fix]

Vamos lá Italo vou tentar te explicar... e me corrija se eu estiver errado...

UF: SP (tabela do IBGE = 35)

xMun: Campinas (tabela do IBGE = 3509502)

txtRemeCodUf.Text := '35';

txtRemeCodCid.Text := '3509502';

CodigoMunicipio := StrToInt(txtRemeCodUf.Text) * 100000 + StrToInt(txtRemeCodCid.Text);

Rem.EnderReme.cMun := CodigoMunicipio;

Quando faço isso dá falha... A mesma que descrevi acima...

Vi que você tirou o 35 do código da cidade... Também fiz isso e o erro foi o mesmo...

mas se agora eu faço isso...

Rem.EnderReme.cMun := StrToInt(txtRemeCodCid.Text);

Funciona normalmente...

O que posso estar fazendo errado?

Obrigado,

Wagner

[Italo Giurizzato Junior]

Bom dia Wagner,

Note que no código do municipio você já esta informando o código da UF no caso 35.

Sendo assim, a maneira de alimentar o componente esta correta do jeito que você esta fazendo.

Rem.EnderReme.cMun := StrToInt(txtRemeCodCid.Text);

Eu já armazeno o código do municipo sem o código da UF ou seja:

UF: SP (tabela do IBGE = 35)

xMun: Campinas (09502)

desta forma tenho que realizar o calculo no momento de alimentar o componente.

txtRemeCodUf.Text := '35';

txtRemeCodCid.Text := '09502';

CodigoMunicipio := StrToInt(txtRemeCodUf.Text) * 100000 + StrToInt(txtRemeCodCid.Text);

Rem.EnderReme.cMun := CodigoMunicipio;

[wagner_fix]

Italo quando eu faço desse jeito...

CodigoMunicipio := StrToInt(txtRemeCodUf.Text)= 35 * 100000 + StrToInt(txtRemeCodCid.Text)= 09502;

Rem.EnderReme.cMun := CodigoMunicipio;

Dá o erro que eu te informei..

Tem explicação??

E quando eu faço isso

Rem.EnderReme.cMun := 3509502;

Funciona.