Danfe Quick Reports

[fpasqueto]

Fiz uma alteração nos fontes da DANFE QUICK REPORTS para imprimir 'NF-E NÃO ENVIADA PARA SEFAZ' no protocolo quando a visualizar danfe de nfe nao enviada para sefaz, sera possivel manter essa alteracao no repositorio?

notei que no danfe rave e no danfe fortes reports isso ja existe, porem nosso gerador de relatorios padrao aqui na empresa e o quick reports entao gostaria de manter o danfe quick reports.

 

        // Normal **************************************************************

        if FNFe.Ide.tpEmis in [teNormal, teSCAN] then

        begin

            if FNFe.procNFe.cStat = 100 then

              qrlDescricao.Caption:= 'PROTOCOLO DE AUTORIZAÇÃO DE USO';

 

            // Alterado por Italo em 29/11/2012

            // if FNFe.procNFe.cStat = 101 then

            if FNFe.procNFe.cStat in [101, 151, 155] then

              qrlDescricao.Caption:= 'PROTOCOLO DE HOMOLOGAÇÃO DE CANCELAMENTO';

 

            // Alterado de 102 para 110 por Italo em 27/01/2012

            case FNFe.procNFe.cStat of

            110,205,301,302:qrlDescricao.Caption:= 'PROTOCOLO DE DENEGAÇÃO DE USO';

            end;

 

            if FProtocoloNFE <> '' then

                qrlProtocolo.Caption        := FProtocoloNFE

            else

                qrlProtocolo.Caption        :=  FNFe.procNFe.nProt + ' ' +

                                                DFeUtil.SeSenao(FNFe.procNFe.dhRecbto <> 0, DateTimeToStr(FNFe.procNFe.dhRecbto),'');

            //local alterado quando a nfe nao foi enviada para sefaz 

            IF FNFe.procNFe.cStat = 0 THEN

              BEGIN

              qrlProtocolo.Caption := 'NF-E NÃO ENVIADA PARA SEFAZ';

              qrlProtocolo.Font.Color := clRed;

              END

            ELSE qrlProtocolo.Font.Color := clWindowText;

 

            qriBarCodeContingencia.Visible  := False;

            qrlMsgAutorizado.Enabled        := True;

        end;

[Régys Silveira]

Por favor, anexe o arquivo alterado para que seja feita a avaliação.

[fpasqueto]

SEGUE ANEXO ARQUIVOS ALTERADOS

ACBrNFeDANFeQRRetrato.pas

ACBrNFeDANFeQRPaisagem.pas

[fpasqueto]

Regys os arquivos foram analizados ?

[Italo Giurizzato Junior]

Bom dia fpasqueto,

 

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

[fpasqueto]

Bom dia Italojjr eu que agradeço, assim fico mais tranquilo aqui e posso usar os updates do acbr normalmente.

[fpasqueto]

Adicionado campo desconto com parâmetro para valor ou percentagem na DANFE retrato do quick

danfeqrretrato.rar

[Italo Giurizzato Junior]

Boa noite fpasqueto,

 

Muito obrigado pela colaboração, fiz mais alguns acertos e já esta disponível.

[fpasqueto]

Muito obrigado assim que der tempo farei o mesmo na versão paisagem

[fpasqueto]

Boa tarde.

segue anexo algumas alteracoes feitas na danfe do quick reports adcionado a rotinha para tratar o total liquido dos itens

agora a propriedade ImprimirTotalLiquido e respeitada tbm na danfe quick reports em modo retrato apenas e no nfce.

ACBrNFeDANFeQR.zip

[Italo Giurizzato Junior]

Bom dia,

 

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

[fpasqueto]

Muito obrigado você assim nao preciso ficar mantendo fontes orfaos aqui.