Imagem em excel

[Patrick Marques]

Bom dia a todos, gostaria de inserir uma imagem no excel mas quero que fique fixa porque o meu problema é que quando gero o arquivo e abro em outra maquina as imagens não carregam. Estou usando este comando:

ch-worksheet:Pictures:INSERT("c:\temp\" + tt-qrcode.idqrcode + ".png"):SELECT NO-ERROR.

muito obrigado desde ja pessoal!

[ejs...@gmail.com]

Hi Patrick

Try to convert the imagem to base64, see this:

https://stackoverflow.com/questions/39126617/inserting-an-image-into-a-sheet-using-base64-in-vba

[Patrick Marques]

Consegui resolver o meu problema porém tive algumas dificuldades para posicionar o qrcode.Eu inseri a imagem utilizando formas do excel assim eu consigo compartilhar o arquivo e a imagem fica fixa,aqui esta o seguinte trecho:

   /*COMANDO PARA INSERIR IMAGEM*/

    chWorksheet = excelappl:Sheets:ITEM(2).    
    chWorksheet:SELECT().

    chWorkSheet:Shapes:addPicture("c:\temp\" + tt-qrcode.idqrcode + ".png",0,1,60,i-pos-qrcode,130,130). //propriedades posicao imagem

[Marcelo Torres]

Obrigado por compartilhar, Patrick.

Não tinha tentado o AddPicture.

Vou tentar usar também.

Att,

Marcelo Torres

Em qui., 7 de nov. de 2024 às 16:02, Patrick Marques <patric...@gmail.com> escreveu:

Consegui resolver o meu problema porém tive algumas dificuldades para posicionar o qrcode.Eu inseri a imagem utilizando formas do excel assim eu consigo compartilhar o arquivo e a imagem fica fixa,aqui esta o seguinte trecho:

DO WHILE i-aux <= i-tot-palete: //bloco para criar todos os qrcodes pelo total de paletes
 
    RUN pi-acompanhar IN h-acomp (INPUT "Gerando dados QrCode.Conf.Palet..." + string(i-aux) ).

    ASSIGN cqrcodetemp = c-dir-prog-qrcode + "esp0014-soroc-g1gw-palete" + ".png"  + c-propriedades-qrcode + "01"  + ";" +
                         STRING(tt-param.cod-emitente) + ";" + string(c-data-emb) + ";" + string(c-hora-emb) + ";" + string(i-aux). //conteudo do qrcode
                         
    IF i-aux = 1 THEN DO:
       RUN Winexec (INPUT cqrcodetemp,INPUT 2). //comando de execu‡Æo para gerar o qrcode
       PAUSE 2.  //tempo para o primeiro qrcode
    END.
    ELSE DO:
       RUN Winexec (INPUT cqrcodetemp,INPUT 2). //comando de execu‡Æo para gerar o qrcode
       PAUSE 1.  //tempo para os proximos qrcodes
    END.  
   
    /*Seleciona a planilha onde serao gerados os qrcodes*/

    chWorksheet = excelappl:Sheets:ITEM(2).    
    chWorksheet:SELECT().
   
   

    chWorkSheet:Shapes:addPicture("c:\temp\" + tt-qrcode.idqrcode + ".png",0,1,60,i-pos-qrcode,130,130). //propriedades posicao qrcode
    i-pos-qrcode =  i-pos-qrcode  + 570.8.  //incremento para definir a posicao do qrcode
                                             
    i-aux = i-aux + 1. //Variavel para ler o total de paletes
   
 END.  /*end while */

On Wednesday, November 6, 2024 at 6:46:48 PM UTC-3 ejs...@gmail.com wrote:

--
Recebeu esta mensagem porque subscreveu ao grupo "Progress - 4GL" do Grupos do Google.
Para anular a subscrição deste grupo e parar de receber emails do mesmo, envie um email para progress_4gl...@googlegroups.com.
Para ver esta discussão, visite https://groups.google.com/d/msgid/progress_4gl/a4258ff8-ace2-407b-8106-047f752b08a8n%40googlegroups.com.

[Marcelo Torres]

Boa noite!

Alguém poderia mostrar como implementar num programa a segurança por estabelecimento?

Nunca fiz nada usando isto.

Obrigado,

Marcelo Torres

[Jaime Dambros]

Opa, bom dia.

Na época que foi feito isso elaboramos o documento em anexo para orientar os desenvolvedores.

Na prática tem uma temp-table que tem a lista dos estabelecimentos em que o usuário tem permissão e as querys devem incluir essa TT para filtrar os registros dos estabelecimentos permitidos.

--
Recebeu esta mensagem porque subscreveu ao grupo "Progress - 4GL" do Grupos do Google.
Para anular a subscrição deste grupo e parar de receber emails do mesmo, envie um email para progress_4gl...@googlegroups.com.

Para ver esta discussão, visite https://groups.google.com/d/msgid/progress_4gl/CAJEr9OkDEo2LtOJr57%3D7nqqegHQQyOXhPqC2n-Nq%2BGQYiXofOA%40mail.gmail.com.

--

Jaime Alex Dambros
Joinville - SC

[Marcelo Torres]

Bom dia Jaime.

Primeiramente obrigado pela resposta.

O que estou precisando é implementar isto num programa .p (é um "rp.p" de um relatório).

Eu até achei uma API que (teoricamente) devolve quais os estabelecimentos o usuário tem acesso. A API é a "utb746za". Mas não encontrei documentação alguma sobre ela.

Achei também a tabela "seg_usuar_estab" que tem estas mesmas informações.

Sei, também, que esta segurança é ativada/desativada no CD0101, mas não sei a tabela e o campo que armazenam esta informação.

Qualquer ajuda é bem vinda!

Mais uma vez, obrigado.

Att,

Marcelo Torres

Para ver esta discussão, visite https://groups.google.com/d/msgid/progress_4gl/CAAYQuF14CCzinFf09NYM4Kvig32czo9y%3Duo%3D9amhHruqd%3DeNHw%40mail.gmail.com.

[Jaime Dambros]

Recortei um porção de fonte que trata segurança por estabelecimento, veja se ele funciona e lista os estabelecimento, meu ambiente está com problema e não pude confirmar o funcionamento:

&Scoped-define BROWSE-NAME brTable1
&Scoped-define FIRST-TABLE-IN-QUERY-brTable1 ttOrdManut
&Scoped-define SEGUR-ESTAB-ATRIBUTE cod-estabel
&Scoped-define KEY-PHRASE TRUE NO-LOCK
&scoped-define TTONLY YES
{include/i-estab-security.i}

DEFINE QUERY brTable1 FOR
      {&ESTAB-SEC-TT} SCROLLING.
     
FOR EACH {&ESTAB-SEC-TT}:
    DISP {&ESTAB-SEC-TT-FIELD}.
END.

Para ver esta discussão, visite https://groups.google.com/d/msgid/progress_4gl/CAJEr9Okk6GsgTKbE6o1bXGaGxeDDqn4Q3KhM%3DSEn%3DP12tVC7Pw%40mail.gmail.com.

[Marcelo Torres]

Jaime,

Foi vacilo meu. O documento que mandou tem (lá no final) tudo explicado.

Salvou aqui. Muito obrigado!

Só com isto aqui já funciona:

&scoped-define TTONLY YES
{include/i-estab-security.i}

FOR EACH {&ESTAB-SEC-TT}:
    DISP {&ESTAB-SEC-TT-FIELD}.
END.

Para ver esta discussão, visite https://groups.google.com/d/msgid/progress_4gl/CAAYQuF2rqay2Xoe1UPXqgqTRtjMAWG4g75qAU9Tntb7-yoxQQQ%40mail.gmail.com.

[Sidival Nascimento]

otima documentação, valeu Jaime.

Para ver esta discussão, visite https://groups.google.com/d/msgid/progress_4gl/CAJEr9OmLKWAFJaXufEKVFH0Z4Rg_O1-2jyNeKNHioNG4aD4r8A%40mail.gmail.com.

--

Sem Mais
Sidival F. Nascimento
Analista de Sistemas
Laos Consultoria em Informatica LTDA.

[Jaime Dambros]

Nem lembrava mais, quase 10 anos ...

Para ver esta discussão, visite https://groups.google.com/d/msgid/progress_4gl/CAJEr9OmLKWAFJaXufEKVFH0Z4Rg_O1-2jyNeKNHioNG4aD4r8A%40mail.gmail.com.

[Doglans Cesar Esidio]

Boa tarde Marcelo, tudo certo?!

Acredito que a FAC vai te ajudar: 

https://centraldeatendimento.totvs.com/hc/pt-br/articles/360041451653-Cross-Segmentos-Linha-Datasul-MFT-Seguran%C3%A7a-por-Estabelecimento

A tabela segur_unid_organ faz o link entre estabelecimento e grupo do usuário. 

Abraço,

Doglans. 

Em ter., 26 de nov. de 2024 às 11:46, Marcelo Torres <mtor...@gmail.com> escreveu:

Para ver esta discussão, visite https://groups.google.com/d/msgid/progress_4gl/CAJEr9Okk6GsgTKbE6o1bXGaGxeDDqn4Q3KhM%3DSEn%3DP12tVC7Pw%40mail.gmail.com.

[Marcelo Torres]

Olá Doglans.

Obrigado pelo apoio.

Eu até havia encontrado uma tabela com a segurança. É a seg_usuar_estab. Mas a solução do Jaime é bem mais tranquilo. Uma include já faz todo o "trabalho sujo". E tem toda uma documentação. Fica até fácil implementar.

Abraço,

Marcelo Torres

Para ver esta discussão, visite https://groups.google.com/d/msgid/progress_4gl/CA%2Bby%3DVC-i%2BdjWhvc-4qe7gm8oFE%2BXsDCDKoSyowzDsSd_UAEQQ%40mail.gmail.com.