romfast/foxbin2prg
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Changeset: 149 - Arreglo regeneración de dataenvironment en form cuando hay clases con nombre menor a 'd'

Browse Source 
- Reactivada recompilación por defecto para poder ver siempre los métodos, si no algunos no se ven
This commit is contained in:
fernando
2014-01-31 01:19:40 +01:00
parent 3a14c2ff84
commit 0baa321224
11 changed files with 384 additions and 162 deletions
Download Patch File Download Diff File Expand all files Collapse all files

BIN
TESTS/DATOS_READONLY/encuestas.dbf Normal file
View File

Binary file not shown.

20
TESTS/DATOS_READONLY/fb2p_frm_1.sc2
View File

@@ -4,10 +4,10 @@
*-------------------------------------------------------------------------------------------------------------------------------------------------------- *--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.19" SourceFile="C:\DESA\foxbin2prg\TESTS\DATOS_READONLY\fb2p_frm_1.scx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) *< FOXBIN2PRG: Version="1.19" SourceFile="C:\DESA\foxbin2prg\TESTS\DATOS_READONLY\fb2p_frm_1.scx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
* *
*< OLE: Nombre="Cl_form1.Cl_olecontrol1" Parent="Cl_form1" ObjName="Cl_olecontrol1" OLEObject="C:\Windows\system32\richtx32.ocx" Checksum="1767681336" Value="0M8R4KGxGuEAAAAAAAAAAAAAAAAAAAAAPgADAP7/CQAGAAAAAAAAAAAAAAABAAAAAQAAAAAAAAAAEAAAAgAAAAEAAAD+////AAAAAAAAAAD////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////9/////v////7///8EAAAA/v///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////1IAbwBvAHQAIABFAG4AdAByAHkAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAWAAUA//////////8BAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAHCT7i+++c4BAwAAAIACAAAAAAAAAwBPAGwAZQBPAGIAagBlAGMAdABEAGEAdABhAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB4AAgEDAAAAAgAAAP////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA2AAAAAAAAAADAEEAYwBjAGUAcwBzAE8AYgBqAFMAaQB0AGUARABhAHQAYQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJgACAP///////////////wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAABPAAAAAAAAAAMAQwBoAGEAbgBnAGUAZABQAHIAbwBwAHMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAcAAIA////////////////AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAwAAAOAAAAAAAAAABAAAAAIAAAD+////BQAAAAYAAAAIAAAABwAAAP7///8JAAAA/v////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////9giHw7j9cbELm1BAIcAJQCIUM0EggAAACKDQAA7QYAACFDNBIBAAYArAAAAAAA//8AAP////8AAAAAAAAAAAAATwAAAAAAAAABAAAAAAAAAAAAAAAAAAAAAAAAABcAAAA4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgcWhqIFp0dVFoYTtqZGZuW2lhZXRyIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAACACwAAAEFwcGVhcmFuY2UACQAAAEkKAAAAAAAAAAwAAABCb3JkZXJTdHlsZQAJAAAASQoAAAABAAAADQAAAAAAAAUAAIAAAAAAAAABAAAAAAABAAIACAAAAHtccnRmMVxhbnNpXGFuc2ljcGcxMjUyXGRlZmYwe1xmb250dABCdWxsZXRJbmRlbnQAEQAAAE4NAAAABwAAAAAAAAAAAAAAEAAAAERpc2FibGVOb1Njcm9sbAAFAAAATAAAAABibHtcZjBcZm5pbFxmY2hhcnNldDAgQXJpYWw7fX0NClx2aWV3a2luZDRcdWMxXHBhcmRcbGFuZzMwODJcZnMxOCBPbGVjb250cm9sMQ0KXHBhciB9DQoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAwAAABSaWdodE1hcmdpbgARAAAATg0AAAAHAAAAAAAAAAAAAAAFAAAAVGV4dAAUAAAASAAAAAALAAAAT2xlY29udHJvbDENAAAAQXV0b1ZlcmJNZW51AAUAAABMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA" /> *< OLE: Nombre="Cl_form1.Cl_olecontrol1" Parent="Cl_form1" ObjName="Cl_olecontrol1" OLEObject="C:\Windows\system32\richtx32.ocx" Checksum="617849590" Value="0M8R4KGxGuEAAAAAAAAAAAAAAAAAAAAAPgADAP7/CQAGAAAAAAAAAAAAAAABAAAAAQAAAAAAAAAAEAAAAgAAAAEAAAD+////AAAAAAAAAAD////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////9/////v////7///8EAAAA/v///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////1IAbwBvAHQAIABFAG4AdAByAHkAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAWAAUA//////////8BAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAFBjW5n1Hc8BAwAAAIACAAAAAAAAAwBPAGwAZQBPAGIAagBlAGMAdABEAGEAdABhAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB4AAgEDAAAAAgAAAP////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA2AAAAAAAAAADAEEAYwBjAGUAcwBzAE8AYgBqAFMAaQB0AGUARABhAHQAYQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJgACAP///////////////wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAABPAAAAAAAAAAMAQwBoAGEAbgBnAGUAZABQAHIAbwBwAHMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAcAAIA////////////////AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAwAAAOAAAAAAAAAABAAAAAIAAAD+////BQAAAAYAAAAIAAAABwAAAP7///8JAAAA/v////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////9giHw7j9cbELm1BAIcAJQCIUM0EggAAACKDQAA7QYAACFDNBIBAAYArAAAAAAA//8AAP////8AAAAAAAAAAAAATwAAAAAAAAABAAAAAAAAAAAAAAAAAAAAAAAAABcAAAA4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgcWhqIFp0dVFoYTtqZGZuW2lhZXRyIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAACACwAAAEFwcGVhcmFuY2UACQAAAEkKAAAAAAAAAAwAAABCb3JkZXJTdHlsZQAJAAAASQoAAAABAAAADQAAAAAAAAUAAIAAAAAAAAABAAAAAAABAAIACAAAAHtccnRmMVxhbnNpXGFuc2ljcGcxMjUyXGRlZmYwe1xmb250dABCdWxsZXRJbmRlbnQAEQAAAE4NAAAABwAAAAAAAAAAAAAAEAAAAERpc2FibGVOb1Njcm9sbAAFAAAATAAAAABibHtcZjBcZm5pbFxmY2hhcnNldDAgQXJpYWw7fX0NClx2aWV3a2luZDRcdWMxXHBhcmRcbGFuZzMwODJcZnMxOCBPbGVjb250cm9sMQ0KXHBhciB9DQoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAwAAABSaWdodE1hcmdpbgARAAAATg0AAAAHAAAAAAAAAAAAAAAFAAAAVGV4dAAUAAAASAAAAAALAAAAT2xlY29udHJvbDENAAAAQXV0b1ZlcmJNZW51AAUAAABMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA" />
* *
DEFINE CLASS Cl_form1 AS cl_form OF "fb2p_test.vcx" DEFINE CLASS Cl_form1 AS cl_form OF "fb2p_test.vcx"
*< CLASSDATA: Baseclass="form" Timestamp="2013/12/15 18:50:25" Scale="" Uniqueid="_3XW0B1R2O" /> *< CLASSDATA: Baseclass="form" Timestamp="2014/01/30 20:58:05" Scale="" Uniqueid="_3XW0B1R2O" />
AllowOutput = .T. AllowOutput = .T.
AlwaysOnBottom = .F. AlwaysOnBottom = .F.
AlwaysOnTop = .F. AlwaysOnTop = .F.
@@ -133,7 +133,7 @@ DEFINE CLASS Cl_form1 AS cl_form OF "fb2p_test.vcx"
Name = "Cl_olecontrol1", ; Name = "Cl_olecontrol1", ;
Top = 256, ; Top = 256, ;
Width = 131 Width = 131
*< END OBJECT: ClassLib="fb2p_test.vcx" BaseClass="olecontrol" UniqueID="_3XW0BXGCR" Timestamp="2013/12/03 20:18:24" ZOrder="2900" OLEObject="C:\Windows\system32\richtx32.ocx" CheckSum="1767681336" /> *< END OBJECT: ClassLib="fb2p_test.vcx" BaseClass="olecontrol" UniqueID="_3XW0BXGCR" Timestamp="2013/12/03 20:18:24" ZOrder="2900" OLEObject="C:\Windows\system32\richtx32.ocx" CheckSum="617849590" />
ADD OBJECT 'Commandgroup1' AS commandgroup WITH ; ADD OBJECT 'Commandgroup1' AS commandgroup WITH ;
BackColor = 255,128,255, ; BackColor = 255,128,255, ;
@@ -483,7 +483,7 @@ DEFINE CLASS Cl_form1 AS cl_form OF "fb2p_test.vcx"
ENDDEFINE ENDDEFINE
DEFINE CLASS Dataenvironment AS dataenvironment DEFINE CLASS Dataenvironment AS dataenvironment
*< CLASSDATA: Baseclass="dataenvironment" Timestamp="2013/12/15 18:50:25" Scale="" Uniqueid="_3XW0B1R2N" ClassIcon="1" /> *< CLASSDATA: Baseclass="dataenvironment" Timestamp="2014/01/30 20:58:05" Scale="" Uniqueid="_3XW0B1R2N" ClassIcon="1" />
AutoCloseTables = .T. AutoCloseTables = .T.
AutoOpenTables = .T. AutoOpenTables = .T.
Comment = "" Comment = ""
@@ -515,6 +515,16 @@ DEFINE CLASS Dataenvironment AS dataenvironment
Tag = "", ; Tag = "", ;
Top = 20, ; Top = 20, ;
Width = 102 Width = 102
*< END OBJECT: BaseClass="cursor" UniqueID="_3XW0B58OZ" Timestamp="2013/12/15 18:50:25" ZOrder="300" /> *< END OBJECT: BaseClass="cursor" UniqueID="_3XW0B58OZ" Timestamp="2014/01/30 20:58:05" ZOrder="300" />
PROCEDURE BeforeOpenTables
*-- Comentario en m<>todo [Dataenvironment.BeforeOpenTables]
ENDPROC
PROCEDURE Cursor1.Init
*-- Comentario en m<>todo [Dataenvironment.Cursor1.Init]
ENDPROC
ENDDEFINE ENDDEFINE

BIN
TESTS/DATOS_READONLY/fb2p_frm_1.sct
View File

Binary file not shown.

BIN
TESTS/DATOS_READONLY/fb2p_frm_1.scx
View File

Binary file not shown.

191
TESTS/DATOS_READONLY/form1.sc2 Normal file
View File

@@ -0,0 +1,191 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (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="C:\DESA\TEST\VARIOS\vcx2xml\form1.scx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*< OLE: Nombre="frm_Form1.Olecontrol1" Parent="frm_Form1" ObjName="Olecontrol1" OLEObject="C:\Windows\system32\richtx32.ocx" Checksum="238423585" Value="0M8R4KGxGuEAAAAAAAAAAAAAAAAAAAAAPgADAP7/CQAGAAAAAAAAAAAAAAABAAAAAQAAAAAAAAAAEAAAAgAAAAEAAAD+////AAAAAAAAAAD////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////9/////v////7////+/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////1IAbwBvAHQAIABFAG4AdAByAHkAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAWAAUA//////////8BAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAOBWdmE47c4BAwAAAAACAAAAAAAAAwBPAGwAZQBPAGIAagBlAGMAdABEAGEAdABhAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB4AAgEDAAAAAgAAAP////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA2AAAAAAAAAADAEEAYwBjAGUAcwBzAE8AYgBqAFMAaQB0AGUARABhAHQAYQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJgACAP///////////////wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAABPAAAAAAAAAAMAQwBoAGEAbgBnAGUAZABQAHIAbwBwAHMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAcAAIA////////////////AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAwAAAEoAAAAAAAAABQAAAAIAAAD+////BAAAAP7///8GAAAABwAAAP7///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////9giHw7j9cbELm1BAIcAJQCIUM0EggAAAC/DQAAOhAAACFDNBIBAAYArAAAAAAA//8AAP//AQAAAAAAAAAAAAAATwAAAAAAAAABAAAAAAAAAAAAAAAAAAAAAAAAABcAAAA4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgcWhqIFp0dVFoYTtqZGZuW2lhZXRyIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAACADAAAAFJpZ2h0TWFyZ2luABEAAABODQAAAAcAAAAAAAAAAAAAAAUAAABUZXh0ABQAAABIAAAAAAsAAABPbGVjb250cm9sMQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAFAACAAAAAAAAAAQAAAAEAAQACAAgAAAB7XHJ0ZjFcYW5zaVxhbnNpY3BnMTI1MlxkZWZmMHtcZm9udHRibHtcZjBcZm5pbFxmY2hhcnNldDAgQXJpYWw7fX0NClx2aWV3a2luZDRcdWMxXHBhcmRcbGFuZzMwODJcZnMxOCBPbGVjb250cm9sMQ0KXHBhciB9DQoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA==" />
*
#INCLUDE "include\keycodes.h"
DEFINE CLASS Dataenvironment AS dataenvironment
*< CLASSDATA: Baseclass="dataenvironment" Timestamp="2013/11/19 01:01:01" Scale="" Uniqueid="_3WJ0JJNQE" ClassIcon="1" />
DataSource = .NULL.
Height = 200
Left = 1
Name = "Dataenvironment"
Top = 220
Width = 520
ADD OBJECT 'Cursor1' AS cursor WITH ;
Alias = "foxuser_fdbozzo", ;
CursorSource = foxuser_fdbozzo.dbf, ;
Height = 90, ;
Left = 10, ;
Name = "Cursor1", ;
Top = 20, ;
Width = 90
*< END OBJECT: BaseClass="cursor" UniqueID="_3XH1EYNDL" Timestamp="2013/11/29 20:22:23" ZOrder="300" />
PROCEDURE BeforeOpenTables
*-- Dataenvironment.BeforeOpenTables()
ENDPROC
PROCEDURE Cursor1.Init
*-- Dataenvironment.Cursor1.Init()
ENDPROC
ENDDEFINE
DEFINE CLASS frm_Form1 AS form
*< CLASSDATA: Baseclass="form" Timestamp="2013/11/29 20:22:23" Scale="" Uniqueid="_3WJ0JJNQF" />
*<DefinedPropArrayMethod>
*m: *metodo_comun && M<>todo com<6F>n
*</DefinedPropArrayMethod>
Caption = "Form1"
DoCreate = .T.
Height = 250
Icon = container.ico
Left = 0
Name = "frm_Form1"
Top = 0
Width = 470
WindowType = 1
ADD OBJECT 'Cnt_controles1' AS cnt_controles WITH ;
Left = 28, ;
Name = "Cnt_controles1", ;
TabIndex = 3, ;
Top = 72, ;
Check1.Alignment = 0, ;
Check1.Name = "Check1", ;
Check1.TabIndex = 1, ;
Check1.ZOrderSet = 0, ;
Check2.Alignment = 0, ;
Check2.Name = "Check2", ;
Check2.TabIndex = 2, ;
Check2.ZOrderSet = 1, ;
Check3.Alignment = 0, ;
Check3.Name = "Check3", ;
Check3.TabIndex = 4, ;
Check3.ZOrderSet = 4, ;
Check4.Alignment = 0, ;
Check4.Name = "Check4", ;
Check4.TabIndex = 5, ;
Check4.ZOrderSet = 5, ;
Label_h.Name = "Label_h", ;
Label_h.TabIndex = 6, ;
Label_h.ZOrderSet = 2, ;
Textbox_h.Name = "Textbox_h", ;
Textbox_h.TabIndex = 3, ;
Textbox_h.ZOrderSet = 3
*< END OBJECT: ClassLib="bca.vcx" BaseClass="container" UniqueID="_3XH0XA3XD" Timestamp="2013/11/19 01:01:01" ZOrder="700" />
ADD OBJECT 'Cnt_controles1.Label1' AS label WITH ;
Caption = "Label1", ;
Height = 17, ;
Left = 24, ;
Name = "Label1", ;
TabIndex = 7, ;
Top = 84, ;
Width = 64
*< END OBJECT: BaseClass="label" UniqueID="_3XH1DGY07" Timestamp="2013/11/19 01:01:01" ZOrder="800" />
ADD OBJECT 'Command1' AS commandbutton WITH ;
Caption = "Command1", ;
Height = 27, ;
Left = 28, ;
Name = "Command1", ;
TabIndex = 1, ;
Top = 20, ;
Width = 84
*< END OBJECT: BaseClass="commandbutton" UniqueID="_3WJ0JJNQG" Timestamp="2013/11/23 14:11:05" ZOrder="500" />
ADD OBJECT 'Command2' AS commandbutton WITH ;
Caption = "Command1", ;
Height = 27, ;
Left = 132, ;
Name = "Command2", ;
TabIndex = 2, ;
Top = 20, ;
Width = 84
*< END OBJECT: BaseClass="commandbutton" UniqueID="_3WJ0JJNQH" Timestamp="2013/11/23 13:58:05" ZOrder="600" />
ADD OBJECT 'Olecontrol1' AS olecontrol WITH ;
Height = 157, ;
Left = 328, ;
Name = "Olecontrol1", ;
Top = 72, ;
Width = 133
*< END OBJECT: BaseClass="olecontrol" UniqueID="_3XI026DCE" Timestamp="2013/11/19 01:01:01" ZOrder="900" OLEObject="C:\Windows\system32\richtx32.ocx" CheckSum="238423585" />
PROCEDURE Load
*-- Form 1 LOAD()
ENDPROC
PROCEDURE metodo_comun && M<>todo com<6F>n
*-- frm_Form1.metodo_comun()
ENDPROC
PROCEDURE Unload
*-- Form1.Unload()
ENDPROC
PROCEDURE Cnt_controles1.Check1.Click
*-- Form1.Cnt_controles1.Check1.Click()
ENDPROC
PROCEDURE Cnt_controles1.Check2.Click
*-- Form1.Cnt_controles1.Check2.Click()
ENDPROC
PROCEDURE Cnt_controles1.Check3.Click
*-- Form1.Cnt_controles1.Check3.Click()
ENDPROC
PROCEDURE Cnt_controles1.Check4.Click
*-- Form1.Cnt_controles1.Check4.Click()
ENDPROC
PROCEDURE Cnt_controles1.Init
*-- Form1.Command1.Cnt_controles1.Init()
ENDPROC
PROCEDURE Cnt_controles1.Label1.Click
*-- Form1.Cnt_controles1.Label1.Click() ==> No hereda, es nuevo!
ENDPROC
PROCEDURE Command1.Click
*-- Form1.Command1.Click()
PUBLIC ;
glEnabled_Opc_A_2_Sub_2 ;
, glEnabled_Opc_A_2_Sub_3 ;
, glEnabled_Opc_B
STORE .T. TO ;
glEnabled_Opc_A_2_Sub_2 ;
, glEnabled_Opc_A_2_Sub_3 ;
, glEnabled_Opc_B
DO MENU1.MPR
ENDPROC
PROCEDURE Command2.Click
*-- Form1.Command2.Click()
QUIT
ENDPROC
ENDDEFINE

BIN
TESTS/DATOS_READONLY/form1.sct Normal file
View File

Binary file not shown.

BIN
TESTS/DATOS_READONLY/form1.scx Normal file
View File

Binary file not shown.

4
foxbin2prg.pj2
View File

@@ -26,7 +26,7 @@ _LegalTrademark = "Open Source"
_ProductName = " FOXBIN2PRG" _ProductName = " FOXBIN2PRG"
_MajorVer = "1" _MajorVer = "1"
_MinorVer = "19" _MinorVer = "19"
_Revision = " 216" _Revision = " 219"
_LanguageID = "1034" _LanguageID = "1034"
_AutoIncrement = "1" _AutoIncrement = "1"
*</DevInfo> *</DevInfo>
@@ -51,7 +51,7 @@ loProject = _VFP.Projects('foxbin2prg.pjx')
WITH loProject.FILES WITH loProject.FILES
.ADD('config\config.fpw') && *< FileMetadata: Type="T" Cpid="1252" Timestamp="1132857145" ID="1131721714" ObjRev="0" /> .ADD('config\config.fpw') && *< FileMetadata: Type="T" Cpid="1252" Timestamp="1132857145" ID="1131721714" ObjRev="0" />
.ADD('foxbin2prg.prg') && *< FileMetadata: Type="P" Cpid="1252" Timestamp="1144955831" ID="1130644423" ObjRev="544" /> .ADD('foxbin2prg.prg') && *< FileMetadata: Type="P" Cpid="1252" Timestamp="1144982028" ID="1130644423" ObjRev="544" />
*</BuildProj> *</BuildProj>
.ITEM('__newproject.f2b').Remove() .ITEM('__newproject.f2b').Remove()

BIN
foxbin2prg.pjt
View File

Binary file not shown.

BIN
foxbin2prg.pjx
View File

Binary file not shown.

331
foxbin2prg.prg
View File

@@ -314,9 +314,11 @@ LOCAL lnResp, loEx as Exception
*SYS(2030,1) *SYS(2030,1)
*SYS(2335,0) *SYS(2335,0)
*IF PCOUNT() > 1 *IF PCOUNT() > 1 && Saltear las querys de SourceSafe sobre soporte de archivos
* SET STEP ON * SET STEP ON
* MESSAGEBOX( SYS(5)+CURDIR(),64+4096,PROGRAM(),5000)
*ENDIF *ENDIF
loCnv = CREATEOBJECT("c_foxbin2prg") loCnv = CREATEOBJECT("c_foxbin2prg")
loEx = NULL loEx = NULL
lnResp = loCnv.ejecutar( tc_InputFile, tcType, tcTextName, tlGenText, tcDontShowErrors, tcDebug ; lnResp = loCnv.ejecutar( tc_InputFile, tcType, tcTextName, tlGenText, tcDontShowErrors, tcDebug ;
@@ -690,6 +692,7 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM
, loFSO AS Scripting.FileSystemObject , loFSO AS Scripting.FileSystemObject
lnCodError = 0 lnCodError = 0
tcRecompile = EVL(tcRecompile,'')
*SET DELETED ON *SET DELETED ON
*SET DATE YMD *SET DATE YMD
@@ -719,7 +722,8 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM
*-- Ejecuci<63>n normal *-- Ejecuci<63>n normal
THIS.l_ShowProgress = NOT (TRANSFORM(tcDontShowProgress)=='1') THIS.l_ShowProgress = NOT (TRANSFORM(tcDontShowProgress)=='1')
THIS.l_ShowErrors = NOT (TRANSFORM(tcDontShowErrors) == '1') THIS.l_ShowErrors = NOT (TRANSFORM(tcDontShowErrors) == '1')
THIS.l_Recompile = (NOT EMPTY(tcRecompile) AND (TRANSFORM(tcRecompile) == '1' OR DIRECTORY(tcRecompile))) *THIS.l_Recompile = (NOT EMPTY(tcRecompile) AND (TRANSFORM(tcRecompile) == '1' OR DIRECTORY(tcRecompile)))
THIS.l_Recompile = (EMPTY(tcRecompile) OR TRANSFORM(tcRecompile) == '1' OR DIRECTORY(tcRecompile))
THIS.l_Debug = (TRANSFORM(tcDebug)=='1' OR FILE(FORCEEXT(THIS.c_Foxbin2prg_FullPath,'LOG'))) THIS.l_Debug = (TRANSFORM(tcDebug)=='1' OR FILE(FORCEEXT(THIS.c_Foxbin2prg_FullPath,'LOG')))
IF THIS.l_ShowProgress IF THIS.l_ShowProgress
@@ -762,7 +766,7 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM
IF THIS.l_Recompile AND LEN(tcRecompile) > 3 AND DIRECTORY(tcRecompile) IF THIS.l_Recompile AND LEN(tcRecompile) > 3 AND DIRECTORY(tcRecompile)
CD (tcRecompile) CD (tcRecompile)
ELSE ELSE
CD (JUSTPATH(lcFileSpec)) *CD (JUSTPATH(lcFileSpec))
ENDIF ENDIF
THIS.c_LogFile = ADDBS( JUSTPATH( lcFileSpec ) ) + STRTRAN( JUSTFNAME( lcFileSpec ), '*', '_ALL' ) + '.LOG' THIS.c_LogFile = ADDBS( JUSTPATH( lcFileSpec ) ) + STRTRAN( JUSTFNAME( lcFileSpec ), '*', '_ALL' ) + '.LOG'
@@ -818,7 +822,7 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM
IF THIS.l_Recompile AND LEN(tcRecompile) > 3 AND DIRECTORY(tcRecompile) IF THIS.l_Recompile AND LEN(tcRecompile) > 3 AND DIRECTORY(tcRecompile)
CD (tcRecompile) CD (tcRecompile)
ELSE ELSE
CD (JUSTPATH(tc_InputFile)) *CD (JUSTPATH(tc_InputFile))
ENDIF ENDIF
THIS.c_LogFile = tc_InputFile + '.LOG' THIS.c_LogFile = tc_InputFile + '.LOG'
@@ -832,7 +836,8 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM
*-- Como el archivo de entrada siempre es el binario cuando se usa SCCAPI, *-- Como el archivo de entrada siempre es el binario cuando se usa SCCAPI,
*-- para se debe regenerar el binario (tlGenText=.F.) se debe usar como *-- para se debe regenerar el binario (tlGenText=.F.) se debe usar como
*-- archivo de entrada tcTextName en su lugar. Aqu<71> los intercambio. *-- archivo de entrada tcTextName en su lugar. Aqu<71> los intercambio.
tc_InputFile = tcTextName tc_InputFile = tcTextName
THIS.l_Recompile = .T.
ENDIF ENDIF
ENDIF ENDIF
@@ -4402,111 +4407,119 @@ DEFINE CLASS c_conversor_prg_a_vcx AS c_conversor_prg_a_bin
*-- Recorro las CLASES *-- Recorro las CLASES
FOR I = 1 TO toModulo._Clases_Count FOR X = 1 TO 2
FOR I = 1 TO toModulo._Clases_Count
loClase = toModulo._Clases(I) loClase = toModulo._Clases(I)
*-- Inserto la clase *-- El dataenvironment debe estar primero, luego lo dem<65>s.
INSERT INTO TABLABIN ; IF X = 1 AND NOT loClase._baseclass == 'dataenvironment' ;
( PLATFORM ; OR X = 2 AND loClase._baseclass == 'dataenvironment'
, UNIQUEID ; LOOP
, TIMESTAMP ; ENDIF
, CLASS ;
, CLASSLOC ; *-- Inserto la clase
, BASECLASS ; INSERT INTO TABLABIN ;
, OBJNAME ; ( PLATFORM ;
, PARENT ; , UNIQUEID ;
, PROPERTIES ; , TIMESTAMP ;
, PROTECTED ; , CLASS ;
, METHODS ; , CLASSLOC ;
, OLE ; , BASECLASS ;
, OLE2 ; , OBJNAME ;
, RESERVED1 ; , PARENT ;
, RESERVED2 ; , PROPERTIES ;
, RESERVED3 ; , PROTECTED ;
, RESERVED4 ; , METHODS ;
, RESERVED5 ; , OLE ;
, RESERVED6 ; , OLE2 ;
, RESERVED7 ; , RESERVED1 ;
, RESERVED8 ; , RESERVED2 ;
, USER) ; , RESERVED3 ;
VALUES ; , RESERVED4 ;
( 'WINDOWS' ; , RESERVED5 ;
, loClase._UniqueID ; , RESERVED6 ;
, loClase._TimeStamp ; , RESERVED7 ;
, loClase._Class ; , RESERVED8 ;
, loClase._ClassLoc ; , USER) ;
, loClase._BaseClass ; VALUES ;
, loClase._ObjName ; ( 'WINDOWS' ;
, loClase._Parent ; , loClase._UniqueID ;
, loClase._PROPERTIES ; , loClase._TimeStamp ;
, loClase._PROTECTED ; , loClase._Class ;
, loClase._METHODS ; , loClase._ClassLoc ;
, loClase._Ole ; , loClase._BaseClass ;
, loClase._Ole2 ; , loClase._ObjName ;
, loClase._RESERVED1 ; , loClase._Parent ;
, loClase._RESERVED2 ; , loClase._PROPERTIES ;
, loClase._RESERVED3 ; , loClase._PROTECTED ;
, loClase._ClassIcon ; , loClase._METHODS ;
, loClase._ProjectClassIcon ; , loClase._Ole ;
, loClase._Scale ; , loClase._Ole2 ;
, loClase._Comentario ; , loClase._RESERVED1 ;
, loClase._includeFile ; , loClase._RESERVED2 ;
, loClase._User ) , loClase._RESERVED3 ;
, loClase._ClassIcon ;
, loClase._ProjectClassIcon ;
, loClase._Scale ;
, loClase._Comentario ;
, loClase._includeFile ;
, loClase._User )
THIS.insert_AllObjects( @loClase ) THIS.insert_AllObjects( @loClase )
*-- Inserto el COMMENT *-- Inserto el COMMENT
INSERT INTO TABLABIN ; INSERT INTO TABLABIN ;
( PLATFORM ; ( PLATFORM ;
, UNIQUEID ; , UNIQUEID ;
, TIMESTAMP ; , TIMESTAMP ;
, CLASS ; , CLASS ;
, CLASSLOC ; , CLASSLOC ;
, BASECLASS ; , BASECLASS ;
, OBJNAME ; , OBJNAME ;
, PARENT ; , PARENT ;
, PROPERTIES ; , PROPERTIES ;
, PROTECTED ; , PROTECTED ;
, METHODS ; , METHODS ;
, OLE ; , OLE ;
, OLE2 ; , OLE2 ;
, RESERVED1 ; , RESERVED1 ;
, RESERVED2 ; , RESERVED2 ;
, RESERVED3 ; , RESERVED3 ;
, RESERVED4 ; , RESERVED4 ;
, RESERVED5 ; , RESERVED5 ;
, RESERVED6 ; , RESERVED6 ;
, RESERVED7 ; , RESERVED7 ;
, RESERVED8 ; , RESERVED8 ;
, USER) ; , USER) ;
VALUES ; VALUES ;
( 'COMMENT' ; ( 'COMMENT' ;
, 'RESERVED' ; , 'RESERVED' ;
, loClase._TimeStamp ; , loClase._TimeStamp ;
, '' ; , '' ;
, '' ; , '' ;
, '' ; , '' ;
, loClase._ObjName ; , loClase._ObjName ;
, '' ; , '' ;
, '' ; , '' ;
, '' ; , '' ;
, '' ; , '' ;
, '' ; , '' ;
, '' ; , '' ;
, '' ; , '' ;
, IIF(loClase._OlePublic, 'OLEPublic', '') ; , IIF(loClase._OlePublic, 'OLEPublic', '') ;
, '' ; , '' ;
, '' ; , '' ;
, '' ; , '' ;
, '' ; , '' ;
, '' ; , '' ;
, '' ; , '' ;
, '' ) , '' )
ENDFOR && I = 1 TO toModulo._Clases_Count ENDFOR && I = 1 TO toModulo._Clases_Count
ENDFOR && X = 1 TO 2
USE IN (SELECT("TABLABIN")) USE IN (SELECT("TABLABIN"))
@@ -4671,7 +4684,7 @@ DEFINE CLASS c_conversor_prg_a_scx AS c_conversor_prg_a_bin
#ENDIF #ENDIF
TRY TRY
LOCAL lcObjName, lnCodError, loEx AS EXCEPTION ; LOCAL lcObjName, lnCodError, I, X, loEx AS EXCEPTION ;
, loClase AS CL_CLASE OF 'FOXBIN2PRG.PRG' ; , loClase AS CL_CLASE OF 'FOXBIN2PRG.PRG' ;
, loObjeto AS CL_OBJETO OF 'FOXBIN2PRG.PRG' , loObjeto AS CL_OBJETO OF 'FOXBIN2PRG.PRG'
@@ -4685,62 +4698,70 @@ DEFINE CLASS c_conversor_prg_a_scx AS c_conversor_prg_a_bin
*-- Recorro las CLASES *-- Recorro las CLASES
FOR I = 1 TO toModulo._Clases_Count FOR X = 1 TO 2
FOR I = 1 TO toModulo._Clases_Count
loClase = toModulo._Clases(I) loClase = toModulo._Clases(I)
*-- Inserto la clase *-- El dataenvironment debe estar primero, luego lo dem<65>s.
INSERT INTO TABLABIN ; IF X = 1 AND NOT loClase._baseclass == 'dataenvironment' ;
( PLATFORM ; OR X = 2 AND loClase._baseclass == 'dataenvironment'
, UNIQUEID ; LOOP
, TIMESTAMP ; ENDIF
, CLASS ;
, CLASSLOC ; *-- Inserto la clase
, BASECLASS ; INSERT INTO TABLABIN ;
, OBJNAME ; ( PLATFORM ;
, PARENT ; , UNIQUEID ;
, PROPERTIES ; , TIMESTAMP ;
, PROTECTED ; , CLASS ;
, METHODS ; , CLASSLOC ;
, OLE ; , BASECLASS ;
, OLE2 ; , OBJNAME ;
, RESERVED1 ; , PARENT ;
, RESERVED2 ; , PROPERTIES ;
, RESERVED3 ; , PROTECTED ;
, RESERVED4 ; , METHODS ;
, RESERVED5 ; , OLE ;
, RESERVED6 ; , OLE2 ;
, RESERVED7 ; , RESERVED1 ;
, RESERVED8 ; , RESERVED2 ;
, USER) ; , RESERVED3 ;
VALUES ; , RESERVED4 ;
( 'WINDOWS' ; , RESERVED5 ;
, loClase._UniqueID ; , RESERVED6 ;
, loClase._TimeStamp ; , RESERVED7 ;
, loClase._Class ; , RESERVED8 ;
, loClase._ClassLoc ; , USER) ;
, loClase._BaseClass ; VALUES ;
, loClase._ObjName ; ( 'WINDOWS' ;
, loClase._Parent ; , loClase._UniqueID ;
, loClase._PROPERTIES ; , loClase._TimeStamp ;
, loClase._PROTECTED ; , loClase._Class ;
, loClase._METHODS ; , loClase._ClassLoc ;
, loClase._Ole ; , loClase._BaseClass ;
, loClase._Ole2 ; , loClase._ObjName ;
, loClase._RESERVED1 ; , loClase._Parent ;
, loClase._RESERVED2 ; , loClase._PROPERTIES ;
, loClase._RESERVED3 ; , loClase._PROTECTED ;
, loClase._ClassIcon ; , loClase._METHODS ;
, loClase._ProjectClassIcon ; , loClase._Ole ;
, loClase._Scale ; , loClase._Ole2 ;
, loClase._Comentario ; , loClase._RESERVED1 ;
, loClase._includeFile ; , loClase._RESERVED2 ;
, loClase._User ) , loClase._RESERVED3 ;
, loClase._ClassIcon ;
, loClase._ProjectClassIcon ;
, loClase._Scale ;
, loClase._Comentario ;
, loClase._includeFile ;
, loClase._User )
THIS.insert_AllObjects( @loClase ) THIS.insert_AllObjects( @loClase )
ENDFOR && I = 1 TO toModulo._Clases_Count ENDFOR && I = 1 TO toModulo._Clases_Count
ENDFOR && X = 1 TO 2
*-- Inserto el COMMENT final *-- Inserto el COMMENT final
INSERT INTO TABLABIN ; INSERT INTO TABLABIN ;