FiveTech Software tech support forums

... ENDIF RETURN NIL //----------------------------------------------------------------------------// FUNCTION ISCONEXION(cTitulo,lMsgOff) LOCAL oQry, lRta,oWait DEFAULT cTitulo:="Conectando a Softgestion.pe" DEFAULT lMsgOff:=.T. IF MEMVAR->oConex <> ...

Hola amigos, sigo molestando con esto. Encuentro comportamientos diferentes en roundbox y say cTitulo[11] := "Ruben & Dario" oPrn:RoundBox( 1, 7.8, 1.8 , 13, 0.1,0.1, fPen1,CLR_WHITE, {cTitulo[11], oFont5, CLR_BLACK} ,"CM" ) ==> No muestra el ...

Antonio Linares wrote:Dear Silvio,

Do you use static oPaziente ?

CLASS TPaziente
DATA oWinClients
DATA oBar
DATA oPaziente
DATA oLbx
DATA cTitulo
DATA oTabs
DATA oIcon
DATA oCbx

... METHOD New() CLASS TPaziente .... if ::oWin == nil ::oPaziente := TClienti():New() ::oPaziente:SetOrder( "FIRST" ) ::oPaziente:GoTop() ::cTitulo := "" DEFINE ICON ::oIcon RESOURCE " DEFINE WINDOW ::oWin MDICHILD .... else ::oWin:SetFocus() endif RETURN Self this is to avoid ...

... MsgStop: //////////////////////////////////////////////////////////////////////////////////////////////////////// FUNCTION MsgStop( cTexto, cTitulo ) LOCAL oDlg, aBoton[ 2 ], oIcon, oSay DEFINE DIALOG oDlg ; RESOURCE "MSGSTOP" ; OF oPublic:oWnd ; TITLE cTitulo ; FONT oPublic:aFont[ ...

... "Marcas", adLockBatchOptimistic ) DEFINE FONT oFont NAME "TAHOMA" SIZE 0,-12 DEFINE WINDOW oDlg MDICHILD OF WndMain() TITLE cTitulo @ 0,0 XBROWSE oBrw ; COLUMNS "cCodMar", "cDesMar" ; OF oDlg ; RECORDSET oRs ; AUTOSORT FOOTERS FASTEDIT LINES CELL AEval( ...

if !VerificaWindows() return endif if ! lChild DEFINE WINDOW s_oWndPDF TITLE cTitulo else DEFINE WINDOW s_oWndPDF MDICHILD of M->oWnd vscroll TITLE cTitulo endif if lChild s_oWndPDF:bValid := {|| HB_GCAll(.t.), s_oWndPDF := Nil , .t. } else s_oWndPDF:bPostEnd ...

Estimados compañeros Estoy ocupando BROWSER para mostrar una tabla: use final XBROWSER (cTitulo) COLUMNS aCols FASEDIT aCols me imagino que son las cabeceras, pero se multiplican en toda la columna (osea en los registros que son numéricos los cambian a caracteres y ...

Estimado

Tenía el mismo problema que usted, lo resolví usando xPadC()

LOCAL nRell:=600
...
UTILPRN ::oUtil 1.30,nMargIzq+0.10 SAY xPadC(cTitulo,nRell,) FONT ::oFnt6 COLOR 16711680

nRell varia de acuerdo a cada caso.

Saludos

Fernando Espinoza A.

... se puede aplicar . Gracias DEFINE CURSOR oCursor HAND DEFINE BRUSH oBrush FILE op:bmp+"paper.bmp" DEFINE WINDOW oWind MDI TITLE op:ctitulo ; ICON oIco MENU omenu BRUSH oBrush BuildRibbonBar() @130, 10 GROUP TO 250, 150 OF oWind PIXEL @150, 40 SAY "VENTAS" FONT oFontSmall ...

it create the link but write the command bad I explain you aShortCut := oWSHShell:CreateShortcut( strDesktop + "\" + cTitulo + ".lnk" ) aShortCut:Description := "EasyBus 1.00" aShortCut:WindowStyle := 1 aShortCut:IconLocation := 'C:\work\errori\tavoli\bus.ico' ...

... local ruta := "paris.bmp" BmpPresenta( ruta, "VERIFICADOR DE PRECIOS" ) return nil function BmpPresenta( cBmp, cTitulo ) local oWnd, oBmp DEFAULT cTitulo := "Muestra imagen" if file( cBmp ) DEFINE BITMAP oBmp FILE cBmp DEFINE DIALOG oWnd TITLE cTitulo ...

... un archivo muy grande. Usando La clase PDF() el pamaño de Archivo es de 501 kb y si uso PRINT pesa 24501 kb PRINT aPrn FILE cFile //NAME "cTitulo" PREVIEW if Empty( aPrn:hDC ) //return nil // Printer was not installed or ready endif ....... PAGE ... ... aPrn:Say( ::nLin*::Rlinha, ...

Saludos al Foum Que diferencia hay entre PRINT y REPORT supuesta mente funcionan igual. PRINT oPrn NAME "cTitulo" PREVIEW PAGE Do While .NOT.oApp:aQkvende:EOF() oPrn:cmSay( ........ ) Enddo ENDPAGE ENDPRINT y REPORT PRINT oPrn NAME "cTitulo" //FROM USER PREVIEW ...

ESTABA HACIENDO ESTO
oCol:=xLbx:AddCol() , oCol:cHeader:= cTitulo , oCol:bStrData := bCampo , oCol:nWidth := nAncho ) ,;

AHORA HAGO
oCol:=xLbx:AddColumn( cTitulo , bCampo , cPicture ,,,, nAncho , .F., .F.,,,,,, .F.,,,,, .F.,,, ) , oCol:oHeaderFont:=memvar->oDatos:oFont9 )