Clipper/FiveWin - ENLAZAR POR DIA Y HORA

 
Vista:

ENLAZAR POR DIA Y HORA

Publicado por Raul Andrade (14 intervenciones) el 29/03/2010 21:55:24
Como estan amigos los saludos indicandoles q su for es genial y me atrevo a pedirles una ayuda ya q me encuentro haciendo un programa en clipper 5.0 y no se como poder hacer q los apellidos y el puesto de guardias aparezcan en el dbedit de acuerdo al dia y la hora es decir si un guardia tiene q trabajar el lunes en la mañana, el martes en la noche, el miercoles en la mañana asi sucesivamente me aparezca automaticamente en el dbedit de acuerdo a la fecha q esta en el sistema si es lunes 29 y el guardia trabaja lunes de dia q aparezca todos los lunes q tiene q trabajar de dia y si es de noche tambien....... Les estaria eternamente agradecido por su ayuda....

y saben q me estoy partiendo la cabeza en saber como puedo hacer q la clave q ingreso no se vea el numero si no sea reemplazado por asteriscos....
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:ENLAZAR POR DIA Y HORA

Publicado por Jordi Riba (10 intervenciones) el 30/03/2010 00:34:05
Hola Raul,
a ver si te sirve esto por el tema de los asteriscos

PROCEDURE PASS
PUBLIC nadm
SETCOLOR (VCBOXBX)
code := pw( 19,20, 6 )
DO WHILE .T.
code := Upper( code )
DO CASE
CASE code = '123456'
nadm := 'ROSA '
RETURN
CASE code = '789101'
nadm := 'JORDI '
RETURN
CASE code = '202108'
nadm := 'TONI '
RETURN
CASE code = '098773'
nadm := 'CARME '
RETURN
CASE code = '139876'
nadm := 'NATMAR'
RETURN
OTHERWISE
code := pw( 19, 20, 6 )
LOOP
ENDCASE
ENDDO
RETURN

FUNCTION PW( rr, cc, pw_len )
LOCAL pas_str
LOCAL PssWd

rr := Iif( rr > 18, 18, rr )
cc := Iif( cc > 40, 40, cc )
pas_str := ''
key := 0

SAVE SCREEN TO PssWd

@ rr, cc, rr + 6, cc + 40 BOX BoxStr()
@ rr + 2, cc + 9 SAY 'Teclegi el seu PassWord'
@ rr + 3, cc + 15 SAY '(' + Cstr( pw_len ) + ' caracters)'
@ rr + 5, cc + 15 SAY ''

DO WHILE key # car_ret
SET CONSOLE off
key := Preadchr( @pas_str, pw_len )
SET CONSOLE ON
@ rr + 5, cc + 15 SAY Space( pw_len )
@ rr + 5, cc + 15 SAY Replicate( '*', Len( pas_str ) )
ENDDO
SET CURSOR ON
RESTORE SCREEN FROM PssWd

RETURN pas_str


Suerte!

Jordi
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:ENLAZAR POR DIA Y HORA

Publicado por Raul Andrade (14 intervenciones) el 30/03/2010 17:32:48
Gracias jordi por tu ayuda pero tengo un problema al momento de compilar me sale ok pero al hacer esta ruta rtlink fi clave out clave lib clipper para sacar el .obj y me sale q las libreria estan erroneas
BOXSTR, CSTR, PREADCHR
ayudame con esto estoy programando en clipper 5.0 quizas por esa razon me sale ese error....

antemano gracias
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar