Compartilhar Certificado A3 Em Rede

[rrodrigoffernandes]

Olá amigos, preciso da ajuda de vocês, estou instalando o sistema em um novo cliente e ele já tinha um recurso no sistema antigo que usava o mesmo certificado 'A3' em todos os computadores para emissão de nota fiscal, o certificado fica no escritório e todos os outros computadores conseguem fazer nota fiscal normalmente acessando o certificado que fica lá no escritório.

 

Alguém sabe me dizer como fazer isso utilizando o ACBr? 

[Paulo Tenório]

Estude e Instale o ACBRNFeMonitor. Ele receberá os pedidos dos terminais da rede e processará os comandos, devolvendo para cada solicitação o resultado do processamento. Eu utilizo há anos e o funcionamento é perfeito.

[rrodrigoffernandes]

Olá Paulo, você ou alguém teria algum exemplo de como integrar minha aplicação com o acbrmonitor? já pesquisei no forum e não consegui entender o que o pessoal está dizendo... 
estou utilizando a função EnviarComando, porém não está dando certo... está retornando erro.

function EnviarComando(const ACommand: AnsiString; var Resposta: AnsiString): Boolean;
var
  Resp: Integer;
  ClientTCP: TTcpClient;
begin
  Result   := False;
  Resposta := EmptyStr;
 
  ClientTCP := TTcpClient.create(nil);
  try
    ClientTCP.RemoteHost := AnsiString('192.168.0.110');
    ClientTCP.RemotePort := AnsiString(IntToStr(3436));
    ClientTCP.Open;
    try
      Resp := ClientTCP.Sendln(ACommand, sLineBreak);
 
      if Resp > 0 then
      begin
        ClientTCP.WaitForData(10000);
        Resposta := ClientTCP.Receiveln(sLineBreak);
        Result := Pos('OK', Resposta) > 0;
      end;
    finally
      ClientTCP.Close;
    end;
  finally
    ClientTCP.Free;
  end;
end;

na linha qual envio o comando estou passando 

 

  

vcomando:= 'NFE.ASSINARNFE("\\192.168.0.110\ACBrNFeMonitor\Arquivos\Tempo\35140603997115000190550010000121641435364663-NFe.xml")' ;
  vresposta:= EmptyStr;


  if EnviarComando(vcomando,vresposta) then
    ShowMessage('sucesso '+vresposta)
  else
    ShowMessage('erro '+vresposta);

é dessa forma que devo passar o comando ou tem alguma outra forma?

 

[André Ferreira de Moraes]

O ACBrNFeMonitor roda localmente, então vc deve passar o path para um arquivo que exista na máquina. Ex: NFE.ASSINARNFE("c:\ACBrNFeMonitor\Arquivos\Tempo\35140603997115000190550010000121641435364663-NFe.xml")

[rrodrigoffernandes]

anfm, no caso, desejo fazer da seguinte forma, me corriga se estiver errado.

- Desejo instalar o acbrmonitor no servidor junto com o certificado A3, e todos os outros computadores da rede fazer a nfe, validar, assinar, transmitir tudo enviando comandos e acessando o monitor que está lá no servidor junto com o cartão A3, tem como fazer isso?

[André Ferreira de Moraes]

- Desejo instalar o acbrmonitor no servidor junto com o certificado A3, e todos os outros computadores da rede fazer a nfe, validar, assinar, transmitir tudo enviando comandos e acessando o monitor que está lá no servidor junto com o cartão A3, tem como fazer isso?

Sim. Basta trabalhar de uma forma que o ACBrNFeMonitor compreenda os comandos. Abre a unit DoACBrNFeUnit da pasta Projetos\ACBrNFeMonitor\Delphi e estude a melhor forma de adaptar seu sistema.

[Paulo Tenório]

Rodrigo, eu fiz a comunicação entre os terminais e o servidor através de arquivo-texto. Crio o arquivo com o comando desejado, copio para o servidor,  aguardo o arquivo de resposta e copio de volta para o terminal para processar localmente o resultado.

[Janio]

Se 02 terminais enviarem 02 comandos ao mesmo tempo, como vc faz pra direcionar a resposta correta a estação?

[...]

o nome do arquivo que vc cria vai fazer com que o monitor responda cada qual com  a sua determinada resposta. Por exemplo: ENTNFE001.txt vai receber SAINFE001.txt como resposta, enquanto que o ENTNFE002 vai receber SAINFE002, entendeu?