Fernando Rodrigo
-
Total de ítens
487 -
Registro em
-
Última visita
-
Days Won
3
Tipo de Conteúdo
Blocks
Notes ACBrLibNFe
Fóruns
Downloads
Calendário
Posts postados por Fernando Rodrigo
-
-
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
-
3
-
-
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;
-
1
-
1
-
-
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 ?
-
1
-
-
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>
-
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 -
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]);
-
1
-
-
11 minutos atrás, Juliana Tamizou disse:
Boa tarde.
Observe que tanto a função MontarLinhaDigitavel() quanto MontarCodigoBarras() são publicas.
Att.
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
-
1
-
-
backup no 2.5 e restaure no 3.0 somente pq tem que atualizar o ods para o novo
-
2
-
-
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
-
1
-
-
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
-
3
-
-
tudo com problema, ate no site estava com problema
-
5 minutos atrás, Rodrigo Guelf disse:
Fernando, estou fazendo assim:
vCodigoBarra := FACBrBoleto.Banco.MontarCodigoBarras(FACBrBoleto.ListadeBoletos[0]);
CodigoBarraBoleto := FACBrBoleto.Banco.MontarLinhaDigitavel(vCodigoBarra, FACBrBoleto.ListadeBoletos[0]);
E fica dando esse erro:
E2003 Undeclared identifier: ' '
Certeza que é assim mesmo?uso dessa forma e não esta dando erro, funciona normal,
ja checou se não tem alguma atualização para fazer ?
-
1
-
-
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
Conciliação de cartão de crédito e débito
em Dúvidas não relacionadas ao ACBr
Postado
bom dia a todos, o projeto de conciliação de cartão será implementado no acbr ?