Fernando Rodrigo

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

uso dessa forma e não esta dando erro, funciona normal, ja checou se não tem alguma atualização para fazer ?

pegar o codigo de barras var_CodigoBarras.text := .ACBrBoleto1.Banco.MontarCodigoBarras(ACBrBoleto1.ListadeBoletos[x]); LINHA_DIGITAVEL.Text := ACBrBoleto1.Banco.MontarLinhaDigitavel(var_CodigoBarras,ACBrBoleto1.ListadeBoletos[X]); onde x e o numero do boleto, exemplo se tiver 5 boletos o x será o numero sequencial dos boletos