FiveTech Software tech support forums

... todos os seus get, deve ser um para cada (oGet1, oGet2, oGet3...) Segundo: o FOCUS na hora de carregar o formulário não pode estar em nenhum GET, tente colocar no botão de saída (BOTÃO "&Cancelar") ATIVAR DIALOG oDlg CENTRADO no Init (BOTÃO "&Cancelar"; SetFocus()) ...

Intenta ahora Márcio. Tente agora Márcio. Se não entender, pergunte.

https://mega.nz/file/IB8BjAgD#rUUqVQY6q-u3SPKPapsQts58BW627TYEDOuxylKQabw

abs.

Regards, saludos.

tente isso, testei apenas no windows 7 try nRetorno := ShellExecute( GetActiveWindow(), "RUNAS", "NetSh.exe", "Advfirewall set allprofiles state off", "c:\windows\system32", 0) catch ...

tente isso, testei apenas no windows 7 try nRetorno := ShellExecute( GetActiveWindow(), "RUNAS", "NetSh.exe", "Advfirewall set allprofiles state off", "c:\windows\system32", 0) catch ...

não deu certo
eh algo no xbrowse ... essa area RECENEW nem faz paste do xbrowse.... estranho

karinha wrote:Intente asi. Tente assim.

[code=fw]
EXTERNAL DESCEND
Saludos.

Intente asi. Tente assim. EXTERNAL DESCENDFUNCTION...   cSelect := "SELECT cod_rece, pre_rece, val_rece, ped_rece from rece where ped_rece = " + Sr_cdbvalue( Roma->Cod_Roma ) + " and substring(cod_rece,7,1) ...

Aqui, funcionou bem. Tente / Intente:    HB_SETCODEPAGE( "UTF8" )   mxBairro := HB_OemToAnsi( HB_UTF8ToStr( mxBairro ))   mxEndere := AllTrim( HB_OemToAnsi( HB_UTF8ToStr( ...

Aqui, funcionou bem. Tente / Intente:    HB_SETCODEPAGE( "UTF8" )   mxBairro := HB_OemToAnsi( HB_UTF8ToStr( mxBairro ))   mxEndere := AllTrim( HB_OemToAnsi( HB_UTF8ToStr( ...

tente isso: ScrResolution( @nWidth, @nHeight ) // referencia If lAutoresize .and. nOriHeight+nOriWidth != nHeight+nWidth // altera essa linha, como mostra agora ... .. . If lRepaint // referencia oWnd:Hide() // referencia ...

Intente asi:
Tente assim:

Code: Select all  Expand view

   oLbxPePd:lIncrFilter         := .T.
   oLbxPePd:lSeekWild           := .T. // Liga a busca incremental
 

Abs.

Tente assim: STATIC lLigaBTN := .F., oBtnBar DEFINE TBBUTTON oBtnBar OF oToolBar ;          ACTION  Prod01() ;          TOOLTIP "Cadastro de" + CRLF + "Produtos" PROMPT  "Produtos";    ...

Tente assim:

Code: Select all  Expand view

   FreeLibrary(xDll)  // LoadLibrary( xDLL ) // FWHX 32 bits.
 

Code: Select all  Expand view

ACTIVATE WINDOW oWnd ;
   VALID ( oActiveX:End(), .T. )
 

goosfancito,

tente:

obj:bGotFocus :={|| ... }

Tente assim: #include "fivewin.ch"#include "gif.ch"Static oWndFunction main()   local oMenu      MENU oMenu      MENUITEM "Prueba" ACTION Prueba()  ...

Olá,

Tente

WITH OBJECT oBrowse
:lHeader := .F. // Remover o cabeçalho

END

Atenciosamente,

Oliveiros Junior