datilas

link off line

wscoreios também retorna IBGE

o webserservice dos correios não parou de funcionar, o que mudou foi a forma de usar, antes era feito um get no site dos correios, agora é usado o webservice propriamente dito, quando se usa get corre o risco de haver atualização no site e ter que alterar o componente, (foi o que aconteceu) hoje é usado um webservice, alem disso quando houve esse problema foi corrigido rapidamente por usuarios do acbr, eu ainda prefiro usar o wscorreios por ser de free e afinal de contas é dos correios. sobre a atualização dos outros webservices, recomendo vc entrar em contato com eles e pedir um historico de atualizações.

isso acontece comigo, quando a impressora padra é a de cupom, se mudar a impressora padrão para outra funciona normal

ja viu isso: https://br.answers.yahoo.com/question/index?qid=20130523063824AA9fNKj http://www.goldstarsoftware.com/down615.asp

muito obrigado, problema resolvido.

estou migrando meu projeto feito em delphi 7 para xe4, a minha dificuldade é com a cor de todos os forms que muda totalmente, alguem sabe como resolver? segue imagem no delphi7: segue imagem no xe4:

tenta usar Heigth := 0;

Boa Tarde Pessoal. To com uma duvida, preciso salvar imagem no banco (firebird). minha pergunta é: é melhor salvar como binário ou base64, pela questão de estabilidade, velocidade e tamanho do banco?

tenho vários relatórios usando quickreport e bde estamos migrando para firedac, o problema é o sequinte quando usa o TQuery(bde) o relatório agrupa certinho (por data, ou fornecedor) mas se eu uso TADQurey(Firedac) o agrupamento não fuciona mais, (é o mesmo relatório trocando apenas o componente TQuery por TADQurey), alguém já passou por isso? uso delphi7 e firedac 8.05

esse é no minimo interessante feito em delphi, https://github.com/senjaxus/AllaKore_Remote https://github.com/senjaxus https://www.facebook.com/groups/1202680153082328/

pelo que vi não é muito dificil. é só fazer um post em http://www2.correios.com.br/sistemas/rastreamento/resultado.cfm com os parametros botao=OK celulardois=(00) 0000-0000 //destinatario celularum=(00) 0000-0000 //remetente nao obrigatorio (enviar vazio) etiqueta=CodigoRastreamento //seu codigo de rastramento objetos=CodigoRastreamento//seu codigo de rastramento termo=on Ex: http://www2.correios.com.br/sistemas/rastreamento/resultado.cfm?botao=OK&celulardois=(00)%200000-0000&celularum=&etiqueta=CodigoRastreamento&objetos=CodigoRastreamento&termo=on ( (00)%20 %20 é espaço utf) tenta ai se conseguir adiciona na unit de rastramento

qual a url?

o app android foi feito em qual ide? obrigado por disponibilizar o codigo vai servir como base de estudo pra mim

e aqui vai minha contribuição para o firebird 3.0 create or alter function ROUNDABNT ( AVALOR double precision, ADECIMAIS smallint) returns double precision AS declare variable cDecimais varchar(100); declare variable vlrstr varchar(100); declare variable nSubsequente smallint; declare variable posponto smallint; BEGIN vlrstr = Cast(AVALOR as varchar(100)); posponto = POSITION('.',vlrstr); cDecimais = SUBSTRING(vlrstr from posponto+1 for CHAR_LENGTH(vlrstr)); nSubsequente = ADECIMAIS+1; if (:ADECIMAIS < 1) Then RETURN TRUNC(AVALOR); else If (CHAR_LENGTH(cDecimais) <= :ADECIMAIS) Then RETURN AVALOR; else Begin If ((Cast(SUBSTRING(cDecimais from nSubsequente for 1) as integer) > 5) Or (Cast(SUBSTRING(cDecimais From nSubsequente For 1)as double precision) < 5)) Then RETURN ROUND(AVALOR,ADECIMAIS); Else if (Cast(SUBSTRING(cDecimais From nSubsequente For 1)as double precision) = 5) Then If (MOD(Cast(SUBSTRING(cDecimais From ADECIMAIS For 1)as double precision) ,2) <> 0) Then RETURN ROUND(AVALOR,ADECIMAIS); Else If (Cast(SUBSTRING(cDecimais From nSubsequente+1 For 1)as double precision) > 0) Then RETURN ROUND(AVALOR,ADECIMAIS); Else RETURN TRUNC(AVALOR,ADECIMAIS); End END

o firebird 3.0 agora permite criar funções internas facilitando muito a nossa vida eu criei algumas funções para formatar documentos (cpf,cnpj,cep,ie,fone) usei como base o acbrvalidador para formar as mascaras usando firebird 3.0 RC1 e gostaria de compartilhar com os amigos do fórum Macaras-FB.zip

eu nem sabia que dava para gerar código de rastreamento visto que o código é gerado pelos correios no momento da postagem, o que eu sei que daria para fazer é um componente para acompanhar o objeto pelo código de rastreamento

alguem?

ACBrBancoBradesco.pas

quando eu uso 4 linhas no campo instrução ao gerar o arquivo de remessa só gera a linha1 e a linha4 então alterei a função DoMontaInstrucoes1 na linha 180 do ACBrBancoBradesco.pas Mudando "=" por ">=" function DoMontaInstrucoes1: string; begin Result := ''; with ACBrTitulo, ACBrBoleto do begin {Primeira instrução vai no registro 1} if Mensagem.Count <= 1 then begin Result := ''; Exit; end; Result := sLineBreak + '2' + // IDENTIFICAÇÃO DO LAYOUT PARA O REGISTRO Copy(PadRight(Mensagem[1], 80, ' '), 1, 80); // CONTEÚDO DA 1ª LINHA DE IMPRESSÃO DA ÁREA "INSTRUÇÕES” DO BOLETO if Mensagem.Count >= 3 then Result := Result + Copy(PadRight(Mensagem[2], 80, ' '), 1, 80) // CONTEÚDO DA 2ª LINHA DE IMPRESSÃO DA ÁREA "INSTRUÇÕES” DO BOLETO else Result := Result + PadRight('', 80, ' '); // CONTEÚDO DO RESTANTE DAS LINHAS if Mensagem.Count >= 4 then Result := Result + Copy(PadRight(Mensagem[3], 80, ' '), 1, 80) // CONTEÚDO DA 3ª LINHA DE IMPRESSÃO DA ÁREA "INSTRUÇÕES” DO BOLETO else Result := Result + PadRight('', 80, ' '); // CONTEÚDO DO RESTANTE DAS LINHAS if Mensagem.Count >= 5 then Result := Result + Copy(PadRight(Mensagem[4], 80, ' '), 1, 80) // CONTEÚDO DA 4ª LINHA DE IMPRESSÃO DA ÁREA "INSTRUÇÕES” DO BOLETO else Result := Result + PadRight('', 80, ' '); // CONTEÚDO DO RESTANTE DAS LINHAS Result := Result + space(45) + // COMPLEMENTO DO REGISTRO aCarteira + aAgencia + aConta + Cedente.ContaDigito + NossoNumero + DigitoNossoNumero + IntToStrZero( aRemessa.Count + 2, 6); // Nº SEQÜENCIAL DO REGISTRO NO ARQUIVO end; end;

a consulta retorna os dados do site:http://www.receita.fazenda.gov.br/pessoajuridica/cnpj/cnpjreva/cnpjreva_solicitacao.asp quanto a atualização do captcha não tenho esse tipo de problema.. caso o problema persista abra um novo topico no acbrtcp (regras do forum não mude de assunto "assunto novo = topico novo")

na linha 892 eu alterei para i := 0; ii:= -1; while FRetListaNFSe <> '' do begin ... e na linha 918 eu alterei para While ii < FRetornoNFSe.ListaNFSe.CompNFSe.Count -1 do begin Inc(ii); ... segue a unit alterada ACBrNFSeWebServices.pas

o erro esta no ACBrNFSeWebServices.pas na na função function TNFSeWebService.ExtrairNotasRetorno: Boolean; por algum motivo "obscuro para mim" na linha 917 for ii := 0 to FRetornoNFSe.ListaNFSe.CompNFSe.Count -1 do begin ... //a variavel "ii" sempre fica com o valor "0" e isso causa todo o problema end;

ACBrNFSe1.NotasFiscais.Clear; ACBrNFSe1.NotasFiscais.LoadFromFile( 2014-rps.xml ); ACBrNFSe1.ConsultarNFSeporRps(ACBrNFSe1.NotasFiscais.Items[0].NFSe.IdentificacaoRps.Numero, ACBrNFSe1.NotasFiscais.Items[0].NFSe.IdentificacaoRps.Serie, TipoRPSToStr(ACBrNFSe1.NotasFiscais.Items[0].NFSe.IdentificacaoRps.Tipo), ACBrNFSe1.NotasFiscais.Items[0].NFSe.Prestador.Cnpj, ACBrNFSe1.NotasFiscais.Items[0].NFSe.Prestador.InscricaoMunicipal); todos os campos acima vem vazios (mas 123-rps.xml esta correto todas as informações estão corretas) então forcei só para testar ACBrNFSe1.NotasFiscais.Clear; ACBrNFSe1.NotasFiscais.LoadFromFile( 2014-rps.xml ); ACBrNFSe1.ConsultarNFSeporRps('20', '14', TipoRPSToStr(trRPS), vCnpj, vInscMun); fez a consulta, mas deu erro list index out of bounds(1); na função ExtrairNotasRetorno e não retornou a nota. quando eu faço a consulta por periodo o componente salva 15 nfse e em seguida do o erro list index out of bounds(16); na função ExtrairNotasRetorno;

ACBrNFSe1.ConsultarNFSe(edtEmitCNPJ.Text, edtEmitIM.Text, StrToDate(DataInicial), StrToDate(DataFinal)); retorna todos os xmls do periodo, eu gostaria de obter apenas o xml em questão