datilas

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;

na maior parte das vezes da 900,800 k é muito difícil chegar a 1mb full depende do dia / hora (Nós moramos no brasil faze o que né)

1 - 1Mb de cada lado 2 - estou trabalhando sem problemas seguindo algumas regras: não tem select * não uso nenhuma table apenas query não uso tabelas temporárias toda informação temporária é gravada em um client dataset a unica tabela aberta o tempo todo é a de parâmetros em média são 5 terminais online 3 - as vezes a conexão cai mas nós não temos muito o que fazer sendo que os terminais estão no interior 4 - uso os componentes da paleta interbase, por causa do transaction dela que é muito bom no geral pra minha aplicação atende muito bem vendo que os terminais estão no interior com vendedores que normalmente apenas consultam preços e fazem pedidos em tempo real, há os contras por exemplo relatórios muito grande levam um tempo considerável para gerar, mas essa não é a função dos vendedores Quando eu estava testando os componentes para aplicação considerando rollback's e commit's para gravar uma venda de 150 itens, com financeiro parcelado em 24 vezes + movimento de caixa, etc.. levou +- 1 segundo apartir do clique no botão gravar o que atende muito bem meus clientes

quando eu fiz conexão pela internet eu instalei o no-ip redirecionei a porta 3050 para o servidor e no caminho do database coloquei meuendereço.no-ip.org:\meudatabase.fdb se o cliente tiver ip fixo melhor ainda pq ai não preciso do no-ip funcionou muito bem não tive problemas quanto a isso

http://www.fsist.com.br/ACBrCNPJ.rar Eu gostaria de saber Se e quando esse componente vai ser incorporado ao projeto

Primeiro parabéns pela iniciativa pois é um componente muito importante para quem trabalha com farmácias, drogarias etc. O ideal é que vc hospede em um site tipo 4shared.com ou outro qualquer mais de qualquer forma se vc puder mandar no meu e-mail

No que Precisar de mim estou aqui, pois estou precisando desse componente

o problema é aqui [iCMS001] CSOSN=0900 ValorBase=438.60 Aliquota=12.00 Valor=52.63 se existe valor para tributação o cst / csosn tem que ser tributado ex: {101} {102}