Ir para conteúdo
  • Cadastre-se

felipeiw

Membros
  • Total de ítens

    760
  • Registro em

  • Última visita

Posts postados por felipeiw

  1. pessoal o sat travou com bloqueio autonomo, apresentando a mensagem vencimento de certificado do digital, desligamos, e ao religar, inicio a numeração, començando novamente no numero 1, isso tem algum problema ? tem como voltar a numeração ?

    obrigado

     

  2. Pessoal, percebi que depois que atualizei o acbr, na ultima sexta feira dia 10/03/2023, a informação da posição 33 a 52 do registro header do acbrpagfor, esta indo zerado, como faço pra preenche-lo, mudou alguma propriedade do componente ?

    obrigado

     

  3. 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

     

  4. 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: 

     

  5. 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;

     

  6. 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;

     

     

  7. 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

     

  8. 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

     

  9. 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

     

     

     

×
×
  • 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.