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

Changeset: 579 fdbozzo - 23/12/2014 18:22:46:

Browse Source 
- INTERACTIVE ya no muestra el mensaje de estado final, solo SHOWMSG, para que el script pueda aprovechar la nueva funcionalidad y seguir mostrando el mensaje
This commit is contained in:
fdbozzo
2014-12-23 20:10:44 +01:00
parent fed65fbb86
commit 4d701a7eef
2 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
VFP9_FoxBin2Prg.vbs
View File

@@ -89,7 +89,7 @@ Else
If nDebug = 0 Or nDebug = 2 Then If nDebug = 0 Or nDebug = 2 Then
cCMD = "oFoxBin2prg.ejecutar( '" & WScript.Arguments(0) & "' )" cCMD = "oFoxBin2prg.ejecutar( '" & WScript.Arguments(0) & "' )"
Else Else
cCMD = "oFoxBin2prg.ejecutar( '" & WScript.Arguments(0) & "','0','0','0'," _ cCMD = "oFoxBin2prg.ejecutar( '" & WScript.Arguments(0) & "','INTERACTIVE','0','0'," _
& cFlagDontShowErrMsg & "," & cFlagGenerateLog & ",'1','','',.F.,''," _ & cFlagDontShowErrMsg & "," & cFlagGenerateLog & ",'1','','',.F.,''," _
& cFlagRecompile & "," & cNoTimestamps & " )" & cFlagRecompile & "," & cNoTimestamps & " )"
End If End If

2
foxbin2prg.prg
View File

@@ -2337,7 +2337,7 @@ DEFINE CLASS c_foxbin2prg AS CUSTOM
CD (JUSTPATH(THIS.c_CurDir)) CD (JUSTPATH(THIS.c_CurDir))
DO CASE DO CASE
CASE ATC('-SHOWMSG', ('-' + tcType)) = 1 OR ATC('-INTERACTIVE', ('-' + tcType)) = 1 CASE ATC('-SHOWMSG', ('-' + tcType)) = 1 &&OR ATC('-INTERACTIVE', ('-' + tcType)) = 1
DO CASE DO CASE
CASE lnCodError = 1799 && Conversion Cancelled CASE lnCodError = 1799 && Conversion Cancelled