Para Antonio Consulta Arrays (PPO)

[devwin2004]

Antonio

Te lo envio perdon por el error


gracias
Dante
devwin2004@yahoo.com.ar


function Main()

local obmp,testdata,nI,cget,mg2,b,nkey,aFont,oFont,Afont1,xbmp[14],xnmesa[14],ntop,nleft
locaL XX1
local nStyle := nOr( 2147483648, 16777216 )

aFont := TFont():New( "Arial", 0, -14,,.T.,,,,.T.,,,,,,,, )
oFont := TFont():New( "Arial Black", 0, -18,,,,,,,,,,,,,, )
aFont1 := TFont():New( "Arial", 0, -12,,.T.,,,,.T.,,,,,,,, )


oDlg := TWindow():New(,,,, "Database LAB",,,,,,,, "N/G",,,, !.F., !.F., !.F., !.F., .F. )


dbSelectArea( "8" )
dbUseArea( .F.,, "desig",, if(.F. .OR. .F., !.F., NIL), .F. )
TestData := Array( lastrec(), 4 )


FOR nI := 1 TO Len(TestData)
TestData[nI,1] = val(desig->dntop)
TestData[nI,2] = val(desig->dnleft)
TestData[nI,3] = desig->dbmp
TestData[nI,4] = desig->nmesa


TestData[nI,3] := NO := BOX := TSButton():New( TestData[nI,1], TestData[nI,2],TestData[nI,3],oDlg,,{"MESA8C.bmp"},{64,64},.T.,,,,,,,,,,,,,3,,,, )

IF !EOF()
dbSkip(1)
ENDIF
NEXT



oDlg:Activate( Upper("maximized"), oDlg:bLClicked, oDlg:bRClicked, oDlg:bMoved, oDlg:bResized, oDlg:bPainted, oDlg:bKeyDown, oDlg:bInit,,,,,,,,,,, oDlg:bLButtonUp )

return nil


[Antonio Linares]

Dante,

Por lo que se ve, esta línea preprocesada está mal:

TestData[nI,3] := NO := BOX := TSButton():New( TestData[nI,1], TestData[nI,2],TestData[nI,3],oDlg,,{"MESA8C.bmp"},{64,64},.T.,,,,,,,,,,,,,3,,,, )

Fíjate en NO y en BOX.