Ir para conteúdo
  • Cadastre-se

dev botao

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

Recommended Posts

Postado

Ola bom dia, ja pesquisei e nao consegui uma solucao ....

Meu cliente é uma Tranportadora ... e a pergunta é ...

posso fazer um manifesto contendo um conhecimento e uma nota?
ele da o seguinte erro: 

quantidade informada no grupo de totalizadores não confere com a quantidade de documentos relacionada,
ja verifiquei e esta alimentando certinho so componentes ... mas da o erro acima.

 

desde ja Obrigado

  • Moderadores
Postado
41 minutos atrás, diogeneswinner disse:

Ola bom dia, ja pesquisei e nao consegui uma solucao ....

Meu cliente é uma Tranportadora ... e a pergunta é ...

posso fazer um manifesto contendo um conhecimento e uma nota?
ele da o seguinte erro: 

quantidade informada no grupo de totalizadores não confere com a quantidade de documentos relacionada,
ja verifiquei e esta alimentando certinho so componentes ... mas da o erro acima.

 

desde ja Obrigado

Se é uma transportadora deve informar apenas Conhecimentos.

Equipe ACBr BigWings
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

 

 

Postado

meu codigo .... veja se esta incorreto alguma coisa
 

     with infDoc.infMunDescarga.Add do
      begin
        qrymfitens.First;
        while not qrymfitens.Eof do
          begin
           //************************************************************************//
           //INCLUINDO DESCARREGAMENTO POR CIDADE                                    //
           //************************************************************************//

            cMunDescarga := qrymfitens.FindField('IBGE').AsInteger;
            xMunDescarga := qrymfitens.FindField('CIDADE').AsString;

            if qrymfitens.findfield('SERIENOTA').AsString = 'NE' then
              begin
                with infNFe.Add do
                  begin
                    chNFe    := qrymfitens.findfield('CODIGOBARRAS').AsString;
                    with infUnidTransp.Add do
                     begin
                        tpUnidTransp := utRodoTracao;
                        idUnidTransp := qrymfmestre.findfield('PLACA').AsString;

                       with lacUnidTransp.Add do
                        begin
                          nLacre := '123';
                        end;

                       with infUnidCarga.Add do
                        begin
                          tpUnidCarga := ucOutros;
                          idUnidCarga := 'SACOS';
                          with lacUnidCarga.Add do
                           begin
                            nLacre := '123';
                           end;
                          qtdRat := 1.0;
                        end;
                        qtdRat := 1.0;
                     end;
                  end;
              end;

            if qrymfitens.findfield('SERIENOTA').AsString = 'CT' then
              begin
                with infCTe.Add do
                  begin
                    chCTe    := qrymfitens.findfield('CODIGOBARRAS').AsString;
                    with infUnidTransp.Add do
                     begin
                        tpUnidTransp := utRodoTracao;
                        idUnidTransp := qrymfmestre.findfield('PLACA').AsString;

                       with lacUnidTransp.Add do
                        begin
                          nLacre := '123';
                        end;

                       with infUnidCarga.Add do
                        begin
                          tpUnidCarga := ucOutros;
                          idUnidCarga := 'SACOS';
                          with lacUnidCarga.Add do
                           begin
                            nLacre := '123';
                           end;
                          qtdRat := 1.0;
                        end;
                        qtdRat := 1.0;
                     end;
                  end;
              end;

            if qrymfitens.findfield('SERIENOTA').AsString = 'PR' then
              begin
                with infNF.Add do
                  begin

                    nNF  := qrymfitens.findfield('NOTA').AsInteger;
                    UF   := qrymfitens.findfield('ESTADO').AsString;
                    vNF  := qrymfitens.findfield('VLRTOTAL').AsFloat;
                    serie:= 1;
                    dEmi := Date;

                    with infUnidTransp.Add do
                     begin
                        tpUnidTransp := utRodoTracao;
                        idUnidTransp := qrymfmestre.findfield('PLACA').AsString;

                       with lacUnidTransp.Add do
                        begin
                          nLacre := '123';
                        end;

                       with infUnidCarga.Add do
                        begin
                          tpUnidCarga := ucOutros;
                          idUnidCarga := 'SACOS';
                          with lacUnidCarga.Add do
                           begin
                            nLacre := '123';
                           end;
                          qtdRat := 1.0;
                        end;
                        qtdRat := 1.0;
                     end;
                  end;
              end;
             qrymfitens.Next;
          end;
      end;


    tot.qCTe   := qrymfmestre.findfield('CONHECIMENTO').AsInteger;
    tot.qNFe   := qrymfmestre.findfield('QUANTIDADE').AsInteger;
    tot.qCarga := qrymfmestre.findfield('PESOBRUTO').AsFloat;
    tot.vCarga := qrymfmestre.findfield('VLRTOTAL').AsFloat;
    tot.cUnid  := uKG;

  • Moderadores
Postado
1 hora atrás, diogeneswinner disse:

Olha so ... o acbr nao deixa eu alimentar o componente com as 2 opcoes .... uma nota e um conhecimento.

Repetindo: Informe apenas o conhecimento.

Não se deve informar NFe em um MDFe como prestador de serviço de transporte.

mdfe.thumb.png.6e46ea4bfd8d316b9a8ff73ba1998321.png

  • Curtir 1
Equipe ACBr BigWings
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

 

 

  • Moderadores
Postado
2 minutos atrás, diogeneswinner disse:

Ok, amigo, muito obrigado, so pra modo de curiosidade, no sistema da receita daria pra fazer isso, jogar 1 cte e uma nfe em um manifesto?

Não. Veja a imagem acima. O Webservice é obrigado a rejeitar essa situação.

Equipe ACBr BigWings
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

 

 

  • Este tópico foi criado há 2720 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.