Ir para conteúdo
  • Cadastre-se

dev botao

Erro Cupom Referenciado


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

Recommended Posts

Estou enviando os dados do cupom conforme exemplo abaixo:

 

      with dmnfe.ACBrNFe1.NotasFiscais.Items[dmnfe.ACBrNFe1.NotasFiscais.Count-1].NFe.Ide.NFref.add do begin
          RefECF.modelo:=ECFModRef2D;
          RefECF.nECF:=cdIdentificacao.FieldByName('NFE_ECF').AsString;
          RefECF.nCOO:=cdIdentificacao.FieldByName('NFE_COO').AsString;
       end;

 

Porém, ao tentar assinar ocorre o erro abaixo:

  post-662-0-43979800-1429907036.jpg

 

Como resolver?

Link para o comentário
Compartilhar em outros sites

 

Boa noite, você tem que criar a Tag NFref, como uso o ACBrNFeMonitor não sei como ajudar.

 

-<NFref>
  -<refECF>
      <mod>2D</mod>
      <nECF>002</nECF>
      <nCOO>000005</nCOO>
  </refECF>
</NFref>
 
Sds,
Ricardo.

 

O exemplo de comandos que passei, teoricamente, deveria criar a tag.

Link para o comentário
Compartilhar em outros sites

Boa tarde, Guto.

 

O componente está adaptado sim, pois eu uso normalmente e não tenho problemas.

 

Iria sugerir a seguinte alteração no código que você postou:

 

 

procedure SeuMétodo

var
  NFRef : TNFrefCollectionItem;
begin
    {  Sua programação  }

    with dmnfe.ACBrNFe1.NotasFiscais.Items[dmnfe.ACBrNFe1.NotasFiscais.Count-1] do

    begin
        NFRef := NFe.Ide.NFref.add;

        NFRef.RefECF.modelo:=ECFModRef2D;

        NFRef.RefECF.nECF:=cdIdentificacao.FieldByName('NFE_ECF').AsString;

        NFRef.RefECF.nCOO:=cdIdentificacao.FieldByName('NFE_COO').AsString;

    end;

end;

 

Tente esta alteração e me diga.

 

Abraço.

Rodrigo Cordeiro
Coordenador de Desenvolvimento
Rio de Janeiro / RJ

Link para o comentário
Compartilhar em outros sites

Boa tarde, Guto.

 

O componente está adaptado sim, pois eu uso normalmente e não tenho problemas.

 

Iria sugerir a seguinte alteração no código que você postou:

 

 

procedure SeuMétodo

var
  NFRef : TNFrefCollectionItem;
begin
    {  Sua programação  }

    with dmnfe.ACBrNFe1.NotasFiscais.Items[dmnfe.ACBrNFe1.NotasFiscais.Count-1] do

    begin

        NFRef := NFe.Ide.NFref.add;

        NFRef.RefECF.modelo:=ECFModRef2D;

        NFRef.RefECF.nECF:=cdIdentificacao.FieldByName('NFE_ECF').AsString;

        NFRef.RefECF.nCOO:=cdIdentificacao.FieldByName('NFE_COO').AsString;

    end;

end;

 

Tente esta alteração e me diga.

 

Abraço.

Mesmo erro!! Com Chave referenciada funciona normalmente, problema é quando informa cupom!! Você ja utilizou para cupom?

Editado por gutopmc
Link para o comentário
Compartilhar em outros sites

  • Consultores

Bom dia Guto,

 

Você esta fazendo errado, o correto é:

 

with Ide.NFref.add do

begin
     RefECF.modelo:=ECFModRef2D;
     RefECF.nECF:=cdIdentificacao.FieldByName('NFE_ECF').AsString;
     RefECF.nCOO:=cdIdentificacao.FieldByName('NFE_COO').AsString;
end;

  • Curtir 1
Consultor SAC ACBr

Italo Giurizzato Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

Analista de Sistemas / e-mail: [email protected] / Fone: (16) 9-9701-5030 / Araraquara-SP

Araraquara - A era dos Trólebus

Link para o comentário
Compartilhar em outros sites

Bom dia Guto,

 

Você esta fazendo errado, o correto é:

 

with Ide.NFref.add do

begin

     RefECF.modelo:=ECFModRef2D;

     RefECF.nECF:=cdIdentificacao.FieldByName('NFE_ECF').AsString;

     RefECF.nCOO:=cdIdentificacao.FieldByName('NFE_COO').AsString;

end;

Bom dia!

No primeiro exemplo esta dessa forma e deu o erro!

Link para o comentário
Compartilhar em outros sites

  • Consultores

Guto,

 

Não esta, veja a sua rotina:

 

with dmnfe.ACBrNFe1.NotasFiscais.Items[dmnfe.ACBrNFe1.NotasFiscais.Count-1].NFe.Ide.NFref.add do

begin
          RefECF.modelo:=ECFModRef2D;
          RefECF.nECF:=cdIdentificacao.FieldByName('NFE_ECF').AsString;
          RefECF.nCOO:=cdIdentificacao.FieldByName('NFE_COO').AsString;
 end;

Consultor SAC ACBr

Italo Giurizzato Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

Analista de Sistemas / e-mail: [email protected] / Fone: (16) 9-9701-5030 / Araraquara-SP

Araraquara - A era dos Trólebus

Link para o comentário
Compartilhar em outros sites

Bom dia Guto,

 

Você esta fazendo errado, o correto é:

 

with Ide.NFref.add do

begin

     RefECF.modelo:=ECFModRef2D;

     RefECF.nECF:=cdIdentificacao.FieldByName('NFE_ECF').AsString;

     RefECF.nCOO:=cdIdentificacao.FieldByName('NFE_COO').AsString;

end;

Coloquei da forma abaixo e continua o erro!

 

with dmnfe.ACBrNFe1.NotasFiscais.Items[dmnfe.ACBrNFe1.NotasFiscais.Count-1].nfe do

    begin

       with Ide.NFref.add do

       begin

         RefECF.modelo:=ECFModRef2D;

         RefECF.nECF:=cdIdentificacao.FieldByName('NFE_ECF').AsString;

         RefECF.nCOO:=cdIdentificacao.FieldByName('NFE_COO').AsString;

       end;

end;

  end;

Link para o comentário
Compartilhar em outros sites

  • Moderadores

Sem sugestões? Vou ter que usar o emissor gratuito para transmitir essa nota?

Sim utilize a pesquisa !

veja em questão de 30 segundos de pesquisa

 

 

e é claro existe diversos outros basta pesquisar tem até exemplos

Consultor SAC ACBr Juliomar Marchetti
 

Projeto ACBr

skype: juliomar
telegram: juliomar
e-mail: [email protected]
http://www.juliomarmarchetti.com.br
MVP_NewLogo_100x100_Black-02.png
 

 

Link para o comentário
Compartilhar em outros sites

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