FiveTech Software tech support forums

... LAS FUNCIONES SON ESTAS // --- Envio de correo electronico Function SendEmail(cFrom,cTo,cBCC,cAttach,cSubject,cBody,cUser,cPass) Local oDlg, aCtl[ 22 ], oFont Local cMailServer := PadR( "smtp.gmail.com", 60 ) // servidor de correo local nPort:=465 // puerto usado por el servidor ...

... oGet4 VAR cAttach OF oDlg ; // anexos PICTURE "@KS60" ; ID 104 ; FONT oFont2 UPDATE ; COLORS CLR_BLUE, CLR_WHITE // ACTION fAddAttach( aCtl[ 12 ] ) ; // descomentar para FWH 8.12 o posterior REDEFINE GET oGet5 VAR cBody OF oDlg ; // cuerpo del mensaje MULTILINE ; ID 105 ; FONT oFont3 ...

... 142, 171, 194 ) //---------------------------------------------------------------------------------------------// Function Main() Local oDlg, aCtl[ 20 ], oFont Local cMailServer := PadR( "smtp.hotmail.com", 60 ), ; // servidor de correo cFrom := PadR( "remitente@hotmail.com", ...

@ 0.1, 8 BTNBMP aCtl[ 6 ] FILE CurDir() + "\floppy.bmp" ;
PROMPT "Salva" BOTTOM ;
SIZE 50, 50 ;
ACTION (mSGINFO('SALVA'));
OF oFld:aDialogs[ 1 ]

SCUSAMI HO PROVATO,
MA MI METTE LA SCRITTA sALVA SEMPRE AL CENTRO DOVE SBAGLIO?
ECCO L'ESEMPIO

@ 0.1, 8 BTNBMP aCtl[ 6 ] FILE CurDir() + "\floppy.bmp" ;
PROMPT "Salva" layout BUTTOM ;
SIZE 50, 50 ;
ACTION (mSGINFO('SALVA'));
OF oFld:aDialogs[ 1 ]

grazie mille Silvio e quasi tutto quello che mi serviva, a parte nascondere i tab... un'altra cosa, ho un bottone creato cosi: @ 0.1, 8 BTNBMP aCtl[ 6 ] FILE CurDir() + "\floppy.bmp" ; PROMPT "Salva"; SIZE 50, 50 ; ACTION (msginfo('salvato') OF oFld:aDialogs[ 1 ] però la scritta salva che ho ...

... anticipatamente #include "FWCE.ch" //----------------------------------------------------------------------------// function Main() Local oDlg, aCtl[ 7 ], aFonts[ 2 ] Local aLoc[ 3 ] Local oBottone,oData FORNITORE=SPACE(5) NUMERO=SPACE(5) NDATA=DATE() DEFINE FONT aFonts[ 1 ] NAME "MS Sans Serif" ...

... caso non mi spunta il messaggio perchè????? ho fatto questa prova ma non succedde nulla mi potete dare una mano? *DTPICKER @ 42, 49 DTPICKER aCtl[ 5 ] VAR NDATA OF oDlg ; FONT aFonts[ 2 ] ; COLORS CLR_HGREEN, nRGB( 240, 248, 255 ) SIZE 67, 11 PIXEL aCtl[ 5 ]:bKeyDown = { | nKey | If( nKey ...

... anticipatamente #include "FWCE.ch" //----------------------------------------------------------------------------// function Main() Local oDlg, aCtl[ 7 ], aFonts[ 2 ] Local aLoc[ 3 ] Local oBottone,oData FORNITORE=SPACE(5) NUMERO=SPACE(5) NDATA=DATE() DEFINE FONT aFonts[ 1 ] NAME "MS Sans Serif" ...

... ma invece..... DEFINE DIALOG oDlg FROM 0, 0 TO 190, 230 PIXEL ; COLORS CLR_BLACK, CLR_WHITE ; TITLE "Inserimento Dati" @ 42, 49 DTPICKER aCtl[ 5 ] VAR NDATA OF oDlg ; FONT aFonts[ 2 ] ; COLORS CLR_HGREEN, nRGB( 240, 248, 255 ) SIZE 67, 11 PIXEL aCtl[ 5 ]:bKeyDown = { | nKey | If( nKey ...

scusatemi, ho questo pezzettino di codice @ 43, 2 SAY aCtl[ 6 ] PROMPT "DATA:" OF oDlg ; FONT aFonts[ 2 ] UPDATE ; COLORS CLR_BLACK, CLR_WHITE SIZE 36, 10 PIXEL siccome lo sto utilizzando su un palmare esiste il modo per uscire da questo campo premendo ...

... oFont2 NAME "Arial" SIZE 0,-20 DEFINE WINDOW oWnd1 TITLE "INSERIMENTO DATI" @ 1, 1 SAY "Codice:" SIZE 70, 30 COLOR "R+/B" FONT oFont @ 1.2, 10 Get aCtl[1] Var aVal[1] SIZE 150, 30; valid(Salva(oWnd1,aCtl,aVal)) FONT oFont2 @ 4, 1 SAY "Qta:" SIZE 70, 30 COLOR "R+/B" FONT oFont @ 4.7, 10 GET aCtl[2] ...

... ) ENDIF (obviously new DATAs lShiftTab and bShiftTab). I made similar a modification for Tab. The controls were stored in array aCTL[]. There were two parallel arrays aPREV[] and aNEXT[] which stored the previous and next control via the corresponding index into aCTL[]. bShiftTab ...

... Regards A.S.K I tried to use the fExcel function as described in TsBrwose V70 notes. It buils up a Dialog but fails in the part: @ 66, 36 BUTTON aCtl[ 7 ] PROMPT "&Accept" OF oDlg ; ACTION ( If( nVer == 2, ; oBrw:ExcelOle( cFile, lActivate, aCtl[ 9 ], cTitle,, lSave ), ; oBrw:Excel2( cFile, ...

I tried to use the fExcel function as described in TsBrwose V70 notes. It buils up a Dialog but fails in the part: @ 66, 36 BUTTON aCtl[ 7 ] PROMPT "&Accept" OF oDlg ; ACTION ( If( nVer == 2, ; oBrw:ExcelOle( cFile, lActivate, aCtl[ 9 ], cTitle,, lSave ), ; oBrw:Excel2( cFile, lActivate, ...