Ir para conteúdo
  • Cadastre-se

Daniel Simoes

Fundadores
  • Total de ítens

    27.062
  • Registro em

  • Última visita

  • Days Won

    759

Tudo que Daniel Simoes postou

  1. Eu creio que não... pois Zebra e Argox são concorrentes diretos... Mas verifique com o fabricante (Argox), se após alguma atualização de Firmware, o equipamento passaria a suportar ZPL2
  2. Qual é a exata msg do erro ou rejeição? Se possível anexe o Log da ACBrLib...
  3. Pode por favor anexar o Log da ACBrLib, o INI de entrada e o XML gerado?
  4. Na implementação atual do ACBrPosPrinter, apenas suportamos o Dobro de Largura e Altura... Na linguagem EscPos, e em algumas impressoras, existe o suporte a múltiplos maiores... mas isso ainda não foi implementado no ACBrPosPrinter
  5. Não usamos a Indy... mas sim a Synapse http://www.ararat.cz/synapse/doku.php/public:howto:httpdownload http://www.ararat.cz/synapse/doku.php/public:howto:sslplugin http://www.ararat.cz/synapse/doku.php/public:howto
  6. Se você se refere a esse erro... Verifique se há modificações nos Packages do ACBr, do seu lado... por via das dúvidas, apague a pasta packages atualiza novamente...
  7. Paraná está instável... Qual o valor do seu TimeOut ? Deixe em 30.000, para um Servidor que está instável...
  8. Pode ser esse o problema... Você não deve abrir os Packages e compilar eles manualmente, pois se fizer isso, o Delphi salva BPLs e outros arquivos em pastas que não são as utilizadas pelo ACBr Sempre que precisar recompilar algum Package, rode novamente o Instalador do ACBr
  9. Creio que só temos esses exemplos (que foram doados por Devs de Node.js) o que muda, nos métodos, é a que a versão M.T. sempre recebe como primeiro parâmetro, o Ponteiro de onde a biblioteca foi carregada... (const libHandle: PLibHandle)... Esse ponteiro é retornado por referência, no método NFE_Inicializar (var libHandle: PLibHandle)... Você deve salvar esse endereço (ponteiro) em sua Thread, e informar ele em todos os métodos subsequentes, que chamar... function NFE_Inicializar(var libHandle: PLibHandle; const eArqConfig, eChaveCrypt: PChar): longint; function NFE_Finalizar(libHandle: PLibHandle): longint; function NFE_Nome(const libHandle: PLibHandle; const sNome: PChar; var esTamanho: longint): longint; function NFE_Versao(const libHandle: PLibHandle; const sVersao: PChar; var esTamanho: longint): longint; Observe que a versão S.T. não há esse parâmetro (const libHandle: PLibHandle) com o endereço da Lib (a Lib salva internamente o Ponteiro) function NFE_Inicializar(const eArqConfig, eChaveCrypt: PChar): longint; function NFE_Finalizar: longint; function NFE_Nome(const sNome: PChar; var esTamanho: longint): longint; function NFE_Versao(const sVersao: PChar; var esTamanho: longint): longint;
  10. Há esse demo, no nosso SVN http://svn.code.sf.net/p/acbr/code/trunk2/Projetos/ACBrLib/Demos/Node.js/NFe/lib_test_teste-acbrlibnfe.js
  11. No próprio instalador, tem uma opção para remover as instalações anteriores...
  12. Isso pode indicar uma má alocação da memória nos parâmetros "aloc_sResposta, aloc_esTamanho"... Ou seja, você precisa alocar memória do seu lado, e indicar o ponteiro e o tamanho do buffer alocado...
  13. Verifique se na sua API Key, você permissões para Devolução... @EliasCesar, consegue reproduzir o problema ?
  14. Olá @prevedello_sistemas, Nesse vídeo tem informações sobre isso
  15. Está correto... veja as regras da ABNT http://svn.code.sf.net/p/acbr/code/tools/Diversos/nbr-5891-2014-regras-de-arredondamento-na-numeraao-decimalpdf.pdf
  16. Você pode criar XMLs que testem a regra, e enviar para o ambiente de homologação, quando ela já estiver ativa... De qual NT ou Regra, você está falando exatamente ?
  17. Veja esse trecho de código, da Unit ACBrTEFPayGoComum.pas PWINFO_AUTHSYST: begin Rede := LinStr; if (Trim(Rede) <> '') then begin ARede := TabelaRedes.FindPGWeb(Rede); if Assigned(ARede) then begin if (NFCeSAT.Bandeira = '') then NFCeSAT.Bandeira := ARede.NomePGWeb; NFCeSAT.CNPJCredenciadora := ARede.CNPJ; NFCeSAT.CodCredenciadora := IntToStrZero(ARede.CodSATCFe, 3); end; end; end;
  18. @claudiomiguelmuller, realmente foi uma coleta de dados, que compilamos nesse arquivo... http://svn.code.sf.net/p/acbr/code/trunk2/Fontes/ACBrTEFD/RedesPayGo.txt Esse vídeo explica a lógica que usamos
  19. https://blog.esimplesauditoria.com.br/tributacao-monofasica-o-que-e-e-como-funciona/
  20. Se não me engano a Shipay tinha planos para aceitar BitCoins
  21. Por favor veja esse tópico:
  22. Veja os eventos implementados no componente TCPServerTC, do ACBrMonitorPLUS procedure TFrmACBrMonitor.TCPServerTCConecta(const TCPBlockSocket: TTCPBlockSocket; var Enviar: ansistring); var IP, Id: ansistring; Indice: integer; begin TCPBlockSocket.SendString('#ok'); Id := Trim(TCPBlockSocket.RecvPacket(1000)); IP := TCPBlockSocket.GetRemoteSinIP; Indice := mTCConexoes.Lines.IndexOf(IP); if Indice < 0 then begin mTCConexoes.Lines.Add(IP); AddLinesLog('T.C. Inicio Conexão IP: [' + IP + '] ID: [' + Id + ']' + ' em: ' + FormatDateTime('dd/mm/yy hh:nn:ss', now)); end; end; procedure TFrmACBrMonitor.TCPServerTCDesConecta(const TCPBlockSocket: TTCPBlockSocket; Erro: integer; ErroDesc: string); var IP: string; Indice: integer; begin if not Assigned( TCPBlockSocket ) then Exit; IP := TCPBlockSocket.GetRemoteSinIP; AddLinesLog('T.C. Fim Conexão IP: [' + IP + '] em: ' + FormatDateTime('dd/mm/yy hh:nn:ss', now)); Indice := mTCConexoes.Lines.IndexOf(IP); if Indice >= 0 then mTCConexoes.Lines.Delete(Indice); end; procedure TFrmACBrMonitor.TCPServerTCRecebeDados(const TCPBlockSocket: TTCPBlockSocket; const Recebido: ansistring; var Enviar: ansistring); var Comando, Linha: ansistring; Indice, P1, P2: integer; begin { Le o que foi enviado atravez da conexao TCP } Comando := StringReplace(Trim(Recebido), #0, '', [rfReplaceAll]); // Remove nulos if pos('#live', Comando) > 0 then begin Comando := StringReplace(Comando, '#live', '', [rfReplaceAll]); // Remove #live TCPBlockSocket.Tag := 0; // Zera falhas de #live? end; if Comando = '' then exit; AddLinesLog('TC: [' + TCPBlockSocket.GetRemoteSinIP + '] RX: <- [' + Comando + ']'); if copy(Comando, 1, 1) = '#' then begin Comando := copy(Comando, 2, Length(Comando)); P1 := 0; P2 := 0; Indice := fsSLPrecos.IndexOfName(Comando); if Indice >= 0 then begin Linha := fsSLPrecos[Indice]; P1 := Pos('|', Linha); P2 := PosAt('|', Linha, 3); end else Linha := edTCNaoEncontrado.Text; if P2 = 0 then P2 := Length(Linha) + 1; Enviar := '#' + copy(Linha, P1 + 1, P2 - P1 - 1); Enviar := LeftStr(Enviar, 45); TCPBlockSocket.Tag := 0; // Zera falhas de #live? AddLinesLog(' TX: -> [' + Enviar + ']'); end; end;
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.

The popup will be closed in 10 segundos...