Hetosoft Sistemas

Ola, Estou implementando uma rotina para consultar Manifestação do Destinatário usando o ACBrNFeMonitor e me deparei com a Nota Técnica 2014/002 onde diz "Este Web Service possibilitará a descontinuidade, no futuro, do Web Service de Consulta da Relação de Documentos Destinados (NfeConsultaDest). Desativação do Web Service NfeConsultaDest: 02/02/15". Nos teste que estou fazendo em 10/09/2015 o servidor ainda funciona. A minha duvida é: 1) este serviço vai ser decontinuado? 2) no ACBrNFeMonitor existe o comando DistribuicaoDFe?

Desativei o CONSULTALOTEAPOSENVIO = False e mudei minha rotina de enviar try if Form_NFSe.ACBrNFSe1.Enviar(vNumLote) then begin //MessagemH( 0, 'Form_NFSe.ACBrNFSe1.Enviar(vNumLote)' ); DM12.Client_NotaFiscal.edit; DM12.Client_NotaFiscalNFS_PROTOCOLO.Text:= Form_NFSe.ACBrNFSe1.WebServices.Enviar.Protocolo; DM12.Client_NotaFiscalNFS_PROTOCOLO_LOTE.Text:= Form_NFSe.ACBrNFSe1.WebServices.ConsLote.Protocolo; DM12.Client_NotaFiscalNFS_CODVERIFICACAO.Text:= Form_NFSe.ACBrNFSe1.NotasFiscais.Items[0].NFSe.CodigoVerificacao; DM12.Client_NotaFiscalNUMERO.Text:= Form_NFSe.ACBrNFSe1.NotasFiscais.Items[0].NFSe.Numero; DM12.Client_NotaFiscal.ApplyUpdates(-1); Form_NFSe.ACBrNFSe1.NotasFiscais.Clear; //COSNULTA 1 SEGUNDOS 5 TENTATIVA //CONSUTA RPS RPS + 12 - RPS.XML // // try Form_NFSe.ACBrNFSe1.NotasFiscais.Clear; Form_NFSe.ACBrNFSe1.NotasFiscais.LoadFromFile( RAIZ+'\Controles_SQL\NFSe\EnvioDeResposta\'+ Copy( DM12.Client_NotaFiscalC_EMISSAO.Text,7,4 )+ Copy( DM12.Client_NotaFiscalC_EMISSAO.Text,4,2 )+ '\RPS\'+DM12.Client_NotaFiscalNFS_RPS.Text+Form_NFSe.Edit2.Text+'-RPS.XML' ); Form_NFSe.ACBrNFSe1.ConsultarNFSeporRps(Form_NFSe.ACBrNFSe1.NotasFiscais.Items[0].NFSe.IdentificacaoRps.Numero, Form_NFSe.ACBrNFSe1.NotasFiscais.Items[0].NFSe.IdentificacaoRps.Serie, TipoRPSToStr(Form_NFSe.ACBrNFSe1.NotasFiscais.Items[0].NFSe.IdentificacaoRps.Tipo), Form_NFSe.ACBrNFSe1.NotasFiscais.Items[0].NFSe.Prestador.Cnpj, Form_NFSe.ACBrNFSe1.NotasFiscais.Items[0].NFSe.Prestador.InscricaoMunicipal); Form_NFSe.MemoResp.Lines.Text := UTF8Encode(Form_NFSe.ACBrNFSe1.WebServices.ConsNfseRps.RetWS); Form_NFSe.memoRespWS.Lines.Text := UTF8Encode(Form_NFSe.ACBrNFSe1.WebServices.ConsNfseRps.RetWS); Form_NFSe.LoadXML(Form_NFSe.MemoResp, Form_NFSe.WBResposta); DM12.Client_NotaFiscal.edit; DM12.Client_NotaFiscalNFS_CODVERIFICACAO.Text:= Form_NFSe.ACBrNFSe1.NotasFiscais.Items[0].NFSe.CodigoVerificacao; DM12.Client_NotaFiscalNUMERO.Text:= Form_NFSe.ACBrNFSe1.NotasFiscais.Items[0].NFSe.Numero; DM12.Client_NotaFiscal.ApplyUpdates(-1); if Tipo=0 then begin //IMPRIMIR Form_NotaFiscal.BitBtn99Click(nil); end; Form_NFSe.ACBrNFSe1.NotasFiscais.Clear; except MessagemH(2,'NFS-e NºPED:'+DM12.Client_NotaFiscalCOD.Text+' RPS:'+FormatFloat('#########0', StrToInt(NumNFSe))+''+#13+ 'Sem Retorno !'); Abort; end; end else begin MessagemH(2,'NFS-e NºPED:'+DM12.Client_NotaFiscalCOD.Text+' RPS:'+FormatFloat('#########0', StrToInt(NumNFSe))+''+#13+ 'Não Enviada !'); Abort; end; except on E: Exception do begin MessagemH(2,'NFS-e NºPED:'+DM12.Client_NotaFiscalCOD.Text+' RPS:'+FormatFloat('#########0', StrToInt(NumNFSe))+''+#13+ 'Não Enviada !'+#13+ E.Message); Form_NFSe.ACBrNFSe1.NotasFiscais.Clear; Abort; end; end;

Essa semana comerçou acontecer isto, Da erro ao enviar a NFS, mais a nota ta no Site ISS.NET e ja atualizei o acbr com a Revisão 8457

Estou com o demo do Consultar CNPJ mais executar da este erro

Conseguir USERNAME = nome do usuario conexao remota CLIENTNAME = nome da maquina que abrio a conexao remota USERPROFILE = caminho da pasta de meus documentos do usuario Edit1.Text := GetEnv('USERNAME'); function TForm1.GetEnv(Variable: string): string; var Buffer : Integer; begin Buffer := GetEnvironmentVariable(PChar(Variable), nil, 0); if Buffer > 0 then begin SetLength(Result, Buffer - 1); GetEnvironmentVariable(PChar(Variable), PChar(Result), Buffer); end else Result := ''; end; essa é pra saber se esta em uma conexao remota ou desktop procedure TForm1.Button1Click(Sender: TObject); begin if IsRemoteSession=True then Edit1.Text:='Conexao Remota' else Edit1.Text:= 'Desktop' ; end; function TForm1.IsRemoteSession: boolean; var res : integer; begin res := GetSystemMetrics (SM_REMOTESESSION); Result := (res <> 0); end;

Tem como o exe que esta em um Servidor saber qual o Nome do cumputador REMOTO ; ex: SERVIDOR ex: HETOPROG pc que chamou via conexao remota o SERVIDOR quero saber o nome do pc do cliente nao do servidor que no caso seria HETOPROG

Estou em MT, mesmo assim ficou Qrcode Erro 100 - Qr Code Inválido Sabendo que fis manual, teria como da uma olhada pra ver se fis errado , ta homologacao nao testei ainda em producao. /////////////////////// NOVO 2014 /////////////////////////////////// //51 AUF := StrToInt( Copy( Form_NFe.ACBrNFe1.NotasFiscais.Items[0].NFe.procNFe.chNFe,0,2) ); //PRODUCAO AAmbiente := Form_NFe.ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.tpAmb; //URL CONSULTA if Form_NFe.ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.tpAmb = taProducao then urlUF := 'http://www.sefaz.mt.gov.br/nfce/consultanfce' else urlUF := 'http://homologacao.sefaz.mt.gov.br/nfce/consultanfce'; //CHEVE DE ACESSO AchNFe := Form_NFe.ACBrNFe1.NotasFiscais.Items[0].NFe.procNFe.chNFe; //DESTINO AcDest := '';//Form_NFe.ACBrNFe1.NotasFiscais.Items[0].NFe.Dest; //DATAEMISSAO AdhEmi := Form_NFe.ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.dEmi; AvNF := Form_NFe.ACBrNFe1.NotasFiscais.Items[0].NFe.Total.ICMSTot.vNF; AvICMS := Form_NFe.ACBrNFe1.NotasFiscais.Items[0].NFe.Total.ICMSTot.vICMS; AdigVal:= Form_NFe.ACBrNFe1.NotasFiscais.Items[0].NFe.procNFe.digVal; AidToken:= tokem; //000001 AToken:= id_tokem; //372571E09FF51F8AF9E6CDB328511C01 /////////////////////// NOVO 2014 /////////////////////////////////// Memo1.Lines.Clear; AchNFe := OnlyNumber(AchNFe); // Passo 1 sdhEmi_HEX := AsciiToHex(DateTimeTodh(AdhEmi) + GetUTC(CodigoParaUF(AUF), AdhEmi)); // Passo 2 sdigVal_HEX := AsciiToHex(AdigVal); // Passo 3 e 4 cIdToken := AidToken; if DFeUtil.EstaVazio(AToken) then cTokenHom := Copy(AchNFe, 7, 8) + '20' + Copy(AchNFe, 3, 2) + Copy(cIdToken, 3, 4) else cTokenHom := AToken; cTokenPro := AToken; // Alterado por Italo em 05/06/2014 // Essa alteração foi feita, pois algumas UF estão gerando o Token também para o Ambiente de Homologação // Neste caso o mesmo deve ser informado na propriedade Token caso contario deve-se atribuir a // essa propriedade uma String vazia if (AAmbiente = taHomologacao) then begin if (AToken = '') then cTokenHom := Copy(AchNFe, 7, 8) + '20' + Copy(AchNFe, 3, 2) + Copy(cIdToken, 3, 4) else cTokenHom := AToken; end else cTokenPro := AToken; sToken := DFeUtil.SeSenao(AAmbiente = taProducao, cIdToken + cTokenPro, cIdToken + cTokenHom); sNF := StringReplace(FormatFloat('0.00', AvNF), ',', '.', [rfReplaceAll]); sICMS := StringReplace(FormatFloat('0.00', AvICMS), ',', '.', [rfReplaceAll]); sEntrada := 'chNFe=' + AchNFe + '&nVersao=100&tpAmb=' + TpAmbToStr(AAmbiente) + DFeUtil.SeSenao(AcDest = '', '', '&cDest='+AcDest) + '&dhEmi=' + sdhEmi_HEX + '&vNF=' + sNF + '&vICMS=' + sICMS + '&digVal=' + sdigVal_HEX + '&cIdToken='; // Passo 5 calcular o SHA-1 da string sEntrada if fsHashQRCode = nil then fsHashQRCode := TACBrEAD.Create(nil); try cHashQRCode := fsHashQRCode.CalcularHash(sEntrada + sToken, dgstSHA1); except raise Exception.Create('Erro ao calcular Hash do QR-Code'); end; // Passo 6 Memo1.Text := urlUF + '?' + sEntrada + cIdToken+ '&cHashQRCode=' + cHashQRCode; /////////////////////// NOVO 2014 ///////////////////////////////////

Tem algum exemplo como usar ?

Eu uso essa funcao para criar o qrcode tokem := '000001'; if Form_NFe.ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.tpAmb = taProducao then URL := 'http://www.sefaz.mt.gov.br/nfce/consultanfce?' else URL := 'http://homologacao.sefaz.mt.gov.br/nfce/consultanfce?'; if Form_NFe.ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.tpAmb = taProducao then tpAmb := '1' else tpAmb := '2'; cDest := Iif(Length(Form_NFe.ACBrNFe1.NotasFiscais.Items[0].NFe.Dest.CNPJCPF) > 0, Form_NFe.ACBrNFe1.NotasFiscais.Items[0].NFe.Dest.CNPJCPF, ''); Memo1.Lines.Clear; Memo1.Text := URL + 'chNFe=' + Form_NFe.ACBrNFe1.NotasFiscais.Items[0].NFe.procNFe.chNFe + '&nVersao=' + '100' + '&tpAmb=' + tpAmb + Iif((Length(cDest) > 0),('&cDest=' + cDest), '') + '&dhEmi=' + StringToHex(DateTimeTodhUTC(Form_NFe.ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.dEmi,GetUTC(Form_NFe.ACBrNFe1.NotasFiscais.Items[0].NFe.emit.enderEmit.UF, Form_NFe.ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.dEmi))) + '&vNF=' + FormatFloat(',0.00;-,0.00', Form_NFe.ACBrNFe1.NotasFiscais.Items[0].NFe.Total.ICMSTot.vNF) + '&vICMS=' + FormatFloat(',0.00;-,0.00', Form_NFe.ACBrNFe1.NotasFiscais.Items[0].NFe.Total.ICMSTot.vICMS) + '&digVal=' + StringToHex(Form_NFe.ACBrNFe1.NotasFiscais.Items[0].NFe.procNFe.digVal) + '&cIdToken=' + tokem; Hash_SHA1 := Form_NFe.ACBrEAD1.CalcularHash(UTF8Encode(Memo1.Text), dgstSHA1); Memo1.Text := Memo1.Text + '&cHashQRCode=' + Hash_SHA1; O Resultado disso da isto http://homologacao.sefaz.mt.gov.br/nfce/consultanfce?chNFe=51140903953552000102650020000003601000003606& nVersao=100& tpAmb=2& dhEmi=323031342D30392D30395431313A32313A31382D30343A3030& vNF=58,35& vICMS=0,00& digVal=6947717550706D66654572782F7A45305469442F6D7645395532453D& cIdToken=000001& cHashQRCode=31E6075144254C592F4C520F6D177A609C31ED3F link completo http://homologacao.sefaz.mt.gov.br/nfce/consultanfce?chNFe=51140903953552000102650020000003601000003606&nVersao=100&tpAmb=2&dhEmi=323031342D30392D30395431313A32313A31382D30343A3030&vNF=58,35&vICMS=0,00&digVal=6947717550706D66654572782F7A45305469442F6D7645395532453D&cIdToken=000001&cHashQRCode=31E6075144254C592F4C520F6D177A609C31ED3F se copiar este link e joga na web vai mostrar o cupom, mais mostrar este erro Erro 100 - QR Code Inválido Pegando um qrcode de uma loja que aparentemente nao tem diferença http://www.sefaz.mt.gov.br/nfce/consultanfce?chNFe=51141101030685000696650020000005351054760777& nVersao=100& tpAmb=1& dhEmi=323031342d31312d30335432303a33303a30392d30333a3030& vNF=129.00& vICMS=0.00& digVal=4d684d6b6d535277387779326351524e584c68307a44506b6e32303d& cIdToken=000001& cHashQRCode=A3663ADC59B24F91207E3F51C6C3D6B68E809074 link completo http://www.sefaz.mt.gov.br/nfce/consultanfce?chNFe=51141101030685000696650020000005351054760777&nVersao=100&tpAmb=1&dhEmi=323031342d31312d30335432303a33303a30392d30333a3030&vNF=129.00&vICMS=0.00&digVal=4d684d6b6d535277387779326351524e584c68307a44506b6e32303d&cIdToken=000001&cHashQRCode=A3663ADC59B24F91207E3F51C6C3D6B68E809074 da tudo certo sem erro nenhum o que deve ser? agradeço desde ja.

Conseguir resolver colocando assim ACBrMail1.From := DM.Client_MERCADO_PISEMAIL_USUARIO.Text; email do cleinte ACBrMail1.FromName := DM.Client_MERCADO_PISFANTASIA.Text; //Opcional nome do cliente sabendo que nos outro servidores colocava assim ACBrMail1.From := DM.Client_MERCADO_PISFANTASIA.Text; nome do cliente ACBrMail1.FromName := ''; //Opcional nao entedir mais blz, obrigado pela atencao.

O Pior que ja ta, quando mando email da nf-e pelo acbrnfe da certo. mais no componente acbrmail nao, tem outra ideia ?

Eu uso smtp da google , Hotmail, locaweb e muito outros com o componente ACBrMail1 mais estou tentando usar o smtp.office365.com [email protected] ********** mais nada , já tentei varias combinações, alguma dica, obrigado.

blz, mais a questao nao é o erro , o erro nao tem problema, mais o que eu queria se poder, era nao mostrar o erro ou qualquer erro como Messagem com ok para eu pode pula pro proximo registro, a messgem de ok para tudo. ate o cleinte aperta ok.

Dificio , é so quando a fefaz ta muito lenta, quando tenta verifica status ou enviar, ai da este erro.

Fis um monitor nfc-e para enviar os nfc-e em off-line como a cada 5 minutos ele tenta enviar, nao pode mostrar tela de erro, eu pego os erro e guardo em um memu, mais tem uma messagem que nao to conseguindo. Aparece com mensagem de ok, para ususario aperta ok, mais nao pode , tem que da erro e pula pro proximo registro. Erro: ha messagem é limite de tempo excediddo, como façor para nao mostrar esta messagem , obrigado.

Estou tentando configurar NFS-e para MICROEMPREENDEDOR INDIVIDUAL ele tem alicota zero mais da este erro Valor do ISS nao informado o que deve ser?

Solução provisolria https://sourceforge.net/p/recuperaxml/discussion/general/thread/c10f1f9e/

Sei que o projeto nao continuar, mais alguem ja tem as mudanca para funcionar no no site da sefaz, esta semana parou de funcionar, nao vem mais a imgem.

Ha entendi, desculpa, vc mudou no componente.

Não adiante continuar mostrando 6 linhas.

Aceita add as 8 mais so mostra no danfe 6 e a fonte ta bem grande né. a imagem com rave e com quickreport

Cara to muito acustumado com reportbuilder, mais tem impressao do nfc-e com QuickReport, porque tentei mais nao deu certo ? de uma olhada na configuração que fis

Estou usando ACBrNFeDANFEQR1 em vem do RAVE e so mostra 5 linhas nas informações adicionais, é isto mesmo, porque no RAVE mostrava 8 linhas?

Não to coseguindo configurar o componente do ReportBuilder coloco o conteudo 2DBarCode1.Data := e o BarCodeType := bcQRCode mais o codigo fica invalido, mais o conteudo ta correto, pos ja uso em um componete Barcode2D_QRCode1 tem que fazer mais alguma configuracao ? obrigado pela atencao. if Form_NFe.ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.tpAmb = taProducao then URL := 'http://www.sefaz.mt.gov.br/nfce/consultanfce?' else URL := 'http://homologacao.sefaz.mt.gov.br/nfce/consultanfce?'; if Form_NFe.ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.tpAmb = taProducao then tpAmb := '1' else tpAmb := '2'; cDest := Iif(Length(Form_NFe.ACBrNFe1.NotasFiscais.Items[0].NFe.Dest.CNPJCPF) > 0, Form_NFe.ACBrNFe1.NotasFiscais.Items[0].NFe.Dest.CNPJCPF, ''); Memo1.Lines.Clear; Memo1.Text := URL + 'chNFe=' + Form_NFe.ACBrNFe1.NotasFiscais.Items[0].NFe.procNFe.chNFe + '&nVersao=' + '100' + '&tpAmb=' + tpAmb + Iif((Length(cDest) > 0),('&cDest=' + cDest), '') + '&dhEmi=' + StringToHex(DateTimeTodhUTC(Form_NFe.ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.dEmi,GetUTC(Form_NFe.ACBrNFe1.NotasFiscais.Items[0].NFe.emit.enderEmit.UF, Form_NFe.ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.dEmi))) + '&vNF=' + FormatFloat(',0.00;-,0.00', Form_NFe.ACBrNFe1.NotasFiscais.Items[0].NFe.Total.ICMSTot.vNF) + '&vICMS=' + FormatFloat(',0.00;-,0.00', Form_NFe.ACBrNFe1.NotasFiscais.Items[0].NFe.Total.ICMSTot.vICMS) + '&digVal=' + StringToHex(Form_NFe.ACBrNFe1.NotasFiscais.Items[0].NFe.procNFe.digVal) + '&cIdToken=' + tokem; Hash_SHA1 := Form_NFe.ACBrEAD1.CalcularHash(UTF8Encode(Memo1.Text), dgstSHA1); Memo1.Text := Memo1.Text + '&cHashQRCode=' + Hash_SHA1; 2DBarCode1.Data := Memo1.Text;

Fiquei sabendo que (Bahia) com a utilização da NFC-e em estado que tem o PAF não é obrigatório o PDV com PAF e sim só a emissão da NFC-e isto é verídico ? só duvida? a RIO DE JANEIRO já ta, vc achar que SAO PAULO vai demora, ou ainda ta resistindo.