Bem Vindo Visitante Lista de Usuários

 Todos os Fórums
  SPED Fiscal/Contábil E nfe

Enviar para a impressoraImprimir   

Subject 611/ Rejeição cEAN inválido
Mensagem do Enviar e-mail Abrir o Perfil do usuário ENIODIASS ENIODIASS em 11/3/2011 as 11:05 hs
Local: MS   Registrada: 5/15/2010  Postagem: 4
611/ Rejeição cEAN inválido
Alguem sabe o motivo dessa rejeição ao transmitir as Nfe?

Mensagem do Enviar e-mail Abrir o Perfil do usuário AUGUSTOPAC AUGUSTOPAC em 11/3/2011 as 11:08 hs
Local: SP   Registrada: 11/24/2005  Postagem: 438
zera o campo b1_codbar
olha gatilho do b1_cod que preenche o b1_codbar
verifica validação b1_codbar

Mensagem do Enviar e-mail Abrir o Perfil do usuário MARCOSGRI MARCOSGRI em 11/3/2011 as 11:13 hs
Local: SP   Registrada: 4/10/2011  Postagem: 1
Na ultima atualização, a Sefaz esta validando o CEAN dos itens da nota. Como praxe, no EAN de algum item tem um dígito verificador, se estiver errado, a nota retorna com rejeição.
Dica, conforme a urgência, envia o XML com a tag CEAN em branco.

Mensagem do Enviar e-mail Abrir o Perfil do usuário HBALDIN HBALDIN em 11/3/2011 as 11:26 hs
Local: pr   Registrada: 9/10/2008  Postagem: 600
http://www.supeerp.com.br/forum/display_topic_threads.asp?ForumID=29&TopicID=31642

------------------------------
Henrique Baldin
Analista de Sistemas
Microsiga - Protheus 10
AdvPL + OO + Oracle

Mensagem do Enviar e-mail Abrir o Perfil do usuário NILTON_ NILTON_ em 11/3/2011 as 15:06 hs
Local: SP   Registrada: 4/20/2010  Postagem: 63
Boa tarde,

Também estou com o mesmo problema. Eu deixei em branco o campo b1_codbar, maiso erro ainda continua. Alguém conseguiu fazer funcionar ?

Mensagem do Enviar e-mail Abrir o Perfil do usuário ZE.ROMEIRO ZE.ROMEIRO em 11/3/2011 as 15:46 hs
Local: SP   Registrada: 4/25/2011  Postagem: 40
Me desculpe se subestimei alguns, mas, não custa nada ressaltar que, para a retransmissão de qualquer nota, após alguma alteração na base tem que excluir a nota fiscal e emiti-la novamente.

.
=============================
José Antonio da Silva Romeiro
Consultor Protheus
jose.antonio@erpworks.com.br
(11) 9107-0381
=============================

Mensagem do Enviar e-mail Abrir o Perfil do usuário FABMACIEL FABMACIEL em 11/3/2011 as 16:37 hs
Local: SP   Registrada: 9/13/2010  Postagem: 113
Boa tarde pessoal,

Consegui resolver nos meus clientes, é o seguinte:

O campo B1_CODBAR no padrão possui 15 caracteres, porém o código de barras EAN 13 como o próprio nome diz, são 13 dígitos.

Primeira coisa a fazer no fonte NfeSefaz.prw é comentar a linha abaixo:
//IIf(Val(SB1->B1_CODBAR)==0,"",Str(Val(SB1->B1_CODBAR),Len(SB1->B1_CODBAR),0)),;

E incluir essas que criei:
_cCodBar := ALLTRIM(SB1->B1_CODBAR)+ALLTRIM(SB1->B1_SUBGRP) //O campo B1_SUBGRP é o dígito verificador do código de barras do produto

If Len(_cCodBar) <> 13
_cCodBar := ""
Endif                    

O array aProd{} é o responsável por essa informação EAN               
        aadd(aProd,     {Len(aProd)+1,;
               (cAliasSD2)->D2_COD,;
                 //IIf(Val(SB1->B1_CODBAR)==0,"",Str(Val(SB1-B1_CODBAR),Len(SB1->B1_CODBAR),0)),;
          IIf(Substr(_cCodBar,1,4)<>"7893","",_cCodBar),;
.
.
.
o restante é igual, não precisa mudar.

Outra coisa não é necessário excluir a nota e gerá-la novamente com o mesmo número, visto que, por esse erro ter apresentado o sistema nem conseguiu transmitir as NF-e,s para a Receita Federal do Brasil.

OBS: É necessário também atualizar os arquivos no diretório \Schemas
O TSS não é necessário atualizar, ainda estou utilizando o TSS 2.00.

ok?

Boa sorte à todos

abs

MACIEL
CONSULTOR DE NEGÓCIOS ERP/TI
www.infosiga.com.br

Mensagem do Enviar e-mail Abrir o Perfil do usuário FABIOVIANA FABIOVIANA em 11/3/2011 as 17:35 hs
Local: PB   Registrada: 11/24/2010  Postagem: 22
Srs,

Nesta mesma linha do NFESEFAZ.PRW, (IIf(Val(SB1->B1_CODBAR)==0,"",Str(Val(SB1-B1_CODBAR),Len(SB1->B1_CODBAR),0)),; ), apenas substituí a função Str por StrZero, que complementa com zeros à esquerda até conter o valor do tamanho do campo B1_CODBAR que por padrão deve ser 15.

Então substituindo a função, ficaria assim:

StrZero(Val(SB1-B1_CODBAR),Len(SB1->B1_CODBAR)))

Obs.: Existem duas linhas com este código, altere os dois.

A Totvs não tem nenhuma atualização para corrigir o problema, o que não é nenhuma novidade.



Boa sorte a todos!


Atenciosamente,


Fábio Henrique

Para participar do Fórum você precisa efetuar login primeiro
Caso você não esteja registrado registre-se para participar do fórum

 Mudar para Fórum