Posicionar a Dialog Calendário

[maudruidas]

Bom dia, tenho um GET que chama meu calendário. Gostaria de saber como faço para posicionar o calendário abaixo do GET. Já vi vários exemplos mas não estou conseguindo fazer. Abaixo tenho uma Dialog com as posições corretas em relação a um GET, porém quando mudo de GET ele não coloca na posição correta, ou seja, não consigo fazer o relacionamento da posição do GET para achar a posição correta da Dialog. Desde já agradeço.

Meu GET

  REDEFINE GET OGMC1 VAR ABE ID 106 OF ODLGMC PICTURE "99/99/9999" BITMAP "CALENDAR" ;
  ACTION CALEND(@ABE,OGMC1) WHEN (LETRA="I" .OR. LETRA="A")
  OGMC1:lBtnTransparent := .t.       // transparent button

Meu Calendário

FUNCTION CALEND(oVar,oObj)
  local ocal, ARECT, LN1,CO1,LN2,CO2

  ARECT := GetClientRect( oObj:hWnd )

//  ? aRect[ 3 ] // 16
//  ? aRect[ 4 ] // 96

  LN1 := aRect[3]-6.6
  CO1 := aRect[4]-26
  LN2 := aRect[3]+2.4
  CO2 := aRect[4]+7

//  ? ln1
//  ? co1
//  ? ln2
// ? co2

//  DEFINE DIALOG oDlg FROM 9.4, 70 TO 18.4,103  Title "Calendário" COLOR CLR_BLACK,FUNDO  // Este coloca na posição correta do get

DEFINE DIALOG oDlg FROM LN1, CO1 TO LN2, CO2 Title "Calendário" COLOR CLR_BLACK,FUNDO 

ODLG : LHELPICON := .F.  // Tira a ? da janela

  @-10,-10 CALENDAR oCal VAR oVar PIXEL of oDlg;
              DBLCLICK  (oVar:= oCal:GetDate(),oObj:refresh(),oDlg:end());
              ON CHANGE oVar:= oCal:GetDate() SIZE 150,230 ;
              ACTION( oVar:= oCal:GetDate(),oObj:refresh(),oDlg:end());
              WEEKNUMBER
  ACTIVATE DIALOG oDlg 
  return nil
 

[Rogerio Figueira]

Bom dia.
Uso o campo  DTPICKER  definido no RC

CONTROL "", 4002, "SysDateTimePick32", WS_TABSTOP, 40, 56, 60, 14

e no PRG:
REDEFINE DTPicker oPmatriz[7] VAR Pmatriz[7] ID 4002 of oT270 UPDATE //emissao

 

[]´s

 

[maudruidas]

Bom dia Rogério, já havia estudado esta opção, porém verifiquei que neste campo não dá para digitar a data por inteiro, tenho de colocar o dia, mudar com a seta para o mês e em seguida para o ano, além de ter de trocar todas as datas do meu sistema, mas te agradeço pela dica.