PARA ANTONIO LINARES MISMA VERSION

[JOSEMAR]

ANTONIO ,
BAJE LA VERSION 9.06 Y ESTOY RECOMPILANDO MIS PRGS , EN LAS VENTANAS PRINCIPAL MANDO A DESPLEVAR LA VERSION DE HARBOUR Y FWH Y ME SALE LA MISMA QUE LA VERSION 9.05 HARBOUR 1.1.0Dev(Rev. 10434)FWH 9.05 . MI PREGUNTA SI NO HABRA PROBELMAS, AL INSTALAR ME DICE QUE LA VERSION ES HARBOUR XHARBOUR 9.06. QUE PASARA PREGUNTO

[Antonio Linares]

Jose,

La versión de Harbour es la misma, pues es la versión estable publicada más reciente y no ha cambiado.

FWH es 9.06 salvo que estes usando un FiveWin.ch antiguo

[JOSEMAR]

PERDON ANTONIO, NO HABIA ENTRADO AL FORO,MUCHO TRABAJO.
LA VERSION DEL HARBOUR ESTABIEN ,
EL FIVEWIN.CH QUE ESTOY USANDO ES EL QUE TRAE LA VERSION 9.06 DE FECHA 11/07/09 A LAS 10:52 A.M.
NOSE QUE ESTE PASANDO POR AHI

[Antonio Linares]

Jose,

Revisa que tengas esto dentro de FiveWin.ch:

#define FWVERSION "FWH 9.06"

Tal vez estes usando un FiveWin.ch antiguo

[JOSEMAR]

disculpa antonio pero he tenido un poco de problemas con el internet pero ahi te muestro parte del archvio fivewin.ch del la version 9.06
/*
!short: FiveWin main Header File */

#ifndef _FIVEWIN_CH
#define _FIVEWIN_CH

#define FWCOPYRIGHT "(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"
#endif
#else
#ifndef __64__
#define FWVERSION "FWH 9.06"
#define FWDESCRIPTION "FiveWin for Harbour"
#else
#define FWVERSION "FWH64 9.06"
#define FWDESCRIPTION "FiveWin for Harbour 64"
#endif
#endif
#xtranslate Browse( => WBrowse( // to avoid conflicts with Harbour functions
#xtranslate SetCursor( => WSetCursor( // to avoid conflicts with Harbour functions
#xtranslate __Keyboard( => ___Keyboard( // to avoid conflicts with Harbour functions
#xtranslate LastKey( => _LastKey( // to avoid conflicts with Harbour functions
#else
#ifdef __XPP__
#define FWVERSION "FiveWin++ 9.06"
#define FWDESCRIPTION "FiveWin++ for Xbase++"
#else
#define __CLIPPER__
#define FWVERSION "FiveWin 9.06"
#define FWDESCRIPTION "FiveWin for Clipper"
#endif
#endif

#ifdef __FIVESCRIPT__
#undef __HARBOUR__
#endif

#ifdef __HARBOUR__
#ifndef __XHARBOUR__
static bError
#xcommand TRY => bError := errorBlock( {|oErr| break( oErr ) } ) ;;
BEGIN SEQUENCE
#xcommand CATCH [<!oErr!>] => errorBlock( bError ) ;;
RECOVER [USING <oErr>] <-oErr-> ;;
errorBlock( bError )
#endif
#endif

#include "Dialog.ch"
#include "Font.ch"
#include "Ini.ch"
#include "Menu.ch"
#include "Print.ch"

#ifndef CLIPPER501
#include "Colors.ch"
#include "DLL.ch"
#include "Folder.ch"
#ifndef _NOOBJECTS_CH
#include "Objects.ch"
#endif
#include "ODBC.ch"
#include "DDE.ch"
#include "Video.ch"
#include "VKey.ch"
#include "Tree.ch"
#include "WinApi.ch"
#endif

#ifdef __XPP__
#include "fwxbase.ch"
#endif

#ifndef __CLIPPER__
#define Set3dLook(x)
#endif

#ifndef HB_SYMBOL_UNUSED
#define HB_SYMBOL_UNUSED( symbol ) ( symbol := ( symbol ) )
#endif

#ifdef __HARBOUR__
#ifndef __XHARBOUR__
#ifndef __FWCE__
REQUEST FW_GT
#endif
#endif
#endif

#ifdef __XHARBOUR__
REQUEST GetProcAdd
REQUEST TActiveX
#endif

#define CRLF Chr(13)+Chr(10)

extern errorsys

/*----------------------------------------------------------------------------//
!short: Running multiple instances of a FiveWin EXE */

#xcommand SET MULTIPLE <on:ON,OFF> => SetMultiple( Upper(<(on)>) == "ON" )

/*----------------------------------------------------------------------------//

[Antonio Linares]

Jose,

>
EN LAS VENTANAS PRINCIPAL MANDO A DESPLEVAR LA VERSION DE HARBOUR Y FWH Y ME SALE LA MISMA QUE LA VERSION 9.05 HARBOUR 1.1.0Dev(Rev. 10434)FWH 9.05
>

Como haces eso ? Puedes mostrar un ejemplo en PRG ?

[JOSEMAR]

ESTE ES UNO DE MIS PROGRAMAS DE VENTANA

MEMVAR PATRES
MEMVAR PATPTA
MEMVAR PATCTA
MEMVAR pta0406
MEMVAR fideres
MEMVAR fidepta
MEMVAR cartera
MEMVAR pmoycar
MEMVAR patliq
MEMVAR AVIO
#INCLUDE "FiveWin.ch"
#INCLUDE "report.CH"
#INCLUDE "ord.CH"
#INCLUDE "dbcombo.CH"
#INCLUDE "IMAGE.CH"
#INCLUDE "DLGMOV.CH"
//#INCLUDE "trsay.CH"
#DEFINE LINE_LEFT 1
#DEFINE LINE_RIGHT 2
#DEFINE PAD_LEFT 0
#DEFINE PAD_RIGHT 1
#DEFINE PAD_CENTER 2
static nFilterIndex := 0
Static oVentana
Static oreport
Static oFont
static oToolBar

//Principal()

Function Principal()
Local oIcono, oBrush, oBmp, oBmp1, oBarraBotones, oVer, oWebserver

LOCAL oImageList


local hdll:=loadlibrary("BWCC32.dll")
bwccregister(getresources())

/*

PUBLIC PATRES:="c:\avio\AVIORES"
PUBLIC PATPTA:="c:\avio\AVIOPTAS"
PUBLIC PATCTA:="c:\avio\CTALIQ"
PUBLIC ptas0810:="c:\avio\ptas0810"
PUBLIC fideres:="c:\avio\histfide"
PUBLIC fidepta:="c:\avio\fideptas"
PUBLIC cartera:="c:\avio\cartera"
PUBLIC pmoycar:="c:\avio\pmoycar"
PUBLIC DOCPROD:="c:\DOCPROD"
PUBLIC AVIO :="z:"
*/





Confirm()
PUBLIC PATRES:="\\servidor\avio\AVIORES"
PUBLIC PATPTA:="\\servidor\avio\AVIOPTAS"
PUBLIC ptas0810:="\\servidor\avio\ptas0810"
PUBLIC PATCTA:="\\servidor\avio\CTALIQ"
PUBLIC PATliq:="\\servidor\avio\liquid\liq0708"
PUBLIC fideres:="\\servidor\avio\histfide"
PUBLIC fidepta:="\\servidor\avio\fideptas"
PUBLIC cartera:="\\servidor\avio\cartera"
PUBLIC pmoycar:="\\servidor\avio\pmoycar"
PUBLIC DOCPROD:="\\servidor\DOCPROD"
PUBLIC AVIO :="z:"




//set resources to "c:\HARB812\harbour\BIN\josemar32.dll"
set resources to "josemar32.dll"


/*
IF !lisDir(patres)
msgalert("LA Red Local o La Unidad Virtual No Esta Conectada","Error De coneccion")
wNetAddCon("\\servidor\avio",,"Z:")
SysWait(1)
endif
*/
set _3dlook on

SET DELETE ON
// SET MULTIPLE ON
SET DATE GERMAN
SET CENTURY ON
SET EPOCH TO 1920
SetHandleCount(150)


DEFINE FONT oFont NAME "ARIAL" SIZE 18,10
ACTIVATE FONT oFont

// DEFINE BRUSH oBrush style borlad
DEFINE BRUSH oBrush style null

//DEFINE ICON oIcono FILENAME "C:\FW24\ICOns\FIVEWIN.ico"

DEFINE ICON oIcono resource "LOGO1"

DEFINE BITMAP oBmp1 resource "cortina"

//MSGLOGO("C:\harb904\FWH\bitmaps\VISUAL.BMP",2)
msglogo("visual.bmp",1)

DEFINE WINDOW oVentana ;
FROM 10,1 TO 45,135;
TITLE OemToAnsi("Asociacion De Productores De Ca¤a De Azucar Del Ingenio Cuatotolapan A.C.");
ICON oIcono BRUSH oBrush MENU CreaMenu()
oVentana:bPainted = { | hDC | PalBmpDraw( hDC, 0, 0, oBmp1:hBitmap ) }

set _3dlook on

oVentana:bgotfocus = {|| sndPlaySound("notify.wav")}
oVentana:blostfocus = {|| sndPlaySound("im.wav")}
// DEFINE FONT oFont FROM USER

//oVentana:cTitle(OemToAnsi("Asociacion De Productores De Ca¤a De Azucar Del Ingenio Cuatotolapan A.C.-C.N.P.R. "+MSG1))


SET MESSAGE OF oVentana TO ;
"Main Presidencia V 9.05 Jose P. Marquez Villa Inc." + " "+;//ESTA VERSION ES LA VERSION MIAS DE MIS ACTUALIZACIONES DEL LOS PRGS
version() +" "+FWVERSION +" "+ FWCOPYRIGHT KEYBOARD CLOCK DATE COLOR rgb(248,29,83),rgb(5,199,146) 2007///PERO ESN ESTA ES LAQIQUEDA LA VERSION EQUIVOCADA Y EL DE ACERCA DE..
/*

SI ME FUNCIONA PERO UN POCO MA COLPLIZADO A LOMEJOR VIENDOLO MAS A PROFUNDIAD
TENALGO MAS QUE APORTAR
// First we build an ImageList with all the bitmaps
DEFINE IMAGELIST oImageList SIZE 32, 32

DEFINE IMGBITMAP OF oImageList NAME "xplupa" // COLOR nRGB( 058,25,33 )
DEFINE IMGBITMAP OF oImageList NAME "xpgente" // COLOR nRGB( 255, 0, 255 )
DEFINE IMGBITMAP OF oImageList NAME "word" // COLOR nRGB( 255, 0, 255 )
DEFINE IMGBITMAP OF oImageList NAME "calc2" // COLOR nRGB( 255, 0, 255 )
DEFINE IMGBITMAP OF oImageList NAME "xpsalida" // COLOR nRGB( 255, 0, 255 )


DEFINE TOOLBAR oToolBar OF oVentana SIZE 33, 33 ; // 50, 50 ;
IMAGELIST oImageList BALLOON // tooltips balloon style

// oToolBar:SetTextRows( 2 )



DEFINE TBBUTTON OF oToolBar ;
ACTION avi601() ;
TOOLTIP "Visualiza Maestro De Productores Alfabetico"

DEFINE TBSEPARATOR OF oToolBar

DEFINE TBBUTTON OF oToolBar ;
ACTION avi602() ;
TOOLTIP "Visualiza Maestro De Productores NUmerico"

DEFINE TBSEPARATOR OF oToolBar

DEFINE TBBUTTON OF oToolBar ;
ACTION avi910();
TOOLTIP "Abre Docuemtos Word De Productores"

DEFINE TBSEPARATOR OF oToolBar

DEFINE TBBUTTON OF oToolBar ;
ACTION WinExec("Calc");
TOOLTIP "Calculadora"

DEFINE TBSEPARATOR OF oToolBar

DEFINE TBBUTTON OF oToolBar ;
ACTION salida();
TOOLTIP "Salida"

DEFINE TBSEPARATOR OF oToolBar

// DEFINE STATUSBAR OF oVentana PROMPT "Toolbars test"

*/



// DEFINE BUTTONBAR oBarraBotones SIZE 33,33 3DLOOK TOP OF oVentana 2007

DEFINE BUTTONBAR oBarraBotones SIZE 43,43 3DLOOK TOP OF oVentana 2007

DEFINE BUTTON RESOURCE "XPLUPA" OF oBarraBotones action AVI601() NOBORDER GROUP;
TOOLTIP "Visualiza Maestro De Productores Alfabetico"

// DEFINE BUTTON resource "gente" OF oBarraBotones action avi602() NOBORDER GROUP;
DEFINE BUTTON resource "XPgente" OF oBarraBotones action avi602() NOBORDER GROUP;
TOOLTIP "Visualiaza Maestro De Productores Numerico"

DEFINE BUTTON resource "WORD" OF oBarraBotones action avi910() NOBORDER GROUP;
TOOLTIP "Abre Docuemtos Word De Productores"

DEFINE BUTTON RESOURCE "CALC" OF oBarraBotones ACTION WinExec("Calc") NOBORDER GROUP;
TOOLTIP "Calculadora"


DEFINE BUTTON RESOURCE "XPSALIDA" OF oBarraBotones ACTION Salida() NOBORDER GROUP ;
TOOLTIP "Salir del programa"

oVentana:Center()

// @.5,0 BITMAP oBmp RESOURCE "LOGOFW" size 1280,1024 NOBORDER OF oVentana
// @.5,0 BITMAP oBmp FILENAME "C:\LOGO\LOGOFW.bmp" size 1280,1024 NOBORDER OF oVentana

ACTIVATE WINDOW oVentana normal;
on init sndPlaySound("Welcome.wav")
sndPlaySound("goodbye.wav",0)

// oImageList:End()


RELEASE FONT oFont

//oFont:End()

freelibrary(hdll)
set resources to

RETURN NIL


#INCLUDE "AVI150.PRG"
//#INCLUDE "AVI015.PRG"
//#INCLUDE "AVI020.PRG"
#INCLUDE "AVI080.PRG"
//#INCLUDE "AVI220.PRG"
//#INCLUDE "AVI230.PRG"
#INCLUDE "AVI300.PRG"
#INCLUDE "AVI305.PRG"
#INCLUDE "AVI320.PRG"
#INCLUDE "AVI325.PRG"
#INCLUDE "AVI500.PRG"
#INCLUDE "AVI601.PRG"
#INCLUDE "AVI602.PRG"
#INCLUDE "AVI610.PRG"
//#INCLUDE "AVI603.PRG"
#INCLUDE "AVI700.PRG"
#INCLUDE "AVI705.PRG"
#INCLUDE "AVI710.PRG"
#INCLUDE "AVI715.PRG"
#INCLUDE "AVI720.PRG"
#INCLUDE "AVI730.PRG"
#INCLUDE "AVI735.PRG"
#INCLUDE "AVI760.PRG"
// #INCLUDE "AVI750.PRG" // PARAVER LA FOTO
#INCLUDE "AVI770.PRG"
#INCLUDE "AVI780.PRG"
#INCLUDE "AVI790.PRG"
#INCLUDE "AVI910.PRG"
#INCLUDE "AVI810.PRG"
#INCLUDE "EST000.PRG"
#INCLUDE "EST010.PRG"
#INCLUDE "rep03.PRG"
#INCLUDE "rep04.PRG"
#INCLUDE "rep033.PRG"
#INCLUDE "rep044.PRG"
#INCLUDE "rep021.PRG"
#INCLUDE "rep022.PRG"
#INCLUDE "rep023.PRG"
#INCLUDE "rep024.PRG"
#INCLUDE "rep025.PRG"
#INCLUDE "rep026.PRG"
#INCLUDE "rep027.PRG"
#INCLUDE "rep028.PRG"
#INCLUDE "rep029.PRG"
#INCLUDE "rep030.PRG"
#INCLUDE "rep031.PRG"
#INCLUDE "rep045.PRG"
#INCLUDE "rep050.PRG"
#INCLUDE "rep140.PRG"
#INCLUDE "rep145.PRG"
#INCLUDE "confirm.PRG"
#INCLUDE "codpas.PRG"
#INCLUDE "trsay.PRG"
Function CreaMenu()
Local oMenu

//MENU oMenu 2007
MENU oMenu 2007

MENUITEM "&Visualizaciones"
MENU
MENUITEM "Visualiza Maestro de productores Alfabetico" action avi601()
MENUITEM "Visualiza Maestro de productores Numerico" action avi602()
// MENUITEM "Visualiza Maestro de productores xxxxxx" action avi603()
SEPARATOR
MENUITEM "Visualiza Saldos De Cta.Cte. Actual Resocas" action avi710()
MENUITEM "Visualiza Saldos De Cta.Cte. Actual Plantas" action avi715()
/*
SEPARATOR
MENUITEM "Visualiza Saldos De Cta.Cte. Zaf.Ant. Resocas" action avi700()
MENUITEM "Visualiza Saldos De Cta.Cte. Zaf.Ant. Plantas" action avi705()
SEPARATOR
*/
MENUITEM "Visualiza Saldos De Cta.Cte. Plantas 08/10" action avi720()

SEPARATOR
MENUITEM OemToAnsi("Visualiza Estimado De Ca¤a") action est000()
MENUITEM OemToAnsi("Visualiza Avance de Cosecha") action est010()
SEPARATOR
MENUITEM "Visualiza Fideicomiso Resocas" ACTION avi730()
MENUITEM "Visualiza Fideicomiso Plantas" ACTION avi735()
SEPARATOR
MENUITEM "Visualiza Cartera Vencida" ACTION avi760()
MENUITEM "Visualiza Prestamos " ACTION avi770()
SEPARATOR
MENUITEM "Visualiza Algun Historico" ACTION avi780()
SEPARATOR
MENUITEM "Visualiza Liq. final 2007/2008" ACTION avi790()
SEPARATOR
MENUITEM "Visualiza Contratos Firmados" ACTION avi810()
SEPARATOR
MENUITEM "Abre Documentos Word De Produtores" ACTION avi910()
SEPARATOR
MENUITEM "&Salir" ACTION Salida()
ENDMENU
/*
MENUITEM "Capturas" DISABLED
MENU
MENUITEM "Captura C&artera" ACTION AVI010()
MENUITEM "Captura P&restamos" ACTION AVI015()
MENUITEM "&Salir" ACTION Salida()
ENDMENU
*/
MENUITEM "Impresiones"
MENU
MENUITEM "Resumen De CtaCte Resocas Por Concepto" ACTION rep021()
MENUITEM "Resumen De CtaCte Resocas Por Semana" ACTION rep024()
separator
MENUITEM "Resumen De CtaCte Plantas Por Concepto" ACTION rep022()
MENUITEM "Resumen De CtaCte Plantas Por Semana" ACTION rep025()
separator
MENUITEM "Validacion de ctacte por No.de Semana Res." ACTION avi300()
MENUITEM "Validacion de ctacte por No.de Semana Ptas" ACTION avi305()
separator
MENUITEM "Reporte De Cartera Vencida" ACTION rep027()
MENUITEM "Resumen De Cartera Vencida Por Concepto" ACTION rep026()
separator
MENUITEM "Resumen Del Fideicomiso Resocas Por Concepto" ACTION rep028()
MENUITEM "Resumen Del Fideicomiso Plantas Por Concepto" ACTION rep029()
separator
MENUITEM "Resumen De CtaCte Historicos Por Concepto" ACTION REP045()
MENUITEM "Resumen De CtaCte Historicos Por Semana" ACTION REP050()
MENUITEM "Validacion de ctacte Historicos por No.de Semana" ACTION avi325()
separator
MENUITEM "&Salir" ACTION Salida()
ENDMENU

MENUITEM "&Bajas"
MENU
MENUITEM "Bajas Fideicomiso Resocas" action avi080()
// MENUITEM "&Bajas y Modificaciones Cartera Vencida" ACTION AVI070()
// SEPARATOR
// MENUITEM "Bajas Cta.Cte. Resocas" action avi220()
// MENUITEM "Bajas Cta.Cte. Plantas" action avi230()
// MENUITEM "&Salir" ACTION Salida()
ENDMENU


MENUITEM "&Herramientas"
MENU
MENUITEM "Captura Fideicomiso De Plantas" ACTION avi150()
MENUITEM "Captura Contratos De Productores" ACTION avi500()
MENUITEM "Ca&lculadora" ACTION WinExec("Calc")
MENUITEM "Version de Harbour" ACTION VERclip()
MENUITEM "Internet" action oWebserver:=Webserver:new(),;
oWebserver:activate(),;
oWebserver:explore()
MENUITEM "&Salir" ACTION Salida()
ENDMENU
MENUITEM "A&cerca de..." ;
ACTION MsgAbout( "En "+FWVERSION+" "+VERSION(),"Jose P. Maequez Villa" ) ;
MESSAGE "Acerca de Este Sistema"
ENDMENU

RETURN oMenu


FUNCTION VERCLIP()
MSGINFO(VERSION())
RETURN NIL

Function Salida()

If MsgYesNo( OemToAnsi("¨Desea salir del sistema?"),"Salir del sistema")
DbCloseAll()
//sndPlaySound("c:\harbour\sonidos\goodbye.wav",0)

oVentana:End()
Endif
RETURN NIL
//----------------------------------------------------------------------------//

DLL32 FUNCTION BWCCREGISTER( hinst AS LONG ) AS WORD PASCAL LIB "BWCC32.DLL"
procedure AppSys

return

//----------------------------------------------------------------------------//

[Antonio Linares]

Jose,

FWVERSION es una constante definida en FiveWin.ch, luego tendras que recompilar ese PRG para que se actualice.

[JOSEMAR]

OKEY ANTONIO, LO INTENTARE,
GRACIAS