Tag De Tributos Devolvidos Da Nt 2013/005

[Gr@c@]

Estou desenvolvendo meu aplicativo para NFe 3.10 mas o componente não está enxergando as tags <impostoDevol> <pDevol> <IPI> <vIPIDevol> que constam na NT 2013/005 pag 71. Estou fazendo algo errado ou o componente realmente ainda não contempla essas tags?

 

 

[Italo Giurizzato Junior]

Boa tarde Graça,

 

A versão das units: pcnNFe, pcnNFeR e pcnNFeW contempla sim o grupo <impostoDevol>.

 

Para que o mesmo seja gerado no XML o valor de pDevol tem que ser maior que zero.

[Gr@c@]

Ítalo, o meu componente está atualizado, instalado via ACBrinstall.exe, já dei buildAll, mas as propriedades ref a tag impostoDevol não aparecem. Mesmo colocando forçado, dá erro ao compilar.

[Gr@c@]

Tentei dar um build no pcn2.dpk mas está ocorrendo esse erro:

could not create output file "c:\program files\Borland\delphi7\Projects\Bpl\PCN2.bpl"

[Italo Giurizzato Junior]

Graça,

 

Você tem permissão de escrita na pasta Bpl ?

[Gr@c@]

Sim, permissão total. Acabei de verificar.

[Gr@c@]

consegui dar o buildAll no pcn2 (executando o Delphi como Administrador).

Mas continua dando "undeclarad identificador" no grupo impostoDevol

[Italo Giurizzato Junior]

Graça,

 

Os fontes que mencionei estão atualizados? cheque se as 3 units possuem o ImpostoDevol implementado.

[Gr@c@]

na unit pcnNFe:

---------------------

 

TDetCollectionItem = class(TCollectionItem)

  private

    FProd: TProd;

    FImposto: TImposto;

    FpDevol: currency;

    FvIPIDevol: currency;

    FinfAdProd: string;

  public

    constructor Create; reintroduce;

    destructor Destroy; override;

  published

    property Prod: TProd read FProd write FProd;

    property Imposto: TImposto read FImposto write FImposto;

    property pDevol: currency read FpDevol write FpDevol;

    property vIPIDevol: currency read FvIPIDevol write FvIPIDevol;

    property infAdProd: string read FinfAdProd write FinfAdProd;

  end;

na unit pcnNFeR:

----------------

(* Grupo da TAG <det><impostoDevol> *)

if Leitor.rExtrai(2, 'impostoDevol') <> '' then

begin

(*U51*)NFe.Det.pDevol := Leitor.rCampo(tcDe2, 'pDevol');

if Leitor.rExtrai(3, 'IPI') <> '' then

begin

(*U61*)NFe.Det.vIPIDevol := Leitor.rCampo(tcDe2, 'vIPIDevol');

end;

end;

 

na unit pcnNFeW:

-----------------------

procedure TNFeW.GerarDet;

var

  i: integer;

begin

  for i := 0 to nfe.Det.Count - 1 do

  begin

    Gerador.wGrupo('det nItem="' + IntToStr(nfe.Det.Prod.nItem) + '"', 'H01');

    Gerador.gtCampo('nItem', IntToStr(nfe.Det.Prod.nItem));

    (**)GerarDetProd(i);

    (**)GerarDetImposto(i);

    if nfe.Det.pDevol > 0 then

      (**)GerarDetDevol(i);

    Gerador.IDNivel := 'H01';

    Gerador.wCampo(tcStr, 'V01', 'infAdProd', 01, 500, 0, nfe.Det.infAdProd, DSC_INFADPROD);

    Gerador.wGrupo('/det');

  end;

  if nfe.Det.Count > 990 then

    Gerador.wAlerta('H02', 'nItem', DSC_NITEM, ERR_MSG_MAIOR_MAXIMO + '990');

end;

 

procedure TNFeW.GerarDetDevol(const i: integer);

begin

  Gerador.wGrupo('impostoDevol', 'U50');

  Gerador.wCampo(tcDe2, 'U51', 'pDevol', 01, 05, 1, nfe.Det.pDevol, DSC_PDEVOL);

  Gerador.wGrupo('IPI', 'U60');

  Gerador.wCampo(tcDe2, 'U61', 'vIPIDevol', 01, 15, 1, nfe.Det.vIPIDevol, DSC_VIPIDEVOL);

  Gerador.wGrupo('/IPI');

  Gerador.wGrupo('/impostoDevol');

end;

[Gr@c@]

Percebi que o ícone no PCN2.dcu é o único que está ficando com um ponto de interrogação azul após instalação via ACBrInstall.exe, aliás, esse dcu não deveria ter ficado nesse local.

Editado 31 Março, 2014 por Gr@c@

[Juliomar Marchetti]

Na verdade acho que esse arquivo não devia de estar ai!

pois se usa o instalador pode verificar que dentro do trunk tem uma pasta lib e lá deve de estar os compilados

[Italo Giurizzato Junior]

Boa noite Graça,

 

As DCU ficam os icones assim mesmo.

 

O mais importante é os PAS.

[Gr@c@]

Verifiquei que o PCN2.dcu era o único dcu que estava ficando nesta pasta.

Deletei o PCN2.dcu e rodei o ACBrInstall.exe novamente fazendo também a atualização do componente. Não deu certo e o dcu gerou novamente no mesmo lugar.

Deletei então todos os PCN2.* e fiz o update do componente para restaurá-los. Reinstalei novamente via ACBrInstall.exe e aí sim, deu certo. O PCN2.dcu ficou na pasta correta junto com os demais dcu.

Agora vejo o pDevol e o vIPIDevol no componente.

 

Acontece que o PCN2.dcu que estava na pasta errada antes, estava com data correta 31/03/2014 18:08 como podem ver na imagem acima. Mas na pasta lib7 ele não estava com data atualizada, então o componente estava enxergando uma compilação antiga.

 

Só me confirmem uma coisa: todos os dcu do ACBr devem ficar nesse local:

C:\Arquivos de Programas\Borland\Delphi7\Lib\ACBr\Lib\Delphi\Lib7

 

No caso do PCN2.dcu ele estava ficando em:

C:\Arquivos de Programas\Borland\Delphi7\Lib\ACBr\Projects

 

Não entendo porque isso ocorreu e não sei como fazer para evitar que ocorra novamente, a não ser que eu verifique sempre que atualizar e instalar o componente.

[Juliomar Marchetti]

Bom dia

Para ocorrer isso é quando você altera alguma parte do código da unit

assim ele ignora as alterações e não atualiza local no seu micro do svn

quando ocorre é só dar um revert no svn que ele vai  voltar a unit do svn ignorando a sua local

[Gr@c@]

Juliomar, eu nunca alterei unit do PCN2. A única unit do ACBR  alterada é o ACBr.inc e o ícone fica diferente quando ocorre alteração. Com certeza foi outra coisa que ocorreu.

Eu sempre salvo a pasta ACBr antes de fazer update. Na minha cópia anterior, o PCN2.dcu estava no local correto. Isso ocorreu nessa ultima atualização que fiz. E o único procedimento foi: atualizar e instalar via ACBrInstall.exe, sem nenhuma alteração.