FiveTech Software tech support forums

... AS LOGICAL DATA oFont_6 ..... que cuando la compilo da este .ppo: _HB_CLASS TFactur_1 ; function TFactur_1 ( ... ) ; STATIC s_oClass ; LOCAL nScope, oClass, oInstance ; IF s_oClass == NIL .AND. __clsLockDef( @s_oClass ) ; BEGIN SEQUENCE ; nScope := 1 ; ( ( nScope ) ) ; oClass := iif( .F.,, ...

... solucionarlo: File Source customer.prg Code _HB_MEMBER New( oController) AS CLASS Customer; oClass:AddMethod( "New", @Customer_New(), nScope + iif( .T., 8, 0 ) + iif( .F., 256, 0 ) + iif( .F., 2048, 0 ) ) Description Syntax error "syntax error at '_HB_MEMBER'" Operation line: ...

... "syntax error at '->'" tester.prg(65) Warning W0001 Ambiguous reference 'OCLASS' tester.prg(65) Warning W0001 Ambiguous reference 'NSCOPE' tester.prg(130) Error E0019 #error 'Invalid instance variable name <->(dbgotop())>' tester.prg(130) Error E0030 Syntax error "syntax ...

... Value File Source customer.prg Code _HB_MEMBER New( oController) AS CLASS Customer; oClass:AddMethod( "New", @Customer_New(), nScope + iif( .T., 8, 0 ) + iif( .F., 256, 0 ) + iif( .F., 2048, 0 ) ) Description Syntax error "syntax error at '_HB_MEMBER'" Operation line:17 ...

... Value File Source customer.prg Code _HB_MEMBER New( oController) AS CLASS Customer; oClass:AddMethod( "New", @Customer_New(), nScope + iif( .T., 8, 0 ) + iif( .F., 256, 0 ) + iif( .F., 2048, 0 ) ) Description Syntax error "syntax error at '_HB_MEMBER'" Operation line:17 ...

... Error E0030 Syntax error "syntax error at 'FUNCTION' " .\source\ereport.prg(5291) Warning W0001 Ambiguous reference 'NSCOPE' .\source\ereport.prg(5291) Warning W0001 Ambiguous reference 'S_OCLASS' .\source\ereport.prg(5291) Warning W0001 Ambiguous reference 'S_OCLASS' ...

... Error E0030 Syntax error "syntax error at 'FUNCTION' " .\source\ereport.prg(5291) Warning W0001 Ambiguous reference 'NSCOPE' .\source\ereport.prg(5291) Warning W0001 Ambiguous reference 'S_OCLASS' .\source\ereport.prg(5291) Warning W0001 Ambiguous reference 'S_OCLASS' ...

... (un ejemplo de metaclase por cierto, una clase capaz de crear clases)... bueno bueno que me voy... El prototipo es AddMethod( cMethod, sFuncSym, nScope ) o sea "cMethod" una cadena con el nombre del metodo, "sFuncSym" un puntero a la funcion que implementa el metodo en sí ...

OrdScope( nScope, [newvalue] ) returns the old value in DBFCDX

Patricio,

Esta es la forma sencilla:

__objAddData( oObject, cSymbol, nScope, lPersistent, lCase )

Code: Select all  Expand view  RUN

myVar := pApp():New()
__objAddData( myVar, "Z")
 

Saludos,

Andres Reyes

... cName AS STRING, OPTIONAL SuperParams ) AS CLASS HBClass Create() AS OBJECT Instance() AS OBJECT AddClsMethod( cName AS STRING, @MethodName(), nScope AS NUMERIC, n2 AS NUMERIC, n3 AS NUMERIC ) AddMultiClsData( cType AS STRING, uVal, nScope AS NUMERIC, aDatas AS ARRAY OF STRING ) AddMultiData( ...

... _HB_CLASS xMySQLClass function xMySQLClass() local oRs,nScope,acFields:={} static s_oClass // Como puedo pasar la variable cTable oRs := TMsQuery(oConexion, "show columns from "+alltrim(cTable)) ...

... del Clipper. Dalle Norton Guides: ORDSCOPE() Set or clear the boundaries for scoping key values in the controlling order Syntax ORDSCOPE(<nScope>, [<expNewValue>]) --> uCurrentValue Arguments <nScope> is a number specifying the top (TOPSCOPE) or bottom (BOTTOMSCOPE) boundary. ...

... FUNCTION PROG_4(oDlg,aCtrl,nPage,aCors) LOCAL oFile1, oBrw5 LOCAL oFilter, oSUCH, aSCOPE, oINDKEY LOCAL oOemAnsi, lClrFlag :=.f. LOCAL nSCOPE := 1 LOCAL cFilter := SPACE( 70 ) LOCAL cFELD := "", l_INDEX := .F. LOCAL lOemAnsi := .T., cOemAnsi := "" LOCAL cFile1 := GET_DBF2() LOCAL DBFTYP ...

... oBtn2, obtn3, oBtn4, oBrw5, DBFTYP := "" local oFilter, cFilter := SPACE( 70 ), cFELD := "", l_INDEX := .F. local oSUCH, cSUCH := "", aSCOPE, nSCOPE := 1 local oEXPORT, cEXPORT := "EXPORT.DBF ", oINDKEY, cINDKEY := "" local oOemAnsi, cOemAnsi := "" DEFINE DIALOG aCtrl[nPage] RESOURCE "BROWSER" ...