FiveTech Software tech support forums

... 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

... There 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->data) ...

... 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, nLast, ...

... 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, nLast, ...

... 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 ...

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 ...

... 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' cRutaPDF:=oApp:cRutaPDFRecibos ...

... Added 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 produce ...

... 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, ...

... 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( "Printing" ...

... 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 ...

... == 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, nWidth, ...

... 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 ,; ( oPageIni:Enable(), ...

Hola a todos. Tengo una aplicaciòn con opcion de Copias de Respaldo, con la siguiente linea lOk:= HB_ZipFile( cNameZip, aFile, 9,{|x,i| PINTAR(i, nLast, oProg) } ,; TRUE, cCodAlm, TRUE, FALSE ) //, pFileProgress ) donde cCodAlm es una variable alfanumerica de 3 digitos que constituye el password ...

... ".\bmp\SiGeCo_iGO32.jpg" oImg:= TImage():Define( , cLogo ) PalBmpDraw( hDC, (soWnd0:nHeight-oImg:nHeight ) /3, soSplit:nFirst+( soSplit:nLast-oImg:nWidth) /2, oImg:hBitmap,, oImg:nWidth, oImg:nHeight,, TRUE ) // Fin