helderlr

Amigo eu usava o acbrnfemonitor via arquivo texto ai mudei pra tcp/ip e uso sem problema se estiver na rede tem que ver se a porta usada pelo acbnfemonitor ex: 3436 nao esta sendo bloqueada pelo firewaal ou antivirus o que fiz na verdade foi continuar lendo o arquivo texto mas gerado por tcp/ip segue exemplo como faco clausula inicio da rotina uses ACBrSocket,blcksock criar a variavel no inicio rotina var fSocket: TTCPBlockSocket; procedure desconecta_socket(m_socket:TTCPBlockSocket); begin m_socket.Free; m_socket := nil; end; function conecta_socket:boolean; var m_host : string; begin fSocket := TTCPBlockSocket.Create; fSocket.Connect('127.0.0.1,'3436'); if fSocket.lasterror <> 0 then begin mensagem(fSocket.LastErrorDesc,1); fSocket.Free ; fSocket := nil; result := false; end else begin retorno_socket(fSocket); result := true; end; end; procedure retorno_socket(m_socket:TTCPBlockSocket); var m_retsocket: tstringlist; begin m_retsocket := tstringlist.Create; m_retsocket.Add( m_socket.RecvTerminated(100000, #3) ); m_retsocket.SaveToFile(ExtractFilePath(paramstr(0))+'sainfe.txt'); m_retsocket.Free; end; procedure status_servico(p:tpanel); begin if not conecta_socket then exit; fSocket.SendString('NFe.StatusServico'+sLineBreak+'.'+sLineBreak ); retorno_socket(fSocket); desconecta_socket(fSocket); end;

cara vc precisa quebrar a linha assim AssignFile(arq,m_arq); Rewrite(arq); Write(arq,'NFE.CARTADECORRECAO("[CCE]'+chr(13)+chr(10)); Write(arq,'idLote='+seqnfe+ chr(13)+chr(10)); Write(arq,'[EVENTO'+strzero(ibquery46.FieldByName('NSEQEVENTO').asstring,3)+']'+chr(13)+chr(10)); Write(arq,'chNFe='+ibquery46.FieldByName('chave_nfe').asstring+chr(13)+chr(10)); Write(arq,'cOrgao='+ibquery46.FieldByName('corgao').asstring+chr(13)+chr(10)); Write(arq,'CNPJ='+numero(dm.dtsempresa.FieldByName('cgcemp').asstring,'N')+chr(13)+chr(10)); Write(arq,'dhEvento='+ibquery46.FieldByName('DHEVENTO').asstring+chr(13)+chr(10)); Write(arq,'nSeqEvento='+ibquery46.FieldByName('NSEQEVENTO').asstring+chr(13)+chr(10)); Write(arq,'xCorrecao='+ibquery46.FieldByName('xcorrecao').asstring+'")'+chr(13)+chr(10)); System.Close(arq); nao uso o monitor ,uso o componente porque sou do CE e o monitor nao esta atualizado pra uf CE abraco

ola tem como ,uso o acbrnfemonitor e monto o corpo do email com dados variaveis olha o trecho do envio de email com 2 funcoes abraco cMsg := 'Envio de XML E PDF da NF-e de Numero: '+dm.qryrelato2.fieldbyname('notfis').asstring+#10+#13; cMsg :=cmsg+#10+#13; cMsg := cmsg+'Razao Social...: '+dm.qryrelato2.fieldbyname('nomfan').asstring+#10+#13; cMsg := cmsg+'CNPJ...........: '+dm.qryrelato2.fieldbyname('cgccli').asstring+#10+#13; cMsg :=cmsg+#10+#13; // cMsg := cmsg+'Favor verifique autorizacao de Uso na SEFAZ da NFe acima, endereco https://www.nfe.fazenda.gov.br/PORTAL/F ... chave_nfe').asstring+#10+#13; cMsg := cmsg+'Favor verifique autorizacao de Uso na SEFAZ da NFe acima, endereco http://www.nfe.fazenda.gov.br/portal/co ... chave_nfe').asstring+#10+#13; cMsg := cmsg+'Chave de acesso: '+dm.qryrelato2.fieldbyname('chave_nfe').asstring+#10+#13; cMsg := cmsg+'Protocolo..... : '+dm.qryrelato2.fieldbyname('prot_aut').asstring+#10+#13; cMsg := cmsg+'================================================='+#10+#13; cMsg :=cmsg+#10+#13; cMsg :=cmsg+'Email gerado automaticamente pelo Sistema Richards'; cAux:= Str2Hexa(cMsg); conf := tinifile.create(frmmenu.path_nfe+'ACBrNFeMonitor.ini'); conf.Writestring('Email','Mensagem',caux); conf.Free; m_arq := frmmenu.path_nfe+'NFE.TXT'; AssignFile(arq,m_arq); Rewrite(arq); Write(arq,'NFe.LerIni'); System.Close(arq); RenameFile(m_arq,frmmenu.path_nfe+'ENTNFE.TXT'); sleep(1000); cMsg := 'XML e PDF da NF-e de Numero: '+dm.qryrelato2.fieldbyname('notfis').asstring;//+#10+#13; m_arq := frmmenu.path_nfe+'SAINFE.TXT'; if fileexists(m_arq) then deletefile(m_arq); m_arq := frmmenu.path_nfe+'NFE.TXT'; AssignFile(arq,m_arq); Rewrite(arq); Write(arq,'NFe.EnviarEmail("'+email+'","'+a+'","1"'+',"'+cmsg+'","teste@yahoo.com.br")'); System.Close(arq); RenameFile(m_arq,frmmenu.path_nfe+'ENTNFE.TXT'); sleep(1000); -------------------- function Str2Hexa(_cTexto:string):string; var cAux :string; x,resto: integer; y:longint; begin cAux := ''; for x := 1 to length(_cTexto) do begin y:= ord(_cTexto[x]); resto := y mod 16; cAux := caux + floattostr(int(y/16))+TransfHexa(resto); end; result := cAux; end; function TransfHexa(_nArg:integer):string; var cAux : string; begin case _nArg of 10 : cAux :='A'; 11 : cAux:='B'; 12 : cAux:='C'; 13 : cAux:='D'; 14 : cAux:='E'; 15 : cAux:='F'; else cAux:=inttostr(_nArg); end; result := cAux; end;

Herik tudo bom tambem sou do ceara seguinte se vc usa o acbnfemonitor com instalador realmente nao esta disponivel mas na pasta dos fontes do acbr o acbrnfemonitor ja esta disponivel a url do ceara ou se vc usar o componente ja esta valendo tambem uso o acbrnfemonitor ai fiz a emissao da cc-e pelo componente uma opcao separada do sistema enviei em homologacao e consegui protocloca aut de uso

muito obrigado pela informacao Andre abraco e parabens pelo excelente trabalho com o acbr,ele e show

Ola a todos sou do ceara e ja iniciei as mudancas no sistema pra homologar paf-ecf no roteiro fala de sistema off-line,tudo precisa ser registrado local e emitir cupom na hora pergunta: cada estacao (sistema paf-ecf rodando) precisa de um ecf ? posso ter um ecf pra todos ?,registro local,envio pra rede e a estacao que tem o ecf emite e se der problema na rede emito da estacao que tem o ecf,pode ser assim? sao milhoes de duvidas,essa e a de numero 1,kkkkkkkkkkkk faz tempo que conheco o acbr e nao acreditei quando o conheci uso o acbrnfemonitor,uso os componentes ecf, desenvolvi sistema pra emissao de cupom,nf-e,ct-e,tudo usando o acbr o acbr e o maximo parabens pelo acbr

ola amigos gostaria de saber a uf = CE nao esta disponivel a carta de correcao eletronica no monitor 0.7.1a diz que a url nao esta disponivel alguma informacao?

ah esqueci muda o modo pra normal pra poder enviar depois que normalizar ,so isso abraco

amigo vc muda para modo dpec e gera o xml envia um a um imprimindo logo o danfe depois que normalizar a situacao do servidor vc so procisa enviar pra sefaz MG e pronto nao precisa reimprimir danfe nem gerar xml novamente nao so isso abracao

Daniel obrigado pela sua ajuda mandei email pro pessoal da dataregis mas ate agora nada tem outro caminho? plano b? queria testar o demo sitef e soube que ele sitef e show de bola,ler tudo agradeco antecipadamente

ola a todos alguem sabe onde consigo o demo do sifif pra teste ja encontrei alguns no 4shared mas todos vencidos a data no site do sitef mandei email ,mas a pessoa responsavel disse que so libera o demo se eu me homologar eu disse quero primeiro testar,ai ela disse que e norma da empresa alguem sabe onde encontro demo sitef pra teste ,simular o tef do sitef abracao

ola camarada vc consegui colocar a nfs-e pra rodar ne? esse componente esta funcinal ? enviar,ler retorno webservice,imprimir nfs-e tenho interesse de negociar,comprar se for seu interesse meu email:helderlr@yahoo.com.br faz tmpo que quero um componente pra nfs-e e ainda nada agradeco antecipadamente

obrigado pela resposta mas veja no link que vc mandou pra mim Está dando a mensagem: is not a valid interger value O que pode ser??? ja sabia desse link ,mas parece que depois que mudou o site da receita esta com esse erro

Ola camaradas usei o recupera mas depois da mudanca do site parou de funcionar alguem ja encontrou uma saida ? grande abraco a todos

Ola gostaria de saber como fazer para usar o componente nfs-e ja concluido,preciso fazer o sac? se for como proceder , e de meu interesse usar o componente nfs-e nos meus projetos email: helderlr@yahoo.com.br

descobri o problema nao sei porque nao incluir no xml <?xml version="1.0" encoding="UTF-8"?> no inicio do arquivo xml da nf-e por isso a mensagem de falha de schema xml

Ola amigos gerei 5 nfs em dpec e enviei e deu beleza apos retorno da sefaz servico em operacao,enviei as 5 nfs a sefaz em modo normal,mas esta dando erro da falha de schema xml mas validei o xml e esta tudo ok,o que pode ser? nesse link http://www.sefaz.rs.gov.br/NFE/NFE-VAL.aspx deu a mensagem: PARSER XML: OK TIPO DE MENSAGEM: NF-e SCHEMA: OK ASSINATURA XML: Assinatura VÁLIDA nesse link http://nfe.sefaz.ce.gov.br/pages/consul ... elcome.jsf deu a mensagem Atenção Leiaute: nfe Versão: 2.00 Estrutura válida. Assinatura Válida. Codificação difere UTF-8.

ola a todos fui enviar varias nf-e em dpec e deu problema na impressao ao tentar imprimir novamente da a mensagem ERRO: Protocolo de Registro no DPEC não informado uso o acbrnfemonitor e nao o componente vi que eu preciso informar no componente o protocolo dpec mas como fazer via acbrnfemonitor,quando envio em dpec ele nao atualiza o xml com protocolo dpec gostaria de ajuda vou tentar fazer uma rotina pra ler o xml e atualizar via componente o protoloco dpec pra ver se ele emite

amigo nao e o acbr ,o acbr e incrivel ,pense num trabalho bem feito e regra da sefaz,aceitar no maximo 500Kb de trafego divide essa nf e 2 ou 3 ok abraco

ve esse exemplo ACBrCTe1.Enviar(StrToInt(m_lt)); for i := 0 to (ACBrCTe1.WebServices.Retorno.CteRetorno.ProtCTe.Count - 1) do begin // sConhecimento := Copy(ACBrCTe1.WebServices.Retorno.CteRetorno.ProtCTe.Items.chCTe, 26, 3) // +Copy(ACBrCTe1.WebServices.Retorno.CteRetorno.ProtCTe.Items.chCTe, 29, 3) // +Copy(ACBrCTe1.WebServices.Retorno.CteRetorno.ProtCTe.Items.chCTe, 32, 3); cdsenvio.Append; cdsenvio.FieldByName('notfis').Value := ACBrCTe1.Conhecimentos.Items.CTe.Ide.nCT; cdsenvio.FieldByName('cstat').Value := IntToStr(ACBrCTe1.WebServices.Retorno.CteRetorno.ProtCTe.Items.cStat); cdsenvio.FieldByName('motivo').Value := ACBrCTe1.WebServices.Retorno.CteRetorno.ProtCTe.Items.xMotivo; cdsenvio.FieldByName('data').Value := DateTimeToStr(ACBrCTe1.WebServices.Retorno.CteRetorno.ProtCTe.Items.dhRecbto); cdsenvio.FieldByName('prot').Value := ACBrCTe1.WebServices.Retorno.CteRetorno.ProtCTe.Items.nProt; cdsenvio.FieldByName('rec').Value := ACBrCTe1.WebServices.Enviar.Recibo; cdsenvio.Post; if ACBrCTe1.WebServices.Retorno.CTeRetorno.ProtCTe.Items.cStat in [100,110] then begin if pcampo3(dtscte,'nct','','',ACBrCTe1.Conhecimentos.Items.CTe.Ide.nCT,'','') then begin dtscte.edit; dtscte.FieldByName('sitcte').Value := se(ACBrCTe1.WebServices.Retorno.CTeRetorno.ProtCTe.Items.cStat=100,'2','3'); dtscte.FieldByName('status').Value := se(ACBrCTe1.WebServices.Retorno.CTeRetorno.ProtCTe.Items.cStat=100,'Autorizado Uso','Denegado'); dtscte.FieldByName('reccte').Value := ACBrCTe1.WebServices.Enviar.Recibo; dtscte.FieldByName('protaut').Value := ACBrCTe1.WebServices.Retorno.CteRetorno.ProtCTe.Items.nProt; dtscte.FieldByName('ococte').Value := dtscte.FieldByName('ococte').Value+#10+'cte '+se(ACBrCTe1.WebServices.Retorno.CTeRetorno.ProtCTe.Items.cStat=100,'Autorizado Uso','Denegado')+' em '+datetostr(date)+' as '+timetostr(now); dtscte.Post; comitar; end; end; end