Painel de líderes

Boa tarde Marcelo, Favor atualizar os fontes, reinstale o ACBr e faça novos testes.

Tenta essa dica, é antiga mas quem sabe: Note que fazer o procedimento pode abrir brechas de segurança (que a atualização do Windows supostamente corrigiu).

Hum.. pode ser configuração na área de Base de Conhecimentos.. verificando..

Boa tarde @Ita Júnior Atualizei, refiz os testes e funcionou perfeitamente. Muito obrigado pela atenção. Pode fechar.

Boa tarde Marcelo, Eu não fiz nenhuma alteração no provedor DataSmart. Por favor abra a Unit DataSmart e altere o XMLToStr por IncluirCDATA nas function que montam o Request. Depois reinstale o ACBr e faça os testes.

Boa tarde Marcelo, Já esta no SVN.

Boa tarde Eliandro, Já esta no SVN.

Certo, e isso é exclusivo do Tecnos. Enviei um email para o suporte do Tecnos, vou ver se eles me respondem, qqr coisa lhe comunico. Mas muito obrigado por enquanto.

O Instalador do ACBr não é compatível com essa versão do Delphi Veja esse tópico:

Obrigado por reportar. Fechando. Para novas dúvidas, criar um novo tópico.

Marcelo, Acredito que o jeito é incluir na lista de erros o A0000 e a aplicação tratar esse erro como não erro. Já inclui na minha lista de tarefas para incluir o A0000 na lista de erros, apesar dele não ser um erro. TK-2220

Eu realmente não sou especialista em Configuração de redes em Windows... não saberia lhe informar... Experimente apagar o compartilhamento, e criar novamente, com outro Nome, como por exemplo "COZINHA"

Eliandro, Muito obrigado pelos testes e retorno. Já inclui na minha lista de tarefas para realizar essa alteração. TK-2219

Normalizado.

basta desmarcar no instalador mas o problema seu é que tu já havia a muito tempo instalado manualmente o componente. então olhe que tu tem arquivos perdidos no seu windows. principalmente na pasta documentos publicos

Bom dia Marcelo, No retorno consta na lista de erros o erro A0000, que para mim não é um erro e sim uma mensagem acusando que a operação foi realizada com sucesso. Acho que o tratamento a ser feito é verificar a quantidade de erros presentes na lista de erros, se for zero significa que não temos nenhum erro, logo pegamos o numero do protocolo e realizamos a consulta para obter o XML da nota.

Acho que não tem relação com o fato da impressora ser Epson... mas sim com essa versão do Windows Verifique se todos os Updates estão instalados... houveram várias correções de segurança para o Spool do Windows. Verifique se as permissoes do compartilhamento estão corretas

Depurando isso ocorre na primeira linha né? ou tu não depurou? se é na primeira linha quer dizer que tu não tem uma notafiscal carregada

Devido ainda não saber o motivo o jeito foi mesmo enviar em contingência. Obrigado mais uma vez a você Renato.

Boa noite Renato, obrigado pela ajuda. Também estive vendo isso no portal, achei muito estranho por isso postei aqui.

Boa noite @prevedello_sistemas Por favor, teste com a unit em anexo ACBrBancoUnicredES.pas Boa noite @prevedello_sistemas Por favor, teste com a unit em anexo ACBrBancoUnicredES.pas

Olá Italo, Muito obrigado pelo seu breve retorno, competente como sempre. Vou atualizar aqui e tentar no ambiente de produção. Muito obrigado mais uma vez. Michel Abrão.

Mas para funcionar a sintaxe por UNC do Windows, você precisa instalar a impressora no Spool e criar um compartilhamento No exemplo acima a impressora foi compartilhada no Windows como o nome "COM8"

Como você faz com a Daruma? Que saiba não tem como, sem ter algo no PC onde a impressora está conectada, redirecionando uma conexão de entrada feita numa porta TCP para a porta serial. Mas se tiver instalado no Windows e compartilhado, pode configurar a porta como o nome do compartilhamento: \\192.168.2.8\epson A configuração de porta do tipo "TCP" é para as impressoras que já tem interface ethernet.

Este tópico lhe ajudará na resolução desse problema... Se após atualizar o ACBr, você está tendo problemas de exibição das Mensagens do Operador/Cliente, isso se deve devido a uma mudança na API, que agora tem um parâmetro novo, com a indicação que a Mensagem deve ser exibida em Todas as telas... Para ajustar os seus fontes, é bem simples, basta adicionar uma condição para Terminal = tmTodas Exemplo para aplicações que usam o componente ACBrTEFD procedure TFormPrincipal.PayGoWebExibeMensagem(Mensagem: String; Terminal: TACBrTEFPGWebAPITerminalMensagem; MilissegundosExibicao: Integer); var FormExibeMensagem: TFormExibeMensagem; begin if (Mensagem = '') then begin if (Terminal in [tmCliente, tmTodas]) then // <--------- AQUI ---------- MensagemTEF('',' ') ; if (Terminal in [tmOperador, tmTodas]) then MensagemTEF(' ','') ; end else if MilissegundosExibicao >= 0 then begin FormExibeMensagem := TFormExibeMensagem.Create(Self); try FormExibeMensagem.Mensagem := Mensagem; FormExibeMensagem.TempoEspera := MilissegundosExibicao; FormExibeMensagem.ShowModal; finally FormExibeMensagem.Free; end; end else begin if (Terminal in [tmCliente, tmTodas]) then // <--------- AQUI ---------- MensagemTEF('',Mensagem) ; if (Terminal in [tmOperador, tmTodas]) then MensagemTEF(Mensagem,'') ; end; end; Exemplo para aplicações que usam o componente ACBrTEFAPI procedure TFormPrincipal.ACBrTEFAPI1QuandoExibirMensagem( const Mensagem: String; Terminal: TACBrTEFAPITela; MilissegundosExibicao: Integer); var FormExibeMensagem: TFormExibeMensagem; begin if (Mensagem = '') then begin if (Terminal in [telaCliente, telaTodas]) then // <--------- AQUI ----------- MensagemTEF('',' '); if (Terminal in [telaOperador, telaTodas]) then MensagemTEF(' ',''); end else if (MilissegundosExibicao >= 0) then begin FormExibeMensagem := TFormExibeMensagem.Create(Self); try FormExibeMensagem.Mensagem := Mensagem; FormExibeMensagem.TempoEspera := MilissegundosExibicao; FormExibeMensagem.ShowModal; finally FormExibeMensagem.Free; end; end else begin if (Terminal in [telaCliente, telaTodas]) then // <--------- AQUI ----------- MensagemTEF('',Mensagem); if (Terminal in [telaOperador, telaTodas]) then MensagemTEF(Mensagem,''); end; end;

Pessoal, Vi muitos tópicos com dúvidas para instalação das versões que não permitem compilação por linha de comando. Caso seja útil, segue resumo para a instalação manual com passos que funcionaram para mim. Não utilizo todos os módulos do componente, mas acredito que tudo funcione corretamente seguindo esses passos. Testei vários projetos e todos compilaram. Atenção: A versão CE não destina-se a testes e não deve ser instalada na sua empresa caso o seu faturamento geral ultrapassar os limites estabelecidos. Neste caso, solicite uma licença trial e evite ficar irregular. No final do tópico coloquei um link de outro tópico contendo destaques dos valores e condições para utilização da versão CE. Instalar o ACBr no Delphi CE ou Trial 1. Descompactar a pasta ACBrInstall_CE no raiz do ACBr ---> ACBrInstall_CE.zip 2. Dependências 2.1. Instalar o fortes reports: https://github.com/fortesinformatica/fortesreport-ce * Abrir o .dpk * Botão direito sobre ele e clicar em Build * Botão direito e clicar em Install 2.2. Quem possui e utiliza o Fast, instalar o Fast 2.3. Unit scope names: Acessar Tools / Options / Language / Delphi / Library / Unit scope names >>> Adicionar “Vcl” na lista * O arquivo Registrar_UnitScopeNames_Vcl.reg preenche a informação, sobrepondo o padrão , que é em branco. Fazer com o Delphi fechado. 3. Grupos de projetos para geração das bpls * para evitar retrabalho, veja o erro 4.1 pois pelos meus testes sempre foi necessário alterar para “.dres” no DCLACBr_Comum.dpk 3.1. Quem possui o Fast, ignorar o item 3.2, abrir o InstalacaoFR.groupproj e processar o Build All com o botão direito no grupo InstalacaoFR 3.2. Quem não possui o Fast, abrir o InstalacaoRL.groupproj e processar o Build All com o botão direito no grupo InstalacaoRL 4. Erros 4.1. Caso ocorra o erro "Resource ACBR not found" * Botão direito sobre o DCLACBr_Comum.bpl, “View Source” * Alterar de {$R *.otares} para {$R *.dres} 4.2. Caso ocorram erros como Graphics, Forms, Controls , etc “not found“: * Caso não tenha feito a configuração geral no item 2.3, pode ser feito por pacote: adicionar Vcl em Project / Options / Building / Delphi Compiler / Unit scope names 4.3. Se ocorrerem erros nas classes do Fortes ( TfrmCTeDAInutRL, TfrlGuiaRL, TfrlDAMDFeRL, TfrmMDFeDAEventoRL, TfrlXDANFSeRL ) na primeira abertura do grupo de projetos, basta ignorá-los e dar ok, pois estão reclamando das dependências que ainda serão instaladas no grupo. 4.4. Caso ocorram erros como "Fortes report Unit 'RLReport' not found": (colaboração do @felipe de souza) * Adicionar ao library o caminho do source \trunk\source 5. Após compilar todos os pacotes, executar o arquivo para vincular(instalar) os componentes ao Delphi * Feche o Delphi para registrar as bpls 5.1. RegistrarComponentesFR.reg para quem possui o Fast, não precisando executar o item 5.2 5.2. RegistrarComponentesRL.reg para quem não possui o Fast Obs: Não possuo o Fast então não tive como compilar nem testar o .reg para validar, apenas adicionei os pacotes no grupo e gerei o arquivo. Caso alguém valide e precise de ajustes, por favor compartilhe a correção para ajudar os demais. ACBrInstall_CE.zip Conforme mencionado no início, segue tópico contendo destaques dos valores e condições para utilização da versão CE.

Apesar do manual exemplificar um GUID com parâmetros de entrada(XPTO + CIELO), desconheço qualquer função de geração de GUID que aceite parâmetros de entrada. https://pt.wikipedia.org/wiki/Identificador_Único_Global Você pode seguir o exemplo que vc postou, buscar por "GUID generator" no google e usar os diversos sites que fazem a geração online, ou seguir este exemplo - https://www.devmedia.com.br/criar-guid-em-tempo-de-execucao/16715