FiveTech Software tech support forums

... local oError local nError := 0 if ::hData != NIL nError = hb_zebra_geterror( ::hData ) endif if nError != 0 hb_zebra_destroy( ::hData ) oError := ErrorNew() oError:SubSystem = "TCODEBARS" oError:SubCode = nError oError:Severity = 2 Eval( ErrorBlock(), oError ) endif RETURN nil #pragma ...

Hola. usando harbour y Fwh la ultima. Me arroja estos errores: [1]:iLink32.Exe -Gn -q -aa -Tpe -x @testMaria.bcl Error: Unresolved external 'WinMain' referenced from X:\HARB\BCC7\LIB\C0W32.OBJ Error: Unresolved external '_hb_vmProcessSymbols' referenced from X:\PROYECTOS\TEST\MARIA\OBJ\MARIA.OBJ Err...

... soporte para arrays, hashes and objects. Por ejemplo: ? AP_HeadersIn() Puedes inspeccionar cualquier objeto simplemente haciendo, por ejemplo, ? ErrorNew() La nueva versión está disponible desde: https://github.com/FiveTechSoft/mod_harbour

... function AP_RPuts() support for arrays, hashes and objects. In example: ? AP_HeadersIn() You can inspect any object simply doing, in example, ? ErrorNew() New version available from: https://github.com/FiveTechSoft/mod_harbour

... 2. Un objeto está contenido en un array. Esto lo puedes comprobar calculando su longitud, como hacemos con un array: ? Len( GetNew() ) ? Len( ErrorNew() ) etc. Las "DATA"s son mensajes que nos permiten acceder a las posiciones de ese array y obtener sus valores. Todas las DATAs estan ...

... ErrorBlock([<bErrorHandler>])->bCurrentErrorHandler ErrorLevel([<nNewReturnCode>])->nCurrentReturnCode ErrorNew([<cSubSystem>],[<nGenCode>],[<nSubCode>],[<cOperation>],[<cDescription>],{<aArgs>],[<cModuleName>],[<cProcName>],[<nProcLine>])->oError ...

... DllUnload DMY DOSError DosParam DoW DoY DriveType DToC DtoR DToS ElapTime Empty Enhanced Eof EoM EoQ EoY Error ErrorBlock ErrorLevel ErrorNew ErrorSys Eval ExeName Exp Expand Exponent Fact Fahrenheit FClose FCount FCreate FErase FError Field FieldBlock FieldDec FieldDeci FieldGet ...

... CASE "https" CASE "pop3s" CASE "pops" CASE "smtps" IF ::lHasSSL lSSL := .T. EXIT ENDIF OTHERWISE oErr := ErrorNew() oErr:Args := { Self, oURL:cProto } oErr:CanDefault := .F. oErr:CanRetry := .F. oErr:CanSubstitute := .T. oErr:Description := "unsupported ...

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...

Gente antes que nada les deseo un FELIZ 2014! tengo un problema quiero compilar mi programa con xharbour 1.2.3, borland 5.82 y fwh8.11 y me sale estos horrores: MAKE Version 5.2 Copyright (c) 1987, 2000 Borland D:\xhbcc582\bin\harbour .\CONTA.PRG /L /N /W /Oobj\ /Id:\donb\fwhh\include;D:\xhbcc582\in...

... la adoerror. Les paso ambas: FUNCTION AdoError(oCon, oError) LOCAL oTmp FOR EACH oTmp IN oCon:Errors // oAdoErrors IF oError == nil oError := ErrorNew() oError:Description := "Error desconocido ADO" ELSE oError:SubCode := oTmp:NativeError //¡¡¡num. error nativo oError:Description ...

Antonio, Instalé la versión que puedes descargar desde fivetech, la 1.0.1 si no me equivoco, por si esta era antigua y me da un porrón de errores...a ver si doy con ello Me sale esto...(perdón por el mogollón) C:\HARBOUR\TESTS>c:\borland\bcc55\bin\ilink32 -aa -Tpe @b32.bc Turbo Incremental Link 5...

... pertenecen. Este modelo se implementó de igual forma en Harbour/xHarbour. Para comprobar que un objeto es un array, puedes hacer: MsgInfo( Len( ErrorNew() ) ) // ErrorNew() crea un objeto error. De la misma forma puedes acceder a sus datos directamente, como si fuese un array: oError = ErrorNew() ...

... export) any given processed record. bFor := {||.T.} END IF IF lExport // COPY TO DELIMITED handle := FCREATE( cFileName ) IF handle == -1 oErr := ErrorNew() oErr:severity := ES_ERROR oErr:genCode := EG_CREATE oErr:subSystem := "DELIM" oErr:subCode := 1002 oErr:description := HB_LANGERRMSG( oErr:genCode ...

... TE SIRVA SOLO LLAMA A OBJ_DATA Y CAMBIALE CLASE POR LA QUE QUIERES SABER SUS DATAS function OBJ_DATA() // VER DATAS DE UN OBJETO *local o := ErrorNew() // Vamos a ver las DATAs de un objeto error local o := CLASE() // Vamos a ver las DATAs de un objeto error local aInfo := o:ClassSel() LOCAL ...