Tomador ( Outros )

[Rogério Martins Viana]

Caros, boa Tarde

Quero preencher o TOMADOR com dados Específicos, ou seja, o tomador não é um Remetente, Destinatário, Expedidor ou Recebedor, E SIM, OUTROS.

Tentei a linha abaixo, ANTES E DEPOIS de preencher os dados do TOMADOR

Ide.Toma03.Toma := tmOutros;

Se eu usar qualquer outro ( tmRemetente, tmDestinatário, tmExpedidor ou tmRecebedor, os dados a "pessoa" correspondente são preenchidos normalmente,

porém, com tmOutros, nada aparece no CTE.

Onde estou errando ?

 

Grato !

 

 

 

 

         PreencherTomador(Toma, Qr);
 

 

[Maiquel]

Boa tarde Rogério.

Você esta preenchendo as tags correspondentes como no exemplo?

	Ide.Toma4.Toma:=tmOutros;
     if copy(DM_CTA.PessoaFJCGC.AsString,10,4)<>'0000'
          then begin
           Ide.Toma4.CNPJCPF := Copy(DM_CTA.PessoaFJCGC.AsString, 2, 14);
           IE := DM_CTA.PessoaFJIEstadual.AsString;
          end
          else begin
           Ide.Toma4.CNPJCPF := Copy(DM_CTA.PessoaFJCGC.AsString, 1, 9) +
                                   Copy(DM_CTA.PessoaFJCGC.AsString, 14, 2);
           IE := 'ISENTO';
          end;
     Ide.Toma4.IE:=IE;
     Ide.Toma4.xNome:=DM_CTA.PessoaFJRSocial.AsString;
     Ide.Toma4.xFant:=DM_CTA.PessoaFJFantasia.AsString;
     Ide.Toma4.fone:=DM_CTA.PessoaFJTelefone.AsString;
     Ide.Toma4.EnderToma.xLgr:=DM_CTA.PessoaFJEndereco.AsString;
     Ide.Toma4.EnderToma.xNum:=DM_CTA.PessoaFJNumero.AsString;
     Ide.Toma4.EnderToma.xCpl:=DM_CTA.PessoaFJComplemento.AsString;
     Ide.Toma4.EnderToma.xBairro:=DM_CTA.PessoaFJBairro.AsString;

     CodigoMunicipio:=DM_CTA.PessoaFJCodigoEstado.AsInteger * 100000 +
                      DM_CTA.PessoaFJCodigoMunicipio.AsInteger;
     Ide.Toma4.EnderToma.cMun:=CodigoMunicipio;
     Ide.Toma4.EnderToma.xMun:=DM_CTA.PessoaFJCidade.AsString;
     Ide.Toma4.EnderToma.CEP:=StrToIntDef(DM_CTA.PessoaFJCEP.AsString, 0);
     Ide.Toma4.EnderToma.UF:=DM_CTA.PessoaFJEstado.AsString;
     Ide.Toma4.EnderToma.cPais:=DM_CTA.PessoaFJCodigoPais.AsInteger;
     Ide.Toma4.EnderToma.xPais:=DM_CTA.PessoaFJPais.AsString;
    end;

 

[Rogério Martins Viana]

Bom dia

Sim, mas eu to preenchendo TOMA3 ao invés de TOMA4.... Vou testar.

Alias, pq. 2 tomadores, e com nomes fora dos Padrões ? Qual deles é o válido ?

Eu estava preenchendo os dados de CTE.Toma, mas seu exemplo sugere CTE.IDE.Toma4.

Qual a razão das inúmeras propriedades de Tomador:

Cte.Toma ?

Ide.Toma03.Toma := tmOutros;  ?

Ide.Toma4.Toma := tmOutros; ?

 

Obrigado

Maiquel, Obrigado.... problema resolvido.

Agora é só entender as outras propriedades referentes a Tomador. Talvez seja referente a versões anteriores da ACBR-CTE

 

.

Editado 18 Outubro, 2016 por Rogério Martins Viana

[Italo Giurizzato Junior]

Bom dia Rogério,

Toma03 indica que se refere aos Tomadores de 0 até 3, onde:

0-Remetente, 1-Expedidor, 2-Recebedor, 3-Destinatário.

Toma4 indica que se refere ao Tomador 4-Outros.

Páginas 121 e 122 da versão 2.00a do Manual do CT-e

Como faz falta ler os Manuais e Notas Técnicas, você não acha?

[Rogério Martins Viana]

Acredite Ítalo, estou no "olho do furacão". Peguei o bonde andando. É tudo pra ontem. Já li muitos manuais... e muito dos fontes do ACBR. Agradeço a dica. O material ajuda, mas por vezes não tenho tempo suficiente. A parte boa desse fórum é que me fez ganhar muito tempo. Muito mesmo. 

Vou me atentar.

Editado 18 Outubro, 2016 por Rogério Martins Viana