datilas

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

vou disponibilizar sim com certeza na verdade minha aplicação esta funcionando perfeitamente eu estou transformando em componente só para poder disponibilar, ja que eu uso o acbr a muito tempo e ele me ajudo muito (muito mesmo) nada mais justo que ajudar o projeto de alguma forma é que eu precisava dassas informações para dar continuidade pois estou transformado minhas units em componentes e compatibilizando o maximo com o acbr ... estou tendo algumas dificuldades, pois quando eu fiz na minha aplicação eu usei o xml data binding (que é uma mao na roda por sinal) e vi que o acbr não usa isso então estou tendo que criar tudo na mão

ontem eu enviei o arquivo 123-rps.xml e o retorno foi (2-não processado) Hoje eu usei ConsultarSituacao e o retorno foi ( 4-processado) hoje como faço para obter o arquivo xxx-nfse.xml

bom dia. estou tenteando converter meu sngpc para componente. visto que o arquivo xml a ser enviado para a anvisa tem que ser compactado em formato zip, depois convertido em base64, e depois gerado um md5 da base64. eu gostaria de saber se essas funções ja existem no acbr (zip, base64, md5). caso exista onde estão? como usar? caso não exista qual seria a melhor opção para desenvolver. (ex: em qual unit devo criar a função zip e qual pacote é recomendado pelo acbr (7zip ? ou qualqer outro)) pois ja faz algum tempo que eu quero disponibiliza-lo para o acbr e em fim estou colocando a mão na massa... desde ja agradeço

procura por JvJCLUtil.dcu no seu computador e apaga depois tenta recompilar o projeto.. deve ter ficado algum "lixo" quando vc atualizou

bom dia amigos.. ontem me surgiu um "problema" estou usando nfse trunk2 issnet cuiaba, ontem fiz o envio de um rps e o retorno foi 2-não processado (até esse ponto só tenho o xml do rps), hoje eu usei o ConsultarSituacao().. e o retorno foi 4-processado com sucesso... pois bem minha pergunta é. como faço para obter o xml da nfse?

eu estou conseguindo enviar, o retorno vem situação 4 transmitida. mas quando tento pegar o xml retorna list of bonds, inclusive na consulta por periodo, ele chega a salvar os xmls mas em seguida vem o (list of bonds), pra mim só falta resolver isso e fica redondo.

de permisão 755 para pasta "clientes" e todos os seus arquivos segue print + exemplo delphi7 Http.zip

Procedure TForm1.Button1Click(Sender: TObject); Var Retorno: TStringStream; ConteudoArquivo: String; Begin Retorno := TStringStream.Create(''); Try IdHTTP1.Get('http://www.cardilo.com/clientes/70.txt', Retorno); Except // arquivo nao existe End; ConteudoArquivo := Retorno.DataString; //ou If ConteudoArquivo = '' Then // arquivo nao existe End;