FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour Como manejo este picture
goosfancito
Posts: 1956
Joined: Fri Oct 07, 2005 07:08 PM
Como manejo este picture
Posted: Fri Sep 25, 2020 12:41 AM

hola.
necesito que un get acepte solo numeros con o sin decimales y que al final "puede" aceptar el simbolo de porcentage.
12.25%
o tambien
12.25

como lo hago?
gracias.

FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/
karinha
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: Como manejo este picture
Posted: Fri Sep 25, 2020 02:58 AM
http://forums.fivetechsupport.com/viewtopic.php?f=6&t=37736&p=225629&hilit=cPicture#p225629
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
goosfancito
Posts: 1956
Joined: Fri Oct 07, 2005 07:08 PM
Re: Como manejo este picture
Posted: Fri Sep 25, 2020 05:53 PM

He leido el post pero no encuentro la idea de lo que necesito.

yo necesito que en el campo pueda introducir alguna de estas alternativas: solo numeros o numeros mas un signo de porcentage.
Ejemplo:
100
10%

FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/
karinha
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: Como manejo este picture
Posted: Fri Sep 25, 2020 07:31 PM

Muestra una imagen de tú dialogo para que yo pueda tener una idea porfa.

Usando un RADIO para cambiar el Tipo de GET, és posible?

Saludos.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
goosfancito
Posts: 1956
Joined: Fri Oct 07, 2005 07:08 PM
Re: Como manejo este picture
Posted: Fri Sep 25, 2020 08:34 PM

es que quiero hacerlo mas facil para el usuario.
no tengo imagen.
es un get que necesito que se ingrese un numero o un numero y seguido el %
Descuento: 300
Descuento: 10%

FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/
karinha
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: Como manejo este picture
Posted: Fri Sep 25, 2020 09:16 PM
Mira donde está escrito "Desconto" se és esto.

https://i.imgur.com/ZUY3KOP.png



Saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
goosfancito
Posts: 1956
Joined: Fri Oct 07, 2005 07:08 PM
Re: Como manejo este picture
Posted: Sat Sep 26, 2020 01:22 AM

vos ahi haces dos get uno para $ y otro para % yo quiero integrarlos y hacer en un solo get. por eso quiero que el picture tenga el % o no...

FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/
karinha
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: Como manejo este picture
Posted: Sat Sep 26, 2020 03:01 AM

se usas recursos(workshop),haga dos GETS uno encima del otro y use Hide () y Show () para intercambiarlos en tiempo real.

Saludos.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
FranciscoA
Posts: 2170
Joined: Fri Jul 18, 2008 01:24 AM
Re: Como manejo este picture
Posted: Sat Sep 26, 2020 03:58 PM

Hola Joao.
Puedes mostrar el codigo que usaste en el get "Desconto em %" ?
Gracias.

Francisco J. Alegría P.

Chinandega, Nicaragua.



Fwxh-MySql-TMySql
karinha
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: Como manejo este picture
Posted: Sat Sep 26, 2020 04:56 PM
Con mucho gusto Francisco, mira:

Code (fw): Select all Collapse
   // DESCONTOS NA PROPOSTA:
   REDEFINE GET aGet[14] VAR nDescPercent PICTURE "@K 99.99 %" ID 34 OF oDlg ;
      UPDATE COLORS CLR_HRED, CLR_WHITE FONT oFont                           ;
      VALID ( CALCULA_DESC_PERCENT_INSUMOS( aGet ) )

   aGet[14]:cTooltip := "Desconto no Fornecimento(Insumos) em Percentual(%)"

   // NOVO EM: 19/03/2020 - nDesconto
   REDEFINE GET aGet[15] VAR nDesconto  PICTURE "@K 99999.99" ID 35 OF oDlg  ;
      UPDATE COLORS CLR_HRED, CLR_WHITE FONT oFont                           ;
      VALID ( CALCULA_DESCONTO_INSUMOS( aGet ) )

   aGet[15]:cTooltip := "Desconto no Fornecimento(Insumos) em $"

// dialogo hecho en workshop.exe the best.

DLG_PRODUTOS_NFE DIALOG 6, 3, 556, 334
STYLE DS_ABSALIGN | WS_CHILD | WS_VISIBLE | WS_BORDER
FONT 8, "MS Sans Serif"

{
 EDITTEXT 20, 87, 19, 70, 12, ES_CENTER | ES_MULTILINE | NOT WS_TABSTOP | WS_BORDER
 EDITTEXT 21, 232, 19, 70, 12, ES_CENTER | ES_MULTILINE | NOT WS_TABSTOP | WS_BORDER
 EDITTEXT 22, 87, 34, 280, 12, ES_MULTILINE | NOT WS_TABSTOP | WS_BORDER
 EDITTEXT 23, 5, 105, 90, 12, ES_CENTER | WS_BORDER | WS_TABSTOP
 EDITTEXT 24, 98, 105, 210, 12, ES_MULTILINE | WS_BORDER | WS_TABSTOP
 EDITTEXT 25, 311, 105, 90, 12, ES_CENTER | NOT WS_TABSTOP | WS_BORDER
 EDITTEXT 27, 404, 105, 60, 12, ES_CENTER | WS_BORDER | WS_TABSTOP
 PUSHBUTTON "&Gravar/Finalizar", 301, 467, 103, 85, 14
 CONTROL "0.00", 34, "EDIT", ES_CENTER | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP, 105, 284, 50, 12
 CONTROL "0.00", 35, "EDIT", ES_CENTER | ES_MULTILINE | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP, 251, 284, 80, 12
 EDITTEXT 29, 67, 77, 60, 12, ES_MULTILINE | WS_BORDER | WS_TABSTOP
 EDITTEXT 30, 130, 77, 210, 12, ES_MULTILINE | NOT WS_TABSTOP | WS_BORDER
 EDITTEXT 31, 342, 77, 60, 12, ES_CENTER | WS_BORDER | WS_TABSTOP
 EDITTEXT 32, 405, 77, 90, 12, ES_CENTER | WS_BORDER | WS_TABSTOP
 PUSHBUTTON "&Gravar", 305, 497, 76, 50, 14
 PUSHBUTTON "&Imprimir", 306, 10, 311, 60, 16
 PUSHBUTTON "&Excluir Serviço", 304, 73, 311, 90, 16
 PUSHBUTTON "&Obs.", 308, 166, 311, 50, 16
 PUSHBUTTON "Excluir &Produto", 302, 219, 311, 90, 16
 PUSHBUTTON "&Saida", 303, 311, 311, 60, 16
 EDITTEXT 26, 170, 50, 40, 12, ES_CENTER | ES_MULTILINE | WS_BORDER | WS_GROUP | WS_TABSTOP
 RTEXT "Índice(I.V.V.):", 404, 87, 50, 80, 12, SS_RIGHT | NOT WS_GROUP
 RTEXT "Serviço:", 412, 5, 77, 60, 12, SS_RIGHT | NOT WS_GROUP
 EDITTEXT 28, 374, 298, 170, 30, ES_RIGHT | NOT WS_TABSTOP | WS_BORDER
 CONTROL "", 101, "TWBrowse", WS_CHILD | WS_VISIBLE | WS_BORDER | WS_VSCROLL | WS_HSCROLL, 5, 120, 547, 160
 CTEXT "Descrição do Produto no Pleno", 407, 106, 92, 210, 12, SS_CENTER | NOT WS_GROUP
 RTEXT "Proposta N\xBA.:", 401, 5, 19, 80, 12, SS_RIGHT | NOT WS_GROUP
 RTEXT "Contrato N\xBA.:", 402, 159, 19, 70, 12, SS_RIGHT | NOT WS_GROUP
 RTEXT "Nome Cliente:", 403, 5, 34, 80, 12, SS_RIGHT | NOT WS_GROUP
 CTEXT "<F7> Produtos:", 406, 5, 92, 90, 12, SS_CENTER | NOT WS_GROUP
 CONTROL "PLENOIND: FORNECIMENTO - INSUMOS - ACESSÓRIOS.", 50, "EDIT", ES_CENTER | ES_MULTILINE | WS_CHILD | WS_VISIBLE, 0, 3, 366, 12
 CTEXT "Valor do Produto:", 408, 311, 92, 90, 12, SS_CENTER | NOT WS_GROUP
 RTEXT "USE:", 410, 5, 53, 40, 12, SS_RIGHT | NOT WS_GROUP
 CTEXT "Quantidade:", 409, 404, 92, 60, 12, SS_CENTER | NOT WS_GROUP
 LTEXT "Total:", 411, 374, 284, 170, 12, NOT WS_GROUP
 CTEXT "Qtde:", 413, 342, 64, 60, 12, SS_CENTER | NOT WS_GROUP
 CTEXT "Valor Unitário:", 414, 405, 64, 90, 12, SS_CENTER | NOT WS_GROUP
 CTEXT "Serviços no Pleno", 415, 213, 50, 136, 12, SS_CENTER | NOT WS_GROUP
 CONTROL "TBitMap", 121, "TBitMap", WS_CHILD | WS_VISIBLE, 50, 49, 27, 25
 RTEXT "Desconto em %.:", 405, 12, 284, 90, 12, SS_RIGHT | NOT WS_GROUP
 RTEXT "Desconto em $:", 416, 158, 284, 90, 12, SS_RIGHT | NOT WS_GROUP
 CONTROL "TBitMap", 122, "TBitMap", WS_CHILD | WS_VISIBLE, 335, 283, 23, 23
 CONTROL "TBitMap", 120, "TBitMap", WS_CHILD | WS_VISIBLE, 370, 0, 185, 64
}


Saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
leandro
Posts: 1816
Joined: Wed Oct 26, 2005 02:49 PM
Re: Como manejo este picture
Posted: Sat Sep 26, 2020 04:58 PM

una idea, y si usas expresiones regulares y validas la coincidencia mientras digitas.

Saludos
LEANDRO AREVALO
Bogotá (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]
goosfancito
Posts: 1956
Joined: Fri Oct 07, 2005 07:08 PM
Re: Como manejo este picture
Posted: Sat Sep 26, 2020 08:14 PM

si, es lo que estoy intentando.

FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/
EBM
Posts: 147
Joined: Tue Oct 11, 2005 08:22 PM
Re: Como manejo este picture
Posted: Wed Sep 30, 2020 01:34 PM

Otra idea,

Si creas una clase nueva por ejemplo MyGet heredada de la clase TGet y reescribes los metodos KeyDown y KeyChar para que los ajustes a tus necesidades?

Ahi puedes "capturar" las teclas presionadas y si no es "0123456789%" lo rechazas y si el caracter tecleado es un % terminas el get con GoNextCrtl().

Es solo una idea.

Saludos!

Eduardo Borondón Muñiz

karinha
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: Como manejo este picture
Posted: Wed Sep 30, 2020 03:17 PM

Yo crearia un RADIO y listo. Ó un CHECKBOX. Saludos.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
TOTOVIOTTI
Posts: 470
Joined: Fri Feb 05, 2010 11:30 AM
Re: Como manejo este picture
Posted: Mon Oct 05, 2020 01:30 PM

Hola..
y si usás el PICTURE '@k 999%'?

Yo lo tengo así y funciona correctamente...

Saludos
Roberto

Univ@c I.S.I.
Desarrolladores de Software
http://www.elcolegioencasa.ar
Static archive · New replies & topics via GitHub Discussions