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

foxbin2prg.prg: Issue#15 fix (check only main object)

Browse Source 
lib_controles.vcx: Change PCT_DLL.dll path
ut__foxbin2prg__c_conversor_prg_a_bin__analyzeAssignmentOf_Tag.prg: Adapt test case for issue#15
EXE generation
This commit is contained in:
fdbozzo
2018-01-06 21:40:10 +01:00
parent 9f9efb2fc8
commit f0454e0392
6 changed files with 7 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
TESTS/DATOS_READONLY/lib_controles.vc2
View File

@@ -1544,7 +1544,7 @@ DEFINE CLASS f_base AS form
tcFilename = SYS(5) + ADDBS(CURDIR()) + "TESTS\DATOS_TEST\" + tcFilename + '.bmp' tcFilename = SYS(5) + ADDBS(CURDIR()) + "TESTS\DATOS_TEST\" + tcFilename + '.bmp'
ENDIF ENDIF
Declare Integer formtobmp IN "TESTS\PCT_DLL.dll" integer hwnd,String bmpFileName Declare Integer formtobmp IN "PCT_DLL.dll" integer hwnd,String bmpFileName
retVal = formtobmp( THISFORM.HWnd, tcFilename ) retVal = formtobmp( THISFORM.HWnd, tcFilename )
*Declare Integer formtobmpA IN "TESTS\PCT_DLL.dll" string bmpfilename,integer nX,integer nY,integer nX2,integer nY2 *Declare Integer formtobmpA IN "TESTS\PCT_DLL.dll" string bmpfilename,integer nX,integer nY,integer nX2,integer nY2
@@ -1561,6 +1561,7 @@ DEFINE CLASS f_base AS form
ENDPROC ENDPROC
PROCEDURE Init PROCEDURE Init
SET PATH TO (FULLPATH("..\", THIS.ClassLibrary)) ADDITIVE
THISFORM.cmdCapturar.SetFocus() THISFORM.cmdCapturar.SetFocus()
ENDPROC ENDPROC

BIN
TESTS/DATOS_READONLY/lib_controles.vct
View File

Binary file not shown.

BIN
TESTS/DATOS_READONLY/lib_controles.vcx
View File

Binary file not shown.

4
TESTS/ut__foxbin2prg__c_conversor_prg_a_bin__analyzeAssignmentOf_TAG.prg
View File

@@ -290,7 +290,9 @@ DEFINE CLASS ut__foxbin2prg__c_conversor_prg_a_bin__analyzeAssignmentOf_TAG AS F
*-- DATOS ESPERADOS *-- DATOS ESPERADOS
STORE 0 TO lnCodError_Esperado STORE 0 TO lnCodError_Esperado
lcValue_Esperado = REPLICATE( CHR(1), 517 ) + STR(23 + LEN(lcMemberdata),8) + '<VFPData>' + CR_LF + lcMemberdata + CR_LF + '</VFPData>' *lcValue_Esperado = REPLICATE( CHR(1), 517 ) + STR(23 + LEN(lcMemberdata),8) + '<VFPData>' + CR_LF + lcMemberdata + CR_LF + '</VFPData>'
lcMemberdata = CHRTRAN(lcMemberdata,CR_LF,'') && Issue#15 - Doug Hennig
lcValue_Esperado = REPLICATE( CHR(1), 517 ) + STR(19 + LEN(lcMemberdata),8) + '<VFPData>' + lcMemberdata + '</VFPData>'
*-- TEST *-- TEST
loObj.analyzeAssignmentOf_TAG( @lcPropName, @lcPropValue, @laProps, @lnProp_Count ; loObj.analyzeAssignmentOf_TAG( @lcPropName, @lcPropValue, @laProps, @lnProp_Count ;

BIN
foxbin2prg.exe
View File

Binary file not shown.

3
foxbin2prg.prg
View File

@@ -14039,7 +14039,8 @@ DEFINE CLASS c_conversor_bin_a_prg AS c_conversor_base
IF NOT EMPTY(lcParent) IF NOT EMPTY(lcParent)
* Tiene Parent, y debe existir, si no es ignorado * Tiene Parent, y debe existir, si no es ignorado
IF loObjs.GetKey(lcParent) > 0 * NOTA: Del parent solo se puede comprobar el objeto primario.
IF loObjs.GetKey(GETWORDNUM(lcParent + '.', 1, '.')) > 0
* Existe: se agrega al array el nuevo objeto * Existe: se agrega al array el nuevo objeto
loObjs.Add( '', lcParentObjName ) loObjs.Add( '', lcParentObjName )
ELSE ELSE