Pesquisar na Comunidade
Showing results for tags 'Quick Reports'.
Encontrado 1 registro
-
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;