Projeto TiraTeima (Say Transparente)

[marcioe]

Pessoal, tudo bem


Preciso fazer um tira Teima para um cliente, onde ele irá colocar um monitor 
Junto a esse monitor um MINI-PC  + Um leitor de Código de barras
Para quando o cliente passar o Código seja exibido a Foto, nome, preço, etc...

A ideia seria uma tela tipo essa sem GET aparente,  ( ou seja a tela seria allcliente) tamanho do monitor.   
Aparentemente sem nada de campo para passar o código de barras(pode ser invisivel), dai ao receber o Código de barras ele pesquisa na base do cliente e exibe caso encontre, caso contrario um texto que não localizou..  etc

ou com esse mini PC  Chines

 

Alguem tem alguma ideia de como fazer algo parecido

 

 

 

 

[kapiaba]

Se entendi a ideia, se você usa RECURSO(WorkShop.exe), basta você colocar o GET, fora da TELA. Em cima do DIALOGO, ao lado ou embaixo do mesmo. deixe identado nele(GET) como o principal ou único com o TABSTOP ligado nele e e os demais, sem TABSTOP e pimba, funciona de boas.

Se entendi... Se não entendi... So sorry. Teste e comente. abs.

 

Regards, saludos.

[marcioe]

Ok, obrigado tinha pensado nisso, mas achei que tinha algo como um "get invisivel" na dialog.   
mas é um caminho a sua ideia

[kapiaba]

Pode ser invisível, tente com HIDE(),  ON INIT( oGet:Hide() ) para ver se funciona, senão, basta por FORA DO DIALOGO.

De uma forma ou de outra, funcionará se o TABSTOP estiver ligado.

Regards, saludos.

[marcioe]

Trabalhos iniciado
Mini Pc Chines....  kkk

Depois posto como ficou o resultado final

 

Vamos vendo como fica

[marcioe]

Bom dia a todos, tem como colocar o campo Transparente

Como Podem Ver eu já tentei de várias Formas, mas não dá certo 

	REDEFINE  SAY oT_PRECO_TIRA_TEIMA     						VAR T_PRECO_TIRA_TEIMA     			          			ID 4003 OF oDlg_TIRA_TEIMA PICTURE "@ZE 999,999.99"  FONT o_F_TIRA_TEIMA_NOME  COLOR CLR_VERMELHO, CORBK   transparent

	REDEFINE  GET oT_COD_BARRA_TIRA_TEIMA     				VAR T_COD_BARRA_TIRA_TEIMA     			          		ID 4007 OF oDlg_TIRA_TEIMA PICTURE "@K!" FONT o_F_TIRA_TEIMA_BARRAS ACTION( PESQUISA_PRODUTO_TIRA_TEIMA(T_COD_BARRA_TIRA_TEIMA) ) BITMAP "#8630" VALID(  PESQUISA_PRODUTO_TIRA_TEIMA(T_COD_BARRA_TIRA_TEIMA) )  COLOR CLR_PRETO,CLR_LWHITE  
	REDEFINE  SAY oT_PRECO_TIRA_TEIMA     						VAR T_PRECO_TIRA_TEIMA     			          			ID 4003 OF oDlg_TIRA_TEIMA PICTURE "@ZE 999,999.99"  FONT o_F_TIRA_TEIMA_NOME  COLOR CLR_VERMELHO, CORBK   transparent
	REDEFINE  SAY oT_UND_TIRA_TEIMA     						VAR T_UND_TIRA_TEIMA		     			          			ID 4004 OF oDlg_TIRA_TEIMA PICTURE "@!"  FONT O_F_GET2_TIRA_TEIMA_NOME  
	REDEFINE IMAGE oT_FOTO_TIRA_TEIMA 				   		VAR T_FOTO_TIRA_TEIMA	 										ID 4018 OF oDlg_TIRA_TEIMA FILE T_FOTO_TIRA_TEIMA adjust UPDATE

 

[kapiaba]

Mira como lo haria:

https://forums.fivetechsupport.com/viewtopic.php?f=3&t=42640&p=256732&hilit=lTransparent+%3A%3D+.t.&sid=a80753133877bcbc87b5f4cf05ba177c#p256732

FUNTION Marcio()
	   DEFINE DIALOG oDlg RESOURCE "DLG_MEU_DLG" TITLE cTitle FONT oFont         ;
      COLORS CLR_BLACK, CLR_WHITE TRANSPARENT //-> ou: GRADIENT aGrad
	   REDEFINE GET oT_COD_BARRA_TIRA_TEIMA VAR T_COD_BARRA_TIRA_TEIMA           ;
      ID 4007 OF oDlg_TIRA_TEIMA PICTURE "@K!" FONT o_F_TIRA_TEIMA_BARRAS    ;
      ACTION( PESQUISA_PRODUTO_TIRA_TEIMA( T_COD_BARRA_TIRA_TEIMA ) )        ;
      BITMAP "#8630"                                                         ;
      VALID( PESQUISA_PRODUTO_TIRA_TEIMA( T_COD_BARRA_TIRA_TEIMA ) )         ;
      COLOR CLR_PRETO, CLR_LWHITE UPDATE
	   REDEFINE SAY oT_PRECO_TIRA_TEIMA VAR T_PRECO_TIRA_TEIMA ID 4003           ;
      OF oDlg_TIRA_TEIMA PICTURE "@ZE 999,999.99" FONT o_F_TIRA_TEIMA_NOME   ;
      COLOR CLR_VERMELHO, CORBK UPDATE
	   oT_PRECO_TIRA_TEIMA:lTransParent := .T. // or .F.
	   REDEFINE SAY oT_UND_TIRA_TEIMA VAR T_UND_TIRA_TEIMA ID 4004               ;
      OF oDlg_TIRA_TEIMA PICTURE "@!" FONT O_F_GET2_TIRA_TEIMA_NOME UPDATE
	   oT_UND_TIRA_TEIMA:lTransParent := .T. // or .F.
	   // REDEFINE BITMAP oBtn ID 120 RESOURCE "PROP212" TRANSPARENT OF oDlg ADJUST
	   REDEFINE IMAGE oT_FOTO_TIRA_TEIMA VAR T_FOTO_TIRA_TEIMA ID 4018           ;
      OF oDlg_TIRA_TEIMA FILE T_FOTO_TIRA_TEIMA UPDATE TRANSPARENT ADJUST
	   ACTIVATE DIA...
	RETURN NIL

Regards, saludos.