Nf-E 3.10 No Delphi 6 Erro Schemas E Danfe Com Qr

[Destak]

Olá Amigos são mais de 1 erro se precisar abrir outro tópico por favor avise.

 

Erro 1 Schemas - já é um problema antigo que acontece exclusivamente com o delphi 6

na validação da NF-e, quando a IE do destinatário é = ISENTO e quando a unidade do produto possui mesmo de 3 dígitos nas versões anteriores a 3.10 eu fazia o seguinte para corrigir este problema da IE e também da unidade.

 

no arquivo tiposBasico_v1.03.xsd

 

 1 - quanto à IE, alterar
 "ISENTO|[0-9]{0,14}"
 para
 "[0-9]{0,14}|ISENTO"

 2 - Quanto à unidade, alterar
 "[!-ÿ]{1}[ -ÿ]{0,}[!-ÿ]{1}|[!-ÿ]{1}"
 para
 "[!-ÿ]{1}[ -ÿ]*[!-ÿ]{1}|[!-ÿ]{1}"

 

na unidade deu certo mas na IE mesmo após a alteração o erro persiste conforme imagem em anexo.

 

Erro 2 Danfe - uso o Delfi 6  como quick report 5 e antes de atualizar o ACBr

por causa da obrigatoriedade da NF-e de 2.0 para 3.10 tudo estava ok, porem agora da o erro

 

cdsItens: Field 'VALORDESC' not found.

 

sendo tal erro oriundo da linha unit ACBrNFeDANFeQRRetrato.pas

nas seguintes linhas abaixo:

 

 // Fernando pasqueto para imprimir o desconto no danfe
          if FImprimirDescPorc = True then
          begin
            if vProd > 0 then
              dPercDesc := (vDesc * 100) / vProd
            else dPercDesc := 0;
            cdsItens.FieldByName('VALORDESC').AsString := FormatFloat('###,###,###,##0.00', dPercDesc);
          end
          else cdsItens.FieldByName('VALORDESC').AsString := FormatFloat('###,###,###,##0.00', vDesc);

 

se eu comentar este if ai passa de boa porem ainda não é possível imprimir o danfe

devido ao erro seguinte.

 

Erro 3 QuickReport- Erro de violação da memoria como o seguinte

'acess violation at adress 0044 f008 in module Estoque.exe

que acontece na unit QRCtrls inicialmente na linha

 

  if ParentReport.FinalPass and not Transparent then
    with aCanvas do
    begin
      Pen.Width := 0;
      Brush.Color := Color;
      Brush.Style := bsSolid;
      FillRect(rect(QRPrinter.XPos(aLeft),
                    QRPrinter.YPos(aTop),
                    QRPrinter.XPos(aLeft + aWidth),
                    QRPrinter.YPos(aTop + aHeight)));
    end;

 

se eu comentar ai vai aparecendo o mesmo erro em outros locais da mesma unit

e por isso solicito ajuda desde já obrigado.

[Italo Giurizzato Junior]

Boa noite,

 

Não se deve alterar o Schema no que diz respeito ao IE inserindo a palavra ISENTO, com a versão 3.10 temos agora uma TAG para indicar que o destinatário é isento e a TAG IE nem é gerada neste caso.

 

Se o XML for validado, com certeza será rejeitado pela SEFAZ.

 

Quanto ao DANFE acredito que esteja desatualizado.

[Destak]

Olá Italo obrigado pelo excalrecimento

 

a respeito da IE fiz o que disse e deu certo

 

Dest.indIEDest := inIsento

 

agora somente para exclarecimento dos demais que venham a ler este post

é importante lembrar que para a Unidade ainda é preciso fazer a modificação no Schema

 

Quanto à unidade, alterar
 "[!-ÿ]{1}[ -ÿ]{0,}[!-ÿ]{1}|[!-ÿ]{1}"
 para
 "[!-ÿ]{1}[ -ÿ]*[!-ÿ]{1}|[!-ÿ]{1}"

 

sobre o Danfe eu resolvi desinstalando todo o ACBr e o quick report 5 do meu delphi

baixando novamente o ACBr do SVN e reinstalando, ai sim deu tudo certo, obrigado.