FiveTech Software tech support forums

... usage).

Parameters: None

Return Value: None

Usage Example: (Internal use only - method version for codeblock usage)

260. GetPaintCols( nLast )

Description: Accessor for GetPaintCols (same as DATA member, method version for codeblock usage).

Parameters:

nLast: NUMERIC - Last column ...

... updates the sort checkbox control (internal method).

Parameters: None

Return Value: None

Usage Example: (Internal use only)

187. GetPaintCols( nLast )

Description: Retrieves an array of columns to be painted, optimized for performance (internal method).

Parameters:

nLast: NUMERIC - Last ...

... oRit:setorder(0)
oRitardo:gobottom()
nUltimo:= oRitardo:recno()
aTemp:=oRit:dbftoarray()

ritardo:= Rit( aTemp, number, npos,nUltimo )


Function Rit( aData, numero, npos, nLast )
local nCount := -1
nPos += 2
AEval( aData, { |a| If( a[npos] == numero, nCount++, nil ) },nLast )
return nCount

... is no Method locate() in TDatabase and locate is not buffered



Function Locate_Records3(anno1,anno2,oDbf)
local aLocate:= {}
LOCAL nFirst,nLast

oDbf:use()
select(oDbf:nArea )
oDbf:gotop()

locate for year(FIELD->data) = anno2
oDbf:load()

if (oDbf:Found())
locate for year(FIELD ...

... the column-solution for vertical lines related to the col-positions
calling BrwHeader(,, and BrwFooter(...

:bPaintHeader := { | brw, hDC, aCols, nLast, hWhitePen, hGrayPen, hColPen | BrwHeader ;
( brw, hDC, aCols, nLast, hWhitePen, hGrayPen, hColPen ) }

:bPaintFooter := { | brw, hDC, aCols ...

... the column-solution for vertical lines related to the col-positions
calling BrwHeader(,, and BrwFooter(...

:bPaintHeader := { | brw, hDC, aCols, nLast, hWhitePen, hGrayPen, hColPen | BrwHeader ;
( brw, hDC, aCols, nLast, hWhitePen, hGrayPen, hColPen ) }

:bPaintFooter := { | brw, hDC, aCols ...

... bo.png

nRow := 5.5
nCol := 1
nWidth := 7.5

@ nRow , nCol PRINT TO oPrn TEXT cText SIZE nWidth - 1,10 CM FONT oFont ALIGN "TL" LASTROW nLast
oPrn:Box( nRow, nCol, nLast + 0.5, nCol + nWidth, nil, CLR_HGRAY, nil, "CM" )

@ nRow+0.2 , nCol PRINT TO oPrn TEXT cText2 SIZE nWidth - 1,10 CM ...

Uwe,
seem this function is not right with tdatabase as sad James and Nages

FUNC CreaCodiceClienti(oDbf)
LOCAL nLast := 0
local nArea := Select()
oDbf:OrdSetFocus(0)
oDbf:GoBottom()
nLast := Val(oDbf:NumCli) + 1
Select (nArea)
RETURN StrZero(nLast,4)

I have always done it this way and besides I ...

... PrintPage() CLASS TPreview

....

if ! lCancel
MsgRun( ::oDevice:cDocument, "Imprimiendo Reporte",;
{ || ::PrintPrv( nil, nOption, nFirst, nLast ) } )

// daniel 2016-07-29

* ? 'ACA GUARDAR PDF',oApp:lGuardarPDF,oApp:cImprimiendo

IF oApp:lGuardarPDF

IF oApp:cImprimiendo == 'RECIBO ...

... clause ITEMDEFAULT in TMenuItem: paint bold item

- Added new DATAS:
DATA lRadio INIT .F.
DATA lRadioCheck INIT .F.
DATA nFirst INIT 0
DATA nLast INIT 0
DATA nCheck INIT 0

DATA lDefault INIT .F.

- The GetnHeightItem () and GetnWidthItem () functions can be applied equally, but do not ...

... 2
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, lHighLite, .t ...

... rpreview

METHOD PrintPage() CLASS TPreview

local hMeta := ::oMeta1:hMeta
local oDlg, oRad, oPageIni, oPageEnd
local nOption := 1, nFirst := 1, nLast := Len( ::oDevice:aMeta ) // DEVICE
local oThis := Self
local lCancel := .t.

if nLast != 1

DEFINE DIALOG oDlg SIZE 400, 183 TITLE FWString ...

... y los que me puedan ayudar, ahora estoy haciendo:


oServer:Insert("ausentes",aFields,aValues)
oQuery:=oServer:Query("SELECT LAST_INSERT_ID() AS nLast FROM ausentes LIMIT 1")
MOVEDOR:=oQuery:nLast
oQuery:End()
ausentes:refresh() // para refrescar el query

y, para hacer mover el puntero a MOVEDOR ...

... LINESTYLE_NOLINES
nTemp := 2
case nColStyle < LINESTYLE_INSET
nTemp := 1
otherwise
nTemp := 0
end case

...
...
//----------------------
if nLast == Len( ::aDisplay )
nCol := acols[ nFor ] - nTemp
nWidth := ::BrwWidth() - 4
if nRowStyle != LINESTYLE_RAISED
DrawHorz( hDC, nRow, nCol ...

... ya no vuelve a salir...
DEFINE DIALOG oDlg RESOURCE "PRINT"

REDEFINE BUTTON ID 101 OF oDlg ;
ACTION oThis:PrintPrv( oDlg, nOption, nFirst, nLast )

REDEFINE BUTTON ID 102 OF oDlg ACTION oDlg:End()

REDEFINE RADIO oRad VAR nOption ID 103, 104, 105 OF oDlg ;
ON CHANGE If( nOption==3 ...