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

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

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

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

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

... otras tres funciones que a lo mejor te pueden ser de utilidad. HB_FUNC( READICONFILE )  // ReadIconFile( LPSTR cFile, BOOL lSmall, BOOL lOpen )   {   SHFILEINFO sfi ;   UINT uFlag = SHGFI_ICON + IF( hb_parl( 2 ), SHGFI_SMALLICON, SHGFI_LARGEICON ) + IF( hb_parl( ...

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

... function Main() local oDlg, ofig1 local cLocalNum := "123456789" local oHand local lOpened := .f. *----------------------------------------------------------------------------* cNumber = Space( 20 ) SET 3DLOOK ON LoadPredPhones() USE ...

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

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

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

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

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

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.