FiveTech Software tech support forums

... ) cMesAno :="01/2021" dData := Ctod( "15/"+cMesAno ) cAno := Right( cMesAno,4 ) cCompetencia := "01/2021" // cMonth( dData )+"/"+cAno // oMes := oTree:Add( cCompetencia,0 ) // Item Raiz do tree cField := Upper( "MOV_"+Substr(cCompetencia,1,3) ...

... there is a space between the Month and year dMonth := "Febbraio 2014" nPos := At( dMonth , " " ) // should equal position 9 cMonth := substr(dMonth,1,(nPos-1)) // should equal "Febbraio" Basically .. find the position of the blank between the month and year .. then ...

... : for n := 1 to 7 for i := 1 to NUM_TABLES AAdd( aRes[ i ], Array( LastDayOM( dMonth ) + 1 ) ) AFill( aRes[ i ][ n ], .f. ) aRes[ i ][ n ][ 1 ] := cMonth( dMonth ) next i dMonth := AddMonth( dMonth, 1 ) next n and I have the same result https://s17.postimg.cc/5zo4j525b/image.png ...

... ( shows only the customer selected from DBF 1 ) // get the name from customer.dbf WITH OBJECT oBrw1 // Customer :bChange := { || SET_SCOPE(cMonth) ; // set the customer-filter in browser 2 services oBrw2:Refresh()} // refresh services DBF 2 END oBrw2 shows services of the selected customer ...

... ( shows only the customer selected from DBF 1 ) // get the name from customer.dbf WITH OBJECT oBrw1 // Customer :bChange := { || SET_SCOPE(cMonth) ; // set the customer-filter in browser 2 services oBrw2:Refresh()} // refresh services DBF 2 END oBrw2 shows services of the selected customer ...

... ClEol([<nRow>],[<nCol>])->cNull ClWin([<nTop>],[<nLeft>],[<nBottom>],[<nRight>])->cNull CMonth(<dDate>)->cMonth Col()->nCol ColorRepl([<xNewColor>],[<xOldColor>])->cNull ColorSelect(<nColorIndex>)->Nil ...

... CharSHR CharSList CharSort CharSpread CharSub CharSwap CharUnpack CharWin CharXOR CheckSum Chr ClearBit ClearEol ClearSlow ClearWin ClEol ClWin CMonth Col ColorRepl ColorSelect ColorToN ColorWin CompressString ConvToAnsiCP ConvToOemCP Cos CosH Cot CountLeft CountRight CreateObject Crypt CSetAtMuPa ...

Antonio buenas noches, ahora son estos: Proyecto: Kept5, Entorno: BorlandDLL: [1]:Harbour.Exe Source\Tseguro.prg /m /n /es2 /ki /iP:\32bits\xharbour\include;P:\32bits\FWH\INCLUDE /i /oObj\Tseguro.c xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6406) Copyright 1999-2009, http://www.xharbour.org http:...

Antonio buenos dias, gracias por la ayuda Agrego la VM.LIB (xharbour), y me manda estos errorres :( :( Proyecto: Kept5, Entorno: BorlandDLL: [1]:Harbour.Exe Source\Tseguro.prg /m /n /es2 /ki /iP:\32bits\xharbour\include;P:\32bits\FWH\INCLUDE /i /oObj\Tseguro.c xHarbour Compiler build 1.2.1 (SimpLex)...

EXPORTS HB_FUN_AADD @1 HB_FUN_ABS @2 HB_FUN_ACCELERATO @3 HB_FUN_ACCELERATOR @4 HB_FUN_ACHOICE @5 HB_FUN_ACLONE @6 HB_FUN_ACOPY @7 HB_FUN_ADEL @8 HB_FUN_ADIR @9 HB_FUN_AEVAL @10 HB_FUN_AFIELDS @11 HB_FUN_AFILL @12 HB_FUN_AINS @13 HB_FUN_ALERT @14 HB_FUN_ALIAS @15 HB_FUN_ALLTRIM @16 HB_FUN_ALTD @17 H...

... especialmente el archivo FTPCLI.PRG que es el que contiene el Method ListFiles(), encontre que el fallo proviene de la función hb_SToD( cYear + CMONTH + cDay ), concretamente en la parte final, donde se arma el Array que devuelve ListFiles() aFile[ F_NAME ] := SUBSTR( cEntry, nStart ...

Mr Elvira and Mr Rick Some issues still remain: ? CDOW( DateTime() ) --> "Sunday" in Harbour. xHarbour raises runtime error ? CMONTH( DateTime() ) --> "July" in Harbour. xHarbour raises runtime error. xHarbour expects only Date type as parameter for the above functions. ...

Mr Elvira and Mr Rick Some issues still remain: ? CDOW( DateTime() ) --> "Sunday" in Harbour. xHarbour raises runtime error ? CMONTH( DateTime() ) --> "July" in Harbour. xHarbour raises runtime error. xHarbour expects only Date type as parameter for the above functions. ...

... which seem to be fixed now. Some issues still remain: ? CDOW( DateTime() ) --> "Sunday" in Harbour. xHarbour raises runtime error ? CMONTH( DateTime() ) --> "July" in Harbour. xHarbour raises runtime error. xHarbour expects only Date type as parameter for the above functions. ...

y con cMonth(Date()) se obtiene el nombre del mes. Para que te salga en Español hay que activar el código de pagina con: #include "FiveWin.ch"REQUEST HB_LANG_ESWINREQUEST HB_CODEPAGE_ESMWIN  Function Main()  ...