Dfox

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.

Atualização do frxZEOSComponents ZEOSQuery1.Master e ZEOSTable1.Master, ZEOSTable1.MasterFilds do Editor do FastReport seguem em anexo o ZEOSfrx16-DXE2.rar para Delphi xe2 ZEOSfrx16-DXE2.rar

Boa tarde Daniel, certamente não observe dentro pasta do fastreport "Extra\New DB Engine\Template" tem os fontes quase pronto como exemplo de como fazer.

Bom dia a todos, seguem em anexo o componente frxZEOSComponents Zeoslib para o Fastreport 5.0 caso alguém queira melhorar fiquem a vontade. ele esta compatível para Delphi xe2 ZEOSxe2.rar

sim Juliomar Marchetti já entrei em contato com o banco e estou esperando a resposta deles para começar as homologação.

Boa tarde, tenho não! até porque ele usa unit do Acbr e o Acbr não é mais compatível com o delphi 7 segue em anexo agora com botão de som do captcha. RecuperarXML_2016.rar

Fonte revisado e optimizado! RecuperarXML_2016.rar

Boa tarde a todos, seguem em anexo o RecuperarXML 2016 funcionando! RecuperarXML_2016.rar

Bom dia a todos pessoal, estou na metade da criação da unit ACBrBancoCredisis.pas Alguém tem o manual do banco Credsis ou os dados como digito tamanho do nosso numero etc. grato.

Obrigado 3Soft Sistemas vou ver se acho.

Bom dia a todos, alguém tem alguma função boa para criptografia com senha para usar com o delphi xe2

Opa obrigado, assim que me sobrar um tempo vou tentar implementar esse banco e anexar aqui as units

tem não, pessoal se alguém tiver implementado e poder me enviar eu agradeço obrigado!

Boa tarde pessoal alguém fez a implementação para emissão de boleto para o banco Credisis código 097?