FiveTech Software tech support forums

... FONTSIZE 12 ; ALIGN CENTER ; SPACEBEFORE .12 ; SETDEFAULT NEW PARAGRAPH oRTF TEXT "" ; APPEARANCE BOLD_OFF+ITALIC_OFF+CAPS_OFF SETDATE oRtf FORMAT LONGFORMAT NEW PARAGRAPH oRTF TEXT "" SETDEFAULT aMarca=ARRAY(9) AFILL(aMarca,0) DEFINE NEWTABLE oRTF ; // Specify the ...

... FONTSIZE 12 ; ALIGN CENTER ; SPACEBEFORE .12 ; SETDEFAULT NEW PARAGRAPH oRTF TEXT "" ; APPEARANCE BOLD_OFF+ITALIC_OFF+CAPS_OFF SETDATE oRtf FORMAT LONGFORMAT NEW PARAGRAPH oRTF TEXT "" SETDEFAULT aMarca=ARRAY(9) AFILL(aMarca,0) DEFINE NEWTABLE oRTF ; // Specify the ...

Lo logré :D Instalando el VS Community 2022 Con el .bat call "%ProgramFiles%\Microsoft Visual Studio\2022\Community\VC\Auxiliary\Build\vcvarsall.bat" x86D:\Sistemas\Compiler\HarbourVS\bin\hbmk2 data\prg\proyectoVS.hbp -comp=msvc -run  Intentaré hacerlo portable para no tenerlo instala...

Bueno, solucionado. Por si le sirve a alguien, lo que he hecho ha sido una modificación en el método SetDate de la clase TMonthView, en el fichero tMonthv.prg a partir de la línea 695, la he modificado así:   if nDayWeek  == 7      if Month( dDay_1 ...

... nH, lControl ) En memoedit.prg: Se ha corregido el error de ejecución cuando se especifica el tercer parámetro oDlg. * xbrgetdt.prg: La función SetDate() se ha convertido en estática para evitar conflictos con la función Harbour SetDate(). * Nueva función MsgInfoScroll( cText, [cTitle], [nWidth], ...

... cUrl, cTitle, oDlg, nT, nL, nW, nH, lControl ) in memoedit.prg: Runtime error when 3rd param oDlg is specified fixed. * xbrgetdt.prg: function SetDate() converted to static to avoid conflict with Harbour SetDate() function. * New function MsgInfoScroll( cText, [cTitle], [nWidth], [nHeight], ...

... cUrl, cTitle, oDlg, nT, nL, nW, nH, lControl ) in memoedit.prg: Runtime error when 3rd param oDlg is specified fixed. * xbrgetdt.prg: function SetDate() converted to static to avoid conflict with Harbour SetDate() function. * New function MsgInfoScroll( cText, [cTitle], [nWidth], [nHeight], ...

muy bien

Buenas tardes Antonio, A pesar que en el linkado arroja los dos warnings siguientes la función setdate(nDía, nMes, nAño) ya funciona bien, eso si,hay que ejecutar la aplicación como adminstrador. warnings: Linking with MSVC 2019...hbct.lib(dattime3.obj) : warning ...

Enviadas las libs por wetransfer

Quedamos a la espera de tus resultados

Paz,

La función SetDate() que hay dentro de FWH\source\function\xbrgetdt.prg hay que hacerla static

Vamos a reconstruir FWH 64 y te enviamos las nuevas libs

muchas gracias por tu feedback

Al actualizarme a la versión actual de FWH 64 me encuentro con los siguientes problemas con la función setdate(): Al construir el exe: Linking with MSVC 2019...hbct.lib(dattime3.obj) : warning LNK4006: HB_FUN_SETDATE ya se definió en FiveH64.lib(XBRGETDT.obj); ...

... dFirst := dDateini Endif IF Empty(dDateFin) dLast := dMax else dLast := dDateFin Endif and then on activate dialog I add this ON INIT ( oDtpFirst:SETDATE(dFirst), oDtpLast:SETDATE(dLast) ) https://i.postimg.cc/BbSbG7yd/1-date.png the new test #include "fivewin.ch"#include ...

...    MENU oPopupDate POPUP 2015       MENUITEM "today"  ACTION  (dFirst := date(), dLast := date(), oDtpFirst:SetDate(dFirst), oDtpFirst:Update(), oDtpLast:SetDate(dLast), oDtpLast:Update())       MENUITEM "Tomorrow" ...

Silvio,

FOUND moving to the old date works like:

ACTION oCal:SetDate( oCust:HireDate, .T. ), ; // old date from xBrowse
oCal:Change() ;

or moving back to today from a old selected date
ACTION ( cRet := oCal:SetDate( Date(), .T. ), oCal:Change() ) ;

regards
Uwe