FiveTech Software tech support forums

Alex,

Pruébalo así:

winexec('NXTAlma.exe')
PostQuitMessage(0)
SysRefresh()
__Quit()
return

que tal pues ya lei los otros topics al respecto de terminar un proceso y me funciona lo del: winexec('NXTAlma.exe') PostQuitMessage(0) __Quit() pero estoy utilizando la clase FTP e Internet y cuando las pongo en mi programa esto ya no funciona solicito su ayuda por favor gracias, les dejo mi progra...

... ) LOCAL oMenu1 MENU oMenu1 MENUITEM "&Find ..." // ; * ACTION ( _DocFind( oRS ), ; * oBRW:Refresh() ) ; * MESSAGE "Find a Site" MENUITEM "&Quit" ; ACTION oWnd1:END() ENDMENU RETURN( oMenu1 ) //------------------------------- STATIC FUNCTION SKIPPER( oRsx, nSkip ) LOCAL nRec := oRsx:AbsolutePosition ...

... al Sevidor AIS de ATISA", {"OK"} ) ELSE Alert( "Se ha rechazado la conexión al servidor AIS de Atisa, por favor intente mas tarde", "AIS Error" ) QUIT ENDIF AdsSetServerType(4) //SET SERVER AIS AdsSetFileType(2) #define DIR_APGRA 'C:\APGRA\' #define DIR_INCI "X:\inciden\" c:= DIR_INCI+"Incidenc.Dbf" ...

... LOCAL oInbox := oNameSpace:GetDefaultFolder( olFolderInbox ) LOCAL i FOR i = 1 TO oInbox:Items:Count ? oInbox:Items[ i ]:Body ? NEXT oOutlook:Quit() INKEY( 0 ) return nil ****************** con FWH24 e mi fa partire intanto il Microsoft Outlook (ma io i messaggi ce l'ho in OutLook Express) ...

... := 0 , oContador PRIVATE nContador2 := 0 , oContador2 PRIVATE cCurDir := curdir() PRIVATE aTemp_file := {} IF StillRun("Toma-Facil++ V1.0") Quit ENDIF if ! file( cCurDir+"INVENTA.DBF") aadd( aTemp_file , { "BARCODE","C",13,0} ) aadd( aTemp_file , { "INVENTARIO" ,"N",08,0} ) aadd( aTemp_file ...

... cert SKIP ENDDO oSheet:Columns( "A:L" ):AutoFit() * oExcel:Visible = .T. ferase( cDEFA+"\CERT.XLS" ) oSheet:SaveAs( cDEFA+"\CERT.XLS" ) oExcel:Quit() close databases quit

... pClipBoard:close() oExcel:oSheet:Cells( nStart, 1 ):Select() oExcel:oSheet:paste() nStart := nCounter cMemo := '' endif enddo close databases quit return( nil )

... "00/00/00", cert->init_date) nRow++ @ 10,10 say str(Nrow)+" "+cert->name select cert SKIP ENDDO * oExcel:Visible = .T. close databases quit

... and height of bitmaps oImgList3:AddMasked( TBitmap():Define( "internet",, oWnd ), nRGB( 255, 0, 255 ) ) oImgList3:AddMasked( TBitmap():Define( "quit",, oWnd ), nRGB( 255, 0, 255 ) ) // Now we create the rebar oReBar = TReBar():New( oWnd ) // Now we create the toolbars and add the buttons oToolBar1 ...

... and height of bitmaps oImgList3:AddMasked( TBitmap():Define( "internet",, oWnd ), nRGB( 255, 0, 255 ) ) oImgList3:AddMasked( TBitmap():Define( "quit",, oWnd ), nRGB( 255, 0, 255 ) ) // Now we create the rebar oReBar = TReBar():New( oWnd ) // Now we create the toolbars and add the buttons oToolBar1 ...

... ), nRGB( 255, 0, 255 ) ) oImgList2:AddMasked( TBitmap():Define( "keys",, oWnd ), nRGB( 255, 0, 255 ) ) oImgList2:AddMasked( TBitmap():Define( "quit",, oWnd ), nRGB( 255, 0, 255 ) ) DEFINE STATUSBAR OF oWnd PROMPT "Programacion Aida 2007" @ 2,27 SENSITIVE SAY oSay PROMPT "Buscar Poliza : " OF ...

... ), nRGB( 255, 0, 255 ) ) oImgList2:AddMasked( TBitmap():Define( "keys",, oWnd ), nRGB( 255, 0, 255 ) ) oImgList2:AddMasked( TBitmap():Define( "quit",, oWnd ), nRGB( 255, 0, 255 ) ) // Now we create the rebar oReBar = TReBar():New( oWnd ) // Now we create the toolbars and add the buttons oToolBar1 ...

solved! it seems as the socket catches two messages at a time I don't know why there is this different behavior among the two PC's but now it works I put the follwing modifications in the TSMTP class, OnRead() method Case ::nStatus == ST_AUTH0 If SubStr( cData, 1, 3 ) == "250" // add: Roberto Chiaie...

... oBtnS:nLeft:=oBar:nWidth-45 oBar:bResized:={||oBtnS:nLeft:=oBar:nWidth-45} in order to put the button QUIT at the right corner of the button bar. How can I do this with TBButton? Regards,