FiveTech Software tech support forums

James, This may help you: #include "fivewin.ch" #include "common.ch" #define olFolderDeletedItems               3 #define olFolderOutbox                     4 #define olFolderSentMail                   5 #define olFolderInbox                      6 #define olFolderCalendar       ...

Friend,

See this post:

http://forums.fivetechsupport.com/viewt ... 989#p90989

Friends, This simple sample show the PocketSOAP Activex use: // FiveWin ActiveX support demo - Using PocketSOAP Activex // José Carlos da Rocha #include "FiveWin.ch" function Main(nSkin)    local oWnd, oActiveX    local cXML := "" + ;                  "<S:Envelope" + ; ...

Julio,

put the variable oRs as static or public at the beginning of your main prg and try.

Estimados, Fiz pequenas alteracoes em minha HC-TWBrowse: CLASS TWBrowse FROM TControl DATA bFooter DATA lSumFooter INIT .f. ... //----------------------------------------------------------------------------// METHOD ReDefine( nId, bLine, oDlg, aHeaders, aColSizes, cField, uVal1, uVal2,; bChange, bLD...

Francisco Horta, Existe alguna funcion para cambiar/corregir la cabecera de las dbf de mi sistema para poder abrirlas "unicamente" desde el sistema o en dado caso regresarla a su forma original para abrirlas desde cualquier dbu para dbfs? lo quiero hacer por seguridad en lugar de encriptar...

Anderson, Esqueça estes comandos SET RELATION e SET FILTER e passe a usar .CDX para obter maiores resultados com filtragens. Veja mais um exemplo: //---------------------------------------------------------------------// select CLIDEPEND dbsetorder(2) //-- CodDepend //-- Relacionar o nome do "r...

Euclides, I found this sample in SAMPLES: // A 'virtual' Keyboard sample #include "Fivewin.ch" static oWnd Function Main() local hDLL := LoadLibrary( "bwcc32.dll" ) // NUEVO! SET RESOURCES TO "KBSIM_32.DLL" BWCCRegister( GetResources() ) DEFINE WINDOW oWnd TITLE "P...

Usas NetName() de CT.LIB tambien.

Ahora el enlace funciona perfecto. Derpitu, revisa esto: ... function GetDrvMapLetter( cPathName ) LOCAL cDrive, i, cServer FOR i = 1 to 26 cDrive := chr(64 + i) + ":" cServer := NetRmtName( cDrive ) IF alltrim( lower(cPathName) ) == alltrim( lower(cServer) ) return cDrive exit // ***** es...

Esto te serve: /* * ***** PC-Toledo snip by Toledo ****** */ #include "FiveWin.ch" function Main() LOCAL cDrive, i, cServer FOR i:=1 TO 26 cDrive := Chr(64+i) + ":" cServer := NetRmtName( cDrive ) IF !Empty( cServer ) ? cDrive, cServer ENDIF NEXT RETURN Agrega CT.LIB de http://ww...

Bott,

The table is empty?

Bott,

Change: With and try

Con mi exemplo si, #include "FiveWin.ch" #include "dll.ch" #DEFINE WM_SYSCOMMAND 274 // &H112 #DEFINE SC_TASKLIST 61744 //&HF130 #DEFINE SC_SCREENSAVE 61760 // &HF140 #DEFINE SW_HIDE 0 // &H0 #DEFINE SW_SHOWNA 8 // &H8 #DEFINE SW_SHOW 5 // &H5 #DEFINE SW_S...

Friend, Use my solution: /* * * TOLEAuto and Activex * Jose Carlos da Rocha * */ #include "FiveWin.ch" function Main() local fn := Array(5) oCopyImage := TOleAuto():New( "CopyImage.CopyImage.1" ) ep := cFilePath( GetModuleFileName( GetInstance() ) ) fn[1] = "wmf" fn[2] ...