FiveTech Software tech support forums

... inicio := 0 Set Century on Set Date To British Set Epoch to 1960 Set Multiple On Set Deleted On DEFINE DIALOG oDlg TITLE "TGet from " + FWDESCRIPTION @ 1, 2 SAY "Text..:" OF oDlg @ 1, 6 GET oGet1 VAR Inicio OF oDlg SIZE 100, 10 COLOR "W/G" PICTURE "99999999" ...

... inicio := 0 Set Century on Set Date To British Set Epoch to 1960 Set Multiple On Set Deleted On DEFINE DIALOG oDlg TITLE "TGet from " + FWDESCRIPTION @ 1, 2 SAY "Text..:" OF oDlg @ 1, 6 GET oGet1 VAR Inicio OF oDlg SIZE 100, 10 COLOR "W/G" PICTURE "99999999" ...

... := Date() Set Century on Set Date To British Set Epoch to 1960 Set Multiple On Set Deleted On DEFINE DIALOG oDlg TITLE "TGet from " + FWDESCRIPTION @ 1, 2 SAY "Text..:" OF oDlg @ 1, 6 GET oGet1 VAR Inicio OF oDlg SIZE 100, 10 COLOR "W/G" PICTURE "99999999" ...

hi Antonio, If you review FiveWin.ch you will see that we declare some constants that you can use: _FIVEWIN_CH FWCOPYRIGHT FWVERSION FW_VersionNo FWDESCRIPTION Ok, i will use "_FIVEWIN_CH" to use FiveWin Code, Thx btw. i saw a lot of __XPP__ does it mean i can use FiveWin with Xbase++ ...

Dear Jimmy,

If you review FiveWin.ch you will see that we declare some constants that you can use:

_FIVEWIN_CH
FWCOPYRIGHT
FWVERSION
FW_VersionNo
FWDESCRIPTION

... FiveTech Software, 1993-2015" #ifdef __HARBOUR__ #ifdef __XHARBOUR__ #ifndef __64__ #define FWVERSION "FWHX 15.10" #define FWDESCRIPTION "FiveWin for xHarbour" #else #define FWVERSION "FWHX64 15.10" #define FWDESCRIPTION "FiveWin for xHarbour 64" ...

... i click on it. in video i missing change name of exe, but here the code: // Typical Welcome message, from Windows! // FWVERSION, FWCOPYRIGHT and FWDESCRIPTION are just // some defines placed at FiveWin.ch #include "FiveWin.ch" //----------------------------------------------------------------------------// ...

FiveWin.ch implements these defines:
_FIVEWIN_CH
FWVERSION
FWDESCRIPTION

En el xbrowse.prg de FWH 10.2 Aparece esto :shock: oCol:bEditValue := { || MSGINFO( "Abriendo fronteras, wmormar...", FWDESCRIPTION ) } Y corregido queda a si :) hHeaderPen := CreatePen( PS_SOLID, 1, if(len(aColors) > 3, aColors[ 3 ], aColors[2]) ) // wmormar y ahora ya me ...

... mi programa SetOnErrorAction({|cError| SaveError(cError)}) Espero sea de utilidad. PD: Algunas cosillas que le agregaría a cErrorLog: FWVERSION, FWDESCRIPTION, NetName(), WNetGetUser(), fecha y hora de creación de la aplicación, fecha y hora de creación de la dll de recursos (si existe). dll's ...

... vuestra ayuda sobre este tema. Saludos cordiales. PROGRAMA: -------------- // Typical Welcome message, from Windows! // FWVERSION, FWCOPYRIGHT and FWDESCRIPTION are just // some defines placed at FiveWin.ch to support four versions: // Clipper, Xbase++, Harbour/xHarbour and C3! #include "FiveWin.ch" ...

... "(c) FiveTech Software, 1993-2009" #ifdef __HARBOUR__ #ifdef __XHARBOUR__ #ifndef __64__ #define FWVERSION "FWHX 9.06" #define FWDESCRIPTION "FiveWin for xHarbour" #else #define FWVERSION "FWHX64 9.06" #define FWDESCRIPTION "FiveWin for xHarbour 64" ...

... salir del oGet y ejecutar la clausula VALID. Esto tendría que funcionar perfectamente: DEFINE DIALOG oDlg TITLE "CAPTURA DE BARCODE " + FWDESCRIPTION cCad := SPACE(13) // Suponiendo que los codigos de barras que lees son EAN13, los de productos de supermercado @ 1, 2 SAY "Code.:" ...

... y en el evento bgotfocus de este segundo get proceso la validacion en la base de datos. DEFINE DIALOG oDlg TITLE "CAPTURA DE BARCODE " + FWDESCRIPTION @ 1, 2 SAY "Code.:" OF oDlg @ 1, 6 GET oGet VAR cCad VALID MSGYESNO("ESTE NO SE EVALUA NUNCA") OF oDlg SIZE 60, 10 ...

... I modified the source of the programmes to the following: TUTOR01.PRG: // Typical Welcome message, from Windows! // FWVERSION, FWCOPYRIGHT and FWDESCRIPTION are just // some defines placed at FiveWin.ch to support four versions: // Clipper, Xbase++, Harbour/xHarbour and C3! #include "FiveWin.ch" ...