HMGforum.com

Posted: **Tue Apr 26, 2022 5:04 pm**

mustafa wrote: ↑Tue Apr 26, 2022 10:38 am Hola amigo:
Como siempre tu "Docta sabiduría" es bien aceptada , para mi "ignorancia" je... je..
intentaré experimentar con tu código , haber si me aclaro , je... je..

Una forta abraça !!!
Mustafa

Yeeep artísta..,

tu si que sabes...!!!
Mira como funciona ahora el PedidoA.prg.
Puedes elegir entre un windowPannel o un display "normal".
En el display "normal" he tenido que modificar el tamaño de las manecillas del reloj, para no que estropeasen los números.
Y también te he cambiado el modelo del reloj, por el tema del color de fondo.

Creo que ha quedado bastante pinturero

Posted: **Tue Apr 26, 2022 5:28 pm**

Estupendo Nanu
Estoy en ello, muy guapo !!!
Salud
Mustafa

Posted: **Tue Apr 26, 2022 7:24 pm**

Buenas Sr Salinetas:
Cada vez la cosa se está complicando
he modificado un poco el Reloj con Reloj3.bmp ( Para Centrarlo)

En todos los casos hay un retardo cuando se retorna del TAB pag2 a la pag1
pero esto es el mal menor esta todo muy guapo, felicidades.

La antigua solución primera me está gustando mucho (Más Fácil para mi) je... je..

que está en PedidoS.prg

Las Opciones PedidoA.prg muy currada la PedidoB.prg está fallando.

Tengo el siguiente problema ?

No domino el tema Virtual de los Grid , no me aclaro con las sentencias

En el sample tengo que trabajar con:

Form_1.Grid_1.CheckBoxEnabled := .T. // <======== Clientes Cli_ent.dbf
Form_1.Grid_2.CheckBoxEnabled := .T. // <======== Productos Stock.dbf
Form_1.Grid_3.CheckBoxEnabled := .T. // <======== Repartidores Trans.dbf

Lo que quiero evitar que tanto en Clientes como en Repartidores
se puedan marcar mas de una Casilla de CheckBoxEnabled (No puede haber 2 Clientes
en el mismo pedido y no más que un Repartidor)

Me explico solo se puede elegir un cliente y un repartidor
en el caso del Producto (Stock) no hay problema, esta la Opción de todo
o seleccionar productos que suelo pasan al Grid_4 que se modifica o
se pasa a Facturación ver Muestra en Carpeta (Facturas_PdF)

Saludos

Mustafa

Posted: **Wed Apr 27, 2022 6:42 am**

mustafa wrote: ↑Tue Apr 26, 2022 7:24 pm Buenas Sr Salinetas:
Cada vez la cosa se está complicando ... // ...

Me explico solo se puede elegir un cliente y un repartidor .../ ...

Saludos

Mustafa

Hola Senyoret....,

Para poder elegir solo un registro, en cada definición del GRID tienes que introducir esta linea :

Code: Select all

           ON CHECKBOXCLICKED CompruebaSeleccion("Form_1","Grid_1")

y después copias esta función y listo

Code: Select all

// ----------------------------------------------------------------------
// Cada vez que seleccionas un CHECKBOX comprueba que es el único
// Parametros
// cWin    : Nombre de la ventana
// cGrid   : NOmbre del Grid
// ----------------------------------------------------------------------
PROC CompruebaSeleccion(cWin,cGrid)
LOCAL nFin:= GETPROPERTY ( cWin,cGrid,"ItemCount")
LOCAL nSel:=0
LOCAL nFor
	FOR nFor=1 to nFin
		IF GETPROPERTY (cWin,cGrid,"CheckBoxItem",nFor)== .T.
			nSel ++
			IF 	nSel > 1
				MSGBOX("Solo 1 Regristro - Gracias")
				SETPROPERTY (cWin,cGrid,"CheckBoxItem",nFor,.F.)
			ENDIF
		ENDIF
	NEXT
RETURN

Un saludo

Posted: **Wed Apr 27, 2022 7:53 am**

Hola amic:
Moltes " mersis"
Voy a probar, hasta luego Lucsrssss

Mustafa

HMGforum.com

Disappearing Bos Taurus Image

Re: Disappearing Bos Taurus Image

Re: Disappearing Bos Taurus Image

Re: Disappearing Bos Taurus Image

Re: Disappearing Bos Taurus Image

Re: Disappearing Bos Taurus Image