[base64 para componente timage]

Ola Juliomar desculpe, não entendi.

a variável xfotvol é uma string que estou enviando pelo json e gravando na tabela FB num campo blob.

 

 

 

 

[base64 para componente timage]

Ola Juliomar esta assim:

iVBORw0KGgoAAAANSUhEUgAA

talvez eu esteja gerando errado no app ? Esse codigo que estou gerando no app, a foto é tirada pelo celular.

        StreamIn := QConsulta.CreateBlobStream(QConsulta.FieldByName('FOTVOL'),bmRead);
        StreamOut := TStringStream.Create;

        TNetEncoding.Base64.Encode(StreamIn, StreamOut);
        StreamOut.Position := 0;
        xfotvol := StreamOut.DataString;

        StreamIn.DisposeOf;
        StreamOut.DisposeOf;

 

[base64 para componente timage]

boa noite

pessoal tenho em uma tabela FB um campo blob, nele estou salvando uma foto que recebo por json em formato base64, se eu pego essa string, e colo por exemplo num site que converte base64 para imagem, a foto aparece, porem nao estou conseguindo visualizar essa foto no componente timage.

estou tentando usar esse código abaixo, o erro ocorre na linha: BMPImage.LoadFromStream(BlobStream), com o erro bitmap image is not valid

var
BlobStream : TStream;
BMPImage : TBitMap;
begin
if CdsNotasLidasFOT001.BlobSize <> 0 then
begin
BlobStream:= CdsNotasLidas.CreateBlobStream(CdsNotasLidasFOT001,bmRead);
BMPImage := TBitMap.Create;
try
BMPImage.LoadFromStream(BlobStream);
Image1.Picture.Assign(BMPImage);
finally
BlobStream.Free;
BMPImage.Free;
end;
end
else Image1.Picture:=nil;
end;

 

[vICMSUFDest]

Muito obrigado Juliomar, esclarecido amigo.

Abs

 

 

[vICMSUFDest]

Pessoal estou precisando preencher a tag vICMSUFDest com valor zero, é uma situação de venda pro Estado de PE, e isso foi passado pro meu cliente pelo posto fiscal, enfim, porém passando os campos das tags ICMSUFDest, com zero, não aparece no xml, fazendo alguns testes, apareceu caso eu preencha as tags pICMSInter e pICMSInterPart, algum amigo sabe me dizer se consigo com que apareça a tag vICMSUFDest = 0.00, de outra maneira ?

Abs e obrigado

 

[duvida numa consulta firebirdPe]

pessoal um exemplo do que preciso:

SELECT A.NUMDOC, SUM(B.QNTPRO * PREPRO) AS PRETOT
FROM PEDIDOS1 A, PEDIDOS2 B
WHERE A.NUMDOC = B.NUMDOC AND A.NUMDOC >= 13646 AND PRETOT > 10000
GROUP BY A.NUMDOC

nessa consulta simples, vai retonar os pedidos numero e o preço total, como faço pra listar somente os pedidos com preço total por ex maior que 10000 ?

 

Abs e obrigado

 

[acessar banco mysql]

Pessoal instalei mysql no meu computador, porém quando tento acessar usando o FDConnection ou mesmo o SQLConnection retornar o seguinte erro:

Client does not support authentication protocol requested by server: consider uprading MySQL client

Algum amigo, saberia me dizer como fazer essa conexão ?

Obrigado

 

 

 

[erro incompatible]

deu certo, obrigado !

[erro incompatible]

pessoal acabei de atualizar o acbr e num projeto começou a apresentar o seguinte erro:

Incompatible types: TpcnTpEvento and Ttpevento, na linha do tpEvento := teCancelamento

      ACBrNFe.EventoNFe.Evento.Clear;
      with ACBrNFe.EventoNFe.Evento.New do
      begin
        infEvento.chNFe           := DM1Notas.CdsNotas1NFECHA.Value;
        infEvento.CNPJ            := DMC.QEmpresasCGCEMP.Value;
        infEvento.dhEvento        := Now;
        infEvento.tpEvento        := teCancelamento;
        infEvento.detEvento.xJust := xmotcan;
        infEvento.detEvento.nProt := DM1Notas.CdsNotas1NFEPRO.Value;
      end;
 

 

 

[ler retorno json]

Valeu obrigado pela resposta.

 

[ler retorno json]

pessoal to lendo um pedido, via api usando o RESTRequest4Delphi, consegui importa-lo num campo memo, e ate numa memtable, porem nesse json o pedido tem varios niveis, por exemplo, dados do cliente, depois os produtos, depois ainda a condição de pagamento. No memtable, vieram apenas os campos do cabeçado do json, existe alguma forma de jogar cada nivel em um memtable ? Como os amigos essa leitura dos dados ?

 

Abs e obrigado

[quebra de linha no campo de informações complementares]

pessoal pra imprimir no campo informações complementares eu uso um memo, vou alimentando as informacoes, e pra quebrar linha uso o #13, porem quando envio a nota, na prefeitura fica da seguinte maneira

a palavra vencimento deveria ser a primeira linha, depois a data e valor na segunda linha, tem alguma maneira de quebrar essa linha ?

 

obrigado

 

[envio de promoções por email]

pessoal estava testando o acbrmail, porem a imagem jpg nao fica visivel no email, estava testando recebendo na UOL, aparece em branco, porem acabei de testar recebendo no hotmail e a imagem jpg apareceu, porque será que na UOL nao aparece, estou configurando dessa maneira:

[envio de promoções por email]

pessoal, por favor, como eu poderia fazer para enviar, por exemplo um folder com uma promoção, isso no corpo do email ? 

 

Obrigado

[PIXCD]

Juliomar obrigado pela resposta, por exemplo pra conferir os PIX que creditados na conta da empresa, esse componente faz essa leitura ?

[PIXCD]

Pessoal qual a função do componente ACBRPIXCD ?

 

[erro pra acessar uma tabela fb 2.0]

o problema que nao consigo acessa-la, nem pelo ibexpert, nem por select, e nem excluir essa tabela kkk

[erro pra acessar uma tabela fb 2.0]

rsmuller9, obrigado pela resposta

um detalhe que não mencionei, foi que esse mesmo banco tenho em varios clientes e em todos consigo acessar essa tabela, apenas nesse banco especifico desse cliente especifico que estou tendo esse problema.

 

Abs

 

 

[erro pra acessar uma tabela fb 2.0]

tenho num banco de dados varias tabelas, porém apenas 1 delas quando tento acessa-la retornar o seguinte erro:

Arithmetic overflow or division by zero has occurred.
arithmetic exception, numeric overflow, or string truncation.
Cannot transliterate character between character sets.

tentando acessar esta tabela, pelo ibexpert, retorna esse erro também. eu poderia ate excluir essa tabela e cria-la novamente, mais excluir também retorna o mesmo erro.

Abs

 

[imprimir Nota]

Ola pessoal, algum amigo conseguiu imprimir ?

[fastreport meia pagina]

Pessoal como posso imprimir um pedido usando apenas a metade de uma folha A4, alterei apenas a propriedade PaperHeight da pagina, no fastreport, mais isso fez gerar um monte de paginas kk, tem mais alguma propriedade pra eu mexer ?

 

Abs e obrigado

[imprimir Nota]

Pessoal como voces imprimem as notas do provedor GIAP, o xml de retorno vem da seguinte maneira:

<?xml version="1.0" encoding="UTF-8"?>
-<notaFiscal>
<numeroNota>3</numeroNota>
<numeroRps>3</numeroRps>
<codigoVerificacao>2658543K6AA</codigoVerificacao>
<statusEmissao>200</statusEmissao>
<link>https://nfeamparo.obaratec.com.br/apex/amparo/f?p=1359:116::EMITENOTA:NO:116:P116_CODE,P116_CODET,P116_KEY,P116_KEYT:327966,239043,2355836FH7WH07RC5BVM,NJKCNGU658455UDJFME4W7V809YVZM2I</link>
<messages message="NFSE emitida com sucesso" code="200"/>
</notaFiscal>

Obrigado

 

[rejeicao 840]

e as tags:

           with Prod.rastro.Add do
           begin
             nLote  := '001/10';
             qLote  := 0;
             dFab   := StrToDate('01/01/2021');
             dVal   := StrToDate('01/01/2023');
             cAgreg := '';
           end;
 

voces estao preenchendo ?

[inibir a impressão das tags Prod.rastro.Add]

bom dia

Da pra nao imprimir na danfe a tag Prod.rastro.Add ?

 

Abs e obrigado

 

 

[rejeicao 840]

Pessoal conseguiram emitir as notas, por aqui continua dando rejeição ...