Work for VFPXDeployment

Fb2P_Diff/config.fpw

@@ -0,0 +1 @@
+CODEPAGE=1252

Fb2P_Diff/fb2p_diff.cfg

@@ -0,0 +1,13 @@
+<difftools>
+	<difftool>
+		<name>WinMergePortable</name>
+		<path><<FoxBin2PrgDir>>WinMergePortable\WinMergePortable.exe</path>
+		<config>/e /x /u /maximize <<filename1>> <<filename2>></config>
+	</difftool>
+	<difftool>
+		<name>Beyond Compare 2</name>
+		<path><<ProgramFiles>>Beyond Compare 2\BC2.exe</path>
+		<config><<filename1>> <<filename2>></config>
+	</difftool>
+	<default_tool>WinMergePortable</default_tool>
+</difftools>

Fb2P_Diff/fb2p_diff.pj2

@@ -0,0 +1,91 @@
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+* (ES) AUTOGENERADO - <20><>ATENCI<43>N!! - <20><>NO PENSADO PARA EJECUTAR!! USAR SOLAMENTE PARA INTEGRAR CAMBIOS Y ALMACENAR CON HERRAMIENTAS SCM!!
+* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+*< FOXBIN2PRG: Version="1.19" SourceFile="fb2p_diff.pjx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
+*
+LPARAMETERS tcDir
+
+lcCurdir = SYS(5)+CURDIR()
+CD ( EVL( tcDir, JUSTPATH( SYS(16) ) ) )
+
+*<DevInfo>
+_Author = "Fernando D. Bozzo"
+_Company = ""
+_Address = ""
+_City = "Coslada"
+_State = "MAD"
+_PostalCode = "28823"
+_Country = "Spain"
+*--
+_Comments = "Comparador de binarios FoxPro 9 (scx,vcx,pjx,pjm,mnx,frx,lbx,dbf,dbc) para FoxBin2Prg"
+_CompanyName = "Fernand D. Bozzo"
+_FileDescription = "Comparador de binarios FoxPro 9 (scx,vcx,pjx,pjm,mnx,frx,lbx,dbf,dbc) para FoxBin2Prg"
+_LegalCopyright = "MIT License"
+_LegalTrademark = "MIT License"
+_ProductName = "FB2P_DIFF"
+_MajorVer = "1"
+_MinorVer = "1"
+_Revision = "0"
+_LanguageID = "1034"
+_AutoIncrement = "0"
+*</DevInfo>
+
+
+*<BuildProj>
+*<.HomeDir = 'g:\desa\foxbin2prg' />
+
+FOR EACH loProject IN _VFP.Projects FOXOBJECT
+	loProject.Close()
+ENDFOR
+
+STRTOFILE( '', '__newproject.f2b' )
+BUILD PROJECT fb2p_diff.pjx FROM '__newproject.f2b'
+FOR EACH loProject IN _VFP.Projects FOXOBJECT
+	loProject.Close()
+ENDFOR
+
+MODIFY PROJECT 'fb2p_diff.pjx' NOWAIT NOSHOW NOPROJECTHOOK
+
+loProject = _VFP.Projects('fb2p_diff.pjx')
+
+WITH loProject.FILES
+	.ADD('config\config.fpw')		&& *< FileMetadata: Type="T" Cpid="1252" Timestamp="0" ID="0" ObjRev="0" User="" DevInfo="" />
+	.ADD('fb2p_diff.ico')		&& *< FileMetadata: Type="x" Cpid="0" Timestamp="0" ID="0" ObjRev="0" User="" DevInfo="" />
+	.ADD('fb2p_diff.scx')		&& *< FileMetadata: Type="K" Cpid="1252" Timestamp="0" ID="0" ObjRev="544" User="" DevInfo="" />
+	.ADD('main_fb2p_diff.prg')		&& *< FileMetadata: Type="P" Cpid="1252" Timestamp="0" ID="0" ObjRev="544" User="" DevInfo="" />
+	*</BuildProj>
+
+	.ITEM('__newproject.f2b').Remove()
+
+	*<FileComments>
+	*</FileComments>
+
+	*<ExcludedFiles>
+	*</ExcludedFiles>
+
+	*<TextFiles>
+	.ITEM(lcCurdir + 'config\config.fpw').Type = 'T'
+	*</TextFiles>
+ENDWITH
+
+WITH loProject
+	*<ProjectProperties>
+	.SetMain(lcCurdir + 'main_fb2p_diff.prg')
+	.Icon = lcCurdir + 'fb2p_diff.ico'
+	.Debug = .T.
+	.Encrypted = .F.
+	*<.CmntStyle = 1 />
+	*<.NoLogo = .F. />
+	*<.SaveCode = .T. />
+	*<.User = '' />
+	.ProjectHookLibrary = ''
+	.ProjectHookClass = ''
+	*</ProjectProperties>
+ENDWITH
+
+
+_VFP.Projects('fb2p_diff.pjx').Close()
+*ERASE '__newproject.f2b'
+CD (lcCurdir)
+RETURN

Fb2P_Diff/main_fb2p_diff.prg

@@ -0,0 +1,57 @@
+*---------------------------------------------------------------------------------------------------
+* M<>dulo.........: main_fb2p_diff.prg - PARA VISUAL FOXPRO 9.0
+* Autor..........: Fernando D. Bozzo (mailto:fdbozzo@gmail.com) - http://fdbozzo.blogspot.com
+* Project info...: https://vfpx.codeplex.com/wikipage?title=FoxBin2Prg
+* Fecha creaci<63>n.: 27/07/2015
+*
+* LICENCE:
+* This work is licensed under the Creative Commons Attribution 4.0 International License.
+* To view a copy of this license, visit http://creativecommons.org/licenses/by/4.0/.
+*
+* LICENCIA:
+* Esta obra est<73> sujeta a la licencia Reconocimiento-CompartirIgual 4.0 Internacional de Creative Commons.
+* Para ver una copia de esta licencia, visite http://creativecommons.org/licenses/by-sa/4.0/deed.es_ES.
+*
+*---------------------------------------------------------------------------------------------------
+* DESCRIPCI<43>N....: PERMITE COMPARAR 2 ARCHIVOS BINARIOS DE VISUAL FOXPRO 9 (SCX,VCX,MNX,FRX,LBX,DBF,DBC).
+*
+*	USO/USE:
+*		DO MAIN_FB2P_DIFF.PRG WITH "<path>\File1.vcx" "<path>\File.vcx"
+*---------------------------------------------------------------------------------------------------
+* <TESTEO, REPORTE DE BUGS Y MEJORAS (AGRADECIMIENTOS)>
+* 04/09/2015	Mike Potjer		Reporte de Bug: Cuando se llama al programa fb2p_diff.exe desde un directorio distinto al de FoxBin2Prg, da un error por no encontrar al conversor (Arreglado en v1.1)
+* </TESTEO Y REPORTE DE BUGS (AGRADECIMIENTOS)>
+*---------------------------------------------------------------------------------------------------
+LPARAMETERS tcFilename1, tcFilename2
+
+LOCAL lnResp, lcSys16, lcOldPath
+PRIVATE poFrm as Form
+lnResp		= 0
+lcSys16		= SYS(16)
+lcOldPath	= SET("Path")
+SET PATH TO (JUSTPATH(lcSys16)) ADDITIVE
+
+DO FORM FB2P_DIFF.SCX NAME poFrm LINKED NOSHOW
+poFrm.filename1 = EVL(tcFilename1, '')
+poFrm.filename2 = EVL(tcFilename2, '')
+poFrm.initialize()
+poFrm.show()
+READ EVENTS
+
+STORE NULL TO poFrm
+SET PATH TO (lcOldPath)
+RELEASE poFrm
+
+IF _VFP.STARTMODE <> 4 OR NOT SYS(16) == SYS(16,0) && 4 = Visual FoxPro was started as a distributable .app or .exe file.
+	RETURN lnResp	&& lnResp contiene un c<>digo de error, pero invocado desde SourceSafe puede contener el tipo de soporte de archivo (0,1,2).
+ENDIF
+
+IF EMPTY(lnResp)
+	QUIT
+ENDIF
+
+*-- Muy <20>til para procesos batch que capturan el c<>digo de error
+DECLARE INTEGER OpenProcess IN Win32API INTEGER dwDesiredAccess, INTEGER bInheritHandle, INTEGER dwProcessID
+lnHandle = OpenProcess(1, 1, _VFP.PROCESSID)
+DECLARE INTEGER TerminateProcess IN Win32API INTEGER hProcess, INTEGER uExitCode
+=TerminateProcess(lnHandle,1)