Ir para conteúdo
  • Cadastre-se

datilas

Membros
  • Total de ítens

    520
  • Registro em

  • Última visita

  • Days Won

    2

Tudo que datilas postou

  1. Voce ja tentou gerar o Hash com indy pode não funcionar mas vale a pena tentar
  2. 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:
  3. 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 --------------------
  4. Faço das palavras do isaque as minhas
  5. 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.
  6. 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
  7. 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:
  8. 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:
  9. 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
  10. 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
  11. 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
  12. 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
  13. 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
  14. 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.
  15. segue o arquivo como solicitado usando TACBrHTTP desculpe não ajudar muito mas é que não tenho experiencia com componentes
  16. 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
  17. sim o dpk esta certo o problema esta nas units ACBrNFeDANFeRLRetrato , ACBrNFeDANFeRLPaisagem eu comentei essa linha // Vcl.Imaging.jpeg, ai instalou beleza
  18. 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
  19. 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.
  20. 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
  21. 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:
  22. 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
  23. datilas

    Incluir Correios Acbrcep

    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;
  24. 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é)
  25. 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
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.