Via Do Consumidor E Via Do Estabelecimento Danfe Nfc-E

[analista.edilson]

Bom dia a todos.

 

No manual de integração da nfc-e diz que quando a empresa estiver em contingência deve ser impressa uma via para o consumidor e outra para o estabelecimento, com as devidas descrições.

 

No fonte de impressão via quickrep está descrição estava fixa, fiz as devidas alterações no fonte e está funcionando, por favor alguém que tem acesso para fazer "commit" nos fontes, veja se o padrão do código está ok e faça o "commit".

 

Obrigado.

ACBrNFeDANFEClass.pas

ACBrNFeDANFeQR.pas

ACBrNFeDANFeQRClass.pas

ACBrNFeDANFeQRNFCe.pas

Editado 9 Outubro, 2014 por analista.edilson

[Italo Giurizzato Junior]

Bom dia Edilson,

 

Duas considerações:

 

1. O seu fonte no que diz respeito ao DANFE esta desatualizado, um outro colega do fórum alterou os campos que mostravam do consumidor, foi alterado de QRLabel para QRMemo.

 

2. O parâmetro "Via" você definiu como sendo string, o que você acha de definir como Boolean com valor padrão True, neste caso será impresso o texto "Via Consumidor", se False, imprime "Via Estabelecimento"?

[analista.edilson]

Legal vou atualizar os fontes e seguir sua sugestao.

Obrigado pela atencao.

[analista.edilson]

Italo conforme conversamos ontem, fiz as atualizações do fonte e alterei para ajustar a questão da via do consumidor e do estabelecimento, sobe os fontes se estiver todo ok, vou anexar os arquivos.

 

 

Aguardo.

en → pt

figado

 

ACBrNFeDANFEClass.pas

ACBrNFeDANFeQR.pas

ACBrNFeDANFeQRClass.pas

ACBrNFeDANFeQRNFCe.pas

[Italo Giurizzato Junior]

Boa tarde Edilson,

 

Agora sim ficou show de bola.

Muito obrigado pela colaboração, já esta disponível.

[analista.edilson]

Legal vou atualizar os fontes e postar novamente, pois encontrei

mais alguns problemas.

Provavelmente ate quarta feira dia 15\10\2014

[wanderok]

Os fontes que atualizei hoje via TortoiseSVN trazem a unit ACBrNFeDANFERave contendo a classe TACBrNFeDANFERave SEM o property ViaConsumidor.

Não compilava no D7 dando erro de property ViaConsumidor inexistente.

Inclui na cláuslua private a declaração "FViaConsumidor: boolean;" e na cláuslua published "property viaconsumidor: boolean read FViaConsumidor write FViaConsumidor;"

 

Ficou como abaixo:

 

<Code>

type

  TACBrNFeDANFERave = class( TACBrNFeDANFEClass )

   private

    FdmDanfe : TdmACBrNFeRave;

    FRaveFile: String;

    FEspessuraBorda: Integer;

    FTamanhoFonte_RazaoSocial: Integer;

    FTamanhoFonte_ANTT: Integer;

    FTributosFonte: string;

    FTributosPercentual: TpcnPercentualTributos;

    FMarcaDaguaMSG: string;

    FViaConsumidor: boolean;

    procedure ExecutaReport;

   public

    constructor Create(AOwner: TComponent); override;

    destructor Destroy; override;

    procedure OnPrintRaveSystem(Sender: TObject);

    procedure ImprimirDANFE(NFE : TNFe = nil); override ;

    procedure ImprimirDANFEPDF(NFE : TNFe = nil); override ;

  published

    property RavFile : String read FRaveFile write FRaveFile;

    property dmDanfe : TdmACBrNFeRave read FdmDanfe write FdmDanfe;

    property EspessuraBorda : Integer read FEspessuraBorda write FEspessuraBorda;

    property TamanhoFonte_RazaoSocial: Integer read FTamanhoFonte_RazaoSocial write FTamanhoFonte_RazaoSocial;

    property TamanhoFonte_ANTT: Integer read FTamanhoFonte_ANTT write FTamanhoFonte_ANTT;

    property TributosFonte: string read FTributosFonte write FTributosFonte;

    property TributosPercentual: TpcnPercentualTributos read FTributosPercentual write FTributosPercentual;

    property MarcaDaguaMSG: string read FMarcaDaguaMSG write FMarcaDaguaMSG;

    property viaconsumidor: boolean read FViaConsumidor write FViaConsumidor;

  end;

</code>

 

Então compilou normalmente.

 

O problema é que se eu atualizar novamente, virá sem a property ViaConsumidor causando erro novamente.

Editado 27 Outubro, 2014 por wanderok

[Ednaldo Avelino]

Estou com um problema parecido mas o meu relatório é o Fast, nele parece que não foi implementado as vias..