Jump to content

Promoção 25 Anos de Delphi
25% de desconto em todas as versões

Saiba mais

Assine o SAC Anual este mês e ganhe o curso
Tributação NF-e para Desenvolvedores

botao.png

Balança SM100 performance surpreendente

Tecnologia Japonesa   Teclado e Visor resistentes a água
Consumo inteligente de etiquetas   Baixo custo de manutenção
Comunicação Ethernet e WIFI independentes

Saiba Mais

Impressora de Etiquetas ELGIN - L42 PRO

Protocolos PPLA, PPLB, ZPL, EPL (automático)
Porta USB padrão Opcionais: Ethernet, Serial, Paralela
Sensor de Etiquetas Móvel Garantia de 18 meses

Saiba mais

jaques.rocha

Membros
  • Content Count

    104
  • Joined

  • Last visited

Community Reputation

17 Good

About jaques.rocha

  • Rank
    Membro

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

  1. Pesquisei e achei o portal para cadastro. http://www.fazenda.pr.gov.br/modules/conteudo/conteudo.php?conteudo=401 Se fechar com cliente farei procedimento de cadastro. Obrigado pelas informações.
  2. Estou negociando com um cliente do PR, e segundo ele, para emitir NFE no estado o software tem de ser homologado no estado, procede essa informação ?, Pois tenho cliente em vários estados e nunca tive de fazer nenhum procedimento extra para emissão de NFE
  3. Não tive tempo de trabalhar nisso ainda, no site http://www.meusutilitarios.com.br/p/blog-page.html consegui testar que lançando a linha digitável é possível obter o código de barras vencimento e valor, estava planejando fazer uma função pra isso, para entrar gerar uma reimpressão do boleto, pois assim apos gerar o boleto no site do inter só colaria a linha digitavel no meu software para gerar o pdf e enviar por email. Mas estou com outras prioridades e não tive tempo de trabalhar nisso ainda.
  4. Eu editei ACBRutil testando se o arquivo existe, e apagando ele antes de criar, sempre indiquei para o Kaspersky como um bom Antivirus, não vou pedir para remover.
  5. Editei no ACBRutil, if FileExists(ArqTXT) then DeleteFile(PChar(ArqTXT)) ; Resolveu para mim, todos os clientes que reportam o erro eu atualizo e resolve.
  6. Entendi, no meu caso já faço do jeito correto, Obrigado.
  7. Bom dia Por padrão o componente salva o protocolo de cancelamento, eu sempre peço para o cliente enviar esses xmls para a contabilidade, hoje dei uma olhada e depois do cancelamento é gerado um novo xml com o evento cancelamento, mas eu nao atualizo do da pasta que é enviada para contabilidade. Agora fiquei com essa duvida também, se eu atualizar esse xml para a pasta dos xml que envio para a contabilidade, não preciso enviar os protocolos de cancelamento ?
  8. Vou ver se se consigo fazer um teste usando os dados da conta. Se não der certo pretendo fazer essa função pois vai me ajudar para o que pretendo fazer.
  9. O banco inter agora esta mostrando a linha digitável antes de gerar o boleto, estou pesando e colar essa linha digitável no meu programa e gerar o boleto a partir dela pois todos os dados ja tenho no meu conta a receber. mas para isso preciso gerar o código de barras. Achei a função ACBrBoleto1.Banco.MontarLinhaDigitavel, que tendo somente o código de barras conseguimos gerar a linha digitável, para o contrário até tem ACBrBoleto1.Banco.MontarCodigoBarras mas nesse caso precisa alimentar todo os dados do titulo. Alguém ja fez a função para somente com a linha digitável gerar o código de barras ?
  10. Resolvi por enquanto excluindo o arquivo antes do TfileStream criar com: if FileExists(ArqTXT) then DeleteFile(PChar(ArqTXT)) ; Creio que não é a melhor solução, principalmente poque alterei no ACBRutil, mas vou deixar assim por enquanto pra ver se esse problema é só comigo.
  11. Depurando aqui descobri que a primeira criação do arquivo xml ocorre normalmente, eu uso: ACBrNFe1.NotasFiscais.Items[0].GravarXML; nesse momento ele cria o xml normalmente (se ele ja existir o erro ocorre) na sequencia chamo o: ACBrNFe1.NotasFiscais.Assinar; aqui ocorre o erro, pois o arquivo ja existe. Verifiquei que a função GravarXML, chama a função WriteToTXT do ACBrUtil, onde ocorre o erro no trecho ja citado TFileStream.Create( ArqTXT, IfThen( AppendIfExists and ArquivoExiste, Integer(fmOpenReadWrite), Integer(fmCreate)) or fmShareDenyWrite ); Quando assina ele chama a mesma função WriteToTXT, creio que para salvar o xml assinado, mas como o arquivo xml ja existe o erro acontece Meu codigo sempre foi assim, começou da erro nessa semana em alguns cliente sem eu mexer no executável, é só em ambiente de rede, se salvar os xml no disco local tudo corre normalmente. Estou preocupado pois creio vai aumentar a quantidade de cliente com esse erro, até agora estou com 4, alguns só vao voltar em janeiro. Outro teste, atualizei outro windows 10 que tenho aqui, esta tudo atualizado,tambem com kaspersky, salvando no mesmo servidor que eu, e nele nao esta acontecendo erro
  12. Aqui foi depois que atualizei o windows 10, mesmo desativando o kaspersky o erro continua
  13. Atualizando: lá No ACBrUtil: TFileStream.Create( ArqTXT, IfThen( AppendIfExists and ArquivoExiste, Integer(fmOpenReadWrite), Integer(fmCreate)) or fmShareDenyWrite ); fiz o teste forçando: fmOpenReadWrite fmCreate fmShareDenyWrite O erro só acontece quando é usado o parâmetro frmCreate;
  14. Realmente uso o Kaspersky, mas pausei ele aqui e o erro continua, nos micros dos clientes não lembro que antivirus estavam, deixei o micro deles salvando o xml local por enquanto até resolver isso
  15. Windows 10 Tenho certeza que é alguma atualização pois estava gerando xml e pdf normalmente, forcei atualização reiniciei e comecou a dar erro com o mesmo executavel. depurando, o erro acontece nesse comando: TFileStream.Create( ArqTXT, IfThen( AppendIfExists and ArquivoExiste, Integer(fmOpenReadWrite), Integer(fmCreate)) or fmShareDenyWrite ); Acontece tanto pra criar xml para criar pdf, então creio que o TFileStream esta sendo afetado por essa atualização. tenho outro micro aqui que esta normal, estou forçando a atualização do windows dele para ver se vai acontecer tambem, daqui a pouco reporto
×
×
  • Create New...