FiveTech Software tech support forums

Hi Richard,

Could this feature be useful to you?


SecondsFrom1970()

#pragma BEGINDUMP

#include <time.h>
#include <stdio.h>
#include <stdlib.h>
#include "hbapi.h"

HB_FUNC( SECONDSFROM1970 )

{
unsigned long count;
time_t *tmppointer=NULL;

count = time( tmppointer ) ;

hb_retnl( count ...

Hi Silvio,

if MARRIED field is logical type
Massimo

Hi Natter,

try this


#include "Fivewin.ch"

FUNCTION MAIN()
LOCAL oWnd, oBtn1, oBtn2

DEFINE WINDOW oWnd TITLE "TEST" COLOR "N/W" FROM 10, 10 TO 30, 70 VSCROLL

@ 8, 10 BUTTON oBtn1 PROMPT "GO ON" SIZE 50, 20 ACTION ShowScrollBar( oWnd:hWnd, .T. ) OF oWnd

@ 8, 20 BUTTON oBtn2 PROMPT "GO OFF ...

Thank you very much Antonio,

this is exactly what I was looking for,
you are always our boss

Good day

Thank you Natter,

but I didn't want to use the cGetDir function,
searching online I found that you could use the IFileDialog interface
(from Windows Vista)

Hi all,

I would like to select a folder using a form similar to that for selecting a file,
not like the one used by the cGetDir function.

A form like the example below



Can someone help me ?

Thanks in advance
Massimo

Hi Silvio,

here is a sample.

#include "Fivewin.ch"

FUNCTION MAIN()
LOCAL oDlg, oGet, cVar := SPACE( 20 ), lPass := .F.

DEFINE DIALOG oDlg FROM 0, 0 TO 400, 500 TITLE "TEST OVER" PIXEL

oDlg:bMMoved := { | nRow, nCol, nKeyFlags | MyOverDlg( @lPass ) }

@ 14, 10 GET oGet VAR cVar OF oDlg ...

Ciao,

per leggere un allegato PDF da un file XMl devi leggere tutto il
contenuto del nodo <Attachment>, convertirlo con la
funzione CMIMEDEC e poi salvare il risultato in un file con estensione .PDF

Ad esempio se nella variabile cBuf c'è il contenuto <Attachment>
cBuf := CMIMEDEC( cBuf )

Buona ...

Ciao Marco,

da ottobre puoi iniziare a spedire le nuove fatture,
non cambia l'intestazione esistono solo nuove codifiche
(sopprattutto il codice TD24 per le fatture differite)
e i nuovi codici per il campo Natura IVA.

Anche per le fatture ricevute l'unica differenza è gestire questi nuovi codici ...

Ciao Enrico,

try this

#include "Fivewin.ch"FUNCTION MAIN&#40;&#41; LOCAL oDlg LOCAL cVr1 := "FIRST" + SPACE&#40; 15 &#41; LOCAL cVr2 := "SECOND" + SPACE&#40; 14 &#41; SET KEY VK_F2 TO MYGET&#40;&#41; DEFINE DIALOG oDlg TITLE "TEST" // @ 1, 1 GET cVr1 VALID !EMPTY( MYGETACTIVE():GetText ...

Hi Marc,

try this

#include "Fivewin.ch"#define msoShapeRectangle 1FUNCTION MAIN&#40;&#41; LOCAL oExcel, oWorkBooks, oSheet, oCell1, oCell2 TRY oExcel := TOleAuto&#40;&#41;:New&#40; "Excel.Application" &#41; CATCH oExcel := NIL END IF oExcel <> NIL oWorkBooks := oExcel:WorkBooks IF oWorkBooks ...

Hello Jack,

try this

#include "FiveWin.ch"#define wdHorizontalPositionRelativeToPage 5#define wdVerticalPositionRelativeToPage 6#define wdDoNotSaveChanges 0FUNCTION MAIN&#40;&#41; LOCAL oWord, oDoc, oSelection, x, y TRY oWord := TOleAuto&#40;&#41;:New&#40; "Word.Application" &#41; CATCH oWord ...

Ciao Enrico,

try to take a look at this post

https://blogs.windows.com/windowsdeveloper/2017/05/19/improving-high-dpi-experience-gdi-based-desktop-apps/

Massimo

And try with ?

Hi Tim,

to align some columns to the center try this

#include "Fivewin.ch"#define EXC_LEFT 1#define EXC_RIGHT 4#define EXC_CENTER 7FUNCTION MAIN&#40;&#41; LOCAL oExcel, oWorkBooks, oSheet, oCell TRY oExcel := TOleAuto&#40;&#41;:New&#40; "Excel.Application" &#41; CATCH oExcel := NIL END IF oExcel ...