brsamn

Bom Dia. O erro ocorre no seguinte trecho, dentro da procedure EfetuaPagamento: FPG := AchaFPGIndice( CodFormaPagto ) ; if FPG = nil then raise EACBrECFErro.Create( Format(ACBrStr(cACBrECFAchaFPGIndiceException), [ CodFormaPagto ])) ; Ele nem chega a entrar no try, porque o erro que eu programei pra simular foi de "Forma de Pagamento Inválida". Obrigado.

Bom Dia Daniel Simões, segue o log: -------------------------------------------------------------------------------- ATIVAR - 27/03/15 08:22:12:850 - Modelo: Sweda - Porta: COM2 - TimeOut: 3 Device: BAUD=9600 DATA=8 PARITY=N STOP=1 HANDSHAKE=DTR/DSR MAXBANDWIDTH=0 -------------------------------------------------------------------------------- -- 08:22:12:851 TX -> [ESC].271} 08:22:12:972 RX <- .+C00112703150223CN000000000025803980000002100000000000000000000000000000000000000000000000000000000000000000000000000000142I } -- 08:22:12:972 TX -> [ESC].27G} 08:22:13:188 RX <- .+C001G000000000005000500001.000000000002580398000000000000000000000000000000000000000000000000000000000000 } -- 08:22:13:188 TX -> [ESC].27H} 08:22:13:391 RX <- .+C001H00000000000000000001 01.00.01 00050021000000000011000142000000000223000000000000000000000000000258039800000000000000 } -- 08:22:13:391 Estado TX -> [ESC].28} 08:22:13:603 RX <- .+0000000CREDUCAO 00N000000000000000000000000!2703150822N 001NN000000000000000000000000SNNN0 } -- 08:22:13:603 IdentificaOperador(1) TX -> [ESC].23} 08:22:13:809 RX <- .+P550.+0000} -- 08:22:13:810 Estado TX -> [ESC].28} 08:22:14:010 RX <- .+0000000CREDUCAO 00N000000000000000000000000!2703150822N 001NN000000000000000000000000SNNN0 } -- 08:22:14:011 TestaPodeAbrirCupom TX -> [ESC].28} 08:22:14:206 RX <- .+0000000CREDUCAO 00N000000000000000000000000!2703150822N 001NN000000000000000000000000SNNN0 } -- 08:22:14:206 AbreCupom( , , ) TX -> [ESC].17} 08:22:15:125 RX <- .+0001} -- 08:22:15:125 TX -> [ESC].28} 08:22:15:283 RX <- .+0001000P VENDAS 17N000000000000000000000000!2703150822N 001NN000000000000000000000000SNNN0 } -- 08:22:15:283 NumCupom TX -> [ESC].27H} 08:22:15:498 RX <- .+C001H00000000000000000001 01.00.01 00050021000000000011000143000000000224000000000000000000000000000258039800000000000000 } -- 08:22:15:532 Estado TX -> [ESC].28} 08:22:15:703 RX <- .+0001000P VENDAS 17N000000000000000000000000!2703150822N 001NN000000000000000000000000SNNN0 } -- 08:22:15:703 VendeItem( 759 , LEITE DANONE CORPUS DESNATADO TP 1LT , FF , 1 , 4,19 , 0 , UN , % , D , -1 ) TX -> [ESC].01759 0001000000004190000000000419~LEITE DANONE CORPUS DESF NATADO TP 1LT UN} 08:22:15:901 RX <- .+0002} -- 08:22:15:901 Subtotal TX -> [ESC].28} 08:22:16:121 RX <- .+0002001P VENDAS 01N000000000419000000000419!2703150822N 001NN000000000419000000000000SNNN0 } -- 08:22:16:121 SubtotalizaCupom( 0 , ) TX -> [ESC].10} 08:22:16:315 RX <- .+0003} -- 08:22:16:315 Estado TX -> [ESC].28} 08:22:16:521 RX <- .+0003001P VENDAS 10N000000000419000000000419!2703150822N 001NN000000000419000000000000SNNN0 } -- 08:22:16:521 CarregaFormasPagamento TX -> [ESC].295} 08:22:16:728 RX <- .+T0015S041500 NDinheiro SC. D[233]bito SC. Cr[233]dito } -- 08:22:16:728 TX -> [ESC].296} 08:22:16:934 RX <- .+T0016NCheque NTicket NContra-Vale NOutro STEF N N } -- 08:22:16:934 TX -> [ESC].29Q} 08:22:17:143 RX <- .+T001QN N N N N N } -- 08:22:17:143 TX -> [ESC].29R} 08:22:17:346 RX <- .+T001RN N N N } Obrigado.

Boa tarde amigos. Estou fazendo algumas rotinas para controle dos cupons fiscais emitidas pelo meu sistema. Estou fazendo testes com possíveis erros relacionados ao momento de Efetuar o Pagamento, para isso criei uma rotina no evento "ErrorEfetuaPagamento". Nos meus testes, fiz o erro acontecer nesse momento(informei no sistema um tipo de pagamento não existente na impressora), o componente gerou a exceção mas não entrou no evento "ErrorEfetuaPagamento". Existe alguma outra configuração que devo fazer, ou algo que deva considerar sobre este evento e os outros eventos de erro? Obrigado.

Obrigado Maico Luis! Estava com o mesmo problema e resolvi seguindo a sua dica de adicionar a palavra "VCL" no "Unit scope names".

Fiz isso, mas não resolveu totalmente. O que resolveu um pouco foi aumentar o Timeout para um valor acima de 1000, mas ainda assim o erro ocorre as vezes.

Obrigado pela resposta. O erro acontece tanto nos nossos testes com o emulador, quanto no cliente, mas como disse antes, isso é esporádico, não acontece sempre. As vezes no cliente, funciona por horas sem dar erro, e as vezes dá o erro várias vezes seguidas. Nossa orientação pra eles nesse caso é ir até o EcfConfigurações e ativar o ECF por lá e depois de desativar voltar ao sistema, dessa forma volta a funcionar por um tempo.

Boa Tarde. Estou enfrentando um problema parecido usando SwedaSTX. Algumas vezes, pelo ECFConfigurações, ele ativa normalmente, e outras vezes ele dá o erro de "Impressora SwedaSTX não está respondendo" ou "Erro (0193) Falha de comunicação na transmissão das informações". Já tentei algumas coisas faladas neste post ou em outros posts do fórum, mas nada fez a impressora funcionar com regularidade. Segue em anexo um log que tirei dos três estados que falei acima: Primeiro o "Erro (0193) Falha de comunicação na transmissão das informações", depois "Impressora SwedaSTX não está respondendo" e por último a vez que ativou o componente. Obrigado. ecflog.txt

Já baixei aqui, obrigado Juliomar Marchetti. Marco o tópico como resolvido ou deixo aberto, já que outros provedores podem necessitar de separadores diferentes?

Boa Tarde. Seguem em anexo os arquivos alterados do Fortes Report. ACBrNFSeDANFSeRLClass.rar

Se quiserem posso fazer a adaptação do Fortes Report e disponibilizar aqui, usando a mesma lógica do Quick.

Não, utilizo o Fortes Report.

Bom Dia. Os testes que fiz aqui apresentaram o seguinte comportamenteo. Assim que emito a nota, na primeira impressão, os itens são apresentados com quebra. Se saio do sistema e volto a tentar imprimir depois, os serviços saem todos juntos, dessa forma: Acredito que na primeira impressão sai correta porque ele imprime o que esta no componente. Depois que você fecha o DANFE e vai imprimir novamente, ele passa a imprimir lendo o xml.

Bom Dia. Já resolvi o problema aqui. Vou fazer os testes agora. Obrigado.

Bom Dia Italo. Não sei se estou fazendo alguma coisa errada, mas todas as vezes que tento abrir o arquivo ACBrNFSeDanfseRL.pkg para recompilar e reinstalar, ele me retorna o seguinte erro:

Bom dia Italo, desculpe a demora na resposta. O provedor que uso é o Fiorilli em Avaré-SP, mas pelo que eles me informaram o \s\n é o recomendado pelo padrão Abrasf. Página 7 do manual: http://www.abrasf.org.br/arquivos/files/NFS_e_alteracoes_da_vr_2_0.pdf Obrigado.

Obrigado Marcelo, baixei seus arquivos para dar uma olhada, mas meu problema é apenas no Banco do Brasil, já fiz uma alteração aqui que resolveu meu problema, vou anexar para análise dos moderadores. ACBrBancoBrasil.pas ACBrBancoBrasil.pas

Boa Tarde amigos. Os componentes de impressão de NFSe do ACBR usam por padrão o caractere ';'(ponto e vírgula) para quebra de linha no momento da impressão, por isso devemos passar os serviços da NFSe separados por esse caractere para que no momento da impressão eles saiam separados em linhas. Exemplo: Servico.Discriminacao:= 'Teste de Serviço I' + ';' + 'Teste de Serviço II' A impressão fica dessa forma: Mas quando a nota é impressa pelo site, ela fica dessa maneira: Em consulta ao manual da Abrasf e a empresa responsável pela NFSe aqui da minha cidade, verifiquei que o separador correto para esses casos é o conjunto de caracteres \s\n. Usando esse conjunto a impressão no site da prefeitura acontece da maneira correta. Pensando nisso adicionei a classe ACBrNFSeDANFSeClass a propriedade "CaractereQuebraLinha" que deixará a cargo do usuário do componente a escolha do caractere usado para quebra de linha. Mantive o ';' como padrão para não ocorrerem problemas com os que já usam dessa forma. Peço a algum dos moderadores que verifiquem a alteração que fiz e se essa é uma alteração interessante para ser incorporada ao componente. Obs: a principio fiz apenas para FortesReport, pois só tenho ele instalado na minha máquina. Obrigado. ACBrNFSeDANFSe.rar

Fiz uma alteração nos fontes visando corrigir o informado, caso desejem posso anexar aqui para que os moderadores verifiquem.

Bom Dia. Alguma solução para a divergência no campo 106? Estou com o mesmo problema. Obrigado.

Voltando a dúvida do amigo zottis. Quando é colocado o ;(ponto e vírgula) na tag discriminação o DANFE é impresso corretamente na aplicação, mas quando impresso no site fica com os produtos em uma só linha separados por ;(ponto e vírgula). Falei com o técnico da Fiorilli, que é a empresa responsável pela NFSE na minha cidade, e ele me orientou a colocar o separador '\s\n', que é o padrão da Abrasf. Dessa forma na impressão do site os produtos aparecem com quebra, e na impressão pelo sistema aparecem em uma só linha separador por '\s\n'. Não sei como funciona nas outras empresas que prestam esse tipo de serviço, mas não seria o caso de trocar esse separador ponto e vírgula ou pipe pelo '\s\n', já que esse é o padrão da Abrasf? Obrigado.

Aí acredito que apenas alterando o relatório do DANFE mesmo, para mudar o tamanho da fonte. Mas para ter certeza, espere a resposta de algum dos moderadores que tem um conhecimento melhor nessa parte.

Boa Tarde. Você deve passar esses valores para a propriedade Prefeitura do seu componente de DANFE. Via código você passaria assim, por exemplo: ACBrNFSe1.DANFSe.Prefeitura:= 'Nome da Prefeitura' Esses dados você pode manter no arquivo .ini SmartNfse.ini, ou em no seu banco de dados, e passar ao componente na abertura do seu sistema. Por exemplo: ACBrNFSe1.DANFSe.Prefeitura := Ini.ReadString('Geral', 'Prefeitura', '')

Consegui resolver, vou compartilhar a informação pra caso alguém precise em algum momento: Número NFSE: ACBrNFSe1.NotasFiscais.Items.NFSe.Numero; Código de Verificação: ACBrNFSe1.NotasFiscais.Items.NFSe.CodigoVerificacao; Data e Hora da Emissão: ACBrNFSe1.NotasFiscais.Items.NFSe.DataEmissao; Já tinha testado dessa forma, mas por razão de falta de atenção nos meus testes ou de algum problema momentâneo não tinha me retornado nada. Fiz novos testes hoje e todas as vezes retornou o resultado correto. Obrigado. Obs: Não vi como marcar que o tópico está resolvido, se algum moderador puder fazer isso eu agradeço.

Boa Tarde. Existe alguma forma de recuperar os dados das NFSEs enviadas em um lote síncrono(Número, Data, etc)? O provedor usado é o Fiorilli. Obrigado.

Vou tentar implementar algo seguindo a sua ideia, obrigado.