FiveTech Software tech support forums

... it can be switched on intermittently IF oBeach:eof() Msginfo("The beach has not been configured correctly. Create a new structure") oApp:oRebar:nOption= 5 oApp:oRebar:refresh() return nil ENDIF and I wish open a tab of Ribbonbar I try with oApp:oRebar:nOption= 5 this select the tab ...

I call report with ACTION oApp:oGrid:Report() oGrid is a xbrowse and I have this https://i.postimg.cc/kXSHMnJn/AERROR-REPORT.jpg the problem is that the first 4 records have the ELATTIVO LOGIC field = .T. as you can see ...

... => TAPPLICATION:ACTIVATE( 407 )   Called from: source\main.prg => MAIN( 77 ) on Change_Plan there is oApp:aBmps[nY,nX]:baction:= {|Self|::ShowPopUp( { |oBtn| BtnPopMenu( oBtn ) } )}

on six column I have WITH OBJECT oApp():oGrid:aCols[6] :AddResource("BTN_PNG_LOCKSI") * :AddResource("BTN_PNG_LOCKNO") :bBmpData := { || IIF( oElementi:ELLOCK,1,) } :bEditValue := "" END but now I see also the ...

... dialog oDlgreturn nil I convert EL-> into oElementi why now not run ok ? How I can to have the same ? now I resolved with @0,nSplit+2 XBROWSE oApp:oGrid SIZE oApp():oDlg:nGridBottom,oApp():oDlg:nGridRight PIXEL OF oApp():oDlg ;           COLUMNS "ELATTIVO","ELNOME","","ELCOLORE","ELORDINE","ELLOCK";  ...

no this is only for test static dDataIniziale,dDataFinale,lshowNumeri on function Beach() //only for test oApp:dDataIniziale := ctod("01-07-2018") oApp:dDataFinale := ctod("07-08-2018") oApp:lshowNumeri:= .t. on Function Change_Plan oReservation:setorder(1) ...

perhaps... oGRid is a xbrowse allready open Local hBmp,hBlur oApp:oGrid:GetDC() hBmp := MakeBkBmp( oApp:oGrid:hWnd, oApp:oGrid:hDC ) hBlur := Blur( hBmp, 3 ) PalBmpDraw( oApp:oGrid:hDC, 0, 0, hBlur ) DEFINE DIALOG oDlg DEFINE DIALOG oDlg DeleteObject( ...

I have ACTION oApp():oGrid:ToExcel() ; https://i.postimg.cc/28hPQhqm/fffffffff.png the error Application===========   Path and name: C:\Work\Prg\Bikini\main.Exe (32 bits)   Size: 4,847,616 ...

Uwe, I had only copied a piece of my source back this is the original       WITH OBJECT  oApp():oGrid               :nRowHeight := 40                 WITH OBJECT oApp():oGrid:aCols[ 1]                               :cDataType     := 'F'      ...

Silvio,

WITH OBJECT oApp():oGrid
:nRowHeight := 200
END

WITH OBJECT oApp():oGrid:aCols[ 1]
:cDataType := 'F'
:nWidth := 40
:nDataBmpAlign := AL_CENTER
:lBmpTransparent := .T.
END

regards
Uwe

I made a xbrowse and set the first column with WITH OBJECT oApp():oGrid :nRowHeight := 200 WITH OBJECT oApp():oGrid:aCols[ 1] :cDataType := 'F' :nWidth := 40 :nDataBmpAlign := AL_CENTER :lBmpTransparent := .T. END But It show a small image https://i.postimg.cc/qMgGt9qC/ser.jpg ...

... too. These VRD files are normal INI files with an other file extension. You can change the AreaFilesDir before calling EASYREPORT oVRD NAME oApp:G_REPORT_DIR+"Inv.vrd" with WritePProString Best regards Otto [General] EditProperties=1 EditAreaProperties=1 EditLanguage=1 DeveloperMode=1 ...

...    ,base->texto)   memowrit( hb_CurDrive()+":\"+curdir()+"\Impresion\"+ALLTRIM(cDocu)+"Temp"+ALLTRIM(oApp:usuario)+".rtf", cText ) // Aca genero el nuevo documento    if   (oWord := WinWordObj() ) == nil        MsgAlert( "MS Word no instalado" ...

artu01:

oApp es una clase donde defino varias DATAs entre otras oCon que efectivamente
contiene el objeto de la conexión.

Saludos

// Ejecutamos el comando para crear la tabla temporal    TRY        oApp:oCon:Execute(cCmdSql)    CATCH oError        MsgInfo("La tabla " + cTabNam + " NO pudo ser creada",oApp:cAplicacion)        oApp:oCon:ShowError()  ...