Fernando Rodrigo

Alguma opção na hora de exportação para PDF no FortesReport colocar uma senha para que o usuário so consiga abrir o pdf se digitar essa senha uso ele para criar alguns relatórios e não achei essa opção no componente, alguém ja fez ou teria outra forma de usar com senha ? Ex: Fatura de Cartão estão vindos com senha no pdf e preciso fazer o mesmo em alguns relatórios feito em FortesReport

blz Juliana, mas tem 2 meses que foi enviado para análise, e ate agora não foi implementado no componente, como são poucas alterações e ja foi bastante testado, acho que não teria problema em adicionar essa alteração no componente

@goyazsistemas fez uma implementação no boleto para exportação via PDF e com senha para ter acesso ao boleto. Isso é usado muito em fatura de cartão de crédito, uma maior segurança para os nossos clientes. Fiz uma alteração nela e já fiz vários testes e esta funcionando normal. Segue as unit que foram alteradas Campo que foi adicionado Unit AcbrBoleto FPdfSenha : String; procedure SetPdfSenha(const Value: string); property PdfSenha : string read fPdfSenha write SetPdfSenha; procedure TACBrBoletoFCClass.SetPdfSenha(const Value: string); begin FPdfSenha := Value; end; Unit ACBrBoletoFCFR fiPDF: begin if FModoThread then begin frxPDFExport.ShowDialog := False; frxPDFExport.ShowProgress := False; end else begin frxPDFExport.ShowDialog := MostrarSetup; frxPDFExport.ShowProgress := MostrarProgresso; end; frxPDFExport.FileName := NomeArquivo; frxPDFExport.Author := SoftwareHouse; frxPDFExport.Creator := SoftwareHouse; frxPDFExport.Producer := SoftwareHouse; frxPDFExport.Title := 'Boleto'; frxPDFExport.Subject := frxPDFExport.Title; frxPDFExport.Keywords := frxPDFExport.Title; frxPDFExport.Background := IncorporarBackgroundPdf;//False diminui 70% do tamanho do pdf frxPDFExport.EmbeddedFonts := IncorporarFontesPdf; if PdfSenha <> '' then begin frxPDFExport.UserPassword := PdfSenha; frxPDFExport.ProtectionFlags := [ePrint]; end; frxReport.Export(FdmBoleto.frxPDFExport); if frxPDFExport.FileName <> NomeArquivo then NomeArquivo := frxPDFExport.FileName; end; ACBrBoleto.pas ACBrBoletoFCFR.pas

tambem estou tendo essa necessidade justamente por causa de fraude em boletos alguem sabe se ja implementaram no componente?

caros amigos, quando faço a exportação do boleto para pdf, teria como colocar uma senha no arquivo PDF. Recebo a fatura do cartão dessa forma, sempre que vou abrir o pdf eles pedem a senha para abrir.

vou enviar zeradas, pq ate agora ta uma bagunça terrível, ninguém sabe ao certo o que fazer com isso, ja vi em fóruns que o emitente não tinha a compra da peça e estava dando erro 938 e ninguém sabia o que iria fazer vamos aguardar próximos capítulos

não tenho demo dela, são os fontes que uso hoje para baixar os pedidos, tanto em delphi 2010 quanto no tokyo estou fazendo tambem a parte de sincronização de estoque, mas não esta pronto, somente a importação das vendas

quem tiver interesse entrar em contato comigo via PV, que mando todas as informações necessária.

Vendo fontes feitos em tokyo para auditoria de banco de dados, poderá usar em outros delphi ja que não usa componentes de terceiros Gera os log de alteração, exclusão, cadastro em banco separado ou na sua própria base de dados, vc quem configura. Poderá gerar log de toda sua base de dados ou poderá escolher quais tabelas serão auditadas. Os log's serão gerados em tabelas conde consta os seguintes dados 1- Usuário quem fez o cadastro, alteração ou exclusão 2 - IP da maquina que fez 3 - Data/Hora 4 - Valor alterado 5 - Valor após alteração 6 - Qual coluna foi alterado 7 - Qual tipo de operação (Update, Delete, Insert) 8 - Caminho de onde esta o banco de dados 9 - Protocolo de Rede Qualquer dúvida entrar em contato via PV

bom dia a todos, o projeto de conciliação de cartão será implementado no acbr ?

bom dia a todos, alguem ja conseguiu ou fez o componente de conexão com o mercado livre ?

Problema resolvido, fico muito grato @Daniel Simoes pela ajuda

estou utilizando o ACBrMail para enviar o xml e pdf gerado a nota fiscal eletronica, estranho que o pdf vai em anexo mas o xml da nota entra no corpo do e-mail, mas as chamadas do componente é o mesmo, conforme abaixo ACBrMail1.AddAttachment(var_Path_PDF); ACBrMail1.AddAttachment(var_Path_XML); O mais estranho é que somente um determinado e-mail de recebimento que acontece dessa forma, o restante vai em anexo normal Alguem ja passou por isso ?

Segue em anexo a classe que criei para consulta de CNPJ no site https://www.receitaws.com.br/v1/cnpj Se alguém quiser usar ou implementar mais essa consulta no ACBR, esta toda pronta Segue a chamada da classe Consulta_CNPJ.Consulta(RemoveCaracteres ( EditCNPJ.Text )); RAZAO_SOCIAL.value := Consulta_CNPJ.Nome; ENDERECO.value := Consulta_CNPJ.Logradouro; NUMERO.value := Consulta_CNPJ.Numero; Todos esses campos são retornados Fatividade_principal_descricao : string; Fatividade_principal_code : string; Fdata_situacao : string; Fcomplemento : string; Fnome : string; Fuf : string; Ftelefone : string; Fatividade_secuncaria_descricao: string; Fatividade_secundaria_code : String; Fsituacao : string; Fbairro : string; Flogradouro : string; Fnumero : string; Fcep : string; Fmunicipio : string; Fporte : string; Fabertura : string; Fnatureza : string; Ffantasia : string; Fcapital : string; FEMail : string; FSocios : TStringList; Consulta_CNPJ.pas

estou fazendo alguns testes so que esta retornando da seguinte forma os dados Suporte t�cnico, manuten��o e outros servi�os em tecnologia da informa��o 62.09-1-00 03/11/2005 QD. 90 LT. 05 ARAGUAIA SISTEMAS LTDA GO (62) 2710-779 Estou jogando tudo em um campo memo procedure TForm9.BitBtn2Click(Sender: TObject); var jsonPrincipal, jsonAtividade, aDados : TlkJSONobject; aAtividade : TlkJSONlist; IdHTTP1: TIdHTTP; LHandler: TIdSSLIOHandlerSocketOpenSSL; i : integer; begin Memo1.Lines.Clear; IdHTTP1 := TIdHTTP.Create(nil); try LHandler := TIdSSLIOHandlerSocketOpenSSL.Create(nil); try IdHTTP1.IOHandler := LHandler; IdHTTP1.ReadTimeout := 5000; jsonPrincipal := TlkJSON.ParseText(IdHTTP1.Get('https://www.receitaws.com.br/v1/cnpj/'+Edit1.text)) as TlkJSONobject; aAtividade := jsonPrincipal.Field['atividade_principal'] as TlkJSONlist; for i := 0 to aAtividade.count -1 do begin aDados := aAtividade.Child as TlkJSONobject; Memo1.Lines.Add(VarToStr(aDados.Field['text'].Value)); Memo1.Lines.Add(VarToStr(aDados.Field['code'].Value)); end; Memo1.Lines.Add(jsonPrincipal.getString('data_situacao')); Memo1.Lines.Add(jsonPrincipal.getString('complemento')); Memo1.Lines.Add(jsonPrincipal.getString('nome')); Memo1.Lines.Add(jsonPrincipal.getString('uf')); Memo1.Lines.Add(jsonPrincipal.getString('telefone')); finally LHandler.Free; end; finally IdHTTP1.Free; end;

nesse site tem algumas informações que o site da receita não tem, um exemplo é os dados dos sócios hoje tenho muito problema com a receita, pq tem hora que funciona outra hora não, uma hora eles mudam o captcha dai o componente não funciona mais. então teria que ser em algum lugar mais instável,

Alguem ja usou o site https://www.receitaws.com.br/ para pesquisa de CNPJ. Fiz um teste nele pelo proprio site no linke https://www.receitaws.com.br/v1/cnpj/11111111111 (CNPJ) para pesquisa e fez o retorno de algumas informações que não tem na receita federal. Alguem ja fez uso desses site ?

Estou tendo problema para enviar a GNRE para o estado de Minas Gerais onde o comprador é pessoa Física (CPF), mas o emissão da nota é pessoa jurídica e sempre que envio a Guia esta retornando o erro abaixo c17_inscricaoEstadualEmitente 700 Inscricao Estadual invalida. O que estou fazendo de errado ? <c01_UfFavorecida>MG</c01_UfFavorecida> <c02_receita>100102</c02_receita> <c25_detalhamentoReceita>000012</c25_detalhamentoReceita> <c27_tipoIdentificacaoEmitente>1</c27_tipoIdentificacaoEmitente> Dados do Emitente <c16_razaoSocialEmitente>ELETROPEL</c16_razaoSocialEmitente> <CNPJ>10344403000101</CNPJ> <c17_inscricaoEstadualEmitente>104361921</c17_inscricaoEstadualEmitente> <c18_enderecoEmitente>AV CASTELO BRANCO NR 4887</c18_enderecoEmitente> <c19_municipioEmitente>08707</c19_municipioEmitente> <c20_ufEnderecoEmitente>GO</c20_ufEnderecoEmitente> <c21_cepEmitente>74430320</c21_cepEmitente> <c22_telefoneEmitente>6232953131</c22_telefoneEmitente> Dados do Destinatario <CPF>46553428620</CPF> <c37_razaoSocialDestinatario>MAURO CESAR FERREIRA 8099</c37_razaoSocialDestinatario> <c38_municipioDestinatario>04007</c38_municipioDestinatario> 001-gnre.xml 1907829129-ped-rec.xml 1907829129-pro-rec.xml 20190122144644-env-lot.xml 20190122144644-rec.xml

boa tarde, gostaria de salvar o xml antes de enviar para o webservice pq que possa comparar o xml que eu gerei pelo site e o xml que o acbr esta gerando não estou conseguindo emitir e sempre que tento enviar a guia da erro Sempre ele cai no except try if ACBrGNRE1.Enviar(False) then begin ACBrGNRE1.GuiasRetorno.Clear; ACBrGNRE1.GNREGuia := ACBrGNREGuiaFR1; ACBrGNRE1.GuiasRetorno.LoadFromFile(ACBrGNRE1.Configuracoes.Arquivos.PathArqTXT + ACBrGNRE1.WebServices.Retorno.GNRERetorno.resGuia[0].RepresentacaoNumerica + '-gnre.txt'); ACBrGNREGuiaFR1.FastFile := ExtractFilePath('GNRE_GUIA.fr3'); ACBrGNRE1.GuiasRetorno.Imprimir; ACBrGNRE1.GuiasRetorno.ImprimirPDF; end else ShowMessage(UTF8Encode(ACBrGNRE1.WebServices.Retorno.RetWS)); except // Caso haja um erro ao tentar gravar o registro on E: Exception do begin if (pos('UF favorecida nao gera GNRE para a Receita informada',ACBrGNRE1.WebServices.Retorno.RetWS) > 0) then ShowMessage('UF favorecida nao gera GNRE para a Receita informada') else if (pos('O Campo Extra ''Chave de Acesso da NFe ou do CTe''',ACBrGNRE1.WebServices.Retorno.RetWS) > 0) then ShowMessage('O Campo Extra ''Chave de Acesso da NFe ou do CTe') else if (pos('Deve-se informar ou o Valor Principal ou o Valor Total',ACBrGNRE1.WebServices.Retorno.RetWS) > 0) then ShowMessage('Deve-se informar ou o Valor Principal ou o Valor Total') else if ACBrGNRE1.WebServices.Retorno.RetWS = '' then ShowMessage('Atenção. Erro ao enviar GNRE para o estado de destino. Checar se o estado esta habilitado para tal procedimento') else MessageDlg(ACBrGNRE1.WebServices.Retorno.descricao, mtError, [mbOK], 0); end; end; quando faço pelo site a guia é emitida normal com os dados abaixo UF Favorecida: MG Receita: 100102 - ICMS Consumidor Final Não Contribuinte Outra UF por Operação CPF Emitente: 465.534.286-20 Razão Social Emitente: MAURO CESAR FERREIRA Endereco Emitente: RUA JOSE EUSTAQUIO CARDOSO 50 UF Emitente: MG Município Emitente: 04007 - ARAXA CEP Emitente: 38181-166 Telefone Emitente: Tipo Doc. de Origem: NOTA FISCAL Documento de Origem: 00031036 Convênio: 41/20008 Data de Vencimento: 21/01/2019 Data de Pagamento: 21/01/2019 Valor Principal: R$ 0,90 GNRE_Lote_1907507229.pdf guia.txt Lote_2019_01_21_02_39.txt

problema resolvido estava passando no ListadeBoleto começando com 1 e tem que começar com 0 var_CodigoBarras := ACBrBoleto1.Banco.MontarCodigoBarras(ACBrBoleto1.ListadeBoletos[0]); Var_CodigoBarraBoleto := ACBrBoleto1.Banco.MontarLinhaDigitavel(var_CodigoBarras,ACBrBoleto1.ListadeBoletos[0]);

certo, mas como faço para gerar essa informação ?

após a geração do boleto, como faço para pegar o código de barras e a linha digitável do boleto gerado.

Juliana e qual seria alteração pq se deixar como antes a leitura do 240 ficará incorreta, pq esta com problema

boa tarde pessoal, ainda não subiram as modificações que eu fiz

mais uma alteração no banco sicred, a leitura do cnab 240 esta incorreta segue anexo o arquivo alterado, com varios campos vindo incorreto na importação ACBrBancoSicredi.pas