Edevair Viesa Junior

Referente a esta tributação, eu creio que para Outras Despesas não tenha CSOSN e ele inclui no valor da Nota. Simples nacional calculo o valor do imposto sobre o faturamento se não estou enganado, independente do CSOSN ou CFOP, mas independente disso, se eu informar o campo OutrasDespesas com o valor da Nota de Serviços pra poder acertar a fatura, teremos problemas contabeis, pois a soma não vai bater e ficar duplicado os valores na escrituração referente aos serviços... Qual seria a diferença, já que o cartório só exige a DANFE para o protesto ??

No 1 cartorio de Curitiba por exemplo, só é aceita a entrada de títulos a protesto mediante NFe com valores identicos aos informados na NFe referente ao titulo, pois existem duas modalidades diferentes de títulos uma mercantil e outra de serviços, se eu gerar um boleto mercantil eles só aceitam os títulos que forem desta modalidade com NFe e os valores dos títulos devem ser exatamente os mesmos constantes nos campos de duplicatas e tb os vencimentos. Não mesmo... Fiz vários testes aqui e continua a rejeição !!!

Daniel, se eu colocar o valor original da fatura como 2.250,00 a rejeição é que o valor total da NF é diferente do valor original da fatura. Se eu coloco o valor liquido rejeição, o valor líquido é maior que o valor original e não assina.. O problema desta operação é que se no caso precisar enviar ao cartório os títulos, mesmo que constem os números nos boletos, se o valor não bate com os da fatura o cartório rejeita a entrada, e isto já aconteceu anteriormente... Pagar duas vezes o imposto ??? Não dá né.. Se eu gerei a NFSe com ISS pq tenho que tributar novamente na NFe ?? A empresa é Simples Nacional e o imposto é calculado em cima do valor total de faturamento... O problema todo é a SEFAZ fazer esta consistência na fatura, que nada tem a ver com eles... Na versão 3.10 isso não acontecia e todo mundo era feliz.. Ao meu ver eles não chegaram a idéia de verificar a situação com serviços..

Ok Juliana, é exatamente o que eu faço,porém por questões de segurança, é necessário constar os boletos na NFe no caso de envio ao cartório. Existem alguns cartórios que solicitam a NF para tal, na NFSe não tem campo próprio para isso e na NFe antes, na versão 3.10 assinava normalmente, porém agora na versão 4.0 é feita a consistência (ao meu ver de forma erronia, já que não é mais possível fazer uma NFe com serviços) e pelo jeito sem solução, o negócio mesmo é fazer gambiarra.... Não vejo luz no fim deste túnel !!!! Sempre o governo prejudicando o contribuinte.... Não entendi a lógica pra tal operação, e se eu quiser cobrar acréscimo na NF ??? Piada...

Pessoal, estou com o seguinte problema. Nosso sistema emite NFe e NFSe também, porém os produtos e serviços são lançados numa venda e são gerados os boletos juntos referente as duas coisas. Numa venda tenho por exemplo : 1 - Paralama Dianteiro Gol - R$ 1.115,00 1 - Parachoque envolvente Dianteiro Gol - R$ 735,00 1 - Mão de Obra de funilaria e Pintura - R$ 400,00 Valor Total da Venda R$ 2.250,00 Aí gero 10 boletos de R$ 250,00 e ao emitir a NFe o valor da mão de obra não pode constar, registrando somente os produtos, no caso R$ 1.850,00 Aí se eu coloco o valor original R$ 1.850,00 para ser igual ao valor da NFe e o valor líquido R$ 2.250,00 dá rejeição que o valor original - desconto é maior que o valor líquido. Como eu resolvo esta situação, já que não dá pra ficar gerando boletos somente para venda ou serviços, imagina o aumento no custo, já que pagamos R$ 2,65 por boleto e emitimos uns 1.000 boletos por dia. Iria dobrar e realmente ficar impossível de usar o sistema. tentei diversas coisas, mas sempre dá alguma rejeição, alguém conseguiu superar esta situação ou tem alguma idéia de como posso fazer ??

Pessoal resolvi em TODOS os clientes da seguinte forma : Primeiro verifique o IE instalado e se for menor que a versão 11 atualizar Abrir o Windows Update e Verificar se tem as atualizações KB2992611 e KB3140245 instaladas. Se não tiver, clicar no botão "Verificar se há atualizações" Após procurar as atualizações, clique no link atualizações importantes e desmarque todas as opções, deixando marcada somente a KB2992611, depois clique em ok. Clique em instalar atualizações. O windows vai pedir pra reiniciar, clique em reiniciar. Após a reinicialização, abrir o windows update novamente e clique no botão novamente "Verificar se há atualizações" Após procurar as atualizações, clique em atualizações opcionais e marque a atualização KB3140245, clique em ok, clique no link atualizações importantes e desmarque todas as opções e clique em ok Clique em instalar atualizações. O windows vai pedir pra reiniciar, clique em reiniciar. Após a reinicialização abra o navegador e faça o download da instalação .Net Framework 4.6.2, faça a instalação. reinicie o computador e faça o teste de conexão no sistema.

Já alterei e não funciona !!!!

Hoje parou também Produção.. Vários clientes.. Todos atualizados Windows 7 SP 1 com todas as atualizações de segurança... Como resolvo o erro ??

Então, é exatamente este o problema. Já perdí 1 cliente por conta disso.

Exatamente por isso está tão difícil.. rssss Mas como em todos os casos, quando se trata de governo, sempre nós que pagamos o pato. Se o arquivo está no servidor, e ficará lá pra sempre, se tenho um certificado digital válido, por quê a responsabilidade de guardar os arquivos é do contribuinte ?? Um absurdo... Mesmo assim sigo tentando.. Se mais alguém puder ter alguma idéia.. segundo entendi o @guerreiro conseguiu, de acordo com o último tópico respondido, seria possível compartilhar a solução ??

Certíssimo, mas em momento algum eu disse que não usaria o certificado... Minha pergunta foi como gerar a criptografia para usar no param... Sobre o certificado ele será solicitado de qualquer forma no momento do download, mas a dificuldade está em criptografar a chave e enviar em param

Acho que quem não entendeu foi você... Através do sitio danfeonline.com.br é possível fazer o DOWNLOAD do arquivo .xml da NFe desde que tenha um certificado digital do emitente. Faz um teste lá pra vc ver.. A forma de fazer o download é assim, ele envia via link como esse abaixo : https://nfe.fazenda.sp.gov.br/ConsultaNFe/xml/DownloadXML.aspx?param=V1ddcQJaXVkBWVRsXVRXVVFyAEReXABQU2pYWV5WVHQAR15cAFFUaVxcXlZVdABHX1wdU1F3XVtBVFV1CFdfXgpSVWJdWg== e faz o download do arquivo .xml que consta na sefaz, como se estivesse usando site da própria sefaz, não tem nada de gerar a danfe de acordo com html é o download do arquivo .xml assinado... O que preciso descobrir é como a partir da chave de acesso, criptografar os dados contidos em param assim : https://nfe.fazenda.sp.gov.br/ConsultaNFe/xml/DownloadXML.aspx?param="Como montar estes dados a partir da chave pra fazer o download" Sobre o link, seria bem simples de resolver usando uma tabela de links de cada sefaz de cada UF e verificar qual a UF do cliente e usar o link do estado, isso não é o problema, o problema é descobrir como fazer a encriptação da chave de acesso para gerar o param.... Entendeu ???

Não é verdade, é possível fazer o download do arquivo .xml do sefaz...

Reabrindo o tópico galera !!! Alguém conseguiu fazer o download do xml usando o link ?? Como monto param ?? Se o site https://www.danfeonline.com.br/ faz, com certeza é possível fazermos tb. No caso de perder os arquivos, mesmo com back up na nuvem isso pode ocorrer, é um transtorno fazer o download pelo site.. Muito Obrigado !

@José M. S. Junior obrigado por responder.. Em ambos os casos o certificado já estava instalado e funcionando com a versão 3.10 da NFe com o componente ACBr. Foram instalados com permissão de administrador sim. A solicitação do PIN no Windows 10 passou a acorrer após a atualização dos fontes para o uso do layout 4.0 da NFe.

Pessoal, eu uso o ACBrNFehá tempos e é a primeira vez que isso acontece. Em dois clientes passou a acontecer isso após eu atualizar o sistema com a NFe 4.0, porém especificamente percebí que nos dois casos usam o Windows 10, portanto quase certeza absoluta que o problema é no SO. Eu salvo a senha no BD e quando abro o sistema configuro a senha no componente. porém mesmo com a senha sendo informada no componente abre a tela de pin, porém como disse nos clientes que usam Windows 7 isso não acontece, somente no Windows 10. Existe alguma configuração adicional que deve ser feita no caso de usar o Windows 10 ?? Uso conexão WinCrypt Geral.SSLLib := libWinCrypt; Geral.SSLCryptLib := CryWinCrypt; Geral.SSLHttpLib := httpWinHttp; Geral.SSLXmlSignLib := xsLibXML2;

Bom dia @Italo Jurisato Junior era exatamente isso. Tudo liberado e funcionando. Muito Obrigado mais uma vez ! Abs Ao @BigWings tb muito obrigado pela ajuda !!!

Bom dia @Italo Jurisato Junior muito obrigado pelo retorno, eu realmente havia imaginado isso mesmo. Vou entrar em contato com o provedor GINFES para ver o procedimento. Assim que me responderem posto os resultados. Muito Obrigado !

@BigWings resolví configurando o TLS corretamente. Agora a mensagem é outra : Será que tem que fazer alguma solicitação / homologação junto ao provedor ?? Só pra cosntar estou usando nossa prórpia empresa como teste de envio e emitimos NFSe via site do ginfes normalmente ! Seguem em anexo o PDF e o XML do RPS gerados !!! No xml pude verificar na tag prestador -> cnpj que o mesmo está preenchido corretamente, mas no PDF está tudo 0 (zero) Será que estou configurando o xml errado ?? 3518040893460300017256000000000000009-rps.xml 3518040893460300017256000000000000009-nfse.pdf

Mudei para Capicom e agora retorna o seguinte erro : Estou configurando assim : if l_client.FieldByName('C_TIPO_CONEXAO').AsString = 'SSL' then begin SSLLib := libOpenSSL; SSLCryptLib := cryOpenSSL; SSLHttpLib := httpOpenSSL; SSLXmlSignLib := xsXmlSec; end else if l_client.FieldByName('C_TIPO_CONEXAO').AsString = 'WinCript' then begin SSLLib := libWinCrypt; SSLCryptLib := CryWinCrypt; SSLHttpLib := httpWinHttp; SSLXmlSignLib := xsLibXML2; end else if l_client.FieldByName('C_TIPO_CONEXAO').AsString = 'Capicom Delphi SOAP' then begin SSLLib := libCapicomDelphiSoap; SSLCryptLib := cryCapicom; SSLHttpLib := httpWinINet; SSLXmlSignLib := xsMsXmlCapicom; end else begin SSLLib := libCapicom; SSLCryptLib := cryCapicom; SSLHttpLib := httpWinINet; SSLXmlSignLib := xsMsXmlCapicom; end;

Rsss. Eu acabei de fazer isso e vc me respondeu. Segue a tela de erro : Estou configurando o componente para usar wincrypt

Muito Obrigado por responder... Show. Porém como trato os erros se não tenho nenhum retorno no método ?? No programa exemplo não há nenhuma tratativa de um retorno com erro. Tem alguma propriedade que preciso setar para obter tais informações ??

@Italo Jurisato Junior muito obrigado pela resposta, porém mais do mesmo. Já ví o vídeo uma centena de vezes e todas as rotinas que vc descreveu estão sendo feitas rigorosamente conforme você postou. De acordo com minha resposta : O problema não está na forma em como usar o componente e sim que ele não retorna NADA após o método enviar, como vou consultar o lote se não tenho NENHUMA informação ?????? Não tenho número de protocolo e mesmo com a propriedade ConsultarLOteAposEnvio = True o componente no método Enviar retorna False e não faz nada !!! Não estou vendo caminhos para conseguir resolver o problema... Este retorno como False não deveria gerar algum log ou dar alguma mensagem do motivo de retornar False no método enviar ???

@Italo Jurisato Junior depois de muito teste ví onde está o erro. É que estava tentando pegar a informação do componente da NFSe com o número da nota fiscal e o mesmo está em branco, pois não houve retorno do método enviar. Percebi debugando que o método sempre retorna como resultado False e por isso não tenho as informações do número de nota fiscal, já que o mesmo não foi validado. Pergunta, pq o método enviar me retorna em branco e como devo tratar este tipo de retorno ? Não consegui achar esta informação no exemplo do ACBrNFSe !!! Segue a configuração do componente, talvez esteja faltando algo : if Result then begin v_nome_arquivo := l_client.FieldByName('C_CAMINHO_ARQ_INI_NFSE').AsString + '\Cidades.ini'; if not FileExists(v_nome_arquivo) then begin Result := False; MessageDlg('Arquivo de Parâmetro não encontrado: ' + v_nome_arquivo, mtError, [mbOk], 0); end else begin v_memo_ini := TMemIniFile.Create(v_nome_arquivo); l_provedor := v_memo_ini.ReadString(IntToStr(g_num_municipio_servicos), 'Provedor', ''); v_memo_ini.Free; end; end; if Result then begin try with l_acbr.Configuracoes do begin with Certificados do begin NumeroSerie := l_client.FieldByname('C_NUMERO_SERIE_CERT_DIGITAL').AsString; if not VerificarValidade then begin MessageDlg('Certificado Digital Vencido.'+#13#10+#13#10+ 'Impossível CONTINUAR !', mtError, [mbOk], 0); Result := False; end; if Trim(l_client.FieldByName('C_SENHA_CERT_DIGITAL').AsString) <> '' then begin Senha := F_Uncript( l_client.FieldByName('C_SENHA_CERT_DIGITAL').AsString); end; end; if Result then begin with Geral do begin if l_client.FieldByName('C_TIPO_CONEXAO').AsString = 'SSL' then begin SSLLib := libOpenSSL; end else if l_client.FieldByName('C_TIPO_CONEXAO').AsString = 'WynCript' then begin SSLLib := libWinCrypt; end else if l_client.FieldByName('C_TIPO_CONEXAO').AsString = 'Capicom Delphi SOAP' then begin SSLLib := libCapicomDelphiSoap; end else begin SSLLib := libCapicom; end; with Emitente do begin CNPJ := g_cnpj_empresa; InscMun := g_inscr_municipal; RazSocial := g_nome_nf_empresa; WebUser := l_client.FieldByname('C_USUARIO_WS_NFSE').AsString; WebSenha := l_client.FieldByname('C_SENHA_WS_NFSE').AsString; WebFraseSecr := ''; end; PathIniCidades := l_client.FieldByname('C_CAMINHO_ARQ_INI_NFSE').AsString; PathIniProvedor := l_client.FieldByname('C_CAMINHO_ARQ_INI_NFSE').AsString; UserWeb := l_client.FieldByname('C_USUARIO_WS_NFSE').AsString; SenhaWeb := l_client.FieldByname('C_SENHA_WS_NFSE').AsString; CodigoMunicipio := l_client.FieldByname('C_NUM_MUN_NF').AsInteger; FormaEmissao := F_Forma_Emissao(l_tipo_emissao); Salvar := True; ConsultaLoteAposEnvio := True; SetConfigMunicipio; end; with Arquivos do begin PathSalvar := l_client.FieldByName('C_CAMINHO_SALVAR_E_NFSE').AsString; PathSchemas := l_client.FieldByName('C_CAMINHO_SCHEMAS_NFSE').AsString; PathGer := l_client.FieldByName('C_CAMINHO_LOGS_NFSE').AsString; AdicionarLiteral := True; EmissaoPathNFSe := True; SepararPorMes := False; SepararPorCNPJ := False; NomeLongoNFSe := True; end; with WebServices do begin UF := g_uf_origem_empresa; Ambiente := F_Ambiente_Emissao(l_client.FieldByName('C_AMBIENTE_NFSE').AsInteger); Visualizar := True; Salvar := True; if Trim(l_client.FieldByName('C_SENHA_CERT_DIGITAL').AsString) <> '' then begin ProxyPass := F_Uncript( l_client.FieldByName('C_SENHA_CERT_DIGITAL').AsString); end; end; end; end; if Result then begin RLPrinter.PrinterName := F_Nome_Impressora(g_cod_impressora_nfe); if not DirectoryExists(l_client.FieldByName('C_CAMINHO_SCHEMAS_NFSE').AsString) then begin CreateDir(l_client.FieldByName('C_CAMINHO_SCHEMAS_NFSE').AsString); end; if not DirectoryExists(l_client.FieldByName('C_CAMINHO_SALVAR_E_NFSE').AsString) then begin CreateDir(l_client.FieldByName('C_CAMINHO_SALVAR_E_NFSE').AsString); end; if not DirectoryExists(l_client.FieldByName('C_CAMINHO_SALVAR_PDF_NFSE').AsString) then begin CreateDir(l_client.FieldByName('C_CAMINHO_SALVAR_PDF_NFSE').AsString); end; l_acbr_danfe.PathPDF := l_client.FieldByName('C_CAMINHO_SALVAR_PDF_NFSE').AsString; v_sql := 'select C_COD_EMPRESA, C_LOGO_EMPRESA '+ 'from EM0100 '+ 'where C_COD_EMPRESA = '''+g_cod_empresa+''''; F_Query(MD.QGERAL, MD.cdsGeral, v_sql, 'O'); v_imagem := TImage.Create(g_component); v_stream := MD.cdsGeral.CreateBlobStream(MD.cdsGeral.FieldByName('C_LOGO_EMPRESA'), bmRead); v_imagem.Picture.Bitmap.LoadFromStream(v_stream); v_imagem.Picture.SaveToFile(l_client.FieldByName('C_CAMINHO_SALVAR_E_NFSE').AsString+'\Logo.bmp'); v_stream.Free; v_imagem.Free; with l_acbr.DANFSE do begin //Logo := l_client.FieldByName('C_CAMINHO_SALVAR_E_NFSE').AsString+'\Logo.bmp'; PrestLogo := l_client.FieldByName('C_CAMINHO_SALVAR_E_NFSE').AsString+'\Logo.bmp'; TipoDANFSE := tpPadrao; end; end; except on E:Exception do begin MessageDlg('Erro ao CARREGAR as CONFIGURAÇÕES do CERTIFICADO DIGITAL. '+#13#10+#13#10+ 'Erro: '+E.Message, mterror, [mbOk], 0); Result := False; end; end; end;

Bom dia @Italo Jurisato Junior Muito obrigado por responder !! Com o programa de exemplo funciona 100%, este é um teste implementando no meu código. Qual seria a propriedade para eu verificar se está consultando o lote após o envio ?? Neste trecho do código dá o erro :