Set Key

[jponce]

Hola a todos nuevamente.

Hace algunos dias hice unas consultas acerca de SETKEY y gracias a los aportes logre utilizar el setkey, pero ahora me veo en otro problema,
Como puedo hacer para que con la tecla F2 siempre en el mismo formulario pueda llamar diferentes ayudas.

Ahora lo hago con f3,f2,f4 pero quiero que al pocicionarme en una variable de codigo pueda obtner una ayuda con f2 como se hacia con el antiguo clipper,

se puede hacer esto? o sigo haciendolo como hasta ahora que por cada ayuda de un formulario sea un setkey diferente.


Atentamente
Julio Ponce
Suministros y Proyectos

[ADBLANCO]

BUENO, PUEDES HACERLO MAS O MENOS ASÍ

Code: Select all

  bDCIUTER    := {|| cGetSel:=CONSULTA(oDCIUTER,"MCIUDAD",oDlg,mDCIUTER)        ,;
                     IIF(len(ALLTRIM(cGetSel))<>0,(mCEDOTER:=SUBSTR(cGetSel,1,3),;
                     mCCIUTER:=SUBSTR(cGetSel,4,4)                              ,;
                     mDCIUTER:=BUSCA_VALOR(mCCIUTER+mCEDOTER,"CIUDAD","NOMBRE") ,;
                     mDEDOTER:=BUSCA_VALOR(mCEDOTER,"ESTADO","NOMBRE")          ,;
                     oDCIUTER:VARPUT(mDCIUTER)                                  ,;
                     oDCIUTER:REFRESH()                                         ,;
                     oDEDOTER:VARPUT(mDEDOTER)                                  ,;
                     oDEDOTER:REFRESH()),)                                      ,;
                     oDLg:Refresh(),oDCIUTER:setfocus(.t.)}


    REDEFINE  GET oDCIUTER    VAR mDCIUTER   ID 238 OF oDlg          ;
              PICTURE "@!S15"                                           ;
              VALID IIF(v_nciud(mDCIUTER,@mCCIUTER,@mDCIUTER,@mCEDOTER, ;
                        @mDEDOTER),(oDEDOTER:REFRESH(),.T.),.F.)        ;
              MESSAGE "Indique la Ciudad, (F4 o Doble Click=>Lista)"    ;
              WHEN lEdit .and. lMod .AND. !(MRAMO=1 .AND. MTIPREC=4) .AND. !(mAMPAROAF = '12')

    oDCIUTER:bKeyDown   := { | nKey |  iif(nKey==VK_F4,EVAL(bDCIUTER),)}

    oDCIUTER:bLDblClick := {|| EVAL(bDCIUTER)}

 

[jponce]

OK.

Muchas gracias por tu ayuda me funcionó.

Atentamente
Julio Rodrigo Ponce HInestroza

BUENO, PUEDES HACERLO MAS O MENOS ASÍ

Code: Select all

  bDCIUTER    := {|| cGetSel:=CONSULTA(oDCIUTER,"MCIUDAD",oDlg,mDCIUTER)        ,;
                     IIF(len(ALLTRIM(cGetSel))<>0,(mCEDOTER:=SUBSTR(cGetSel,1,3),;
                     mCCIUTER:=SUBSTR(cGetSel,4,4)                              ,;
                     mDCIUTER:=BUSCA_VALOR(mCCIUTER+mCEDOTER,"CIUDAD","NOMBRE") ,;
                     mDEDOTER:=BUSCA_VALOR(mCEDOTER,"ESTADO","NOMBRE")          ,;
                     oDCIUTER:VARPUT(mDCIUTER)                                  ,;
                     oDCIUTER:REFRESH()                                         ,;
                     oDEDOTER:VARPUT(mDEDOTER)                                  ,;
                     oDEDOTER:REFRESH()),)                                      ,;
                     oDLg:Refresh(),oDCIUTER:setfocus(.t.)}


    REDEFINE  GET oDCIUTER    VAR mDCIUTER   ID 238 OF oDlg          ;
              PICTURE "@!S15"                                           ;
              VALID IIF(v_nciud(mDCIUTER,@mCCIUTER,@mDCIUTER,@mCEDOTER, ;
                        @mDEDOTER),(oDEDOTER:REFRESH(),.T.),.F.)        ;
              MESSAGE "Indique la Ciudad, (F4 o Doble Click=>Lista)"    ;
              WHEN lEdit .and. lMod .AND. !(MRAMO=1 .AND. MTIPREC=4) .AND. !(mAMPAROAF = '12')

    oDCIUTER:bKeyDown   := { | nKey |  iif(nKey==VK_F4,EVAL(bDCIUTER),)}

    oDCIUTER:bLDblClick := {|| EVAL(bDCIUTER)}