Fernando Rodrigo

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

backup no 2.5 e restaure no 3.0 somente pq tem que atualizar o ods para o novo

foi feito o ajuste no cnab 240 do sicred. Ele estava gerando o campo SeuNumero errado, no local estava enviando o NumeroDocumento conforme abaixo, Foi so substituir os campos segmento P PadRight(NumeroDocumento, 25) + // 196 a 220 - Identificação do título na empresa PadRight(SeuNumero,25) + // 196 a 220 - Identificação do título na empresa ACBrBancoSicredi.pas

Alguem ja fez a integração no site de olho no imposto usando a API do proprio site https://deolhonoimposto.ibpt.org.br/Site/API#!//Produtos_Get

quando vc usa esse comando grant RDB$ADMIN TO SYSDBA , USUARIO CRIADO vc esta passando as permissões do SYSDBA para seu usuario, então seu usuario vai ter permissão normal em todas as tabelas

faço dessa forma e nunca tive problema, tanto para usuarios novos quanto para usuarios ja existentes

grant RDB$ADMIN TO SYSDBA , USUARIO CRIADO

tudo com problema, ate no site estava com problema