FiveTech Software tech support forums

... oDevice:cDocument )   StartPage( oDevice:hDC )     hMeta := GetEnhMetaFile(aFiles[nFor])PlayEnhMetaFile( oDevice:hDC, hMeta,, .t. )oDevice:hDCOut := oDevice:hDC               ...

... Report( cTitle, lPreview, lModal, bSetUp, aGroupBy, cPDF, aCols, lshadow ) CLASS TXBrowse  local oRep, oPrn, oFont, oBold, uRet   local nFor, oCol, uBookMark   local oBrw := Self   local lAddCols := .T.   local nRows, nSel, n   local lEof     := .f.   local lSetUpTwice := .f.   local ...

... ::setmenu() return end 5. METHOD helpmenu( nRow, nCol, nFlags ) CLASS TXBrowse local oMenu, oCol local cPrompt local nFor, nLen local omenu2 local color1,color2 nLen := len( ::aCols ) MENU omenu2 2007 popup if ::nMarqueeStyle == MARQSTYLE_HIGHLROWMS MENUITEM "选择行,取消选择行 ...

Try
eval(fieldWBlock(aCampi[nFor],nArea ))

... valores sobre las barras, habia que hacer oGraph:lViewVal := .t. y luego tambien en la carga de la Serie AAdd( oGraph:aSeries, { oBrw:aArrayData[nFor, 1], aColor[nFor], 1, , .t. } ) <--- ultimo valor, ahora lo que hare es cambiar tamaño de la fuente a ver si no se montan tanto sobre las demas ...

I made function bCampo2( aFields, nFor,oDbf) return oDbf:fieldWBlock(aField[nFor] ) and seem run , it's wrong ? >If you do not want a simple, straightforward and reliable approach and you insist on complicating your programs it is up to ...

... oCustomer:First } but I Know the oDbf ( tdatabase ) and I have an array where are the fields of this archive so I have : Function bCampo( aCampos, nFor,oDbf) return oDbf:fieldWBlock(aCampos[nFor] ) but this expression oDbf:fieldWBlock(aCampos[nFor] ) not run ok it not make error and then on Report ...

... the function bCampo(::aCampos,i) function bCampo( aCampos, nFor ) return (fieldWBlock(aCampos[nFor],SELECT() )) why not return the field ? the array aCampos := { "ANNO","DIRDBF","DIRZIP","DIRXML","DIRPDF","DIRDOC","ESNOTE" ...

... in: static function PrintPrv( oDlg, nOption, nPageIni, nPageEnd, cArt, oRechnung ) if oRechnung:cDruckart <> "Kreditrechnung" if nFor = len(aFiles) //letzte Seite qrcODE oDevice:SayBitmap( Setup():aQRCodePosition[ 1 ], Setup():aQRCodePosition[ 2 ],; cBmpFile, Setup():aQRCodePosition[ ...

... in: static function PrintPrv( oDlg, nOption, nPageIni, nPageEnd, cArt, oRechnung ) if oRechnung:cDruckart <> "Kreditrechnung" if nFor = len(aFiles) //letzte Seite qrcODE oDevice:SayBitmap( Setup():aQRCodePosition[ 1 ], Setup():aQRCodePosition[ 2 ],; cBmpFile, Setup():aQRCodePosition[ ...

... forma: esto cancela las aplicaciones conectadas al la bdd y cierra los archivos. sldos Silvina FUNCTION BDDKILL *=============== LOCAL aUsuarios , nFor , nManejador AdsMgConnect( 'W:' ) //, nil, nil, @nManejador ) aUsuarios := AdsMgGetUserNames() FOR nFor := 1 TO len( aUsuarios ) msginfo( aUsuarios[ ...

... ..? I wrote the following but does not kill me users ... Thank you Silvina FUNCTION KILL_OPERADORES *======================= LOCAL aUsuarios , nFor AdsMgConnect( 'n:' ) aUsuarios := AdsMgGetUserNames() FOR nFor := 1 TO len( aUsuarios ) AdsMgKillUser( , aUsuarios[ nFor ][ 1 ] , 0 ) NEXT AdsMgDisconnect() ...

... Yo escribi la siguiente pero no me mata los usuarios... Sdos Gracias Silvina FUNCTION KILL_OPERADORES *======================= LOCAL aUsuarios , nFor AdsMgConnect( 'n:' ) aUsuarios := AdsMgGetUserNames() FOR nFor := 1 TO len( aUsuarios ) AdsMgKillUser( , aUsuarios[ nFor ][ 1 ] , 0 ) NEXT AdsMgDisconnect() ...

... nrowpos:=-2 else nRowPos := Int( nTmp / ::nRowHeight ) + 1 end 4. method paint() class txbrowse if ::lgetbar for nFor := 1 to nLast if aCols[ nFor ] > nBrwWidth exit endif oCol := ::ColAtPos( nFor ) oCol:PaintData( nRow-::nrowheight*2, aCols[ nFor ], nHeight, ...

Fernando,

> En definitiva, añadiendo "::aBitmaps[ nFor, BITMAP_HANDLE ] := 0", funciona bien

Muy bien, eso es lo que necesitabamos saber. Gracias!