FiveTech Software tech support forums

... qué hace esta función. * New: Functions in olefuncs.prg ExcelLangID() --> nExcelLangID ExcelLang() --> en,es,fr,pt,de,it ExcelTranslate( cFunc ) --> Translated function Dbf2ExcelNumFormat( cPicture ) -> cExcelPic https://forums.fivetechsupport.com/~fivetec1/forums/viewtopic.php?f=16&t=27548 ...

I have compiled ER and Ilink these files %HOME%\EasyReport-master\source\ereport.prg=1,.F.,1,1, %HOME%\EasyReport-master\source\cfunc.c=2,.F.,1,1, %HOME%\EasyReport-master\source\epFunc.prg=3,.F.,1,1, %HOME%\EasyReport-master\source\erfile.prg=4,.F.,1,1, %HOME%\EasyReport-master\source\eritems.prg=5,.F.,1,1, ...

... ) CLASS TControl METHOD KeyDown( nKey, nFlags ) CLASS TControl METHOD ShowDots( lNotShow ) CLASS TControl then it need to compile also the file cfunc.c where are the function for dots perhaps with these modifies the designer could run ok , I cannot try it , because I was never able to compile ...

Prueba a añadir esta línea en cfunc.c antes de los includes:

#define PURE
#include <windows.h>
#include <hbapi.h>

Solución Modificar Olefunc.prg y compilar con su aplicación Que modificar Ir a function ExcelTranslate( cFunc ) en los arreglos esta escrito: local aTranslates := { ; { "TRUE", "VERDADERO", "VRAI", "VERDADEIRO", "WAHR", "VERO" ...

... \ #.\fileedit.prg \ .\vrd.prg \ .\ermain.prg \ .\vrdbcode.prg \ .\vrditem.prg \ .\strings.prg \ .\xcbrowse.prg \ .\tcfoldex.prg C = \ .\cfunc.c \ .\treeview.c \ .\setmask.c OBJ=$(PRG:.prg=.obj) OBJS=$(OBJ:.\=.\obj\) COBJ=$(C:.c=.obj) COBJS=$(COBJ:.\=.\obj\) PROJECT : ereport.exe ereport.exe ...

... .\ertools.prg \ .\vrd.prg \ .\ermain.prg \ .\vrdbcode.prg \ .\vrditem.prg \ .\strings.prg \ <------- Esta es la linea 20 .\tcfoldex.prg C = \ .\cfunc.c \ .\setmask.c .SUFFIXES: .prg .c .obj .rc .res OBJ=$(PRG:.prg=.obj) OBJS=$(OBJ:.\=.\obj\) COBJ=$(C:.c=.obj) COBJS=$(COBJ:.\=.\obj\) CFILES=$(C:.\=.\source\) ...

... error LNK2005: __HUGE already defined in LIBCMT.lib(huge.obj) FiveHC32.lib(CTRLDRAW.obj) : error LNK2005: _HB_FUN_CTRLDRAWFOCUS already defined in cfunc.obj Creating library cfunc.lib and object cfunc.exp cfunc.exe : fatal error LNK1169: one or more multiply defined symbols found

... this change the program fail's code as ::aDBType[ nAlias ] = "DBF" I have also problems with prhst.h When this file is called from cfunc.c , last line (1079) must be : #endif //_PRSHT_H_ When called as (building with ereport.mak) : b:\bcc582\bin\brc32.exe -r -Ib:\bcc582\include ...

... is taken care of now. * New: Functions in olefuncs.prg ExcelLangID() --> nExcelLangID ExcelLang() --> en,es,fr,pt,de,it ExcelTranslate( cFunc ) --> Translated function Dbf2ExcelNumFormat( cPicture ) -> cExcelPic * Enhancement: XBrowse now uses the excel language functions in olefuncs.prg ...

... #include "fivewin.ch" CLASS TINATIVO DATA nTimeInpAntes DATA nTimeInpDepois DATA cTimeAtu DATA nTempo DATA oTimerTime DATA cFunc DATA lContinuar METHOD NEW( nTime, cFuncao, lContinua ) CONSTRUCTOR METHOD ver_tempo() ENDCLASS ********************** METHOD new(ntime,cFuncao,lContinua) ...

... local oDlg, oBrw, oCol, cAlias := cGetNewAlias( "CUST" ) local aGrad := {{ 0.50, CLR_RED, CLR_YELLOW }, { 0.50, CLR_YELLOW, CLR_RED }} cFunc := ProcName( 0 ) USE CUSTOMER NEW ALIAS (cAlias) SHARED VIA "DBFCDX" SET ORDER TO TAG FIRST GO TOP DEFINE DIALOG oDlg RESOURCE "TEST" ...

... the report to a printer // ========================================================================== */ METHOD PEOPEN_() LOCAL cFarProc LOCAL cFunc := "PEOpenEngine" IF ::l32 cFarProc := GetProc32( ::hDLL, cFunc, .T., LONG ) ::lError := ( CallDll32( cFarProc ) == FALSE ) ELSE cFarProc ...

... result. Best regards ... static function RddBrwSelColsWin local oWnd, oBrw, oCol, cAlias := cGetNewAlias( "CUST" ) local oBrush, n cFunc := ProcName( 0 ) USE CUSTOMER NEW ALIAS (cAlias) SHARED VIA "DBFCDX" SET ORDER TO TAG STATE GO TOP MakeTotal() DEFINE BRUSH oBrush RESOURCE ...

... Aeval(aArray, {|v,e| cText += Str(e,3) + ": "+cValToChar(v)+CRLF}) MsgInfo(cText, cMsg) RETURN NIL //27/06/2005 FUNCTION ejecutaFile(n,inilinea,pcfunc) Local _nFor:=1,nFor,cLine,dato,resuwhile:=.f.,x,y,aParam,cParam,nwvar,VALOnwvar:=SPACE(100) Local tLine:="",kwhile:=0 Local nLines := len(oMemo:aLines),resucond:=.T.,lacond ...