Xailer & OZ Software

Buenas tardes a todos

Favor de indicarme que libreria debo agregar para que xailer reconosca las siguientes funciones :

LASTOFMONTH'()
VALHORA()
ADDMINUTE()

indico el error :

E:/Proyectos Xailer/Projects/winsai82/Obj/Functfechas.do:Functfechas.c:(.data+0x298): undefined reference to `HB_FUN_LASTOFMONTH'
E:/Proyectos Xailer/Projects/winsai82/Obj/Functfechas.do:Functfechas.c:(.data+0x328): undefined reference to `HB_FUN_VALHORA'
E:/Proyectos Xailer/Projects/winsai82/Obj/Functfechas.do:Functfechas.c:(.data+0x348): undefined reference to `HB_FUN_ADDMINUTE'
0 Files, 0 Warnings, 3 Errors
Tiempo de compilación: 0.00s Tiempo de enlazado: 3.66s Tiempo total: 3.83s


por su ayuda mil gracias

Olá,

com certeza estas funções não existem no Harbour (distribuição).

Antes do Xailer, qual é o ambiente de desenvolvimento que usa estas funções?
LIBs? Clipper? xHarbour?.... anexe o script de compilação, talvez tenha alguma pista sobre LIBs de terceiros.

Uma destas funções tem equivalente com outro nome no pacote CT, incluído no Harbour.

Qual é a sua versão do Xailer?

jjgp2 escribió: Jue Jun 12, 2025 2:28 am Favor de indicarme que libreria debo agregar para que xailer reconosca las siguientes funciones :

LASTOFMONTH()
VALHORA()
ADDMINUTE()

Si de algo te sirve lo solucione asi :

FUNCTION DiasDelMes(nAnio, nMes)
LOCAL nDias

DO CASE
CASE nMes == 2 // Febrero
IF EsBisiesto(nAnio)
nDias := 29
ELSE
nDias := 28
ENDIF
CASE nMes == 4 .OR. nMes == 6 .OR. nMes == 9 .OR. nMes == 11 // Abril, Junio, Septiembre, Noviembre
nDias := 30
OTHERWISE // Enero, Marzo, Mayo, Julio, Agosto, Octubre, Diciembre
nDias := 31
ENDCASE

RETURN nDias

// Función para determinar si un año es bisiesto
FUNCTION EsBisiesto(nAnio)
IF (nAnio % 4 == 0 .AND. nAnio % 100 != 0) .OR. nAnio % 400 == 0
RETURN .T.
ELSE
RETURN .F.
ENDIF


Function daysinmonth(nmes,nanio )
nDiasMes:=DiasDelMes(nanio, nmes)
return nDiasMes

y Por aqui devuelvo los minutos

FUNCTION fconvemin( chora )
LOCAL nminutos := 0
//LogDebug(chora,"fconvemin")
//chora:=IIF(AllTrim(chora)="","00:00",chora)
if chora<>NIL
if Val( Left( chora,2 ) )>0 .or. Val( Right( chora,2 ))>0
IF !Empty( AllTrim( chora ) )
nminutos := Val( Left( chora,2 ) ) * 60 + Val( Right( chora,2 ) )
ENDIF
endif
endif

RETURN nminutos