JLuis

Precisei fazer alguns ajustes na impressão via QuickReport (LayoutBoleto) como segue: >> Em relação ao local de pagamento, no recibo do sacado está cortando parte do texto. O motivo é que o objeto lblLocalPagto está com AutoSize=False e precisei setar para True. Na Ficha de Compensação está ok. >> No logo da ficha de compensação não está redimensionando a imagem caso a imagem não tenha o tamanho exato do objeto imgBanco3 que está com Stretch=False e também tive que setar para True. No recibo do sacado está ok. Em anexo imagem demonstrando o problema. Alguém por gentileza poderia ajustar e subir pro SVN ? Desde já agradeço.

Resolvido, o problema estava no software Safesign que estava desatualizado... baixei versão atualizada do site da Serasa e resolveu.... fica a dica. De qualquer forma obrigado pelo retorno.

Boa tarde, Estou com este mesmo problema e gostaria de saber se alguém conseguiu solução !!! Toda a instalação parece estar correta porém ao informar a senha é como se não tivesse informado nada, fica pedindo a senha e não dá erro algum independente da senha que informar... a senha está correta, fiz a instalação pelo assistente da Serasa e no assistente do certificado o mesmo aparece como "operacional" e "não bloqueado", PIN Ok e PUK Ok. O cliente está usando W7 64bits e leitora de cartão Perto (CCID). Poderia ser algum problema no cartão? Alguém já chegou a alguma conclusão sobre este problema? Obrigado.

Estou com problema no envio de notas em lotes em que clientes estão reclamando que a identificação do destinatário no canhoto difere do destinatário da NF-e. Verifiquei que ocorre de sair o mesmo destinatário no canhoto de várias notas de um mesmo lote. Ao reimprimir o DANFE um a um sai certo. Uso o DanfeRaveCB e já revisei meu código várias vezes em busca de algum problema na minha rotina e a princípio está tudo certo, principalmente pelo fato de que é uma rotina em uso a bastante tempo e de uns 60 dias para cá passou a ocorrer este problema. Antes de imprimir verifico cada nota do lote e testo se foi confirmada e então monto o texto do canhoto da seguinte forma: NFePrinc.DANFE.ExibirResumoCanhoto := True; for i:= 0 to NFePrinc.NotasFiscais.Count-1 do begin if NFePrinc.NotasFiscais.Items.Confirmada then begin NFePrinc.NotasFiscais.Items.SaveToFile(); NFePrinc.DANFE.ExibirResumoCanhoto_Texto := 'Emissão: '+DFeUtil.FormatDate(DateToStr(NFePrinc.NotasFiscais.Items.NFe.Ide.dEmi))+ ' Dest/Reme: '+Trim(NFePrinc.NotasFiscais.Items.NFe.Dest.XNome)+ ' Valor Total: '+DFeUtil.FormatFloat(NFePrinc.NotasFiscais.Items.NFe.Total.ICMSTot.VNF) Application.ProcessMessages; // << Acrescentei na última tentativa de resolver o problema mas não surtiu efeito ... NFePrinc.NotasFiscais.Items.Imprimir(); end; end; Alguém já teve problema parecido? Teria alguma sugestão?

... vai ser a solução mais simples. Obrigado pelo retorno.

Bom dia, Uso a rotina PafMF_MFD_Cotepe1704 para geração da NFG (impressora Bematech MP-2100 TH FI) e recebi reclamação de que a redução Z aparece com data diferente da data do referido movimento, ex.: redução Z do dia 31/12/2013 aparece no TXT com data de 02/01/2014 mesmo tendo enviado os parâmetros corretamente ou seja de 01/01/2014 até 31/01/2014.... Verificando com o usuário descobri que o mesmo não emite a redução Z ao final do dia e sim, no dia seguinte quando a impressora emite automaticamente ao ligar. Minha dúvida é se há algo de errado com a função PafMF_MFD_Cotepe1704 que estaria considerando a data de emissão da redução e não a data do movimento a que a redução se refere ou, se o usuário deverá passar a emitir obrigatoriamente ao final de cada dia! Desde já agradeço.

Boa tarde Moroni, Verifiquei a mesma situação e gostaria de saber se já chegou a alguma conclusão a respeito do caso... Na minha opinião, não somente no modo FS-DA mas também no modo EPEC e no modo SVC deveria imprimir na forma original do DACTE. Por favor se alguém mais tiver conhecimento do caso e puder contribuir...

Após última atualização que fiz estava dando erro para compilar a unit ACBrBoletoFCQuickFr.Pas procedure TACBrBoletoFCQuick.Imprimir; linha 548: FiltroExportacao: TQRPAbstractExportFilter; // <<< Não declarado então adicionei a unit QRPDFFilt na uses principal e compilou sem erro. Também observei que as units RLFilters, RLPDFFilter estão na uses principal... estas units não seriam do FortesReport e portanto não poderiam ser removidas da uses? Removi para efeito de testes e não acusou erro. Uso Delphi XE e QuickReport 5.0.5 Pro. Att.

Como aqui no RS não temos exigência do PAF então preferi manter desta forma para facilitar a manutenção mas se não tem outro jeito vou ter que rever isso. Obrigado pelo retorno.

Estou implementando a geração do arquivo da Nota Fiscal Gaúcha referente ao Ato Cotepe1704 utilizando a rotina "PafMF_MFD_Cotepe1704" com as DLLs da Bematech e estou com problema em função de que tenho o executável da minha aplicação em uma pasta compartilhada no servidor com permissão apenas de "leitura" e para conseguir gerar o arquivo a partir do PDV precisei alterar o compartilhamento para permitir gravação nesta pasta, tendo que deixar a pasta desprotegida podendo ter problemas com vírus, etc. .... Gostaria de saber se tem como evitar que a rotina grave na pasta do aplicativo direcionando para outra pasta no próprio PDV por exemplo. Rodando a partir do PDV também tive problemas em relação à localização do arquivo BemaFI32.INI, o qual precisei colocá-lo na pasta System32 do PDV senão a rotina acusava erro por não localizar o arquivo, mesmo ele estando na pasta do aplicativo (compartilhada na rede). Alguém teria alguma solução para os problemas/situações acima? Obrigado.

Também tenho config. para "relatório infinito", fiz mais uma série de testes e o problema continua, de qualquer forma obrigado pelo retorno.

Olá Régys, Estou utilizando uma não fiscal (Bematech MP-4200 TH) com o FastReport e estou tendo problemas quanto ao tamanho máximo do formulário, sendo que se o formulário/relatório impresso tiver mais de uns 15 cm a impressora finaliza a impressão ao final dos 15 cm ignorando o restante. Fiz mil e uma tentativas ajustando as configurações do driver e nada, o interessante é que o mesmo relatório às vezes imprime até uns 30 cm e logo em seguida volta a cortar nos 15 cm. Consultei a Bematech e me informaram que existe uma limitação/problema não resolvido no driver do spool do modelo ref. a esta questão. Mesmo assim gostaria de saber se chegou a testar ou utiliza este modelo de impressora e se teve algum problema parecido ou sabe de alguma dica pra resolver, senão terei que partir para a impressão direta e refazer tudo Desde já agradeço.

Tenho cliente na linha de papelaria e brinquedos que também tem muitos NCMs que não estão na tabela do IBPT.... Para ajudar a resolver o problema crei uma consulta que verifica quais NCMs utilizados não constam na tabela do IBPT para que o cliente confira (http://www4.receita.fazenda.gov.br/simulador/PesquisarNCM.jsp) se o NCM realmente se aplica ao respectivo produto e se for o caso corrija. Mas é complicado pois trata-se de um número grande de produtos e será necessário reavaliar produto a produto em relação ao NCM a utilizar... Lembrando que praticamente todos os NCMs em uso foram coletados das NFs de Compra enviadas pelos fornecedores, daí mais um problema: Na NF do fornecedor vem um NCM mas terão que usar outro pois o que o fornecedor informa na sua NF não existe na tabela do IBPT, neste caso o Fornecedor também estaria usando um NCM inválido! Apenas levantando outra questão, acho que não cabe a ninguém do fórum responder: Será que na tabela do IBPT que tem cerca de 11440 registros (incluindo serviços) contém mesmo "todos" os NCMs existentes e válidos para produtos nacionais e importados cfe. descrito no manual de integração "De Olho No Imposto"??? Quero acreditar que o problema seja mesmo o fato que a maioria (indústria/atacadistas/varejistas) esteja com seus cadastros de produtos defasados em relação ao NCM.... neste caso a saída seria incentivar nossos clientes a reverem todo seu cadastro, mas vai convencer os caras a revisar 30 mil itens como ocorre em alguns casos... ! Acho que isso ainda vai dar muita dor de cabeça.

RS também com o mesmo problema... estou mantendo os sistemas com o cálculo desativado deixando assim zerado o campo vTotTrib. Quem tiver novidades informe por favor.

Grande trabalho Régys, parabéns! Só tenho algumas dúvidas, me parecem óbvias mas por desencargo de consciência: Quer dizer então que independe se a empresa (emitente) for do Simples, Lucro Real, etc.... aplico sempre o percentual conforme tabela, isso? Outra, ... a obrigatoriedade em informar o imposto aproximado está somente nas vendas a varejo/consumidor final, no caso de NF-e de vendas por atacado não é obrigatório pois quem adquire vai revender a mercadoria e este então terá a obrigação de destacar em suas notas/cupons, estou certo? Obrigado.

Segue cfe. solicitado. Obrigado. ACBrDANFeCBRaveRetrato.pas

Bom dia Juliomar, A única coisa que consta a respeito do canhoto está na página 103 do manual 5.0 CANHOTO RECEBEMOS DE... NF-e / Nº 000.000.000 / SÉRIE 000 DATA DE RECEBIMENTO IDENTIFICAÇÃO E ASSINATURA... Presumo então que o texto 'Recebemos de '+Emit.XNome+' os produtos / serviços constantes da Nota Fiscal indicada ao lado' não tenha que ser impresso obrigatoriamente desta forma, portanto, minha sugestão de alterá-lo para 'Recebemos de '+Emit.XNome+' os produtos/serviços constantes da NF indicada ao lado' não vai contra nada que esteja especificado no manual, apenas visa reduzir o número de caracteres possibilitando assim a impressão das demais informações necessárias no canhoto não só apenas a informação 'Recebemos de '+Emit.XNome+' os produtos / serviços constantes da Nota Fiscal indicada ao lado' utilizando as duas linhas disponíveis. A segunda alteração visa apenas possibilitar a utilização da propriedade ExibirResumoCanhoto_Texto, pois no ponto ande alterei está sendo simplesmente ignorada na versão atual. Obrigado.

Boa tarde, Pelo que verifiquei houve alteração, não sei precisar em que versão... mas o fato é que o código atual tenta resolver o problema do tamanho da string a ser impressa na primeira linha do canhoto mas falha em outros pontos. Meus clientes exigem que apareça no canhoto a emissão, o nome do cliente/destinatário e o valor total na NF portanto preciso que saia como nas versões anteriores: Unit ACBrDANFeCBRaveRetrato Linha 99 O texto em vermelho destacado abaixo foi acrescentado fazendo com que no meu caso excedesse os 110 caracteres. vEnd:='Recebemos de '+Emit.XNome+' os produtos / serviços constantes da Nota Fiscal indicada ao lado'; if FontNameUsed = 'Courier New' then begin if Length(vEnd)>96 then begin vEnd:='Recebemos de '+Emit.XNome; PrintCenter(vEnd,PosX+(aWidthOutros/2)); NewLine; vEnd:='os produtos / serviços constantes da Nota Fiscal indicada ao lado'; PrintCenter(vEnd,PosX+(aWidthOutros/2)); end else begin PrintCenter(vEnd,PosX+(aWidthOutros/2)); NewLine; if ExibirResumoCanhoto then begin if DFeUtil.EstaVazio(ExibirResumoCanhoto_Texto) then PrintCenter('Emissão: '+DFeUtil.FormatDate(DateToStr(Ide.DEmi))+' Dest/Reme: '+Dest.XNome+' Valor Total: '+DFeUtil.FormatFloat(Total.ICMSTot.VNF),PosX+(aWidthOutros/2)) else PrintCenter(ExibirResumoCanhoto_Texto,PosX+(aWidthOutros/2)); end; end; end else begin if Length(vEnd)>110 then begin vEnd:='Recebemos de '+Emit.XNome; PrintCenter(vEnd,PosX+(aWidthOutros/2)); NewLine; vEnd:='os produtos / serviços constantes da Nota Fiscal indicada ao lado'; PrintCenter(vEnd,PosX+(aWidthOutros/2)); end else begin Mesmo não excedendo o limite de 110 ... ignora completamente a propriedade ExibirResumoCanhoto_Texto... PrintCenter(vEnd,PosX+(aWidthOutros/2)); NewLine; if ExibirResumoCanhoto then PrintCenter('Emissão: '+DFeUtil.FormatDate(DateToStr(Ide.DEmi))+' Dest/Reme: '+Dest.XNome+' Valor Total: '+DFeUtil.FormatFloat(Total.ICMSTot.VNF),PosX+(aWidthOutros/2)); end; end; end; Sugestão de ajustes... no meu caso resolveu: //NewLine; //Na linha abaixo removi os espaços antes e depois da barra em produtos/serviços e substitui "Nota Fiscal" por "NF" vEnd:='Recebemos de '+Emit.XNome+' os produtos/serviços constantes da NF indicada ao lado'; if FontNameUsed = 'Courier New' then begin if Length(vEnd)>96 then begin vEnd:='Recebemos de '+Emit.XNome; PrintCenter(vEnd,PosX+(aWidthOutros/2)); NewLine; vEnd:='os produtos / serviços constantes da Nota Fiscal indicada ao lado'; PrintCenter(vEnd,PosX+(aWidthOutros/2)); end else begin PrintCenter(vEnd,PosX+(aWidthOutros/2)); NewLine; if ExibirResumoCanhoto then begin if DFeUtil.EstaVazio(ExibirResumoCanhoto_Texto) then PrintCenter('Emissão: '+DFeUtil.FormatDate(DateToStr(Ide.DEmi))+' Dest/Reme: '+Dest.XNome+' Valor Total: '+DFeUtil.FormatFloat(Total.ICMSTot.VNF),PosX+(aWidthOutros/2)) else PrintCenter(ExibirResumoCanhoto_Texto,PosX+(aWidthOutros/2)); end; end; end else begin if Length(vEnd)>110 then begin vEnd:='Recebemos de '+Emit.XNome; PrintCenter(vEnd,PosX+(aWidthOutros/2)); NewLine; vEnd:='os produtos/serviços constantes da NF indicada ao lado'; PrintCenter(vEnd,PosX+(aWidthOutros/2)); end else begin PrintCenter(vEnd,PosX+(aWidthOutros/2)); NewLine; if ExibirResumoCanhoto then begin // Acrescentei o tratamento para a propriedade ExibirResumoCanhoto_Texto pois era ignorada if DFeUtil.EstaVazio(ExibirResumoCanhoto_Texto) then PrintCenter('Emissão: '+DFeUtil.FormatDate(DateToStr(Ide.DEmi))+' Dest/Reme: '+Dest.XNome+' Valor Total: '+DFeUtil.FormatFloat(Total.ICMSTot.VNF),PosX+(aWidthOutros/2)) else PrintCenter(ExibirResumoCanhoto_Texto,PosX+(aWidthOutros/2)); end; end; end; end; Peço que alguém verifique a possibilidade de subir estes ajustes para o SVN. Desde já agradeço.

Juliomar, obrigado pelo retorno. Não ententi sua resposta quanto a "...mas o RaveCB..?" Utilizo o Rave CB, tem algo em relação a ele especificamente? Obrigado.

Bom dia, Estou tendo problemas com o Danfe Rave no que se refere à impressão do canhoto. Sem ter alterado nada no meu sistema parou de imprimir "Emissão: ... Dest/Reme: ... Valor Total:...." imprimindo apenas "Recebemos de <nome do emitente> os produtos/serviços constantes da Nota Fiscal indicada ao lado." Já verifiquei o indicador ExibirResumoCanhoto que está = True e também já tentei setar na propriedade ExibirResumoCanhoto_Texto o mesmo texto impresso antes e nada, parece que ignora e imprime de forma fixa. Alguém saberia me informar se mudou algo no ACBr que eu precise ajustar em meu sistema? Desde já agradeço.

Olá, Pesquisando agora encontrei algo.... mas que não esclarece muita coisa: AJUSTE SINIEF 7, DE 5 DE ABRIL DE 2013 Dispõe sobre os procedimentos a serem adotados na emissão de documentos fiscais para esclarecimentos ao consumidor, conforme disposto na Lei nº 12.741/12. O Conselho Nacional de Política Fazendária - CONFAZ e o Secretário da Receita Federal do Brasil, na sua 149ª reunião ordinária do Conselho Nacional de Política Fazendária - CONFAZ, realizada em Ipojuca, PE, no dia 5 de abril de 2013, tendo em vista o disposto no art. 199 do Código Tributário Nacional (Lei nº 5.172, de 25 de outubro de 1966), resolvem celebrar o seguinte: AJUSTE Cláusula primeira O contribuinte que, alternativamente ao disposto no § 2º do art 1º da Lei nº 12.741, de 8 de dezembro de 2012, optar por emitir o documento fiscal com a informação do valor aproximado correspondente a totalidade dos tributos federais, estaduais e municipais, cuja incidência influa na formação do respectivo preço de venda, deve atender o disposto neste ajuste. Cláusula segunda Tratando-se de documento fiscal eletrônico ou cupom fiscal, os valores referentes aos tributos incidentes sobre cada item de mercadoria ou serviço e o valor total dos tributos deverão ser informados em campo próprio, conforme especificado no Manual de Orientação do Contribuinte, Nota Técnica ou Ato COTEPE. Cláusula terceira Nos demais documentos fiscais, os valores referentes aos tributos incidentes sobre cada item de mercadoria ou serviço deverão ser informados logo após a respectiva descrição e o valor total dos tributos deverá ser informado no campo "Informações Complementares" ou equivalente. Cláusula quarta Este ajuste entra em vigor na data de sua publicação no Diário Oficial da União, produzindo efeitos a partir da vigência da Lei nº 12.741/12. Se alguém tiver novidades por gentileza compartilhem. Att.

Boa tarde pessoal, Alguém sabe de alguma novidade quanto à aplicação da referida lei? Se houve alguma mudança para simplificar/facilitar a exibição dos impostos no Cupom Fiscal ou NF-e? Alguém já definiu como irá tratar mais esta situação em seus sistemas? Poderia compartilhar pois acredito que a maioria ainda está em dúvida de como proceder para minimizar o impacto de mais esta bomba que como sempre, sobra pra nós Desde já agradeço. José Luís

Estou com o mesmo problema Há previsão de alguém subir pro SVN alguma das soluções apresentadas? Tem empresa precisando gerar os dados, me parece que o prazo é dia 16 e eu não queria fazer gambiarra pois dependendo da solução adotada implicará em nova atualização nos clientes. Desde já agradeço.

Boa tarde Ronnei, Também passei por uma situação semelhante, heis que ontem um cliente me questionou sobre uma NF-e emitida em 19/05 que estava no sistema como autorizada, o próprio danfe está com o protocolo de autorização inclusive e sem qualquer mensagem de irregularidade, porém, consultando a chave da nota no portal da NF-e a mesma consta como não existente. Acabei por inutilizar a mesma e passei para a contabilidade pois uma nova NF será emitida e enviada ao cliente. Então fica a questão... será que tem bug no componente ou o problema é na Sefaz??? O que me chamou a atenção é o número do protocolo de autorização impresso no danfe... pelo jeito a NF-e sumiu da base da sefaz após a autorização... rsrsrss.... Conferi minha rotina mais de uma vez e pelo que vi tá tudo certo quanto ao teste do código de retorno. Alguém mais está tendo problemas semelhantes???

Bom dia, Após atualizar o ACBr (hoje) também tive este problema do acúmulo e precisei fazer o ajuste sugerido de reinicializar a variável strLinha no ponto indicado abaixo: // ACBrEFDBloco_0_Class ... procedure TBloco_0.WriteRegistro0200(Reg0001: TRegistro0001) ; for intFor := 0 to Reg0001.Registro0200.Count - 1 do begin strLinha := ''; // <<<-------- Acrescentar with Reg0001.Registro0200.Items[intFor] do begin Não sei se é a melhor solução mas se não houver outra seria interessante alguém subir esta alteração para o SVN evitando assim problemas para outros usuários. Desde já agradeço.