Acess violation quanto tenta enviar

[Antonino]

Bom dia, está dando acess violation quanto tento enviar um NFCe, no comando ACBRNFe,Enviar(Numero, true). As mesmas configurações tenho em outro projeto e envia normalmente NFe. Não me lembro se começou a aparecer esse erro depois que atualizei o ACBr, mas funcionava normal.

NFe envia, NFCe dá acess violation. Alguém está passando por isso?

Obrigado.

[Felipe E. Resende Mesquita]

4 horas atrás, Antonino disse:

Bom dia, está dando acess violation quanto tento enviar um NFCe, no comando ACBRNFe,Enviar(Numero, true). As mesmas configurações tenho em outro projeto e envia normalmente NFe. Não me lembro se começou a aparecer esse erro depois que atualizei o ACBr, mas funcionava normal.

NFe envia, NFCe dá acess violation. Alguém está passando por isso?

Obrigado.

Boa tarde, Antonino.

O problema também ocorre no demo?

[Antonino]

Boa tarde, eu descobri, era o Prod.cEANTrib, quando colocar um GTIN inválido ele não envia, agora como eu envio uma NFCe com um GTIN inválido? Tem produtos que são de fabricação própria e o código de barras não passa na validação.

Obrigado. 

[Felipe E. Resende Mesquita]

25 minutos atrás, Antonino disse:

Boa tarde, eu descobri, era o Prod.cEANTrib, quando colocar um GTIN inválido ele não envia, agora como eu envio uma NFCe com um GTIN inválido? Tem produtos que são de fabricação própria e o código de barras não passa na validação.

Obrigado. 

Tentou jogar nada?

[BigWings]

52 minutos atrás, Antonino disse:

Boa tarde, eu descobri, era o Prod.cEANTrib, quando colocar um GTIN inválido ele não envia, agora como eu envio uma NFCe com um GTIN inválido? Tem produtos que são de fabricação própria e o código de barras não passa na validação.

Obrigado. 

Apenas GTIN cadastrados poderão ser informados nas tags cEAN e cEANTrib.

Leia a NT 2017.001 v. 1.20 que trata das validações do GTIN.

 

[Dércio Luis Zanatta]

Buenas..

Eu uso uma função que valida o código de barras.. Se o código de barras é inválido, eu jogo a tag em branco..  Assim vai jogar o código de barras somente se ele for válido.

Segue função abaixo:

function ValidaEAN(Numero:string): Boolean;
//
// Valida codigo ean
//
var {numero,} soma2:string;
  digito:byte;
  soma,s,i,calculo:integer;
  teste:STring ;
begin
result:= false;
// verifica tamanho do numero
while (length(numero) < 13) do
  numero:= '0'+numero;
digito:= StrToIntDef(copy(numero,length(numero),1),0);
delete(numero,length(numero),1);
if (numero<>'000000000000') then
begin
  s:=length(numero);
  i:=0;
  calculo := 3;
  soma :=0;
  repeat
    teste:= copy(numero,length(numero)-i,1);
	soma:= soma + StrToIntDef(copy(numero,length(numero)-i,1),0)* calculo;
	inc(i);
	if calculo =3 then
	  calculo := 1
	else
	  calculo := 3;
	dec(s);
  until s=0;
  numero:=IntToStr(soma);
  soma2:= copy(numero,length(numero),1);
  if soma2 = '0'then
  Begin
    if (digito=StrToIntDef(soma2,0)) Then
       //Result:= (digito=soma2) ;
       Result:=True
    Else
       Result:=False ;
  End
  else
  Begin
    if (digito=10-StrToIntDef(soma2,0)) Then
       //result:= (digito=IntToStr(10-StrToInt(soma2)));
       Result:=True
    Else
       Result:=False ;
  End ;
 end;
end;

 

[Antonino]

14 horas atrás, Dércio Luis Zanatta disse:

Buenas..

Eu uso uma função que valida o código de barras.. Se o código de barras é inválido, eu jogo a tag em branco..  Assim vai jogar o código de barras somente se ele for válido.

Segue função abaixo:

function ValidaEAN(Numero:string): Boolean;
//
// Valida codigo ean
//
var {numero,} soma2:string;
  digito:byte;
  soma,s,i,calculo:integer;
  teste:STring ;
begin
result:= false;
// verifica tamanho do numero
while (length(numero) < 13) do
  numero:= '0'+numero;
digito:= StrToIntDef(copy(numero,length(numero),1),0);
delete(numero,length(numero),1);
if (numero<>'000000000000') then
begin
  s:=length(numero);
  i:=0;
  calculo := 3;
  soma :=0;
  repeat
    teste:= copy(numero,length(numero)-i,1);
	soma:= soma + StrToIntDef(copy(numero,length(numero)-i,1),0)* calculo;
	inc(i);
	if calculo =3 then
	  calculo := 1
	else
	  calculo := 3;
	dec(s);
  until s=0;
  numero:=IntToStr(soma);
  soma2:= copy(numero,length(numero),1);
  if soma2 = '0'then
  Begin
    if (digito=StrToIntDef(soma2,0)) Then
       //Result:= (digito=soma2) ;
       Result:=True
    Else
       Result:=False ;
  End
  else
  Begin
    if (digito=10-StrToIntDef(soma2,0)) Then
       //result:= (digito=IntToStr(10-StrToInt(soma2)));
       Result:=True
    Else
       Result:=False ;
  End ;
 end;
end;

 

Dércio Luiz, obrigado, funcionou como eu queria.

[RicardoVoigt]

5 horas atrás, Antonino disse:

Dércio Luiz, obrigado, funcionou como eu queria.

Boa tarde,

só pra avisar que o componente ACBrValidador também valida códigos EAN/GTIN.

 

Em 17/04/2018 at 11:52, Antonino disse:

Bom dia, está dando acess violation quanto tento enviar um NFCe, no comando ACBRNFe,Enviar(Numero, true). As mesmas configurações tenho em outro projeto e envia normalmente NFe. Não me lembro se começou a aparecer esse erro depois que atualizei o ACBr, mas funcionava normal.

NFe envia, NFCe dá acess violation. Alguém está passando por isso?

Obrigado.

Sobre o problema citado na abertura do tópico, depois de atualizar a pasta do ACBr, vc usou o instalador (Delphi) ou  fez o "Clean+Build" no teu projeto (Lazarus) ?

Att

Ricardo

[Antonino]

Em 18/04/2018 at 13:47, RicardoVoigt disse:

Boa tarde,

só pra avisar que o componente ACBrValidador também valida códigos EAN/GTIN.

 

Sobre o problema citado na abertura do tópico, depois de atualizar a pasta do ACBr, vc usou o instalador (Delphi) ou  fez o "Clean+Build" no teu projeto (Lazarus) ?

Att

Ricardo

Ricardo, eu usei o instalador do delphi.