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

- Agregado el soporte de archivos para los métodos API TieneSoporte_Bin2Prg() y TieneSoporte_Prg2Bin()

Browse Source
This commit is contained in:
fdbozzo
2015-04-02 16:53:05 +02:00
parent 3367fad5ed
commit cda6592852
2 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

BIN
foxbin2prg.exe
View File

Binary file not shown.

4
foxbin2prg.prg
View File

@@ -2092,7 +2092,7 @@ DEFINE CLASS c_foxbin2prg AS SESSION
PROCEDURE TieneSoporte_Bin2Prg PROCEDURE TieneSoporte_Bin2Prg
LPARAMETERS tcExt LPARAMETERS tcExt
LOCAL llTieneSoporte LOCAL llTieneSoporte
tcExt = UPPER(tcExt) tcExt = UPPER(JUSTEXT('.' + tcExt))
WITH THIS AS c_foxbin2prg OF 'FOXBIN2PRG.PRG' WITH THIS AS c_foxbin2prg OF 'FOXBIN2PRG.PRG'
llTieneSoporte = ICASE( tcExt == 'PJX', .PJX_Conversion_Support >= 1 ; llTieneSoporte = ICASE( tcExt == 'PJX', .PJX_Conversion_Support >= 1 ;
@@ -2114,7 +2114,7 @@ DEFINE CLASS c_foxbin2prg AS SESSION
PROCEDURE TieneSoporte_Prg2Bin PROCEDURE TieneSoporte_Prg2Bin
LPARAMETERS tcExt LPARAMETERS tcExt
LOCAL llTieneSoporte LOCAL llTieneSoporte
tcExt = UPPER(tcExt) tcExt = UPPER(JUSTEXT('.' + tcExt))
WITH THIS AS c_foxbin2prg OF 'FOXBIN2PRG.PRG' WITH THIS AS c_foxbin2prg OF 'FOXBIN2PRG.PRG'
llTieneSoporte = ICASE( tcExt == .c_PJ2, .PJX_Conversion_Support = 2 ; llTieneSoporte = ICASE( tcExt == .c_PJ2, .PJX_Conversion_Support = 2 ;