FiveTech Software tech support forums

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

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

...   [ FROM <nTop>, <nLeft> TO <nBottom>, <nRight> ];          [ FIRST_DATE <nFirst> ];          [ COLOR <nClrText> ];          [ <cAdjust: ALL,TOP,LEFT,BOTTOM,RIGHT> ...

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

... tcalex.prg: //----------------------------------------------------------------------------// FUNCTION Calex_SetFirstDate( nFirst ) // local nOldValue // // static nFirstDate := 0 // // nOldValue := nFirstDate // // if PCount() > 0 // nFirstDate := Min( Max( 1, nFirst ...

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

... porque desde 2008 que no toco esto y... bue... la memoria no es la misma de antes :-) (abajo la figura de como se ve) hP2:nLeft:= h0:SplitV:nFirst+( ( GetsysMetrics( _SCR_ANCHO ) - h0:SplitV:nFirst ) - _WIDTH_BRW2 ) / 2 hP2:nTop := 10 Para aclarar: h0 es una variable GLOBAL STATIC (xHarbour) ...

Dutch, I don´t get any errors. This is function Calex_SetFirstDate( nFirst ) //----------------------------------------------------------------------------// FUNCTION Calex_SetFirstDate( nFirst ) local nOldValue static nFirstDate := 0 nOldValue = nFirstDate ...

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

... oImg, ; cLogo:= ".\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

... variable objeto de un splitter que incluye la ventana (no es relevante para tu caso) PalBmpDraw( hDC, (soWnd0:nHeight-oImg:nHeight ) /3, soSplit:nFirst+( soSplit:nLast-oImg:nWidth) /2, oImg:hBitmap,, oImg:nWidth, oImg:nHeight,, TRUE ) Para tu caso,guiate por la ayuda de la funcion: Syntax: PalBmpDraw( ...

Andres...

Calex_SetFirstDate( nFirst ) is not a method is a function to set first date of week, only work to calex project

Daniel, please just the METHOD Calex_SetFirstDate( nFirst ) to follow your sample. #xcommand DEFINE CALEX <oCalex>;          [ <of: OF, WINDOW, DIALOG, PANEL> <oWnd> ];          [ FIRST_DATE <nFirst> ];      ...

Antonio FUNCTION SENDMAIL( nRow, oLbx, aItem ) local nFirst := oLbx:SendMsg( LB_GETTOPINDEX ) + 1 local nHeight := oLbx:SendMsg( LB_GETITEMHEIGHT ) local nAt := Int( nRow / nHeight ) + nFirst LOCAL nPippo := aItem[1] if nAt > 0 .and. nAt <= Len( ...

... PrintPage() CLASS TPreview local hOldRes := GetResources() local hMeta := ::oMeta1:hMeta local oDlg, oRad, oPageIni, oPageFin local nOption := 1, nFirst := 1, nLast := Len( ::oDevice:aMeta ) // DEVICE local oThis := Self if nLast == 1 ::PrintPrv( nil, nOption, nFirst, nLast ) return nil endif ...