Ir para conteúdo
  • Cadastre-se

dev botao

Rejeição: Grupo De Informações Do Veiculo Deve Ser Informado Para Carga Lotação


Ver Solução Respondido por ncc.star,
  • Este tópico foi criado há 3212 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

Estou tentando colocar as informações dos veículos no CTe, porém ocorre a seguinte rejeição:
Grupo de informações do veiculo deve ser informado para carga lotação.

Abaixo o código fonte e em anexo o XML. Se alguém conseguir me ajudar fico agradecido.

if (lotacao.ItemIndex = 1) then
          infCTeNorm.Rodo.Lota := ltNao
        else
          infCTeNorm.Rodo.Lota := ltSim;

        if (lotacao.ItemIndex = 0) then
        begin
          if (RzDBButtonEdit1.text <> '') AND (RzDBButtonEdit1.text <> '000000')
          then
          begin

            with infCTeNorm.Rodo.veic.add do
            begin

              cInt := RzDBButtonEdit1.text;
              UF := frmmodulo.qrconhecimento.fieldbyname('uf1').asstring;
              RENAVAM := frmmodulo.qrconhecimento.fieldbyname
                ('renavam1').asstring;
              placa := frmmodulo.qrconhecimento.fieldbyname('placa1').asstring;
              tara := frmmodulo.qrconhecimento.fieldbyname('tara1').asinteger;
              capKg := frmmodulo.qrconhecimento.fieldbyname('kg1').asinteger;
              capM3 := frmmodulo.qrconhecimento.fieldbyname('m31').asinteger;

              tpProp := StrToTpPropriedade(ok,
                frmmodulo.qrconhecimento.fieldbyname('tp_proprietario1')
                .asstring);

              if (ok = false) then
                showmessage('Erro tp_proprietario');

              tpVeic := StrToTpVeiculo(ok,
                frmmodulo.qrconhecimento.fieldbyname('tp_veiculo1').asstring);

              if (ok = false) then
                showmessage('Erro tp_veiculo');

              tpRod := StrToTpRodado(ok,
                frmmodulo.qrconhecimento.fieldbyname('tp_rodado1').asstring);

              if (ok = false) then
                showmessage('Erro tp_rodado');

              tpCar := StrToTpCarroceria(ok,
                frmmodulo.qrconhecimento.fieldbyname('tp_carroceria1')
                .asstring);

              if (ok = false) then
                showmessage('Erro tp_carroceria');

              Prop.CNPJCPF := '05929787964';
              Prop.rntrc := '12345678';
              Prop.xNome := 'Nome do prop';
              Prop.IE := '';
              Prop.UF := 'SC';

            end;

42150119167716000106570010000000371469789566-cte.xml

Editado por Giovani Raci Paganini
Link para o comentário
Compartilhar em outros sites

  • 4 meses depois ...
  • Este tópico foi criado há 3212 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.

The popup will be closed in 10 segundos...