diff --git a/foxbin2prg.pj2 b/foxbin2prg.pj2 index ddbac99..433e5d5 100644 --- a/foxbin2prg.pj2 +++ b/foxbin2prg.pj2 @@ -2,7 +2,7 @@ * (ES) AUTOGENERADO - ˇˇATENCIÓN!! - ˇˇ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.18" SourceFile="C:\DESA\foxbin2prg\foxbin2prg.pjx" Generated="2014/01/08 00:50:45" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +*< FOXBIN2PRG: Version="1.19" SourceFile="C:\DESA\foxbin2prg\foxbin2prg.pjx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) * LPARAMETERS tcDir @@ -25,8 +25,8 @@ _LegalCopyright = "Open Source - LICENCIA Creative Commons: Reconocimiento - Co _LegalTrademark = "Open Source" _ProductName = " FOXBIN2PRG" _MajorVer = "1" -_MinorVer = "18" -_Revision = " 183" +_MinorVer = "19" +_Revision = " 188" _LanguageID = "1034" _AutoIncrement = "1" * @@ -51,7 +51,7 @@ loProject = _VFP.Projects('foxbin2prg.pjx') WITH loProject.FILES .ADD('config\config.fpw') && *< FileMetadata: Type="T" Cpid="1252" Timestamp="1132857145" ID="1131721714" ObjRev="0" /> - .ADD('foxbin2prg.prg') && *< FileMetadata: Type="P" Cpid="1252" Timestamp="1143473629" ID="1130644423" ObjRev="544" /> + .ADD('foxbin2prg.prg') && *< FileMetadata: Type="P" Cpid="1252" Timestamp="1143493693" ID="1130644423" ObjRev="544" /> * .ITEM('__newproject.f2b').Remove() diff --git a/foxbin2prg.pjt b/foxbin2prg.pjt index bdadb92..f74b6f0 100644 Binary files a/foxbin2prg.pjt and b/foxbin2prg.pjt differ diff --git a/foxbin2prg.pjx b/foxbin2prg.pjx index fde8842..84bf62a 100644 Binary files a/foxbin2prg.pjx and b/foxbin2prg.pjx differ diff --git a/foxbin2prg.prg b/foxbin2prg.prg index 0f9e0d5..5ee52b4 100644 --- a/foxbin2prg.prg +++ b/foxbin2prg.prg @@ -353,7 +353,7 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM *-- - n_FB2PRG_Version = 1.18 + n_FB2PRG_Version = 1.19 *-- c_Foxbin2prg_FullPath = '' c_CurDir = '' @@ -856,7 +856,7 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM * (ES) AUTOGENERADO - ˇˇATENCIÓN!! - ˇˇ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!! *-------------------------------------------------------------------------------------------------------------------------------------------------------- - <> Version="<>" SourceFile="<>" Generated="<>" <> (Solo para binarios VFP 9 / Only for VFP 9 binaries) + <> Version="<>" SourceFile="<>" <> (Solo para binarios VFP 9 / Only for VFP 9 binaries) * ENDTEXT @@ -7908,8 +7908,6 @@ DEFINE CLASS c_conversor_vcx_a_prg AS c_conversor_bin_a_prg THIS.write_ENDDEFINE_SiCorresponde( lnLastClass ) - toFoxbin2prg.doBackup( .F., .T., '', '', '' ) - *-- Genero el VC2 IF THIS.l_Test toModulo = C_FB2PRG_CODE @@ -7918,7 +7916,7 @@ DEFINE CLASS c_conversor_vcx_a_prg AS c_conversor_bin_a_prg DO CASE CASE FILE(THIS.c_OutputFile) AND SUBSTR( FILETOSTR( THIS.c_OutputFile ), lnLen ) == SUBSTR( C_FB2PRG_CODE, lnLen ) THIS.writeLog( 'El archivo de salida [' + THIS.c_OutputFile + '] no se sobreescribe por ser igual al generado.' ) - CASE STRTOFILE( C_FB2PRG_CODE, THIS.c_OutputFile ) = 0 + CASE toFoxbin2prg.doBackup( .F., .T., '', '', '' ) AND STRTOFILE( C_FB2PRG_CODE, THIS.c_OutputFile ) = 0 ERROR 'No se puede generar el archivo [' + THIS.c_OutputFile + '] porque es ReadOnly' ENDCASE ENDIF @@ -8073,8 +8071,6 @@ DEFINE CLASS c_conversor_scx_a_prg AS c_conversor_bin_a_prg THIS.write_ENDDEFINE_SiCorresponde( lnLastClass ) - toFoxbin2prg.doBackup( .F., .T., '', '', '' ) - *-- Genero el SC2 IF THIS.l_Test toModulo = C_FB2PRG_CODE @@ -8083,7 +8079,7 @@ DEFINE CLASS c_conversor_scx_a_prg AS c_conversor_bin_a_prg DO CASE CASE FILE(THIS.c_OutputFile) AND SUBSTR( FILETOSTR( THIS.c_OutputFile ), lnLen ) == SUBSTR( C_FB2PRG_CODE, lnLen ) THIS.writeLog( 'El archivo de salida [' + THIS.c_OutputFile + '] no se sobreescribe por ser igual al generado.' ) - CASE STRTOFILE( C_FB2PRG_CODE, THIS.c_OutputFile ) = 0 + CASE toFoxbin2prg.doBackup( .F., .T., '', '', '' ) AND STRTOFILE( C_FB2PRG_CODE, THIS.c_OutputFile ) = 0 ERROR 'No se puede generar el archivo [' + THIS.c_OutputFile + '] porque es ReadOnly' ENDCASE ENDIF @@ -8378,8 +8374,6 @@ DEFINE CLASS c_conversor_pjx_a_prg AS c_conversor_bin_a_prg ENDTEXT - toFoxbin2prg.doBackup( .F., .T., '', '', '' ) - *-- Genero el PJ2 IF THIS.l_Test toModulo = C_FB2PRG_CODE @@ -8388,7 +8382,7 @@ DEFINE CLASS c_conversor_pjx_a_prg AS c_conversor_bin_a_prg DO CASE CASE FILE(THIS.c_OutputFile) AND SUBSTR( FILETOSTR( THIS.c_OutputFile ), lnLen ) == SUBSTR( C_FB2PRG_CODE, lnLen ) THIS.writeLog( 'El archivo de salida [' + THIS.c_OutputFile + '] no se sobreescribe por ser igual al generado.' ) - CASE STRTOFILE( C_FB2PRG_CODE, THIS.c_OutputFile ) = 0 + CASE toFoxbin2prg.doBackup( .F., .T., '', '', '' ) AND STRTOFILE( C_FB2PRG_CODE, THIS.c_OutputFile ) = 0 ERROR 'No se puede generar el archivo [' + THIS.c_OutputFile + '] porque es ReadOnly' ENDCASE *COMPILE ( THIS.c_outputFile ) @@ -8748,8 +8742,6 @@ DEFINE CLASS c_conversor_pjm_a_prg AS c_conversor_bin_a_prg ENDTEXT - toFoxbin2prg.doBackup( .F., .T., '', '', '' ) - *-- Genero el PJ2 IF THIS.l_Test toModulo = C_FB2PRG_CODE @@ -8758,7 +8750,7 @@ DEFINE CLASS c_conversor_pjm_a_prg AS c_conversor_bin_a_prg DO CASE CASE FILE(THIS.c_OutputFile) AND SUBSTR( FILETOSTR( THIS.c_OutputFile ), lnLen ) == SUBSTR( C_FB2PRG_CODE, lnLen ) THIS.writeLog( 'El archivo de salida [' + THIS.c_OutputFile + '] no se sobreescribe por ser igual al generado.' ) - CASE STRTOFILE( C_FB2PRG_CODE, THIS.c_OutputFile ) = 0 + CASE toFoxbin2prg.doBackup( .F., .T., '', '', '' ) AND STRTOFILE( C_FB2PRG_CODE, THIS.c_OutputFile ) = 0 ERROR 'No se puede generar el archivo [' + THIS.c_OutputFile + '] porque es ReadOnly' ENDCASE *COMPILE ( THIS.c_outputFile ) @@ -8880,7 +8872,6 @@ DEFINE CLASS c_conversor_frx_a_prg AS c_conversor_bin_a_prg THIS.write_DETALLE_REPORTE( @loRegCur ) ENDIF - toFoxbin2prg.doBackup( .F., .T., '', '', '' ) *-- Genero el FR2 IF THIS.l_Test @@ -8890,7 +8881,7 @@ DEFINE CLASS c_conversor_frx_a_prg AS c_conversor_bin_a_prg DO CASE CASE FILE(THIS.c_OutputFile) AND SUBSTR( FILETOSTR( THIS.c_OutputFile ), lnLen ) == SUBSTR( C_FB2PRG_CODE, lnLen ) THIS.writeLog( 'El archivo de salida [' + THIS.c_OutputFile + '] no se sobreescribe por ser igual al generado.' ) - CASE STRTOFILE( C_FB2PRG_CODE, THIS.c_OutputFile ) = 0 + CASE toFoxbin2prg.doBackup( .F., .T., '', '', '' ) AND STRTOFILE( C_FB2PRG_CODE, THIS.c_OutputFile ) = 0 ERROR 'No se puede generar el archivo [' + THIS.c_OutputFile + '] porque es ReadOnly' ENDCASE ENDIF @@ -8955,8 +8946,6 @@ DEFINE CLASS c_conversor_dbf_a_prg AS c_conversor_bin_a_prg C_FB2PRG_CODE = C_FB2PRG_CODE + loTable.toText( ln_HexFileType, ll_FileHasCDX, ll_FileHasMemo, ll_FileIsDBC, lc_DBC_Name, THIS.c_InputFile, lc_FileTypeDesc ) - toFoxbin2prg.doBackup( .F., .T., '', '', '' ) - *-- Genero el DB2 IF THIS.l_Test toModulo = C_FB2PRG_CODE @@ -8965,7 +8954,7 @@ DEFINE CLASS c_conversor_dbf_a_prg AS c_conversor_bin_a_prg DO CASE CASE FILE(THIS.c_OutputFile) AND SUBSTR( FILETOSTR( THIS.c_OutputFile ), lnLen ) == SUBSTR( C_FB2PRG_CODE, lnLen ) THIS.writeLog( 'El archivo de salida [' + THIS.c_OutputFile + '] no se sobreescribe por ser igual al generado.' ) - CASE STRTOFILE( C_FB2PRG_CODE, THIS.c_OutputFile ) = 0 + CASE toFoxbin2prg.doBackup( .F., .T., '', '', '' ) AND STRTOFILE( C_FB2PRG_CODE, THIS.c_OutputFile ) = 0 ERROR 'No se puede generar el archivo [' + THIS.c_OutputFile + '] porque es ReadOnly' ENDCASE ENDIF @@ -9053,8 +9042,6 @@ DEFINE CLASS c_conversor_dbc_a_prg AS c_conversor_bin_a_prg C_FB2PRG_CODE = C_FB2PRG_CODE + toDatabase.toText() - toFoxbin2prg.doBackup( .F., .T., '', '', '' ) - *-- Genero el DC2 IF THIS.l_Test toModulo = C_FB2PRG_CODE @@ -9063,7 +9050,7 @@ DEFINE CLASS c_conversor_dbc_a_prg AS c_conversor_bin_a_prg DO CASE CASE FILE(THIS.c_OutputFile) AND SUBSTR( FILETOSTR( THIS.c_OutputFile ), lnLen ) == SUBSTR( C_FB2PRG_CODE, lnLen ) THIS.writeLog( 'El archivo de salida [' + THIS.c_OutputFile + '] no se sobreescribe por ser igual al generado.' ) - CASE STRTOFILE( C_FB2PRG_CODE, THIS.c_OutputFile ) = 0 + CASE toFoxbin2prg.doBackup( .F., .T., '', '', '' ) AND STRTOFILE( C_FB2PRG_CODE, THIS.c_OutputFile ) = 0 ERROR 'No se puede generar el archivo [' + THIS.c_OutputFile + '] porque es ReadOnly' ENDCASE ENDIF @@ -9128,9 +9115,7 @@ DEFINE CLASS c_conversor_mnx_a_prg AS c_conversor_bin_a_prg C_FB2PRG_CODE = C_FB2PRG_CODE + toMenu.toText() - toFoxbin2prg.doBackup( .F., .T., '', '', '' ) - - *-- Genero el DC2 + *-- Genero el MN2 IF THIS.l_Test toMenu = C_FB2PRG_CODE ELSE @@ -9138,7 +9123,7 @@ DEFINE CLASS c_conversor_mnx_a_prg AS c_conversor_bin_a_prg DO CASE CASE FILE(THIS.c_OutputFile) AND SUBSTR( FILETOSTR( THIS.c_OutputFile ), lnLen ) == SUBSTR( C_FB2PRG_CODE, lnLen ) THIS.writeLog( 'El archivo de salida [' + THIS.c_OutputFile + '] no se sobreescribe por ser igual al generado.' ) - CASE STRTOFILE( C_FB2PRG_CODE, THIS.c_OutputFile ) = 0 + CASE toFoxbin2prg.doBackup( .F., .T., '', '', '' ) AND STRTOFILE( C_FB2PRG_CODE, THIS.c_OutputFile ) = 0 ERROR 'No se puede generar el archivo [' + THIS.c_OutputFile + '] porque es ReadOnly' ENDCASE ENDIF