Acbrnfemonitor Como Inviar Comando

[Hetosoft Sistemas]

estou querendo usar

ACBrNFeMonitor

mais estou com duvidas vi os comando para o acbrnfemonitor

 

Sintaxe:

NFe.StatusServico;

 

Exemplo:

NFe.StatusServico;

 

mais como enviar para o acbrnfemonitor ,

e saber a resposta,

nao entedir muito ?

Editado 1 Abril, 2013 por hetoandrade

[Juliomar Marchetti]

Leu o CHM que vem junto no SVN?

lá tem até exemplos para criar o txt e também enviar via socket

[Hetosoft Sistemas]

Leu o CHM que vem junto no SVN.

 

por favor onde fica , em que pasta ?

[Juliomar Marchetti]

um vem junto com o instalador do acbrnfemonitor e o outro está na pasta projetos/acbrnfemonitor

e aqui no fórum o isaque postou em um tópico eles

[Hetosoft Sistemas]

se for o PDF ou arquivo de ajuda eu nao achei e tambem

nao achei o topico do isaque.

[Kiko Fernandes]

Link: 

Mas como o Juliomar disse, se vc baixar a última versão ele já está junto com o instalador. Após a instalação, procure na pasta do ACBrNFeMonitor os arquivos ACBrNFeMonitor.pdf ou então o ACBrNFeMonitor.chm o qual vc preferir.

 

Ou então baixe do link informado.

[Juliomar Marchetti]

Me desculpe mas vocês não fazem questão de procurar 

 

 

e olha a pasta com o nome do arquivo no svn

 

\trunk\Projetos\ACBrNFeMonitor2\Delphi\ACBrNFeMonitor.chm

[jorge andrade]

Me desculpe mas vocês não fazem questão de procurar 

 

 

e olha a pasta com o nome do arquivo no svn

 

\trunk\Projetos\ACBrNFeMonitor2\Delphi\ACBrNFeMonitor.chm

Calma julimar o amigo é novato no pedaço. ahahahahha

[Juliomar Marchetti]

Peço desculpas se ofendido alguem, mas na maioria dos postsou sao perguntas repetidas e na maioria era so abrir os tópicos mais recentes e esta la as respostas ou usa a pesquisa, mas sejam sucintas pois nao vai ser uma senteca de 100 palavras q vai retornar a resposta mas sim de poucas

[Hetosoft Sistemas]

blz vamos lar, o que eu achei no pdf ou ajuda, foi isso:

 

 

Modo TCP/IP:

• Abra uma conexão Socket com a máquina onde o ACBrNFeMonitor está instalado, na porta configurada no ACBrNFeMonitor. (Você deve conhecer o IP da máquina)

• Verifique se o FireWall de ambas as máquinas permite o trafego de dados nessa porta.

• Envie e Receba os comandos usando a sintaxe do ACBr (veja abaixo)

• Todo comando enviado para o ACBrNFeMonitor dever ser concluido com CR+LF+'.'+CR+LF   ou   #13+#10+#46+#13+#10

• Toda resposta do ACBrNFeMonitor para a aplicação comercial será encerrada com o caracter ETX, #3 ou chr(3)

xemplo:

• Configure o ACBrNFeMonitor para trabalhar com TCP/IP porta 3434 (poderia ser qualquer porta)... Re-inicie o ACBrNFeMonitor

• No Prompt do DOS do Windows, na mesma máquina onde o ACBrNFeMonitor está sendo executado, digite: TELNET localhost 3434

 

para quem nunca mecheu em conexao Socket,  como eu, nao entendir porra nenhuma do que esta acima,

mais concordo com opnioes acima é so pesquisar,

estao vim em outro luga outro forum os seguinte comnado para socket.

 

if indy = true the

   TCP.WriteLn(Comando+sLineBreak+'.'+sLineBreak); //--> writln para enviar dados...
   Size := TCP.ReadInteger;
   Memo1.Lines.Add(TCP.ReadLn(#3,-1,Size));

 

if indy = false the

 

    fSocket.SendString(Comando+sLineBreak+'.'+sLineBreak );
    Memo1.Lines.Add( fSocket.RecvTerminated(100000, #3) );

 

 

ai fis alguns ajusti para saber que deu certo ou nao, pegando as primeira lentras do memo,

 

  if Copy(Memo1.Text,0,2) = 'OK' then
     begin
     Result:=True;
     Edit2.Text:='OK';
     end  else
     begin
     Result:=False;
     Edit2.Text:='ERRO';
     end;
 

 

 

tem alguma coisa que eu possa muda, ou estou fazando tudo errado.

era so isso que eu queria , descupem que eu pedi d+.

[Juliomar Marchetti]

Você programa em delphi? se sim por que não utiliza o componente diretamente em seu aplicativo? você terá mais dominio sobre o que quer fazer com a nf-e.

mas caso necessite confere nos demos tem alguma coisa como ACBrTCP lá e usa synapse dai não precisar usar o indy

[Hetosoft Sistemas]

sim delpji 7, e ja uso o acbrnfe,a questao quando tem conexao remota e é A3, so o servidor pode fazer nf-e as 

conecxoe nao, quando é A1 blz,

e a maiorias do meus cliente usa A3,

 

blz abrir o demo acbrtcp

coloqei servidor , porta 3436,

la em repsota coloquei NFe.StatusServico;

conecrtar telnet localhost 3434

mais so isso,

 

es a questao , tem exemplo de como usar ACBrTCP para acbnfemonitor,

percebi que esotu voando na maionese, nao sei como comerca

a nao ser a esplicacao acima , que deu certo a opcao status e imprimir danfe.

 

 

 

 

 

 

A FUNCAO QUE EU FIZ

 

function TForm_NFEM.EnviarComandoNFEM(Comando: string; numeroNota:string): Boolean;
var
Size :integer ;
SL : TStrings;
I:integer;
begin

 EDIT1.Text:=Comando;
 EDIT2.Text:='';


 Memo1.Clear ;

 Statusbar1.Panels[1].Text := 'Aguarde Enviando Comando ! ' + 'Tempo Inicial '+timetostr(time);

 if DM.Client_MERCADO_PISNFEM_INDY.Text = 'True' then
  begin

   TCP.WriteLn(Comando+sLineBreak+'.'+sLineBreak); //--> writln para enviar dados...
   Size := TCP.ReadInteger;
   Memo1.Lines.Add(TCP.ReadLn(#3,-1,Size));


  end else begin

    fSocket.SendString(Comando+sLineBreak+'.'+sLineBreak );
    Memo1.Lines.Add( fSocket.RecvTerminated(100000, #3) );


  end;

  Statusbar1.Panels[1].Text := Statusbar1.Panels[1].Text +' Tempo Final :'+timetostr(time);



  if Copy(Memo1.Text,0,2) = 'OK' then
     begin
     Result:=True;
     Edit2.Text:='OK';
     end  else
     begin
     Result:=False;
     Edit2.Text:='ERRO';
     end;


     RespostaNFe0;




  if Copy(Memo1.Text,0,29) = 'OK: Lote recebido com sucesso' then
  begin

          if RespostaNFe(numeroNota)=True then
          Result:=True else
          Result:=False;


  end;
 

 

 

 

 

 

 

 

 

 

 

-----------------------------------------------

EnviarComandoNFEM('NFE.StatusServico', '');

 

-----------------------------------------------

  OpenDialog1.Title := 'Selecione a NFE';
  OpenDialog1.DefaultExt := '*-nfe.XML';
  OpenDialog1.Filter := 'Arquivos NFE (*-nfe.XML)|*-nfe.XML|Arquivos XML (*.XML)|*.XML|Todos os Arquivos (*.*)|*.*';
  OpenDialog1.InitialDir := 'C:\Controles_SQL\NFe\EnvioDeResposta';

  if OpenDialog1.Execute then
  begin

    if ConectarNFEM=True then
       EnviarComandoNFEM('NFE.ImprimirDanfe('+OpenDialog1.FileName+')', '');

  end;
----------------------------------------------------------------------------

 

O Crjiar nota da dando erro mais o importa e sabe que esotu no caminho certo ou nao?

 

---------------------------------------------------------------------------------

var
  cTextoIni,cTextoIni2,vNumLote,vAux:string;
begin



  Atualizar_MERCADO_PIS;


   try
   {Numero da Nota} vAux:=DM12.Client_NotaFiscalNUMERO.Text;//
   {Numero do Lote} vNumLote:='1';//edtLoteNFe.Text;
   except
     MessageDlg('Número da Nota ou Lote Inválido !',mtWarning,[mbOK],0);
     Exit;
   end;


    


cTextoIni:=
'[identificacao]'+
'NaturezaOperacao='+Form_NotaFiscal.DBLookupComboBox2.Text+''+
'Modelo=55'+
'Serie=1'+
'Codigo='+vAux+''+
'Numero='+vAux+''+
'Serie=1'+
'Emissao='+DM12.Client_NotaFiscalC_EMISSAO.Text+''+
'Saida='+DM12.Client_NotaFiscalC_ENTREGA.Text+''+
'Tipo=1'+
'FormaPag=0'+
'Finalidade=0'+




'[Emitente]'+
'CNPJ='+DM.Client_MERCADO_PISCNPJ.Text+''+
'IE='+DM.Client_MERCADO_PISESCRICAO.Text+''+
'Razao='+DM.Client_MERCADO_PISRASAO.Text+''+
'Fantasia='+DM.Client_MERCADO_PISFANTASIA.Text+''+
'Fone='+DM.Client_MERCADO_PISTEL.Text+''+
'CEP='+DM.Client_MERCADO_PISCEP.Text+''+
'Logradouro='+DM.Client_MERCADO_PISENDERECO_SPED.Text+''+
'Numero='+DM.Client_MERCADO_PISNUMERO.Text+''+
'Complemento='+
'Bairro='+DM.Client_MERCADO_PISBAIRRO.Text+''+
'CidadeCod='+DM.Client_MERCADO_PISMUNICIPIOIBGE.Text+''+
'Cidade='+DM.Client_MERCADO_PISCIDADE.Text+''+
'UF=MT'+
'PaisCod=1058'+
'Pais=BRASIL'+





'[Destinatario]'+
'CNPJ='+DM12.Client_NotaFiscalC_CNPJ.Text+''+
'IE='+DM12.Client_NotaFiscalC_IE.Text+''+
'ISUF='+
'NomeRazao='+DM12.Client_NotaFiscalC_RAZAO.Text+''+
'Fone='+DM12.Client_NotaFiscalC_FONE.Text+''+
'CEP='+DM12.Client_NotaFiscalC_CEP.Text+''+
'Logradouro='+DM12.Client_NotaFiscalC_ENDERECO.Text+''+
'Numero='+DM12.Client_NotaFiscalC_NUMERO.Text+''+
'Complemento='+
'Bairro='+DM12.Client_NotaFiscalC_BAIRRO.Text+''+
'CidadeCod='+DM12.Client_NotaFiscalC_MUNICIPIOIBGE.Text+''+
'Cidade='+DM12.Client_NotaFiscalC_MUNICIPIO.Text+''+
'UF=MT'+
'PaisCod=1058'+
'Pais=BRASIL';





    if DM12.Client_ProdutoCODIGOTRIBUTADO.Text<>'' then
    begin

      DM12.Client_Produto.First;
      while not DM12.Client_Produto.Eof do
      begin
      
          cTextoIni2:=
          '[Produto'+FormatFloat('000',StrToFloat(DM12.Client_ProdutoNUMERO.Text))+']'+
          'CFOP='+DM12.Client_ProdutoCFOP.Text+''+
          'Codigo='+pchar( DM12.Client_ProdutoCODIGO.Text )+''+
          'Descricao='+DM12.Client_ProdutoPRODUTOS.Text+''+
          'EAN='+
          'NCM='+Copy(DM12.Client_ProdutoCODIGOTRIBUTADO.Text,01,08)+''+
          'Unidade='+DM12.Client_ProdutoUNID.Text+''+
          'Quantidade='+DM12.Client_ProdutoQUANT.text+''+
          'ValorUnitario='+DM12.Client_ProdutoVALOR.text+''+
          'ValorTotal='+DM12.Client_ProdutoTOTAL.text+''+
          'ValorDesconto='+DM12.Client_ProdutoDESCONTO.text+''+
          'NumeroDI='+
          'DataRegistroDI='+
          'LocalDesembaraco='+
          'UFDesembaraco='+
          'DataDesembaraco='+
          'CodigoExportador='+

          '[LADI001'+FormatFloat('000',StrToFloat(DM12.Client_ProdutoNUMERO.Text))+']'+
          'NumeroAdicao='+
          'CodigoFrabricante='+
          'DescontoADI'+

          '[iCMS'+FormatFloat('000',StrToFloat(DM12.Client_ProdutoNUMERO.Text))+']'+
          'CST='+DM12.Client_ProdutoST.Text+''+
          'Origem='+
          'Modalidade='+
          'ValorBase='+
          'Aliquota='+
          'Valor='+
          'ModalidadeST='+
          'PercentualMargemST='+
          'PercentualReducaoST='+
          'ValorBaseST='+
          'AliquotaST='+
          'ValorST='+
          'PercentualReducao='+

          '[iPI'+FormatFloat('000',StrToFloat(DM12.Client_ProdutoNUMERO.Text))+']'+
          'CST='+
          'ClasseEnquadramento='+
          'CNPJProdutor='+
          'CodigoSeloIPI='+
          'QuantidadeSelos='+
          'CodigoEnquadramento='+
          'ValorBase='+
          'Quantidade='+
          'ValorUnidade='+
          'Aliquota='+
          'Valor'+

          '[iI'+FormatFloat('000',StrToFloat(DM12.Client_ProdutoNUMERO.Text))+']'+
          'ValorBase='+
          'ValorDespAduaneiras='+
          'ValorII='+
          'ValorIOF='+

          '[PIS'+FormatFloat('000',StrToFloat(DM12.Client_ProdutoNUMERO.Text))+']'+
          'CST='+
          'ValorBase='+
          'Aliquota='+
          'Valor='+
          'Quantidade='+
          'TipoCalculo='+

          '[PISST'+FormatFloat('000',StrToFloat(DM12.Client_ProdutoNUMERO.Text))+']'+
          'ValorBase='+
          'AliquotaPerc='+
          'Quantidade='+
          'AliquotaValor='+
          'ValorPISST='+

          '[COFINS'+FormatFloat('000',StrToFloat(DM12.Client_ProdutoNUMERO.Text))+']'+
          'CST='+
          'ValorBase='+
          'Aliquota='+
          'Valor='+
          'TipoCalculo='+
          'Quantidade='+

          '[COFINSST'+FormatFloat('000',StrToFloat(DM12.Client_ProdutoNUMERO.Text))+']'+
          'ValorBase='+
          'AliquotaPerc='+
          'Quantidade='+
          'AliquotaValor='+
          'ValorCOFINSST=';


          cTextoIni:=cTextoIni+cTextoIni2;

       DM12.Client_Produto.Next;
      end;

    end else
    begin
       MessageDlg('Verifique os produtos sem NCM o Campo é obrigatório !',mtWarning,[mbOK],0);
       Exit;
    end;








cTextoIni:=cTextoIni+
'[Total]'+
'BaseICMS='+DM12.Client_NotaFiscalF_VALOR1.Text+''+
'ValorICMS='+DM12.Client_NotaFiscalF_VALOR2.Text+''+
'ValorProduto='+DM12.Client_NotaFiscalF_VALOR5.Text+''+
'BaseICMSSubstituicao='+DM12.Client_NotaFiscalF_VALOR3.Text+''+
'ValorICMSSubstituicao='+DM12.Client_NotaFiscalF_VALOR4.Text+''+
'ValorFrete='+DM12.Client_NotaFiscalF_VALOR6.Text+''+
'ValorSeguro='+DM12.Client_NotaFiscalF_VALOR7.Text+''+
'ValorDesconto='+DM12.Client_NotaFiscalDESCONTO.Text+''+
'ValorII='+
'ValorIPI='+
'ValorPIS='+
'ValorCOFINS='+
'ValorOutrasDespesas='+DM12.Client_NotaFiscalF_VALOR8.Text+''+
'ValorNota='+DM12.Client_NotaFiscalF_VALO10 .Text+''+



'[Transportador]'+
'FretePorConta='+
'CnpjCpf='+
'NomeRazao='+
'IE='+
'Endereco='+
'Cidade='+
'UF='+
'ValorServico='+
'ValorBase='+
'Aliquota='+
'Valor='+
'CFOP='+
'CidadeCod='+
'Placa='+
'UFPlaca='+
'RNTC='+

'[Volume001]'+
'Quantidade='+
'Especie='+
'Marca='+
'Numeracao='+
'PesoLiquido='+
'PesoBruto='+

'[Fatura]'+
'Numero='+
'ValorOriginal='+
'ValorDesconto='+
'ValorLiquido='+

'[Duplicata001]'+
'Numero='+
'DataVencimento='+
'Valor='+

'[DadosAdicionais]'+
'Complemento='+
'[infAdic001]'+
'Campo='+
'Texto=';




 //cTextoIni:='NFe.CriarEnviarNFe('+cTextoIni+','+vNumLote+',[0])';

 cTextoIni:='NFe.CriarEnviarNFe('+cTextoIni+','+vNumLote+',[0])';


    if ConectarNFEM=True then
       EnviarComandoNFEM( cTextoIni , '');




 

Editado 2 Abril, 2013 por hetoandrade

[igor]

a gente podia implementar um corretor de erros ortograficos no forum qquer dia.

 

Ah eh, ja tem! Malz ae 

[Hetosoft Sistemas]

Mais deu pra entender ?

Editado 2 Abril, 2013 por hetoandrade

[igor]

Fora a parte do 

O Crjiar nota da dando erro mais o importa e sabe que esotu no caminho certo ou nao?

 

deu paar entdiender sim^^

eu ona sei como faerz ustilizando TCP porem ja vi no froum uns eXemplos 

[Hetosoft Sistemas]

Mais vc usa como, so queria um exemplo pra ver que estou no caminho certo?

[igor]

Uso pelo txt