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

- Arreglo de la evaulación de máscara de nombre de archivo para get_Target()

Browse Source 
- Quitado mensajes de compilación con SET NOTIFY OFF
This commit is contained in:
fdbozzo
2015-03-14 15:34:41 +01:00
parent ac67f549cd
commit c7c5b8e9ea
2 changed files with 3 additions and 1 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

@@ -721,6 +721,7 @@ DEFINE CLASS c_foxbin2prg AS SESSION
SET TABLEPROMPT OFF SET TABLEPROMPT OFF
SET POINT TO '.' SET POINT TO '.'
SET SEPARATOR TO ',' SET SEPARATOR TO ','
SET NOTIFY OFF
tcCancelWithEscKey = EVL(tcCancelWithEscKey, '') tcCancelWithEscKey = EVL(tcCancelWithEscKey, '')
IF NOT EMPTY(tcCancelWithEscKey) IF NOT EMPTY(tcCancelWithEscKey)
@@ -892,7 +893,7 @@ DEFINE CLASS c_foxbin2prg AS SESSION
tcFileMask = EVL(tcFileMask, '*') tcFileMask = EVL(tcFileMask, '*')
FOR I = 1 TO .n_ProcessedFiles FOR I = 1 TO .n_ProcessedFiles
IF LIKE( tcFileMask, .a_ProcessedFiles(I,1) ) THEN IF LIKE( tcFileMask, JUSTFNAME(.a_ProcessedFiles(I,1)) ) THEN
lnCount = lnCount + 1 lnCount = lnCount + 1
DIMENSION taTargets(lnCount,5) DIMENSION taTargets(lnCount,5)
taTargets(lnCount,1) = .a_ProcessedFiles(I,1) taTargets(lnCount,1) = .a_ProcessedFiles(I,1)
@@ -4173,6 +4174,7 @@ DEFINE CLASS C_CONVERSOR_BASE AS SESSION
SET TABLEPROMPT OFF SET TABLEPROMPT OFF
SET BLOCKSIZE TO 0 SET BLOCKSIZE TO 0
SET EXACT ON SET EXACT ON
SET NOTIFY OFF
IF NOT EMPTY( ON("ESCAPE") ) THEN IF NOT EMPTY( ON("ESCAPE") ) THEN
SET ESCAPE ON SET ESCAPE ON
ENDIF ENDIF