diff --git a/TESTS/DATOS_READONLY/lib_controles.vc2 b/TESTS/DATOS_READONLY/lib_controles.vc2 index 4027987..9713188 100644 --- a/TESTS/DATOS_READONLY/lib_controles.vc2 +++ b/TESTS/DATOS_READONLY/lib_controles.vc2 @@ -1544,7 +1544,7 @@ DEFINE CLASS f_base AS form tcFilename = SYS(5) + ADDBS(CURDIR()) + "TESTS\DATOS_TEST\" + tcFilename + '.bmp' 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 ) *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 PROCEDURE Init + SET PATH TO (FULLPATH("..\", THIS.ClassLibrary)) ADDITIVE THISFORM.cmdCapturar.SetFocus() ENDPROC diff --git a/TESTS/DATOS_READONLY/lib_controles.vct b/TESTS/DATOS_READONLY/lib_controles.vct index 86434ef..c2ae1d2 100644 Binary files a/TESTS/DATOS_READONLY/lib_controles.vct and b/TESTS/DATOS_READONLY/lib_controles.vct differ diff --git a/TESTS/DATOS_READONLY/lib_controles.vcx b/TESTS/DATOS_READONLY/lib_controles.vcx index 1ef9e56..b10f42f 100644 Binary files a/TESTS/DATOS_READONLY/lib_controles.vcx and b/TESTS/DATOS_READONLY/lib_controles.vcx differ diff --git a/TESTS/ut__foxbin2prg__c_conversor_prg_a_bin__analyzeAssignmentOf_TAG.prg b/TESTS/ut__foxbin2prg__c_conversor_prg_a_bin__analyzeAssignmentOf_TAG.prg index 7a92e4d..585d1e2 100644 --- a/TESTS/ut__foxbin2prg__c_conversor_prg_a_bin__analyzeAssignmentOf_TAG.prg +++ b/TESTS/ut__foxbin2prg__c_conversor_prg_a_bin__analyzeAssignmentOf_TAG.prg @@ -290,7 +290,9 @@ DEFINE CLASS ut__foxbin2prg__c_conversor_prg_a_bin__analyzeAssignmentOf_TAG AS F *-- DATOS ESPERADOS STORE 0 TO lnCodError_Esperado - lcValue_Esperado = REPLICATE( CHR(1), 517 ) + STR(23 + LEN(lcMemberdata),8) + '' + CR_LF + lcMemberdata + CR_LF + '' + *lcValue_Esperado = REPLICATE( CHR(1), 517 ) + STR(23 + LEN(lcMemberdata),8) + '' + CR_LF + lcMemberdata + CR_LF + '' + lcMemberdata = CHRTRAN(lcMemberdata,CR_LF,'') && Issue#15 - Doug Hennig + lcValue_Esperado = REPLICATE( CHR(1), 517 ) + STR(19 + LEN(lcMemberdata),8) + '' + lcMemberdata + '' *-- TEST loObj.analyzeAssignmentOf_TAG( @lcPropName, @lcPropValue, @laProps, @lnProp_Count ; diff --git a/foxbin2prg.exe b/foxbin2prg.exe index 218e840..753cd3c 100644 Binary files a/foxbin2prg.exe and b/foxbin2prg.exe differ diff --git a/foxbin2prg.prg b/foxbin2prg.prg index 2370eef..fe2a768 100644 --- a/foxbin2prg.prg +++ b/foxbin2prg.prg @@ -14039,7 +14039,8 @@ DEFINE CLASS c_conversor_bin_a_prg AS c_conversor_base IF NOT EMPTY(lcParent) * 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 loObjs.Add( '', lcParentObjName ) ELSE