Arnaldo Cruz

Obrigado por responderem Colegas estou impressionado, fui lá no contador pra ver o sistema que eles usam para esse fim, alis eles tem dois, um tal de espião e um do Sped foi que que eu vi ele fazer a consulta. Pois bem, ele faz a consulta pelo CNPJ é rapidinho de primeira, ainda tem a opção de geração de um mini danfe, com todos os dados do emitente e destinatário, produtos, tributação, peso,dados da trasportadora. cara como é que eles conseguem isso, se no retorno nem tem estes dados, só se eles fizerem duas consulta, pegando a chave e depois pegando o XML, ou devem ter alguma mamata lá na central de processamento do SEFAZ Helderir vou testar o código que vc postou, obrigado

Fiz a mesmo consulta pelo exemplo do ACBR só volta vazio tambem Versão : 1.01 Ambiente : 1 Versão Aplicativo : 1.1.0 Status Código : 137 Status Descrição : Nenhum documento localizado para o destinatario Recebimento : 19/08/2014 22:41:49 Ind. Continuação : 1 Último NSU : 10586812123 O caso é que uma empresa da Bahia faturou 18 Nfe para um cnpj de um cliente aqui da Paraiba, ele descobriu porque chegou as guias de diferença de imposto pra pagar. Ele foi no contador e lá tem um sistema que o contador baixa todos os xmls pelo CNPJ. NFe emitidas dia 06/08/2014 Ai o cliente mim perguntou se tiha como ele verificar periodicamente as notas em itidas pra seu cnpj sem ter que ir ao contador., é por isso que estou com essa luta aqui pelo acbr. Baixei tambem do site da receita um programa em java que dizem que lista todas as nfe emitidas para o cnjp do destinatário, mas dá pau na consulta., se algum colega tiver uma dica eu agradeço

CAMARADA DELETA o arquivo do rave pega novamente o do projeto ABRs e joga na pasta da tua aplicação, compila e vai resolver, aconteceu comigo e resolvi assim. pode ser que resolva pra vc também.

- <retConsCad xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns="http://www.portalfiscal.inf.br/nfe" versao="2.00"> - <infCons> <verAplic>4.00</verAplic> <cStat>111</cStat> <xMotivo>Consulta cadastro com uma ocorrencia</xMotivo> <UF>BA</UF> <CNPJ>20381113000191</CNPJ> <dhCons>2014-08-19T22:13:16</dhCons> <cUF>29</cUF> - <infCad> <IE>117369409</IE> <CNPJ>20381113000191</CNPJ> <UF>BA</UF> <cSit>1</cSit> <indCredNFe>1</indCredNFe> <indCredCTe>0</indCredCTe> <xNome>JOSE ORLANDO ELIAS - ME</xNome> </infCad> </infCons> </retConsCad>

Esgtou tentando usar este código que peguei aqui no forum, mais ele nunca mim retorna nada, alguem poderia mim dizer o que está errado. O ultimo NSU será guardado em um arquivo texto. if FileExists(gsAppPath + ' NSU.txt') then begin AssignFile(arq, gsAppPath + ' NSU.txt'); Reset(arq); while not eof(arq) do begin readln(arq, linha); ultNSU := linha; end; CloseFile(arq); end; if cdsManifesto.Active then begin cdsManifesto.EmptyDataSet; end else begin cdsManifesto.CreateDataSet; end; repeat Application.ProcessMessages; FDataModule.ACBrNFe1.ConsultaNFeDest(CnpjEmpresa,StrToIndicadorNFe(ok,IndNFe), StrToIndicadorEmissor(ok,IndEmi), ultNSU); MemoResp.Lines.Text := UTF8Encode(FDataModule.ACBrNFe1.WebServices.EnvEvento.RetWS); with FDataModule.ACBrNFe1.WebServices.ConsNFeDest.retConsNFeDest do begin for I := 0 to FDataModule.ACBrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Count - 1 do begin if trim(ret.Items.resNFe.chNFe) <> '' then begin cdsManifesto.Append; cdsManifestoVERSAO.AsString := versao; cdsManifestoVERSAPLICATIVO.AsString := verAplic; cdsManifestoSTATUS.AsInteger := cStat; cdsManifestoMOTIVO.AsString := xMotivo; cdsManifestoDATACONSULTA.AsDateTime := StrToDate(formatdatetime('dd/mm/yyyy',dhResp)); cdsManifestoHORACONSULTA.AsDateTime := StrToTime(formatdatetime('hh:mm:ss',dhResp)); cdsManifestoDATAMANIFESTO.AsDateTime := StrToDate(formatdatetime('dd/mm/yyyy',dhResp)); cdsManifestoHORAMANIFESTO.AsDateTime := StrToTime(formatdatetime('hh:mm:ss',dhResp)); cdsManifestoNSU.AsString := ret.Items.resNFe.NSU; cdsManifestoCHAVENFE.AsString := ret.Items.resNFe.chNFe; cdsManifestoCNPJCPF.AsString := ret.Items.resNFe.CNPJCPF; cdsManifestoNOMEEMITENTE.AsString := ret.Items.resNFe.xNome; cdsManifestoIE.AsString := ret.Items.resNFe.IE; cdsManifestoDATAEMISSAO.AsDateTime := StrToDate(formatdatetime('dd/mm/yyyy',ret.Items.resNFe.dEmi)); case ret.Items.resCanc.tpNF of tnEntrada: cdsManifestoTIPONFE.AsString := 'E'; tnSaida: cdsManifestoTIPONFE.AsString := 'S'; end; cdsManifestoTOTANFE.AsFloat := ret.Items.resNFe.vNF; cdsManifestoDIGVAL.AsString := ret.Items.resNFe.digVal; cdsManifestoDATAAUTORIZACAO.AsDateTime := StrToDate(formatdatetime('dd/mm/yyyy',ret.Items.resNFe.dhRecbto)); cdsManifestoHORAAUTORIZACAO.AsDateTime := StrToTime(formatdatetime('hh:nn:ss',ret.Items.resNFe.dhRecbto)); case ret.Items.resNFe.cSitNFe of snAutorizado: cdsManifestoSITUNFEVALOR.AsString := 'A'; snDenegado: cdsManifestoSITUNFEVALOR.AsString := 'D'; snCancelada: cdsManifestoSITUNFEVALOR.AsString := 'C'; end; cdsManifesto.Post; end; ultNSU := ret.Items.resNFe.NSU; end; end; until (VarToStr(FDataModule.ACBrNFe1.WebServices.ConsNFeDest.retConsNFeDest.indCont) = '0'); Aqui terá a gravação do NSU nop arquivo texto, quando a consulta retornar algum registro.

Já Verificou se a capicom está instalada, eu tive um problema assim, a capicom estava instalada e não enviava, baixei a capicom do site microsoft e fiz a instalação e passou a enviar a NFe. no meu caso não sei como a capicom estava corrompida ou sei lá o que.

Descobri o problema. Na minha maquina a imagem(Logomarca) está com extensão JPG >> o Danfe Abre No Cliente a imagem(Logomarca) está com extensão BMP >> o Danfe não Abre.

Cosultante PB Consultado BA No ACBr NFe de demonstração estou tentando usar a função abaixo de consulta,m porem só volta o nome do contribuinte xNome >>>> Este Volta xLgr >>> Volta Vazio nro >>> Volta Vazio xRegApur >>> Volta Vazio xBairro >>> Volta Vazio xMun >>> Volta Vazio procedure TForm1.btnConsCadClick(Sender: TObject); var UF, Documento : String; begin if not(InputQuery('WebServices Consulta Cadastro ', 'UF do Documento a ser Consultado:', UF)) then exit; if not(InputQuery('WebServices Consulta Cadastro ', 'Documento(CPF/CNPJ)', Documento)) then exit; Documento := Trim(DFeUtil.LimpaNumero(Documento)); ACBrNFe1.WebServices.ConsultaCadastro.UF := UF; if Length(Documento) > 11 then ACBrNFe1.WebServices.ConsultaCadastro.CNPJ := Documento else ACBrNFe1.WebServices.ConsultaCadastro.CPF := Documento; ACBrNFe1.WebServices.ConsultaCadastro.Executar; //MemoResp.Lines.Text := UTF8Encode(ACBrNFe1.WebServices.ConsultaCadastro.RetWS); //memoRespWS.Lines.Text := UTF8Encode(ACBrNFe1.WebServices.ConsultaCadastro.RetornoWS); //LoadXML(MemoResp, WBResposta); ShowMessage(ACBrNFe1.WebServices.ConsultaCadastro.xMotivo); ShowMessage(ACBrNFe1.WebServices.ConsultaCadastro.RetConsCad.InfCad.Items[0].xNome); ShowMessage(ACBrNFe1.WebServices.ConsultaCadastro.RetConsCad.InfCad.Items[0].xLgr); ShowMessage(ACBrNFe1.WebServices.ConsultaCadastro.RetConsCad.InfCad.Items[0].nro); ShowMessage(ACBrNFe1.WebServices.ConsultaCadastro.RetConsCad.InfCad.Items[0].xRegApur); ShowMessage(ACBrNFe1.WebServices.ConsultaCadastro.RetConsCad.InfCad.Items[0].xBairro); ShowMessage(ACBrNFe1.WebServices.ConsultaCadastro.RetConsCad.InfCad.Items[0].xMun); end;

Bom para quem está tentando enviar o email da NFe pelo Bol o Uol sem sucesso estes dois provedores não oferecem este serviço. fiz testes pelo meu proprio provedor de email e o componente funcionou perfeitamente

Quando gero o danfe estou tentando enviar o XML pro cliete e está acontecendo os erros conforme abaixo se eu marcar o checkbox ign ore this exception mostra o erro abaixo O codigo que estou usando é o abaixo SMTPHost := 'smtps.bol.com.br'; SMTPPorta := 587; SMTPUsu := UsuarioDoSite; SMTPSenha:= SenhaAcesso; vsEdtEmail := [email protected] EmailCliente := Email do Destinatario SS := True ou False(conforme seja selecionado conexxão segura ou não) FDataModule.ACBrNFe1.NotasFiscais.Items[0].EnviarEmail(SMTPHost , SMTPPorta , SMTPUsu , SMTPSenha , vsEdtEmail , EmailCliente , 'XML Nota Fiscal Eletrônica' , Mensagem , SS // SSL - Conexão Segura , False //Enviar PDF junto , nil //Lista com emails que serão enviado cópias - TStrings , nil // Lista de anexos - TStrings , False //Pede confirmação de leitura do email , True //Aguarda Envio do Email(não usa thread) , NomeEmpresa // Nome do Rementente , SS );

tem sim SAMSUMG SCX-3400 Series = impressora laser já fiz o teste de impressão de outros documentos

Instalei o sistema em um Notebook estou usando o DanfeRVCB Quando faço a transmissão da NF-e para o sefaz ele não abre o danfe, e nem tão pouco da mensagem de erro. Obs : A NF-e é transmitida com sucesso para o sefaz, porem não consigo imprimir o DANFE pra entregar pro cliente. A solução que arrumei foi : transmito a NF-e no notebook , depois copio o XML em um pen-Drive levo pra uma maquina desktop e faço a impressão usando o mesmo sistema e ACBr . instalei em dois computadores desktop ai tudo funciona normalmente com o deve ser. transmite e abre o danfe na tela para impressão.

Coisa de Louco Hoje de manhã liguei a maquina tentei fazer uma venda a prazo, aconteceu o erro, postei aqui o problema e fui fazer umas compras no centro, voltei e tentei fazer uma venda a prazo com os mesmo produtos os mesmos clientes e do nada tudo passou a funcionar. até mesmo o corte do papel que antes eu tinha que mandar o comando de corte de papel passou a funcionar. Fiz o código abaixo só pra esta impressora if Configuracao.Guilhotina = 'S' then begin FDataModule.ACBrECF.CortaPapel(False); end; Froid explica isso ?

Daniel Realmente a dinheiro é -2, conforme abaixo puchei as formas de pagamento pelo ACBR -2 Dinheiro 1 DINHEIRO 2 CHEQUE 3 VENDA A PRAZO 4 CARTAO O babado é que se eu mando no fechamento da venda -2 ou 1 não acontece o erro, porem se eu mando (2 ou 3 ou 4) acontece o erro de forma de pagamento não cadatrada no ECF. já tentei mandand -2, -3, -4, 02; 03; 04 o estranho é que nas daruma e na elgin X5 não acontece o erro, só na K-Fiscal da elgin

Impressora K-Fiscal Tenho na impressora cadastrada os seguintes meios de pagamento conforme Leitura X 01 DINHEIRO 02 CHEQUE 03 VENDA A PRAZO 04 CARTAO (v) Quando vou fechar a venda Se eu passar a forma de pagamento 01 da erro Se eu passar a forma de pagamento 1 imprime o cupom a Dinheiro Se eu passar a forma de pagamento 02 da erro Se eu passar a forma de pagamento 2 da erro Se eu passar a forma de pagamento 03 da erro Se eu passar a forma de pagamento 3 da erro Log do ACBr rro: 8014 - ErroCMDFormaPagamentoIndefinida Meio de pagamento nao carregado ------------------------------------------ 00:13:35:375 TX -> {25;LeMeioPagamento;CodMeioPagamentoProgram=1;45} 00:13:35:412 RX <- {25;0;CodMeioPagamentoProgram=1 DescricaoMeioPagamento="DINHEIRO" NomeMeioPagamento="DINHEIRO" PermiteVinculado=N;113}-- 00:13:35:413 TX -> {26;LeMeioPagamento;CodMeioPagamentoProgram=2;45} 00:13:35:455 RX <- {26;0;CodMeioPagamentoProgram=2 DescricaoMeioPagamento="CHEQUE" NomeMeioPagamento="CHEQUE" PermiteVinculado=N;109}-- 00:13:35:456 TX -> {27;LeMeioPagamento;CodMeioPagamentoProgram=3;45} 00:13:35:502 RX <- {27;0;CodMeioPagamentoProgram=3 DescricaoMeioPagamento="VENDA A PRAZO" NomeMeioPagamento="VENDA A PRAZO" PermiteVinculado=N;123}-- 00:13:35:502 TX -> {28;LeMeioPagamento;CodMeioPagamentoProgram=4;45} 00:13:35:539 RX <- {28;0;CodMeioPagamentoProgram=4 DescricaoMeioPagamento="CARTAO" NomeMeioPagamento="CARTAO" PermiteVinculado=Y;109}-- 00:13:35:539 TX -> {29;LeMeioPagamento;CodMeioPagamentoProgram=5;45} 00:13:35:581 RX <- {29;8014;NomeErro="ErroCMDFormaPagamentoIndefinida" Circunstancia="Meio de pagamento nao carregado";99} ----------------- ERRO ----------------- Erro retornado pela Impressora: FiscNET: ELGIN - K Erro: 8014 - ErroCMDFormaPagamentoIndefinida Meio de pagamento nao carregado ------------------------------------------ 00:13:35:581 TX -> {30;LeMeioPagamento;CodMeioPagamentoProgram=6;45} 00:13:35:624 RX <- {30;8014;NomeErro="ErroCMDFormaPagamentoIndefinida" Circunstancia="Meio de pagamento nao carregado";99} ----------------- ERRO ----------------- Erro retornado pela Impressora: FiscNET: ELGIN - K Erro: 8014 - ErroCMDFormaPagamentoIndefinida Meio de pagamento nao carregado ------------------------------------------ 00:13:35:625 TX -> {31;LeMeioPagamento;CodMeioPagamentoProgram=7;45} 00:13:35:665 RX <- {31;8014;NomeErro="ErroCMDFormaPagamentoIndefinida" Circunstancia="Meio de pagamento nao carregado";99} ----------------- ERRO ----------------- Erro retornado pela Impressora: FiscNET: ELGIN - K Erro: 8014 - ErroCMDFormaPagamentoIndefinida Meio de pagamento nao carregado ------------------------------------------ 00:13:35:665 TX -> {32;LeMeioPagamento;CodMeioPagamentoProgram=8;45} 00:13:35:707 RX <- {32;8014;NomeErro="ErroCMDFormaPagamentoIndefinida" Circunstancia="Meio de pagamento nao carregado";99} ----------------- ERRO ----------------- Erro retornado pela Impressora: FiscNET: ELGIN - K Erro: 8014 - ErroCMDFormaPagamentoIndefinida Meio de pagamento nao carregado ------------------------------------------ 00:13:35:708 TX -> {33;LeMeioPagamento;CodMeioPagamentoProgram=9;45} 00:13:35:748 RX <- {33;8014;NomeErro="ErroCMDFormaPagamentoIndefinida" Circunstancia="Meio de pagamento nao carregado";99} ----------------- ERRO ----------------- Erro retornado pela Impressora: FiscNET: ELGIN - K Erro: 8014 - ErroCMDFormaPagamentoIndefinida Meio de pagamento nao carregado ------------------------------------------ 00:13:35:749 TX -> {34;LeMeioPagamento;CodMeioPagamentoProgram=10;46} 00:13:35:791 RX <- {34;8014;NomeErro="ErroCMDFormaPagamentoIndefinida" Circunstancia="Meio de pagamento nao carregado";99} ----------------- ERRO ----------------- Erro retornado pela Impressora: FiscNET: ELGIN - K Erro: 8014 - ErroCMDFormaPagamentoIndefinida Meio de pagamento nao carregado ------------------------------------------ 00:13:35:792 TX -> {35;LeMeioPagamento;CodMeioPagamentoProgram=11;46} 00:13:35:834 RX <- {35;8014;NomeErro="ErroCMDFormaPagamentoIndefinida" Circunstancia="Meio de pagamento nao carregado";99} ----------------- ERRO ----------------- Erro retornado pela Impressora: FiscNET: ELGIN - K Erro: 8014 - ErroCMDFormaPagamentoIndefinida Meio de pagamento nao carregado ------------------------------------------ 00:13:35:834 TX -> {36;LeMeioPagamento;CodMeioPagamentoProgram=12;46} 00:13:35:873 RX <- {36;8014;NomeErro="ErroCMDFormaPagamentoIndefinida" Circunstancia="Meio de pagamento nao carregado";99} ----------------- ERRO ----------------- Erro retornado pela Impressora: FiscNET: ELGIN - K Erro: 8014 - ErroCMDFormaPagamentoIndefinida Meio de pagamento nao carregado ------------------------------------------ 00:13:35:874 TX -> {37;LeMeioPagamento;CodMeioPagamentoProgram=13;46} 00:13:35:914 RX <- {37;8014;NomeErro="ErroCMDFormaPagamentoIndefinida" Circunstancia="Meio de pagamento nao carregado";99} ----------------- ERRO ----------------- Erro retornado pela Impressora: FiscNET: ELGIN - K Erro: 8014 - ErroCMDFormaPagamentoIndefinida Meio de pagamento nao carregado ------------------------------------------ 00:13:35:915 TX -> {38;LeMeioPagamento;CodMeioPagamentoProgram=14;46} 00:13:35:957 RX <- {38;8014;NomeErro="ErroCMDFormaPagamentoIndefinida" Circunstancia="Meio de pagamento nao carregado";99} ----------------- ERRO ----------------- Erro retornado pela Impressora: FiscNET: ELGIN - K Erro: 8014 - ErroCMDFormaPagamentoIndefinida Meio de pagamento nao carregado ai Quando chamo a função ACBrTEFD.FinalizarCupom da erro pra qualquer meio de pagaemnto que não seja 1 Porem se eu tirar a leitura X em meios de pagamento apararece ao benditos meios de pagamento.

OK era isso mesmo copiei a pasta capicom do acbr para o computador do cliente e executei o arquivo install.bat e abriu o certificado. Outra duvida = todo vez que vai emitir uma NFe abre uma telinha do certificado pedindo para digitar o PINK(senha do certificado) tem como não mostrar esta telinha já que eu passo a senha nas configurações do componente ?

Uma duvida Quando instalo o sistema que usa o ACBr NFE tenho que instalar as dlls (Capicom,libeay32.dll,ssleay32.dll) e fazer o registros das mesma ? ou elas já estão no executavel. perdoem a ignorancia se Sim no system do Windows ou na pasta do executavel ?

1 Problema a pasta de instalação. fiz extamente como no post de limpeza, porem não resolveu, cotinuou instalando na onde estava o ACBr. Solução : instalei manualemente todos os pacotes. 2 Problema o retorno do serviço oltando sempre status = "0" Solução Desinstalei o certificado o gerenciador do certificado. Reintsalei o gerenciado e o certificado. Instalei o capicom direto do site do certsingn (esta eu não sei se tem diferença com a capicom do ACBr) Alterei o PUK e PIN do certificado

Regys e como resolver para o delphi não dá mais as mensagens de falta de bpls quando for aberto

Limpei tudo usando o bat de um outro post aqui do forum, apaguei o registro do windows tdo o packageKnow do acbr. Desinstalei os package do Delphi limpei do Library32. Porem quando vou instalar as bpl vão para D:\Acbr2014\Lib\Delphi\LibD14 e não para C:\Users\Public\Documents\RAD Studio\7.0\Bpl

Instalei o ACbr pelo instalador. as bpl ele instalou na pasta C:\Users\Public\Documents\RAD Studio\7.0\Bpl e as dcp em C:\Users\Public\Documents\RAD Studio\7.0\dcp Porem tudo fucionou blz. Hoje 11/08/2014 fui emiti uma NFe e na hora de transmitir a nfe o serviço sempre voltava status desativado. consultei o serviço e estava operante. Emiti uma nfe e transmiti por outro sistema e passou sem problemas. voltei pro projeto com ACBr , mesma coisa o Status do serviço só volta "0"; Desistalei o ACBR limpei todas as Bpl e dcp. A pasta de instalação do ACBR está em D:\ACBr2014 Detalhe estou usando Delphi 2010 , e tambem não tenho outra versão do delphi na maquina Quando instalo pelo Instalador, ele grava as bpl na pasta na pasta D:\Acbr2014\Lib\Delphi\LibD14 ai quando abro o Delphi dá mensagem de erro que as bpl não foram localizadas. Alguem sabe como faço para ele grava na pasta C:\Users\Public\Documents\RAD Studio\7.0\Bpl

Ao abrir a tela do caixa está acontecendo este erro conforme imagem porem se eu marcar o checkbox "Igone este tipo de erro", o gerenciador do TEF é aberto. em outras telas tambem ocorre erro com esta opção de ignorar, após ser marcado o checkbox de "Ignore o tipo de erro" não aparece mais o erro. Isso é normal ?

Regys eu tenho clientes que usam a impressora fiscal DR700 e fs700 qu e ao emitir a primeira redução Z do mês elas emitem automaticamente a leitura da memoria fiscal, porem os que usam a impressora KFiscal(elgin) alias todas as elgin isso não acontece, só se tirar pelas opções do menu fiscal.. Por isso gostaria de saber se tem algum meio pelo ACBr de saber se é a primeira redução do mês e dispara o comando da Leitura da memoria fiscal. Obrigado.

Para atender um quesito do PAF que diz que se deve emitir uma leitura da memoria fiscal na emissão da primeira redução do Mês. Pergunto : como fazer para identificar a primeira redução Z do Mês ? Obrigado

Temho na miha maquina dois Delphis instalados. 2010 e XE5 Instalei o ACBR no Delphi 2010 tudo certo. C:\Users\Public\Documents\RAD Studio\7.0\Bpl >> Arquivos gravados OK C:\Users\Public\Documents\RAD Studio\7.0\Dcp>>Arquivos Gravados OK Retirei do Path os camihos do XE5 Instalei no XE5 tudo certo sem mensgaens de erro porem os arquivos bpl e dcp não são gravados C:\Users\Public\Documents\RAD Studio\12.0\Bpl>> Arquivos não são gravados C:\Users\Public\Documents\RAD Studio\12.0\Dcpl>> Arquivos não são gravados Alguem sabe porque o ACBr não grava os arquivos ? Obrigado