Edevair Viesa Junior

O que seria a NFe manifestada ???

Certo. Então como o amigo geanjesus falou existe um outro método que não o consultar ou então que nem seja do webservices que seja possível fazer o download do .xml do sefaz pela chave de acesso, desde que o emitente seja o mesmo que está fazendo o download ??

André Ferreira então neste caso, conforme foi questionado anteriormente, não é possível via algum método ou componente do ACBr fazer o Download do arquivo da NFe armazenado no sefaz, certo ??

André Ferreira não fiz testes com o Demo. Na verdade segui o passo a passo de acordo com o post do Daniel Simões. Porém vale lembrar que o problema não ocorre com TODAS as notas, arquivos que contém poucos itens, e isto deixa o arquivo menor, o erro não acontece. O erro só acontece quando temos muitos itens no .XML. Porém eu havia feito a atualização no dia 25/03/2017. O Daniel sugeriu fazer a atualização (13/04/2017) e tentar novamente. Vou atualizar os fontes e tentar novamente e retorno com o resultado, e se não funcionar parto para o básico com o Demo. Muito Obrigado pelo retorno !

Pessoal ninguém ??? Eu fiz vários testes e percebi que o problema está que usando a libWinCript conforme Post do Daniel Simões no Bye Bye Capicom, o tamanho do arquivo .XML não pode exceder 30 kb Se excede 30 Kb o erro da mensagem em branco acontece. Voltei todo o sistema para uso com a Capicom novamente, porém realmente seria interessante não depender da capicom para o acesso ao certificado. Qual seria a relação do tamanho do arquivo ??

Legal vou fazer o teste e posto o resultado !!!! Muito Obrigado !

Juliomar Marchetti existem algumas situações que a simpels consulta não resolve o problema. Por exemplo, se na hora de devolver a NFe assinada e acatada existe por exemplo a perda da conexão (pode ocorrer por conta da operadora de internet) com o servidor do Sefaz, não temos o .XML autorizado no disco, pois o mesmo não foi retornado. Tentei também diversas vezes resolver este problema e até hoje não consegui. Se alguém souber como fazer seria ótimo ! Neste caso ficaria sem a NFe guardada no disco do cliente. Aí é necessário fazer tudo manualmente desde o download do arquivo .xml autorizado quanto as considerações no sistemas. Não é mesmo possível fazer o download automático do XML emitido pela empresa e com o mesmo certificado da emissão ??

Boa tarde. Eu atualizei os fontes e fiz os procedimento informado pelo Daniel Simões onde excluo o uso da Capicom no meu sistema. Porém depois desta alteração, fica intermitente a apresentação da mensagem do webservices sendo apresentada em branco ao enviar o arquivo XML para a SEFAZ. Debugando ví que o erro acontece no método Enviar da Unit ACBrNFe.PAS, na linha : Result := WebServices.Envia(ALote, Sincrono); Dentro de : function TACBrNFe.Enviar(ALote : String; Imprimir : Boolean; Sincrono: Boolean) : Boolean; Neste momento a mensagem apresentada em anexo e aí dá uma exception. Como resolvo o problema ?

Sim Juliana, entendi e realmente funcionou. Porém vale salientar que este problema ocorre somente com a remessado Itaú, os outros bancos estão funcionando corretamente. Muito Obrigado !

Não entendí.. Não é o que estou fazendo ??? Você me sugere trocar de posição as informações de Cedente e Banco ??? Pq funciona as remessas do Bradesco, Banco do Brasil e Sicred ?? Só do Itaú não funciona. Sugere que faça assim : Result := true try with l_acbr_boleto do begin with Banco do begin Numero := l_client_CO0200.FieldByName('C_NUM_BANCO').AsInteger; Nome := l_client_CO0200.FieldByName('C_NOME_BANCO').AsString; LayoutRemessa := c240; if l_client_CO0200.FieldByName('C_LAYOUT_CNAB').AsString = 'c400' then begin LayoutRemessa := c400; end; if l_tipo_cobranca = 'Banco do Brasil' then begin TipoCobranca := cobBancoDoBrasil; end else if l_tipo_cobranca = 'Bradesco' then begin TipoCobranca := cobBradesco; end else if l_tipo_cobranca = 'Itaú' then begin TipoCobranca := cobItau; end else if l_tipo_cobranca = 'Santander' then begin TipoCobranca := cobSantander; end else if l_tipo_cobranca = 'CEF' then begin TipoCobranca := cobCaixaEconomica; end else if l_tipo_cobranca = 'HSBC' then begin TipoCobranca := cobHSBC; end else if l_tipo_cobranca = 'Safra' then begin TipoCobranca := cobSafraBradesco; end else if l_tipo_cobranca = 'Sicred' then begin TipoCobranca := cobSicred; end else begin Result := False; end; end; with Cedente do begin Nome := g_desc_empresa; CNPJCPF := OnlyNumber(g_cnpj_empresa); Logradouro := g_endereco_nf_empresa; CEP := OnlyNumber(g_cep_empresa); NumeroRes := g_numero_empresa; Complemento := g_complemento_empresa; Conta := l_client_CO0200.FieldByName('C_CONTA_BANCO').AsString; ContaDigito := l_client_CO0200.FieldByName('C_DIGITO_CONTA_BANCO').AsString; Agencia := l_client_CO0200.FieldByName('C_AGENCIA_BANCO').AsString; AgenciaDigito := l_client_CO0200.FieldByName('C_DIGITO_AGENCIA_BANCO').AsString; Modalidade := l_client_CO0200.FieldByName('C_VARIACAO').AsString; Convenio := l_client_CO0200.FieldByName('C_NUM_CONVENIO').AsString; CodigoCedente := l_client_CO0200.FieldByName('C_NUM_CONVENIO').AsString; end; end; except on E:Exception do begin MessageDlg('Erro Ao carregar as Configurações do Boleto nesta CONTA. '+#13#10+#13#10+ 'Erro: '+E.Message, mterror, [mbOk], 0); Result := False; end; end; Seria isso ??

Estou com problemas ao gerar remessa de boleto do banco itau. O número da conta está saindo zero, tanto no Header quanto nas linhas dos títulos, porém o dígito da conta estão saindo, e informo no mesmo momento tanto a conta quanto o seu respectivo dígito e também a agencia que também sai. Dados de agência : 0562 e Conta Corrente 40177-8 O que estou fazendo errado ?? Segue ilustração : Segue a forma como estou informando os dados : Result := true try with l_acbr_boleto do begin with Cedente do begin Nome := g_desc_empresa; CNPJCPF := OnlyNumber(g_cnpj_empresa); Logradouro := g_endereco_nf_empresa; CEP := OnlyNumber(g_cep_empresa); NumeroRes := g_numero_empresa; Complemento := g_complemento_empresa; Conta := l_client_CO0200.FieldByName('C_CONTA_BANCO').AsString; ContaDigito := l_client_CO0200.FieldByName('C_DIGITO_CONTA_BANCO').AsString; Agencia := l_client_CO0200.FieldByName('C_AGENCIA_BANCO').AsString; AgenciaDigito := l_client_CO0200.FieldByName('C_DIGITO_AGENCIA_BANCO').AsString; Modalidade := l_client_CO0200.FieldByName('C_VARIACAO').AsString; Convenio := l_client_CO0200.FieldByName('C_NUM_CONVENIO').AsString; CodigoCedente := l_client_CO0200.FieldByName('C_NUM_CONVENIO').AsString; end; with Banco do begin Numero := l_client_CO0200.FieldByName('C_NUM_BANCO').AsInteger; Nome := l_client_CO0200.FieldByName('C_NOME_BANCO').AsString; LayoutRemessa := c240; if l_client_CO0200.FieldByName('C_LAYOUT_CNAB').AsString = 'c400' then begin LayoutRemessa := c400; end; if l_tipo_cobranca = 'Banco do Brasil' then begin TipoCobranca := cobBancoDoBrasil; end else if l_tipo_cobranca = 'Bradesco' then begin TipoCobranca := cobBradesco; end else if l_tipo_cobranca = 'Itaú' then begin TipoCobranca := cobItau; end else if l_tipo_cobranca = 'Santander' then begin TipoCobranca := cobSantander; end else if l_tipo_cobranca = 'CEF' then begin TipoCobranca := cobCaixaEconomica; end else if l_tipo_cobranca = 'HSBC' then begin TipoCobranca := cobHSBC; end else if l_tipo_cobranca = 'Safra' then begin TipoCobranca := cobSafraBradesco; end else if l_tipo_cobranca = 'Sicred' then begin TipoCobranca := cobSicred; end else begin Result := False; end; end; end; except on E:Exception do begin MessageDlg('Erro Ao carregar as Configurações do Boleto nesta CONTA. '+#13#10+#13#10+ 'Erro: '+E.Message, mterror, [mbOk], 0); Result := False; end; end; os dados do banco de dados estão sendo informados corretamente, verifiquei debugando em run time ...

Boa tarde. Segue : Result := true try with l_acbr_boleto do begin with Cedente do begin Nome := g_desc_empresa; CNPJCPF := OnlyNumber(g_cnpj_empresa); Logradouro := g_endereco_nf_empresa; CEP := OnlyNumber(g_cep_empresa); NumeroRes := g_numero_empresa; Complemento := g_complemento_empresa; Conta := l_client_CO0200.FieldByName('C_CONTA_BANCO').AsString; ContaDigito := l_client_CO0200.FieldByName('C_DIGITO_CONTA_BANCO').AsString; Agencia := l_client_CO0200.FieldByName('C_AGENCIA_BANCO').AsString; AgenciaDigito := l_client_CO0200.FieldByName('C_DIGITO_AGENCIA_BANCO').AsString; Modalidade := l_client_CO0200.FieldByName('C_VARIACAO').AsString; Convenio := l_client_CO0200.FieldByName('C_NUM_CONVENIO').AsString; CodigoCedente := l_client_CO0200.FieldByName('C_NUM_CONVENIO').AsString; end; with Banco do begin Numero := l_client_CO0200.FieldByName('C_NUM_BANCO').AsInteger; Nome := l_client_CO0200.FieldByName('C_NOME_BANCO').AsString; LayoutRemessa := c240; if l_client_CO0200.FieldByName('C_LAYOUT_CNAB').AsString = 'c400' then begin LayoutRemessa := c400; end; if l_tipo_cobranca = 'Banco do Brasil' then begin TipoCobranca := cobBancoDoBrasil; end else if l_tipo_cobranca = 'Bradesco' then begin TipoCobranca := cobBradesco; end else if l_tipo_cobranca = 'Itaú' then begin TipoCobranca := cobItau; end else if l_tipo_cobranca = 'Santander' then begin TipoCobranca := cobSantander; end else if l_tipo_cobranca = 'CEF' then begin TipoCobranca := cobCaixaEconomica; end else if l_tipo_cobranca = 'HSBC' then begin TipoCobranca := cobHSBC; end else if l_tipo_cobranca = 'Safra' then begin TipoCobranca := cobSafraBradesco; end else if l_tipo_cobranca = 'Sicred' then begin TipoCobranca := cobSicred; end else begin Result := False; end; end; end; except on E:Exception do begin MessageDlg('Erro Ao carregar as Configurações do Boleto nesta CONTA. '+#13#10+#13#10+ 'Erro: '+E.Message, mterror, [mbOk], 0); Result := False; end; end; os dados do banco de dados estão sendo informados corretamente, verifiquei debugando em run time ...

Boa noite, pessoal estou com problemas ao gerar remessa de boleto do banco itau. O número da conta está saindo zero, tanto no Header quanto nas linhas dos títulos, porém o dígito da conta estão saindo, e informo no mesmo momento tanto a conta quanto o seu respectivo dígito e também a agencia que também sai. Dados de agência : 0562 e Conta Corrente 40177-8 O que estou fazendo errado ?? Segue ilustração :

Daniel muitíssimo obrigado !

Daniel o "Use a força, leia os fontes..." foi o melhor.. Rssssss Me matei de rir aqui... Realmente sou preguiçoso nestas questões, o que não deveria ser. Cara muito obrigado ! Funcionou direitinho. Era a Natureza da Operação mesmo, porém te pergunto coloquei 1 para natureza da operação, onde consigo estes códigos (números da natureza da operação a serem usados aqui), tentei ver nos fontes e não consegui achar nada sobre isso. Outra coisa, aceita em todos os municípios esta emissão ??? Fiz o teste emitindo com o código de município de São Caetano do Sul, porém por exemplo se eu emitir pra São Paulo ou então Tatuí vai funcionar ?? Muitíssimo obrigado ! Junior

Juliomar, novamente muito obrigado pela resposta. Fiz exatamente como me falou e mesmo assim não rodou. Inclusive neste mesmo micro já tinha instalado, só atualizei. Aí mãos à obra, e compilei os pacotes separados, como era no início do projeto ACBr e eis que achei o problema. Na unit ACBrNFe, no método NotasFiscais.Items[0].Imprimir; falta o parâmetro (l_impresso : boolean). Inclui True como parâmetro e aí compilou, o mesmo aconteceu em ACBrECFVirtualNFCe (linhas 707, 710 e 730) no mesmo método, também corrigi e funcionou. Será que meus arquivos estão errados ???? Sabe dizer o que é este parâmetro ??? Junior

Primeiramente, muito obrigado pela resposta. Certo, pelo que eu entendi então pelo ACBR não consigo gerar o XML com os dados de itens de serviço, é isso ? O que acontece é que mesmo usando os comandos contidos no ACBrSAT: ISSQN.vBC := v_client_VE0200.FieldByName('C_VALOR_UNITARIO_VENDA').AsFloat * v_client_VE0200.FieldByName('C_QTD_PRODUTO_VENDA').AsFloat * v_client_VE0200.FieldByName('C_VALOR_UNITARIO_VENDA').AsFloat;ISSQN.vAliq := v_client_AL0100.FieldByName('C_PERC_ALIQUOTA_ISS').AsFloat;ISSQN.cMunFG := g_num_municipio_servicos; O .XML gerado pelo componente SAT do ACBr gera o xml como abaixo : <CFe> <infCFe versaoDadosEnt="0.07"> <ide> <CNPJ>16716114000172</CNPJ> <signAC>SGR-SAT SISTEMA DE GESTAO E RETAGUARDA DO SAT</signAC> <numeroCaixa>001</numeroCaixa> </ide> <emit> <CNPJ>08723218000186</CNPJ> <IE>149626224113</IE> <IM>741685-65</IM> <cRegTribISSQN>1</cRegTribISSQN> <indRatISSQN>S</indRatISSQN> </emit> <dest> </dest> <det nItem="1"> <prod> <cProd>3025400000006</cProd> <xProd>TESTE</xProd> <NCM>99999999</NCM> <CFOP>5933</CFOP> <uCom>HR</uCom> <qCom>1.0000</qCom> <vUnCom>1.40</vUnCom> <indRegra>A</indRegra> </prod> <imposto> <ICMS> </ICMS> <PIS> <PISSN> <CST>01</CST> </PISSN> </PIS> <COFINS> <COFINSSN> <CST>01</CST> </COFINSSN> </COFINS> </imposto> </det> <total> <vCFeLei12741>0.00</vCFeLei12741> </total> <pgto> <MP> <cMP>01</cMP> <vMP>1.40</vMP> </MP> </pgto> </infCFe> </CFe> Perceba que as tags de ICMS, PIS e COFINS continuam gerando e ISS não foi inclusa. Por isso na validação dá o erro : 20161007105957|SAT-AC|erro|Funcao EnviarDadosVenda [869560]: Erro de validacao do conteudo([1999]Rejeição: Erro não identificado)(Campo: ICMS?) Pergunta, tenho que fazer este XML manualmente, o ACBr não gera o XMl ??? Mais uma, você me informa que o SAT não "vende" serviços, como então irei validar e enviar o XML ??? Tenho que fazer tudo manualmente ?? Uma última, consta no site do fabricante TANCA que o SAT envia e valida o XML, ou estou equivocado ? Muito Obrigado ! Junior

Atualizei sim, até exclui a instalação inteira e refiz tudo. Permanece o erro. Será que é por quê estou instalando no delphi 7 ?? Muito Obrigado !

Juliomar, muito obrigado por responder. Amigo tentei exatamente como você disse e deu o mesmo erro. Segue em anexo o arquivo log completo. Será que se eu excluir a instalação com o apagar_acbr e depois tentar novamente o svn resolve ??? log_Delphi_7.txt

Boa tarde. Atualizei o svn e tentei fazer a instalação dos pacotes ACBR porém esta dando erro conforme log abaixo orland Delphi Version 15.0 Copyright (c) 1983,2002 Borland Software Corporation C:\Program Files (x86)\Borland\Delphi7\Projects\ACBr\Fontes\ACBrDFe\ACBrNFe\ACBrNFe.pas(667) Error: Not enough actual parameters C:\Program Files (x86)\Borland\Delphi7\Projects\ACBr\Fontes\ACBrDFe\ACBrNFe\DANFE\ACBrNFeDANFEClass.pas(214) Fatal: Could not compile used unit 'ACBrNFe' Compilation failure Erro ao compilar o pacote "ACBr_NFe.dpk". Abortando... Ocorreram erros na compilação dos pacotes. O que fiz de errado ? Junior

Bom dia. Estou tentando incluir um serviço no SAT e está retornando erro. Utilizo o SDK da Tanca para os testes. Comandos Delphi : ISSQN.vBC := v_client_VE0200.FieldByName('C_VALOR_UNITARIO_VENDA').AsFloat * v_client_VE0200.FieldByName('C_QTD_PRODUTO_VENDA').AsFloat * v_client_VE0200.FieldByName('C_VALOR_UNITARIO_VENDA').AsFloat; ISSQN.vAliq := v_client_AL0100.FieldByName('C_PERC_ALIQUOTA_ISS').AsFloat; ISSQN.cMunFG := g_num_municipio_servicos; Ao enviar dadosvenda dá erro de validação de conteúdo 6010, extraindo o log, segue: LOG 20161007105840|SAT-SEFAZ|info|Acessando CFeComandos (comandos) 20161007105840|SAT-SEFAZ|info|CFeComandos[id:1]: wssathomolog.fazenda.sp.gov.br:443 20161007105842|SEFAZ-SAT|info|CFeComandos: [120] Não existem comandos da SEFAZ pendentes 20161007105846|SAT|info|Relogio sincronizado com sucesso (NTP: ntp.cais.rnp.br) 20161007105932|AC-SAT|info|Funcao ConsultarSAT [829725] requisitada. 20161007105932|SAT-AC|info|Funcao ConsultarSAT [829725]: SAT em operacao 20161007105945|SAT|info|Relogio sincronizado com sucesso (NTP: ntp.cais.rnp.br) 20161007105949|AC-SAT|info|Funcao ConsultarSAT [956156] requisitada. 20161007105949|SAT-AC|info|Funcao ConsultarSAT [956156]: SAT em operacao 20161007105957|AC-SAT|info|Funcao EnviarDadosVenda [869560] requisitada. 20161007105957|SAT-AC|erro|Funcao EnviarDadosVenda [869560]: Erro de validacao do conteudo([1999]Rejeição: Erro não identificado)(Campo: ICMS?) 20161007110011|AC-SAT|info|Funcao ExtrairLogs [024619] requisitada. Alguém poderia me ajudar me informar o que estou fazendo errado ? Agradeço antecipadamente a ajuda. Junior

Estou com um problema em somente um de meus clientes. O sistema estava funcionando até sexta passada normalmente assinando as notas fiscais normalmente e do nada parou de funcionar. Agora na hora de assinar a nota aparece o erro : "Erro criar chave KeyInfo" e não assina a NF. Revisei tudo, reinstalei certificado e capicom, registrei as dlls novamente e revi a cadeia de certificação. O erro persite. Acessando o portal do e-cac pelo internet explorer na receita federal acessa normalmente. Ambiente: Windows 7 Ultimate 64 bits, certificado digital boa vista Segue em anexo o xml Como consigo resolver o problema ??? 35160721887376000130550010000004591000004590-nfe.xml

Pessoal, estou tentando substituir uma UDF que usava com o firebird 2.1, pois estou migrando para o firebird 2.5. No firebird 2.5 não conseguí de forma alguma fazer esta UDF funcionar, então estou tentando outras formas mas está difícil e nem sei se o que estou tentando fazer existe. O problema é o seguinte: Eu criei a seguinte stored procedure no firebird: SET TERM ^ ; CREATE OR ALTER PROCEDURE F_CODIFONPT_BR ( i_string varchar(500)) returns ( c_string varchar(500) collate pxw_intl850) as begin C_STRING = :I_STRING; suspend; end^ SET TERM ; ^ Pois bem, estou tentando usar da seguinte forma : select PR0100.C_COD_PRODUTO, PR0100.C_DESC_PRODUTO, PR0100.C_MODELO_PRODUTO, PR0100.C_TIPO_CODIGO_PRODUTO, PR0100.C_VALOR_UNITARIO_PRODUTO, PR0100.C_QTD_ESTOQUE, PR0100.C_VALOR_CUSTO_PRODUTO, (PR0100.C_VALOR_UNITARIO_PRODUTO - (PR0100.C_VALOR_UNITARIO_PRODUTO * C_PERC_DESCONTO_A_PRODUTO) / 100) as C_VALOR_UNITARIO_PRODUTO_A, (PR0100.C_VALOR_UNITARIO_PRODUTO - (PR0100.C_VALOR_UNITARIO_PRODUTO * C_PERC_DESCONTO_B_PRODUTO) / 100) as C_VALOR_UNITARIO_PRODUTO_B, (PR0100.C_VALOR_UNITARIO_PRODUTO - (PR0100.C_VALOR_UNITARIO_PRODUTO * C_PERC_DESCONTO_C_PRODUTO) / 100) as C_VALOR_UNITARIO_PRODUTO_C, PR0100.C_USA_ESTOQUE_PRODUTO, PR0100.C_PERC_LUCRO_PRODUTO, PR0100.C_ATIVO_PRODUTO from PR0100 where F_CODIFONPT_BR(C_DESC_PRODUTO) LIKE F_CODIFONPT_BR('%' || 'teste' || '%') and (PR0100.C_USA_ESTOQUE_PRODUTO = 'N' or (PR0100.C_QTD_ESTOQUE > 0)) and C_COD_PRODUTO <> '000000000000000' order by C_DESC_PRODUTO Porém preciso usar assim, pois irei implementar na procedure F_CODIFONPT_BR as trocas de acentos, porém ao executar o sql dá o seguinte erro : An error was found in the application program input parameters for the SQL statement. Dynamic SQL Error. SQL error code = -804. Function unknown. F_CODIFONPT_BR. Como consigo resolver ???

Juliomar muito obrigado !! André, muito obrigado também, mas este e-mail foi o mesmo que recebi, padrão do sefaz, porém não foi aberta contingência, e a nacional encontra-se instável também. Enfim, não temos pra onde correr, mas aí o problema é explicar pro cliente esta situação. Difícil viu !!!

Bom dia. Até ontem estavam emitindo normalmente as Nfe pelo meu sistema e hoje TODOS os clientes estão com a mensagem: Forbidden (403) Consultando pelo navegador no link https://nfe.fazenda.sp.gov.br/ws/ : Server Error 403 - Forbidden: Access is denied. You do not have permission to view this directory or page using the credentials that you supplied. Todos os clientes estão com o certificados válidos. Como resolvo o problema ???