datilas

camtasia sempre usei muito bom

Google: Como Usar Zebedee http://www.devmedia.com.br/forum/zebedee-algum-sabe-configurar/288909 http://seucolega.wordpress.com/2008/06/04/conectando-firebird-zebedee/

eu acho que deve ser alguma coisa com o tipo de parametro (WideString)

você poderia postar ele

para buscar o retorno eu faço assim: procedure TForm1.Button1Click(Sender: TObject); var WS: FeixeWebSoap; clie : Cliente; begin Memo1.Lines.Clear; WS := GetFeixeWebSoap(); try WS.Clientes(edit1.Text,edit2.Text) ; Memo1.Lines.Add(clie.CNPJ); Memo1.Lines.Add(clie.Raz_oSocial); Memo1.Lines.Add(clie.NomeFantasia); except on E : exception do Memo1.Lines.Add(E.message); end; end; o problema esta sendo com a conexão que sempre retorna este erro: Server was unable to process request. ---> String reference not set to an instance of a String. Parameter name: s

vc ja tentou usando um for i:= 0 to Registro.Count -1 do Begin variavel1 := Registro[i].FEstabelecimento; variavel2 := Registro[i].FAmbiente; variavel3 := Registro[i].FDataEHora; continua sua rotina End;

sim a messagem do certificado vai sempre aparecer, não consegui passar por cima dela, se vc conseguir posta ai pra gente

eu acho que o erro deve ser de permisão no windows, eu uso o delphi 7 na minha aplicação esta rodando normal, sinto muito mais não tenho como testar no xe2

qual delphi vc ta usando?

a unica mensagem que aparece é: "Para Fazer o Download é nessesario possuir um Certificado de cliente clique ok para fazer o download"

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