remtec wrote:Hola Karinha
... lo que necesito es que mientras digia, si Lic1 toma el "S" debe mostrar el los Get y Say, de lo Contrario, no debe mostrar nada en ese Sector.
Quedo atento a los comentarios.
Muchos Saludos.
Antonio
Hola Antonio.
Prueba este codigo ejemplo, a ver si te ayuda en algo.
- Code: Select all Expand view RUN
- //----------------------------------------//
Function Prueba()
local dia_lic1 := 0, Nro_Lic1 := space(15), Tip_Lic1 := " " ,;
Fec_Ini1 := ctod(" / / "),Fec_Fin1 := ctod(" / / ")
local oDlg99,oFont992,oFont993
local oGroup992
local oTip_Lic1, oNro_Lic1, oFec_Ini1, oFec_Fin1, oDia_Lic1
local Lic1:="N",oLic1
local oSay1,oSay2,oSay3,oSay4,oSay5
local oTruco,cTruco
DEFINE DIALOG oDlg99 SIZE 600,600 PIXEL TITLE "ANTECEDENTES"
DEFINE FONT oFont992 NAME "ARIAL" SIZE 0,-14 BOLD ITALIC
DEFINE FONT oFont993 NAME "ARIAL" SIZE 0,-12 BOLD
@ 150,10 SAY "LICENCIA [S/N]" PIXEL OF oDlg99 COLOR RGB(0, 60, 179) FONT oFont993
@ 150,73 GET oLic1 Var Lic1 SIZE 10,10 PIXEL OF oDlg99 PICTURE "@!" COLOR RGB(0,0,128) FONT oFont993 UPDATE;
VALID Valida( oDlg99,Lic1,oLic1,oTruco ,;
{oSay1,oSay2,oSay3,oSay4,oSay5,;
oTip_Lic1, oNro_Lic1, oFec_Ini1, oFec_Fin1, oDia_Lic1} )
@ 150,-50 GET oTruco Var cTruco SIZE 10,10 PIXEL OF oDlg99 ; //necesario para cuando se ejecute el valid y los demas objetos está ocultos.
VALID .T.
@ 165,05 GROUP oGroup992 TO 220,270 PIXEL OF oDlg99 PROMPT " ANTECEDENTES LICENCIA MEDICA " FONT oFont992 TRANSPARENT
@ 185,010 SAY oSay1 PROMPT "Tipo Licencia" PIXEL OF oDlg99 FONT oFont993
@ 185,130 SAY oSay2 PROMPT "Nro. Licencia" PIXEL OF oDlg99 FONT oFont993
@ 200,010 SAY oSay3 PROMPT "Inicio" PIXEL OF oDlg99 FONT oFont993
@ 200,95 SAY oSay4 PROMPT "Término" PIXEL OF oDlg99 FONT oFont993
@ 200,185 SAY oSay5 PROMPT "Cant. Dias" PIXEL OF oDlg99 FONT oFont993
@ 185,58 GET oTip_Lic1 Var Tip_Lic1 SIZE 50,10 PIXEL OF oDlg99 PICTURE "!" COLOR RGB(0,0,128) FONT oFont993 UPDATE
@ 185,180 GET oNro_Lic1 Var Nro_Lic1 SIZE 66,10 PIXEL OF oDlg99 PICTURE "@!" COLOR RGB(0,0,128) FONT oFont993 UPDATE
@ 200,32 GET oFec_Ini1 Var Fec_Ini1 SIZE 50,10 PIXEL OF oDlg99 PICTURE "@d" COLOR RGB(0,0,128) FONT oFont993 UPDATE
@ 200,127 GET oFec_Fin1 Var Fec_Fin1 SIZE 50,10 PIXEL OF oDlg99 PICTURE "@d" COLOR RGB(0,0,128) FONT oFont993 UPDATE;
VALID .T. //Calcula_Dias(oDia_Lic1,oDlg99,Fec_Ini1,Fec_Fin1)
@ 200,223 SAY oDia_Lic1 Var Dia_Lic1 SIZE 20,10 PIXEL OF oDlg99 PICTURE "999" COLOR RGB(0,0,128) FONT oFont993 BORDER
ACTIVATE DIALOG oDlg99 CENTERED ;
ON INIT EVAL(oLic1:bValid)
oDlg99:End()
oFont992:End()
oFont993:End()
Return nil
//---------------------------------------------
Function Valida( oDlg99,Lic1,oLic1,oTruco,aObjs)
local n, lRet:=.t.
if !Lic1 $"SN"
MsgStop("Debe introducir 'S' o 'N'","Error")
oLic1:SetFocus()
Return .f.
endif
If Lic1 = "S"
For n := 1 to len(aObjs)
aObjs[n]:Show()
Next
lRet:=.t.
Else
For n := 1 to len(aObjs)
aObjs[n]:Hide()
Next
lRet:=.f.
Endif
oDlg99:Refresh()
Return lRet
Saludos.
