Painel de líderes

Na pasta do executável, eu tenho o gswin32c.exe e o gsdll32.dll, que pode ser baixado na página ghostScript.com o trecho de código abaixo atribui a senha a um novo pdf, a partir do que foi gerado pelo Fortes. vcomando := 'gswin32c -sDEVICE=pdfwrite -dCompatibilityLevel=1.4 -dBATCH -dNOPROMPT -dNOPAUSE -dQUIET'+ ' -sOwnerPassword=7B51BE9D-3960-4F6C-968E-8ED381DC061C' + // essa senha seria para quem gerou o PDF ( pode ser qualquer outra coisa ) ' -sUserPassword=' + vPartedoCPF + // variável com a senha que vai ser requisitada ao destinatário ' -sOutputFile=' + 'boleto_sem_senha.pdf' + ' ' + 'boleto_com_senha.pdf'; ExecuteAndWait(vcomando,'', SW_HIDE); A função ExecuteAndWait eu usei da biblioteca Jedi, na JvJCLUtils, mas deve haver outras disponíveis também. O interessante é que ocorre tudo de forma silenciosa.

Bom dia @tobexy. segue o arquivo nfse.pas. O arquivo nfse.pas é apenas um exemplo de como preencher o componente ACBrNFSe para o provedor IPM, quais comandos utilizar etc, um guia para com está começando a se familiarizar com as dificuldades deste provedor. Outra coisa, a comunicação com o servidor da IPM é com HTTP POST, então, ao processar o envio, eles já irão responder com a NFS-e gerada com o HTML para impressão. mas no arquivo de exemplo a impressão é feita de outra forma, faço abrir um link para impressão. O xml de retorno é somente isso. <?xml version='1.0' encoding='iso-8859-1'?> <retorno> <mensagem> <codigo>00001 - Sucesso</codigo> </mensagem> <numero_nfse>22</numero_nfse> <serie_nfse>1</serie_nfse> <data_nfse>15/06/2016</data_nfse> <hora_nfse>17:41:38</hora_nfse> <arquivo_gerador_nfse>22_0180450000040119.xml</arquivo_gerador_nfse> <nome_arquivo_gerado_eletron>22_0180450000040119.xml</nome_arquivo_gerado_eletron> <link_nfse>https://www.nfs-e.net/datacenter/include/nfw/nfw_imp_notas.php?codauten=0180450000040119</link_nfse> <cod_verificador_autenticidade>0180450000040119</cod_verificador_autenticidade> <codigo_html>Aqui retorna o HTML para impressão.</codigo_html> </retorno> nfse.pas

A tabela 20.2.A já se encontra também no repositório: https://svn.code.sf.net/p/acbr/code/trunk2/Exemplos/ACBrTCP/ACBrIBPTax/tabela

coloquei para que o ADVPL fizesse uma pausa de 15 segundos antes de fechar a conexão SOCKs, se ver no codigo acima, foi colocado para ele fechar a conexão depois de enviar comando. E antes dos 15 segundos eu fiz uma verificação se houve algum retorno. ficando assim: Private oObj := tSocketClient():New() Private _cEol := Chr(13)+Chr(10)+Chr(46)+Chr(13)+Chr(10) For nX := 1 to 3 nResp := oObj:Connect( nPort,nIp,10 ) // ------------------------------- // Se conectou abandona o FOR // ------------------------------- If(nResp == 0 ) Exit Else conout("--> Tentativa de Conexão ACBr: " + StrZero(nX,3)) Sleep(2000) EndIf Next If( !oObj:IsConnected() ) conout("********* Não foi possível estabelecer conexão com o ACBr. *********") Return(.F.) Else conout("****************** ACBr CONECTADO! ************************") Sleep(2000) cSend := 'NFe.DistribuicaoDFeporUltNSU("52","37247772000132","0")'+_cEol nResp := oObj:Send( cSend ) if( nResp != len( cSend ) ) conout( "--> Erro! Dado não transmitido" ) else conout( "--> Dado Enviado - Retorno: " +StrZero(nResp,5) ) endif Sleep(20000) conout("****************** Fechando o ACBr! ************************") oObj:CloseConnection() EndIf

Deu certinho Juliomar, muito obrigado pelo suporte!

Troque CNPJ por CNPJCPF. @José M. S. Junior Creio que precise corrigir nos modelos na documentação do comando MDFE.ENVIAREVENTO. https://acbr.sourceforge.io/ACBrMonitor/Encerramento.html

Qual o erro que está ocorrendo? lembre-se que o Fast Report e o Fortes Report tem os próprios instaladores, portanto eles não são instalados com o ACBrInstall_trunk2. poderia repassar prints e o log do instalador?

Ok, irei implementar e passarei os fontes

Creio que dá pra começar a fazer as mudanças e testar mas vai precisar esperar pra subir pois é par ao mês dez a produção

Boa tarde, Complementando a resposta do Juliomar, o método para leitura do arquivo INI fora incluída nos componentes ACBrNFe, ACBrCTe entre outros pelo fato de você poder emitir esses modelos de documentos através do ACBrMonitor Plus, aplicação desenvolvida pela equipe ACBr e destinada aos desenvolvedores que trabalham com outras linguagens de programação. O objetivo do Refactoring é melhorar o código do componente que esta um balaio de gato e com isso criar um método para a leitura do arquivo INI, visando a criação do ACBrLibNFSe, uma DLL para ser utilizada pelos desenvolvedores que não trabalham com o Delphi/Lazarus.

https://acbr.sourceforge.io/ACBrLib/ModeloCFeINI.html nessa página, procure por "12741"

Olá pessoal, Estive estudando todo o material sobre ACBrLib SAT e sua aplicação em sistemas desenvolvidos em Java e vi que o Demo em Java é bem diferente do Demo em Delphi e isso me gerou certa dúvida/insegurança. Seguindo os exemplos do Demo do SAT em Java eu estarei adequando meu sistema para realizar todas as operações necessárias em meu sistema comercial ou devo seguir o Demo em Delphi?

Rafael Dias, obrigado pela resposta. Estudei novamente os assuntos tratados nos links que me passou e considerando que preciso adequar meu sistemas para a várias necessidades que o cliente vai precisar, decidi que vou seguir o exemplo do Java mesmo. Creio que seguindo este exemplo vou conseguir fazer todo o processo SAT necessário para que o cliente possa emitir seus cupons, realizar consultas e realizar os envios para SEFAZ. Estou certo? Mais uma vez obrigado pela ajuda.

Entendi. Obrigado. Caso tenho avanço, irei postar aqui.

Infelizmente não estou conseguindo compilar o exemplo. Outra coisa que não estou entendendo é que se for gerado para outro branco (testei com santander), está sendo informado corretamente. Vou revisar aqui o código e depois retorno

Sim estará aqueles dados extras tbm pode sem configurado na acbrlib ou passado dentro do ini do cfe. https://acbr.sourceforge.io/ACBrLib/ConfiguracoesdaBiblioteca17.html https://acbr.sourceforge.io/ACBrLib/ModeloCFeINI.html

Está na forma de preencher o componente. poderia informar como fez isso usando o exemplo do svn.? informe os dados no mesmo e gere o titulo e o pdf exemplificando como fez isso aqui .

Poderia descrever o que fez pra resolver? caso algum colega tenha o mesmo problema?

Consegui fazer funcionar, obrigado pode fechar o topico

Se você usa Fortes... a configuração de Colunas não se aplica, pois ela tem sentido apenas para EscPos

ACBrNFeDANFeRL.MargenDireita := valor; ACBrNFeDANFeRL.MargenEsquerda := valor; ....

Obrigado pela resposta Julio. Sim ja alterei isso, coloquei o QrCode em outra tela, aguardando algo, o problema e saber o que ? Não existe homologação para esse tipo de implementação..

Olá @udenilson, Tente dessa maneira: ACBrTEFD1.TEF.GravaLog('Sua String para o Log');

vou abrir o exemplo do ACBR ver se não está faltando configurar algo...

Obrigado @BigWings, corrigi no manual.

Olá, eu resolvi de outra forma. Usei o ghostscript para "empacotar" o PDF gerado pelo Fortes. Se quiser, eu mando a forma que fiz.

verifiquei e realmente seria a posição 210 á 221 . leiaute-arquivo-de-remessa.xls

Bom dia. O arquivo anexo indica se tratar do 400... Sim, mas verifique se condiz com o manual o que está sendo dito pelo gerente, note que não temos problemas reportados neste sentido. Att.

uPortoSeguroIndy.pas Exemplo de uso com Opendialog procedure TF_Cte.wb_averbarExecute(Sender: TObject); var chave , wdir : string; wn : integer; fSeg: TPortoSeguroIndY; begin wdir := dts_empresa.DataSet.FieldByName('PATH_RAIZ').AsString+'x_dfe\_Cte\'+'20'+copy(edl_chave.Text,3,2)+copy(edl_chave.Text,5,2); od.InitialDir := wdir; edl_averbado.Text:=''; MemoDados.Lines.Clear ; if oD.Execute then begin fSeg := TPortoSeguroIndy.create ; fSeg.UserName := '00000000000000'; // atencão username e Password tem que solicitar junto a Porto Seguro fSeg.Password := '000'; // Esse é o meu acesso wn := pos('-',oD.FileName); if wn>0 then chave := copy(od.FileName,wn-44,44); fSeg.Averbacao := maUpload ; fSeg.UpLoad(oD.FileName) ; MemoDados.Lines.Add('Resultado do Envio') ; MemoDados.Lines.Add('Protocolo => '+fSeg.Protocolo) ; MemoDados.Lines.Add('Chave => '+fSeg.Chave) ; MemoDados.Lines.Add(fSeg.MensagemRetorno) ; fSeg.Averbacao := maConsulta ; fSeg.Chave := chave ; fSeg.Consulta(oD.FileName) ; MemoDados.Lines.Add('Resultado da Consulta') ; MemoDados.Lines.Add('Protocolo => '+Trim(fSeg.Protocolo)) ; MemoDados.Lines.Add('Chave => '+fSeg.Chave) ; MemoDados.Lines.Add(stringreplace(fSeg.MensagemRetorno,';',#13,[rfReplaceAll])) ; if fSeg.Sucesso then Begin ShowMessage(stringreplace(fSeg.MensagemRetorno,';',#13,[rfReplaceAll])) ; edl_averbado.Text:= Trim(fSeg.Protocolo); End; fSeg.Free ; end; pn_card4Click(pn_card4); end;

Prezado Italo , obrigado pelas instruções , esta correto a forma que gerei o pedido de cancelamento, ou ACBR cria os arquivos acima , estou confuso com isto , no exemplo acima gerei manualmente o pedido de cancelamento o arquivo com os dados de cancelamento ......no exemplo ACBr não consigo saber sobre a geração ou como enviar estes arquivos ......tenho mais 10 cidades para fazer funcionar a NFse as duvidas são monstruosas mas estou conseguindo aos poucos , agradeço demais a sua contribuição , Att Paulo Brito

Legal, a mesma resposta da Juliana, eu não achei nada..............mas ja dei fora do monitor ....muito obrigado

Bom dia! Ontem ainda, as notas começaram a aprovar normalmente. Provavelmente, foi problema no provedor mesmo, pode fechar o tópico. Obrigado.

segue a pasta completa com todos os xmls xml.rar

Bom dia Brito, O componente ACBrNFSe como esta hoje, lhe obriga a carregar o XML da NFS-e antes de solicitar o seu cancelamento. Portanto a sequencia de comandos abaixo é o que precisamos para poder cancelar a nota: dtmNFSe.ACBrNFSe.NotasFiscais.Clear; dtmNFSe.ACBrNFSe.NotasFiscais.LoadFromFile(NotaX.xml'); dtmNFSe.ACBrNFSe.CancelarNFSe(sCodigo); Estou trabalhando no Refactoring do componente que vai acabar com essa exigência. Para os provedores que seguem o layout da ABRASF, a priori as informações necessárias para solicitar o cancelamento de uma nota são: CNPJ e Inscrição Municipal do Prestador, Numero da NFS-e e Código de Cancelamento. Mas como tudo não são flores, tem provedor que se faz necessário ainda informar o Motivo do Cancelamento (texto), o Código de Verificação da nota (costa no XML da mesma) e outros existem uma tal de Chave Privada de Acesso. A minha sugestão é que você sempre se utilize do componente para gerar o Pedido de Cancelamento, pois ele sabe o que é necessário para cada provedor.

Ok, irei olhar com eles, muito obrigado.

Verifica que eu mandei uma alteração esses dias atentendo a um banco no fr3 que precisava exibir os dados de endereço. atualize o svn e teste os fr3

Muito obrigado pela ajuda, resolveu meu problema.

Boa tarde. Estamos verificando e logo retornaremos aqui. Att.

Você poderia usar a versão Fast Report.. que permite edições no arquivo .FR3

Boa tarde Juliomar, demorei para responder hein. Devido a quarentena estamos trabalhando com redução jornada de trabalho e com isso acaba acumulando chamados, o que complicou algumas coisas. Porém eu achei sim uma questão que precisei alterar nos fontes. arquivo: ACBrNFSeWebServices, na linha 4810 estava if FProvedor = proCTA then ChaveAcessoPrefeitura := FPConfiguracoesNFSe.Geral.Emitente.WebChaveAcesso else ChaveAcessoPrefeitura := FNotasFiscais.Items[0].NFSe.Prestador.ChaveAcesso; a minha alteração foi if FProvedor = proCTA then ChaveAcessoPrefeitura := FPConfiguracoesNFSe.Geral.Emitente.WebChaveAcesso else if FProvedor = proSigep then begin ChaveAcessoPrefeitura := FPConfiguracoesNFSe.Geral.Emitente.WebChaveAcesso; CodVerificacaoRPS := FNotasFiscais.Items[0].NFSe.CodigoVerificacao; end else ChaveAcessoPrefeitura := FNotasFiscais.Items[0].NFSe.Prestador.ChaveAcesso; Com essa alteração consegui resolver o problema da chave do contribuinte, porém apresentou outro erro só que na comparação do XML gerado com o XLM de modelo enviado pelo provedor eu não consegui achar a diferença e não foi possível efetuar o cancelamento. O erro apresentado é: Informe um motivo para o cancelamento. O motivo foi informado, só que a quantidade de caracteres informado como motivo é menor do que está no exemplo, alterei o motivo para ficar igual ao XML do exemplo, porém o erro Informe um motivo para o cancelamento, persiste. Já estramos em contato com o provedor repassando o XML gerado. Vou aguardar o retorno deles e toda e qualquer alteração minha irei repassando aqui e no final repassei os arquivos alterados. Por enquanto muito obrigado!

Um SAT não pode ter o seu ambiente modificado... Se ele foi fabricado para se conectar em Produção, ele nunca poderá ser usado em homologação, e vice-versa... Experimente usar o Emulador SAT de SP

Bom dia a todos, Encontra-se disponível no repositório a implementação do provedor SigISS. Favor atualizaram os fontes e façam os testes.

Boa tarde pessoal, Para quem atende o estado do Ceará, sabe que o processo para autorização de operação da softwarehouse com o MFe não é simples e pode tomar um certo tempo, mas no dia 17/07/2020, a SEFAZ publicou uma noticia informando que agora o processo se resume a geração e envio de um Termo de Responsabilidade dentro da área restrita da SEFAZ. Fonte: SEFAZ-CE

Isso é explicado no artigo indicado... é uma característica de como o "Double" foi implementado no Delphi...

Olá a todos! Estou começando a usar somente o Lazarus para criar novos projetos. Estou começando com projetos mais simples para ir percebendo as suas vantagens e limitações. Uma coisa que vejo é que existem muitos componentes para Lazarus e ao mesmo tempo componentes de nomes e lugares diferentes que podem resolver o mesmo problema. Gostaria, se possível, que os usuários do Lazarus nos passassem sua experiência em quais componentes utilizam no dia a dia e que estão agradando bastante. Exemplos de componentes ( mas não somente estes ): - Qual componente vocês utilizam para banco de dados (Nativo, Zeos, etc -- para conectar no Firebird e no MySQL por exemplo) - Para gerar relatórios (LazReport, Fortes, etc) - Para rede, para consumir JSON, XML etc (Indy etc) - E outros componentes que vocês utilizam e gostam. Se puderem ajudar vai facilitar muito para quem pretende migrar de Delphi para o Lazarus.