FiveTech Software tech support forums

... saves the files starting with w and wmf or emf in a windows folder

you can set the folder change the function FWSavePreviewToPDF( oPreview, cPDF, lOpen ) you found on Prev2Pdf.prg

I use this

function FWSavePreviewToPDF( oPreview, cPDF, lOpen )
local cOrient, oPDF
local n

cPdf:= oApp:cPdfTemp ...

Dear Uwe,

I got the solution as your recommendation, it works fine now. The lOpen will be .F. in the Main procedure (Home) after return from sub-dialog.

Thanks for an idea.
Dutch

... I need to return to main windows (close all sub dialog), If user does not use for specific time.

You can use a logical var for each dialog ( lOpen := .T. or .F. )
Maybe a solution You are looking for

I have still a question to
How can I set the vars lOpen{1], lOpen{2] or lOpen{3] to .F. in ...

... de una DB DBUSEAREA( [<lNewArea>], [<cDriver>], <cName>, [<xcAlias>],[<lShared>], [<lReadonly>]) y también al crear una nueva DB, DBCREATE( <cDatabase>, <aStruct>, [<cDriver>], [<lOpen>], [<cAlias>] ), eso podría permitirte manipular tus DB con otro RDD

No se si te entendi bien

saludos

Marcelo Vía

I would like to check the MySql server connection status.
I try
oCn:Connect()
oCn:lOpen

Both are returning .T. after connect but after I disconnect internet/intranet (lost the connection). It is still returning .T.

How can I know the connection status? Because, I will use oCn:Close(), oCn:Connect ...

... nError // Last error ( 0 = no error)
cError // Last error in the selected language
cSqlInfo // Last sql execution informatuon in selected language
lOpen // If connection is open or not.
ReadWrite:
lLog DEFAULT .f. // If .t. all sql statements and results are logged to <exename>.log
Cargo // read ...

... otras tres funciones que a lo mejor te pueden ser de utilidad.

HB_FUNC&#40; READICONFILE &#41; // ReadIconFile( LPSTR cFile, BOOL lSmall, BOOL lOpen ) &#123; SHFILEINFO sfi ; UINT uFlag = SHGFI_ICON + IF&#40; hb_parl&#40; 2 &#41;, SHGFI_SMALLICON, SHGFI_LARGEICON &#41; + IF&#40; hb_parl&#40; 3 ...

... prg:

when you click on Factor combobox, nothing is changed.

Also, cTitles for Msg*** functions are not translated,



prv2pdf.prg:
DEFAULT lOpen := MsgYesNo( FWString( "View" ) + ' ' + cPDF + " (Y/N)?" )

(Y/N) should also be translated, and removed last ? as in Spanish, French or Italian ...

... function Main()

local oDlg, ofig1
local cLocalNum := "123456789"
local oHand
local lOpened := .f.


*----------------------------------------------------------------------------*
cNumber = Space( 20 )
SET 3DLOOK ON
LoadPredPhones ...

... LoadCursor()
LoadIcon()
Loadlib32()
LoadLibrary()
LoadMenu()
LoadResource()
LoadString()
LoadValue()
LocalShrink()
LogEvent()
LogStatics()
lOpen()
LPToDP()
lRMDir()
lWRunning()
lXor()
LZCopyFile()
MakeWin()
MapDialogRect()
MCIGetErrorString()
MCISendCommand()
MCISendString()
MdiCtrlAdjust ...

... FullScreen(.T.),;
oVideo:Play() }

ACTIVATE DIALOG oDlg;
ON INIT ( oVideo:oMci := TMci():New( "MPEGVideo!", cFile, oVideo ),;
oVideo:oMci:lOpen( cFile,,oVideo ),;
oVideo:Play() ,;
oVideo:SetFocus(),;
oDlg:Center() );
VALID ( Salir( oDlg, oVideo ) )

oVideo:End()
DeleteObject( oVideo ...

... adUseClient
:ncursortype := adOpenStatic
:cSelect := "SELECT * FROM dbo.clientes"
END
oRs:Open()

//Verify that the connection is open.
IF !oRs:lOpen
MsgInfo("Conexion error")
ENDIF

//insertions in the SQL DB.
::cFicheroR := Memoread("Info.txt")
FOR ::nLine := 1 TO INT(LEN(::cFicheroR) / 554 ...

... ncursortype := adOpenStatic
:cSelect := "SELECT * FROM dbo.clientes"
END
oRs:Open()

//Comprueba que la conexión está abierta.
IF !oRs:lOpen
MsgInfo("Error de conexión")
ENDIF

//Hago las inserciones en la BD SQL.
::cFicheroR := Memoread("Info.txt")
FOR ::nLine := 1 TO INT(LEN ...

... Datasource := o
:ncursorlocation := adUseClient
:ncursortype := adOpenStatic
:cSelect := "Select * FROM clientes"
END
oRs:Open()

IF !oRs:lOpen
MsgInfo("ERRRO")
ENDIF

::cFicheroR := Memoread("Info.txt")
FOR ::nLine := 1 TO INT(LEN(::cFicheroR) / 554 ) STEP 1

::cLine := SUBSTR ...

Hello

Look that code please

Resp := LOpen("TEXTO.TXT",0)
Do While .t.
Resp1 := cFReadLine(Resp)

========> why i can test end of file to abort this while?

Loop
Enddo

Thanks
Wanderson.