FiveTech Software tech support forums

... logic for creating an un-attended .pdf that creates a Travel Request ... I pass the value of 3 to ReqPrint1 .... Func _ReqPrint1( nView,oDlg,oSay,cSay,oRsTrav ) .. see attached .Txt .. The values of the code are irrelevant .. Attached file TSHIREY2.pdf is the CORRECT resolution ( notice the difference ...

... ) --> cPrevCase - Mejora en los comandos SAY/GET. Nueva subclaúsula WIDTH <nSayWidth> en la claúsula SAY <cSay>. Ejemplo: @ nRow, nCol SAY cSay PICTURE "@!" WIDTH 100 GET oGet ... * XImage.prg: - Método Save( lAsViewed, cFile, nQuality ), cuando ...

... "UPPER/LOWER/PROPER" ) --> cPrevCase - Enhancement in SAY/GET command. New subclause WIDTH <nSayWidth> in clause SAY <cSay> Eg: @ nRow, nCol SAY cSay PICTURE "@!" WIDTH 100 GET oGet ... * XImage.prg: - method Save( lAsViewed, cFile, nQuality ), when lAsViewed ...

... -4160 # DEFINE xlVAlignCenter -4108 # DEFINE xlVAlignJustify -4130 REQUEST DBFCDX REQUEST DBFFPT function Main() local oSay , ; oSay2 , ; cSay := "" , ; cSay2 := '' , ; oFont , ; oMenu , ; oIcon IF PCOUNT()<1 cDebug := "" ENDIF // Init... lAds := .F. Pbuild := "20190205-1634" ...

... oWnd , ; oFont, oFont2, oFont3, oMenu , ; oLbx , ; nSysW := GetSysMetrics(0) , ; nSysH := GetSysMetrics(1) , ; nLbxW := 600 , ; nLbxH := 430 , ; cSay := "Search for Booking by" , ; oIcon , ; cSearch := "" , ; cSearchK := SPACE(40) , ; aSearch := {} , ; aGet[03] , ; cLb1 := ...

http://img80.imageshack.us/img80/5360/errq.png @ 5, 4 FOLDEREX oFld ITEMS cSay_FLD1,; cSay_FLD2,; cSay_FLD3,; cSay_FLD4,; cSay_FLD5,; cSay_FLD6,; cSay_FLD7,; cSay_FLD8,; cSay_FLD9; BITMAPS aBitmaps; OF oDlg SIZE 210, 185 PIXEL ADJUST ANIMATE SPEED 50 @ 3,5 LISTBOX oLbx4 VAR cVar ITE...

... Is there a solution? Thanks Marco #include "fivewin.ch" FUNCTION MAIN LOCAL oDlg LOCAL oRadio , nRadio := -1 LOCAL oButton LOCAL oSay, cSay := STR(nRadio,3) DEFINE DIALOG oDlg @ 2 , 10 BUTTON oButton ; ACTION ( nRadio := -1 , ; oRadio:Refresh() , ; cSay := STR(nRadio,4) ) @ 1 , 1 RADIO ...

Do you trying with

oMeter := TPieMeter():New( nTotal, cSay, oWnd, @lEnd )

CLASS TPieMeter
....

Jose, Modifica asi tu codigo FUNC AUDIOMETRO() LOCAL oDlg,oSAY,oFontBIG,oBtn,lStop:=.F. LOCAL T:=0 LOCAL cSAY DEFINE FONT oFontBIG NAME "Arial" SIZE 0,-50 DEFINE DIALOG oDlg RESOURCE "AUDIOMETRO" REDEFINE SBUTTON oBtn ID 110 OF oDlg RESOURCE "X_ALTO" ...

... STATIC FUNCTION VerCli() LOCAL oDlg, obAce, oIco LOCAL cNomCli := SPACE(25) LOCAL oGet LOCAL cSay := "Nombre" DEFINE DIALOG oDlg TITLE "Buscar cliente" RESOURCE "Buscar" OF oDlg REDEFINE ICON oIco ID 101 OF oDlg ...

... Function C_callb local oDlg local oLbx, oFont, oSay local n local oRs, cSay Tipo:="" If lIsDir(Pr_cDrv) = .f. SettaIni() Setcurdrive(substr(Pr_cDrv,1,1)) if lIsDir(Pr_cDrv) = .f. Msgstop('Cartella "DATI" ...

... oBtn2 PROMPT "Close" SIZE 40,12 ACTION { CloseDbf("All"), oDlg:End() } @04,01 SAY oSay1 VAR cSay2 OF oDlg @05,01 SAY oSay2 VAR cSay2 OF oDLg ACTIVATE DIALOG oDlg CENTERED Than, in your DO WHIL Eloop, you can set cSay to what you want to show ...

... FILENAME oApp:iLogo DEFINE WINDOW oWnd MDI ....................................... //-------------------------------- Function AvisoConexion(cSay, nAva, cTitle) local oDlgAv, oSay, oEka, oMySQL local oPMeter, vPMeter, oFont DEFAULT cTitle := "" vPMeter := nAva cTitle := IF(EMPTy(cTitle),"SVITE...", ...

... oDlg ; FROM 5, 8 to 10, 75 ; TITLE "Please be patient " ; //+cSQL ; <--- here COLOR "N/W" ; STYLE nOr( WS_POPUP,WS_CAPTION,WS_THICKFRAME ) cSAY := "Opening Initial PROJECT Data Recordset" @ 1,13 SAY oSay var cSAY of oDLG COLOR "N/W" oDLG:bStart := { | | lOK1 := _OpenUm(oDlg, cSQL, oWNDMDI, ...

... USA //------------------------------- IF xLOGIN = "UNKNOWN" yLOGIN := WNetGetUser() // FiveWin function yLOGIN := UPPER( yLOGIN ) oSAY := NIL cSAY := NIL cWELCOME := "WELCOME to the PMO Strategic Projects Vital Signs" cSAY := "The System could not resolve your UserID " cSAY1 := yLOGIN cSAY2 ...