Dfox

boa noite deu certo aqui faltava um assinar Cte.Conhecimentos.Assinar; podem fechar obrigado

boa noite, ja viram esse erro isso ao tentar validar xml cte

boa noite resolvido with seg.Add do begin respSeg:=rsEmitente; CNPJCPF := ZQryMFDe.FieldByName('RESP_SEGURO_CPF').AsString; xSeg := ZQryMFDe.FieldByName('SEGURADORA_NOME').AsString; CNPJ := ZQryMFDe.FieldByName('SEGURADORA_CNPJ').AsString; nApol := ZQryMFDe.FieldByName('APOLICE_NUMERO').AsString; with aver.Add do begin nAver := ''; end; end;

Boa tarde senhores, pessoal estou com dificuldade de como preencher a tag seg de seguradora do componente ACBrMDFe1 alguém pode me ajudar pelo amor do que vocês mais ama rss

tenta assim qrrelorcamento.params.ParamByName('datai').asdate := edtinicio.date; qrrelorcamento.params.ParamByName('dataf').asdate := edtfinal.date;

Boa Tarde, as Units já foi analisadas? alguém mais mais testou?

Boa tarde, segue em anexo a unit com nova alteração na parte de ler retorno240 ACBrBancoCredisis.pas

Obrigado, segue em anexo a unit com nova alteração no Código de protesto: Protestar em XX dias corridos ACBrBancoCredisis.pas

Boa Noite a todos, conseguimos homologar junto ao banco o layout CNAB 240 agora só falta o 400 segue os fontes para testes 097.bmp , ACBrBancoCredisis.pas , ACBrBoleto.pas e exemplos do banco CredSIS para testar basta procurar por credisis na unit teste ACBrBoleto.pas e implementar a unit atual att Dfox. ACBrBancoCredisis.rar parte da remessa LAYOUT CNAB 240 - REMESSA_RETORNO.rar

Boa Noite, Sim já estamos gerando boleto e remessa CNAB 240 ate já enviamos a remessa pelo site da Credssis, assim que confirmarmos a homologação postarei as units aqui para testes.

Boa tarde, tenho uma DLL que eu fiz, ele baixa o xml direto da Sefaz caso tenha interesse podemos negociar o fonte dela Skype: [email protected]

mudaram para modo seguro agora antes http://cpf.receita.fazenda.gov.br/situacao/defaultSonoro.asp http://cpf.receita.fazenda.gov.br/situacao/ConsultaSituacao.asp atual https://cpf.receita.fazenda.gov.br/situacao/defaultSonoro.asp https://cpf.receita.fazenda.gov.br/situacao/ConsultaSituacao.asp é só alterar os links da unit.

Consegui usar a Unit synacode segue a unit alterada att. ACBrConsultaCPF.pas

Encontrei uma solução mais simples usando a unit IdCoderMIME só não sei se é compativel com Lazarus e Delphi 7 segue a unit alterada ACBrConsultaCPF.pas

exatamente isso, já adaptei também para esse outro link https://www.receita.fazenda.gov.br/Aplicacoes/SSL/ATCTA/CPF/ConsultaSituacao/ConsultaPublicaSonoro.asp mais esse link anida esta instável!

Boa tarde a todos, consegui a consulta do cpf segue as unit para teste uPrincipal.pas ACBrConsultaCPF.pas

Sim já consegui recuperar o Captcha mais estou conseguindo obter os dados

Verdade rsrs tem esses dois links reCaptcha http://cpf.receita.fazenda.gov.br/situacao/default.asp Captcha modo antigo http://cpf.receita.fazenda.gov.br/situacao/defaultSonoro.asp mais eu consegui consultar por esse modo antigo parece que esta bugado.

favor desconsiderar o tópico vi que esse problema já tinha resolvido aqui https://www.projetoacbr.com.br/forum/topic/37608-sicoob-arquivo-remessa-cnab-240-atualizado-julho2017/ grato a todos.

novos links de consultas de cpf reCapatcha http://cpf.receita.fazenda.gov.br/situacao/default.asp Capatcha antigo http://cpf.receita.fazenda.gov.br/situacao/defaultSonoro.asp

Boa tarde a todos, ao implementar a rotina de retorno do banco sicoob me deparei com o seguinte erro Agencia do arquivo 00032411 inválida, config 0000000324116 entao seguindo o layout do banco alterei a seguinte parte na linha 437 rCedente := trim(Copy(ARetorno[0],73,30)); rAgencia := trim(Copy(ARetorno[0],53,5)); rConta := trim(Copy(ARetorno[0],63,08)); rDigitoConta := Copy(ARetorno[0],71,1); para rCedente := trim(Copy(ARetorno[0],73,30)); rAgencia := trim(Copy(ARetorno[0],53,5)); rConta := trim(Copy(ARetorno[0],59,12)); rDigitoConta := Copy(ARetorno[0],71,1); ai deu certo! seguindo o seguinte manual em anexo aguem passou por isso, poderiam ver se esta certo? Obrigado... Layout Sistema de Terceiro.xls

eles colocaram o link do modo antigo também mais ta fora do ar https://www.receita.fazenda.gov.br/Aplicacoes/SSL/ATCTA/CPF/ConsultaSituacao/ConsultaPublicaSonoro.asp

Parece que o negocio agora é manipular o reCaptcha o governo como sempre nos ajudando... https://www.receita.fazenda.gov.br/Aplicacoes/SSL/ATCTA/CPF/ConsultaSituacao/ConsultaPublica.asp

Bom dia a todos, peguei os arquivos de homologação com o banco, já comecei os testes quem tiver interesse em ajudar segue os arquivos de testes, 097.bmp , ACBrBancoCredisis.pas , ACBrBoleto.pas e exemplos do banco CredSIS estou tentando através da unit do banco do brasil att Dfox. CNAB 240.rar parte da remessa LAYOUT CNAB 240 - REMESSA_RETORNO.rar

Bom dia, estou muito ocupado ultimamente, mais vou deixar minha contribuição! veja essa unit UConsultaCnpj.pas é só adaptar ela unit UConsultaCnpj; interface uses Classes, SysUtils, IdHTTP, XMLDoc; type TDCnpj = packed record lCnpj: String; razao_social: String; fantasia: String; atividade_01: String; nat_jur: String; logradouro: String; numero: String; municipio: String; bairro: String; compl: String; uf: String; sit_cad: String; data_abertura: String; cep: String; qtd_estabelecimentos: String; end; TConsultaCnpj = class(TComponent) private FHttp: TIdHTTP; FXml: TXMLDocument; public constructor Create(AOwner: TComponent); destructor Destroy; override; function Search(ACnpj: String): TDCnpj; end; implementation const WS_URL: String = 'http://www.infoplex.com.br/api/v1/perfil/%s.xml'; {TConsultaCnpj} constructor TConsultaCnpj.Create(AOwner: TComponent); begin inherited Create(AOwner); Self.FHttp := TIdHTTP.Create(Self); Self.FXml := TXMLDocument.Create(Self); Self.FXml.Active := True; end; destructor TConsultaCnpj.Destroy; begin Self.FHttp.Free; Self.FXml.Free; inherited; end; function TConsultaCnpj.Search(ACnpj: String): TDCnpj; var PostResult, ErrMsg: String; {XML: TXMLDocument;} begin PostResult := Self.FHttp.Get(Format(WS_URL, [ACnpj])); with Self.FXml do begin LoadFromXML(PostResult); if DocumentElement.ChildValues['sit_cad'] = 'INEXISTENTE' then begin ErrMsg := DocumentElement.ChildValues['sit_cad']; if ErrMsg = '' then ErrMsg := 'CNPJ não encontrado.'; raise Exception.Create(ErrMsg); end else begin Result.lCnpj := DocumentElement.ChildValues['cnpj']; Result.razao_social := DocumentElement.ChildValues['razao_social']; Result.fantasia := DocumentElement.ChildValues['fantasia']; Result.atividade_01 := DocumentElement.ChildValues['atividade_01']; Result.nat_jur := DocumentElement.ChildValues['nat_jur']; Result.logradouro := DocumentElement.ChildValues['logradouro']; Result.numero := DocumentElement.ChildValues['numero']; Result.municipio := DocumentElement.ChildValues['municipio']; Result.bairro := DocumentElement.ChildValues['bairro']; Result.compl := DocumentElement.ChildValues['compl']; Result.uf := DocumentElement.ChildValues['uf']; Result.sit_cad:= DocumentElement.ChildValues['sit_cad']; Result.data_abertura := DocumentElement.ChildValues['data_abertura']; Result.cep := DocumentElement.ChildValues['cep']; Result.qtd_estabelecimentos := DocumentElement.ChildValues['qtd_estabelecimentos']; end; end; end; end. e recumperar os dados var iCnpjs : String; irazao_social : String; ifantasia : String; iatividade_01 : String; inat_jur : String; ilogradouro : String; inumero : String; imunicipio : String; ibairro : String; icompl : String; iuf : String; isit_cad : String; idata_abertura: string; icep: string; iqtd_estabelecimentos: string; implementation uses ComServ, UConsultaCnpj, Windows, Messages,Dialogs; procedure TCnpj.BuscaCnpj(const uCnpj: WideString); var DCnpj: TDCnpj; begin with TConsultaCnpj.Create(nil) do try DCnpj := Search(uCnpj); iCnpjs := DCnpj.lCnpj; irazao_social := DCnpj.razao_social; ifantasia := DCnpj.fantasia; iatividade_01 := DCnpj.atividade_01; inat_jur := DCnpj.nat_jur; ilogradouro := DCnpj.logradouro; inumero := DCnpj.numero; imunicipio := DCnpj.municipio; ibairro := DCnpj.bairro; icompl := DCnpj.compl; iuf := DCnpj.uf; isit_cad := DCnpj.sit_cad; idata_abertura := DCnpj.data_abertura; icep := DCnpj.cep; iqtd_estabelecimentos := DCnpj.qtd_estabelecimentos; finally Free; end; end; é só adaptar e depois criar o componente.