felipeiw

Pessoal esses dias a sefaz de MG estava parada, emitimos algumas notas em contingencia, porem quando vou pesquisar essas chaves tanto na sefaz de MG quanto no ambiente nacional, diz q não existe, se tentamos enviar novamente da erro de duplicidade. Alguem sabe me dizer a causa disso, ou como resolvo ? Obrigado

Pessoal consegui usando o seguinte codigo: var Input,Output: TStringStream; begin if (Length1(foto) = 0) then begin IMGFoto.Picture := nil; Exit; end; Input := TStringStream.Create(foto); Output := TStringStream.Create; try Input.Position := 0; TNetEncoding.Base64.Decode(Input,Output); Output.Position := 0; IMGFoto.Picture.LoadFromStream(Output); finally Input.Free; Output.Free; end; crédito a esse video:

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.

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;

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;

Muito obrigado Juliomar, esclarecido amigo. Abs

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

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

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

deu certo, obrigado !

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;

Valeu obrigado pela resposta.

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

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

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:

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

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

Pessoal qual a função do componente ACBRPIXCD ?

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

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

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

Ola pessoal, algum amigo conseguiu imprimir ?

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

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

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 ?