datilas

a unica coisa que uso é não lembro qual esta funcionando. testa ai: function DownloadFile(Source, Dest: string): Boolean; begin try Result:= UrlDownloadToFile(nil, PChar(source),PChar(Dest), 0, nil) = 0; except Result:= False; end; end; function TfrmPrincipal.DownloadFile(SourceFile, DestFile: string): Boolean; const BufferSize = 1024; var hSession, hURL: HInternet; Buffer: array[1..BufferSize] of Byte; BufferLen: DWORD; f: File; sAppName: string; begin sAppName := ExtractFileName(Application.ExeName); hSession := InternetOpen(PChar(sAppName),INTERNET_OPEN_TYPE_PRECONFIG,nil, nil, 0); try hURL := InternetOpenURL(hSession,PChar(SourceFile),nil,0,0,0); try AssignFile(f, DestFile); Rewrite(f,1); repeat InternetReadFile(hURL, @Buffer,SizeOf(Buffer), BufferLen); BlockWrite(f, Buffer, BufferLen) until BufferLen = 0; CloseFile(f); Result := True; finally InternetCloseHandle(hURL) end finally InternetCloseHandle(hSession) end; end; no evento OnFileDownload do TEmbeddedWB function TfrmPrincipal.WebBrowser1FileDownload(pmk: IMoniker; pbc: IBindCtx; dwBindVerb, grfBINDF: Cardinal; pBindInfo: PBindInfo; pszHeaders, pszRedir: PWideChar; uiCP: Cardinal): HRESULT; begin if DownloadFile (pszRedir,'C:\teste.xml') then Begin ShowMessage('Download Concluído.'); End; end; pelo menos na minha aplicação não pergunta onde vai salvar.

tenta esse: sourceforge.net/projects/utilitarioserp/files/ ta uma bagunça mais funciona até hoje

Voce ja tentou gerar o Hash com indy pode não funcionar mas vale a pena tentar

Até onde eu sei vc tem que usar Municipio: 9999999|Exterior| Uf: 99|EX e o codigo da pais de destino segue a tabela em anexo:

apenas uma observação se eu faço a busca pelo cep 04538-133 que é de são paulo-sp o IBGE_Municipio retorna : 1303908-São Paulo de Olivença-am pois ele é o primeiro resultado recebido pela palavra são paulo Então minha sugestão seria For cont := 0 to fACBrIBGE.Cidades.Count -1 do Begin if fACBrIBGE.Cidades[cont].Municipio+fACBrIBGE.Cidades[cont].UF = Municipio+UF Then IBGE_Municipio := IntToStr( fACBrIBGE.Cidades[cont].CodMunicio ); end; pois o retorno de são paulo é: Cod UF: 13 UF: AM Cod.Município: 1303908 Município: São Paulo de Olivença Área: 19745,90 -------------------- Cod UF: 24 UF: RN Cod.Município: 2412609 Município: São Paulo do Potengi Área: 240,43 -------------------- Cod UF: 35 UF: SP Cod.Município: 3550308 Município: São Paulo Área: 1521,10 -------------------- Cod UF: 43 UF: RS Cod.Município: 4319307 Município: São Paulo das Missões Área: 223,89 --------------------

Faço das palavras do isaque as minhas

então tudo bem. mas eu gostaria de saber se teria como amarrar o acbribge com o acbrcep igual ao acbrnfe e o acbrdanfe dessa forma a busca seria automática eu digo isso para facilitar ainda mais o uso do componente (o componente é ótimo), visto que o código do ibge hoje em dia para nós é uma necessidade pois eu receberia ACBrCEP1.Enderecos.municipio ACBrCEP1.Enderecos.IBGE_Municipio como esta hoje eu receberia ACBrCEP1.Enderecos.municipio ACBrIBGE1.Cidades.CodMunicio caso não tenha como fazer tudo bem. (eu ja tentei fazer isso mas eu não tenho experiencia com componentes e não consegui) gostaria de dizer que os componentes são ótimos uso quase todos isso não é uma critica, é apenas uma sugestão. desde ja agradeço a atenção.

esta aqui o banco do contribuicoes, e a tabela de apoio em firebird http://www.4shared.com/zip/pl0JPvdJ/Contribuicao.html e aqui segue o link para as tabelas de codigos do sped fiscal e do contribuiçoes em txt http://www.4shared.com/zip/xte3ug4T/TabelasExternas.html http://www.4shared.com/folder/KknxJ2-O/_online.html

criei uma unit com as cidades do ibge e inclui no acbrcep para retornar o codigo do ibge para todos os provedores que não tinha essa opção ja corrigi todos os provedores que não tinha essa opção segue em anexo:

fiz algumas alterações no wscorreios: Inclui: TACBrWSCorreios.BuscarPorLogradouro( AMunicipio, ATipo_Logradouro, ALogradouro, AUF, ABairro : String ) ; Alterei: TACBrWSCorreios.ProcessaResposta; antes a resposta era: Tipo_Logradouro := ''; Logradouro := sStr; Agora esta assim: Tipo_Logradouro := Trim(Copy(sStr,1,Pos(' ',sStr))); Logradouro := sStr; segue o arquivo em anexo:

esse eu não tenho mas geralmente eu uso esse programa para converter bancos (Full Convert Enterprise) ele é ótimo até hoje nunca me deixou na mão, mas se vc tiver o banco original em mysql do Sped Contribuições ai, eu posso tentar converter aqui, até porque eu preciso de um para iniciar o desenvolvivento, se vc tiver eu fico muito agradecido

eu tenho o banco com todas as tabelas convertido de mysql para firebird, é o banco do efd convertido para firebird se servir esta aqui : http://www.4shared.com/zip/VAQ5kCVl/SPED.html

concordo que a busca por cep tem que ser a mais exata possivel, eu só levantei a questão porque existe essa opção para outros provedores e poderia ser implementada para os correios tambem, tanto que antes de contribuir com o acbr eu usava a função que coloquei no inicio do tópico que só busca por cep. e quanto as outras questões eu só quis esclarecer quais as possibilidades que poderiam existir

Sim seria muito bom Como eu disse antes não precisa de uma nova url basta apenas passar o endereço separado por / de uma olhada no exemplo ou acesse o site que indiquei acima

e a mensagem de retorno (Resultado superior a 100) não é um exception é apenas uma advertência pois mesmo com a mensagem ele retorna 100 endereços

eu vi que não existe a BuscarPorLogradouro ela pode ser efetuada passando passando o nome da rua / bairro / cidade / uf separados por "/" não necessita preencher todos apenas seguir essa ordem e tambem faz busca pelo 5 primeiros digitos do cep Ex: 78075 o que ocorre é que vc esta fazendo: ACEP := OnlyNumber( AnsiString( ACEP ) ); impossibilitando a BuscarPorLogradouro. mas testei a BuscarPorCep e esta funcionando perfeito, fico feliz por ter colaborado com um projeto que esta me ajudando muito no desenvolvimento do meu software muito obrigado pela atenção.

segue o arquivo como solicitado usando TACBrHTTP desculpe não ajudar muito mas é que não tenho experiencia com componentes

mesmo aqui sendo outro tópico só gostararia comentar que o ACBrNFSeDanfseRLpkg é só incluir no uFrameLista do acbrinstall e comentar a linha visualclx do requires para poder instalar no delphi xe caso tenha que abrir outo tópico por favor me avisem e desculpe

sim o dpk esta certo o problema esta nas units ACBrNFeDANFeRLRetrato , ACBrNFeDANFeRLPaisagem eu comentei essa linha // Vcl.Imaging.jpeg, ai instalou beleza

no dpk eu alterei a linha 79 de {$IFDEF VER220} RLibWinDXE, vclimg, jpeg, {$ENDIF} // XE para {$IFDEF VER220} RLibWinDXE, vclimg, {$ENDIF} // XE e no ACBrNFeDANFeRLRetrato , ACBrNFeDANFeRLPaisagem eu comentei essa linha // Vcl.Imaging.jpeg, ai instalou beleza

ja olhei isso e esta tudo ok, mas quando eu faço uma pesuisa no windows procurando vclimg só aparece as extenções bpl, dcp, pas. mas dcu não aparece, e de qualquer forma o uso de imagens no meu delphi esta ok, e o pacote de boleto para fortes compila e instala normal, os outros relatórios com fortes do meu projeto tambem estão ok, e na maior parte eles usam imagens de varios formatos, jpg, bmp.

Agora o erro é outro : ACBrNFeDanfeRLpkg.dpk(79) Fatal: E2202 Required package 'jpeg' not found se eu tento corrigir ele aparece outro erro : [DCC Fatal Error] ACBrNFeDANFeRLRetrato.pas(147): F1026 File not found: 'vclimg.dcu' estou usando fortes 3,71B

ja que voces mostraram interesse nessa consulta resolvi fazer uma mais detalhada, conforme a pagina http://www.buscacep.correios.com.br/servicos/dnec/menuAction.do?Metodo=menuEndereco consulta por endereco, cep , bairro , os cinco primeiros digitos do cep etc. maiores informações na pagina acima segue o exemplo em anexo:

estou tentando instalar o acbr pelo acbr install e esta dando erro no pacote ACBrNFeDANFeRLRetrato estou usando delphi xe win8 64bits segue o log em anexo

Eu criei uma função para consultar cep direto dos correios se tiver como adaptar ela para o acbrCep seria muito Bom. caso não tenha como segue o codigo para quem quiser melhorar e utilzar por favor postem as melhorias para ajudar a todos function RetiraTag(Texto, AbreTag, FechaTag : String) : String; var PosAbre, PosFecha : Integer; begin Result := ''; if (Pos(AbreTag, Texto) <> 0) And (Pos(FechaTag, Texto) <> 0) then begin PosAbre := Pos(AbreTag, Texto) + Length(AbreTag); PosFecha := Pos(FechaTag, Texto); Result := Copy(Texto, PosAbre, PosFecha-PosAbre); end; end; function ConsultaCep(const Cep: String): Boolean; Var IdHTTP1: TIdHTTP; Params,Resposta :TStringList; RespStream : TStringStream; Cont,i : integer; Str : String; Begin Result := False; Try //http://www.buscacep.correios.com.br/servicos/dnec/consultaLogradouroAction.do?CEP={codigo do cep}&Metodo=listaLogradouro&TipoConsulta=cep&StartRow=1&EndRow=10 Params := TStringList.Create; Resposta := TStringList.Create; RespStream := TStringStream.Create(''); IdHTTP1 := TIdHTTP.Create; Params.Add('CEP='+Cep); Params.Add('&Metodo=listaLogradouro'); Params.Add('&TipoConsulta=cep'); Params.Add('&StartRow=1'); Params.Add('&EndRow=10'); IdHTTP1.post('http://www.buscacep.correios.com.br/servicos/dnec/consultaLogradouroAction.do?',Params,RespStream); Resposta.Clear; Resposta.Text := RespStream.DataString; Logradouro := ''; Bairro := ''; Cidade := ''; Uf := ''; Cont := 0; for i := 0 to Resposta.Count-1 do Begin Str := Trim(RetiraTag(Resposta[i],'"padding: 2px">','</td>')); if Str <> '' then Begin Inc(Cont); if Cont = 1 then Begin Logradouro := Str; Result := True; End; if Cont = 2 then Begin Bairro := Str; Result := True; End; if Cont = 3 then Begin Cidade := Str; Result := True; End; if Cont = 4 then Begin Uf := Str; Result := True; End; End; End; Finally Begin Params.Free; Resposta.Free; RespStream.Free; IdHTTP1.Free; End; End; End;