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

- Ajustes de capitalización

Browse Source
This commit is contained in:
fdbozzo
2015-04-07 22:03:17 +02:00
parent 5f6945564f
commit 13a24225d0
1 changed files with 30 additions and 30 deletions
Download Patch File Download Diff File Expand all files Collapse all files

60
foxbin2prg.prg
View File

@@ -3691,11 +3691,11 @@ DEFINE CLASS c_foxbin2prg AS SESSION
PROCEDURE writeErrorLog PROCEDURE writeErrorLog
LPARAMETERS tcText, tnTimestamp LPARAMETERS tcText, tnTimeStamp
TRY TRY
WITH THIS AS c_foxbin2prg OF 'FOXBIN2PRG.PRG' WITH THIS AS c_foxbin2prg OF 'FOXBIN2PRG.PRG'
IF EVL(tnTimestamp,0) = 1 THEN IF EVL(tnTimeStamp,0) = 1 THEN
*-- Format: Timestamp__Text *-- Format: Timestamp__Text
.c_TextErr = .c_TextErr + TTOC(DATETIME(),3) + ' ' .c_TextErr = .c_TextErr + TTOC(DATETIME(),3) + ' '
ENDIF ENDIF
@@ -3703,7 +3703,7 @@ DEFINE CLASS c_foxbin2prg AS SESSION
*-- Format: Text *-- Format: Text
.c_TextErr = .c_TextErr + EVL(tcText,'') .c_TextErr = .c_TextErr + EVL(tcText,'')
IF EVL(tnTimestamp,0) = 2 THEN IF EVL(tnTimeStamp,0) = 2 THEN
*-- Format: Text__Timestamp *-- Format: Text__Timestamp
.c_TextErr = .c_TextErr + ' ' + TTOC(DATETIME(),3) .c_TextErr = .c_TextErr + ' ' + TTOC(DATETIME(),3)
ENDIF ENDIF
@@ -3729,11 +3729,11 @@ DEFINE CLASS c_foxbin2prg AS SESSION
PROCEDURE writeLog PROCEDURE writeLog
LPARAMETERS tcText, tnTimestamp LPARAMETERS tcText, tnTimeStamp
TRY TRY
WITH THIS AS c_foxbin2prg OF 'FOXBIN2PRG.PRG' WITH THIS AS c_foxbin2prg OF 'FOXBIN2PRG.PRG'
IF EVL(tnTimestamp,0) = 1 THEN IF EVL(tnTimeStamp,0) = 1 THEN
*-- Format: Timestamp__Text *-- Format: Timestamp__Text
.c_TextLog = .c_TextLog + TTOC(DATETIME(),3) + ' ' .c_TextLog = .c_TextLog + TTOC(DATETIME(),3) + ' '
ENDIF ENDIF
@@ -3741,7 +3741,7 @@ DEFINE CLASS c_foxbin2prg AS SESSION
*-- Format: Text *-- Format: Text
.c_TextLog = .c_TextLog + EVL(tcText,'') .c_TextLog = .c_TextLog + EVL(tcText,'')
IF EVL(tnTimestamp,0) = 2 THEN IF EVL(tnTimeStamp,0) = 2 THEN
*-- Format: Text__Timestamp *-- Format: Text__Timestamp
.c_TextLog = .c_TextLog + ' ' + TTOC(DATETIME(),3) .c_TextLog = .c_TextLog + ' ' + TTOC(DATETIME(),3)
ENDIF ENDIF
@@ -4986,7 +4986,7 @@ DEFINE CLASS C_CONVERSOR_BASE AS SESSION
* PAR<41>METROS: (v=Pasar por valor | @=Pasar por referencia) (!=Obligatorio | ?=Opcional) (IN/OUT) * PAR<41>METROS: (v=Pasar por valor | @=Pasar por referencia) (!=Obligatorio | ?=Opcional) (IN/OUT)
* tnTimeStamp (v! IN ) Timestamp en formato num<75>rico * tnTimeStamp (v! IN ) Timestamp en formato num<75>rico
*--------------------------------------------------------------------------------------------------- *---------------------------------------------------------------------------------------------------
LPARAMETERS tnTimestamp LPARAMETERS tnTimeStamp
*-- CONVIERTE UN DATO TIMESTAMP NUMERICO USADO POR LOS ARCHIVOS SCX/VCX/etc. EN TIPO DATETIME *-- CONVIERTE UN DATO TIMESTAMP NUMERICO USADO POR LOS ARCHIVOS SCX/VCX/etc. EN TIPO DATETIME
TRY TRY
LOCAL lcTimeStamp,lnYear,lnMonth,lnDay,lnHour,lnMinutes,lnSeconds,lcTime,lnHour,ltTimeStamp,lnResto ; LOCAL lcTimeStamp,lnYear,lnMonth,lnDay,lnHour,lnMinutes,lnSeconds,lcTime,lnHour,ltTimeStamp,lnResto ;
@@ -4995,7 +4995,7 @@ DEFINE CLASS C_CONVERSOR_BASE AS SESSION
WITH THIS AS C_CONVERSOR_BASE OF 'FOXBIN2PRG.PRG' WITH THIS AS C_CONVERSOR_BASE OF 'FOXBIN2PRG.PRG'
lcTimeStamp_Ret = '' lcTimeStamp_Ret = ''
IF EMPTY(tnTimestamp) IF EMPTY(tnTimeStamp)
IF .lFileMode IF .lFileMode
IF ADIR(laDirInfo,.c_InputFile)=0 IF ADIR(laDirInfo,.c_InputFile)=0
EXIT EXIT
@@ -5013,15 +5013,15 @@ DEFINE CLASS C_CONVERSOR_BASE AS SESSION
EXIT EXIT
ENDIF ENDIF
tnTimestamp = .n_ClassTimeStamp tnTimeStamp = .n_ClassTimeStamp
IF EMPTY(tnTimestamp) IF EMPTY(tnTimeStamp)
EXIT EXIT
ENDIF ENDIF
ENDIF ENDIF
*-- YYYY YYYM MMMD DDDD HHHH HMMM MMMS SSSS *-- YYYY YYYM MMMD DDDD HHHH HMMM MMMS SSSS
lnResto = tnTimestamp lnResto = tnTimeStamp
lnYear = INT( lnResto / 2**25 + 1980) lnYear = INT( lnResto / 2**25 + 1980)
lnResto = lnResto % 2**25 lnResto = lnResto % 2**25
lnMonth = INT( lnResto / 2**21 ) lnMonth = INT( lnResto / 2**21 )
@@ -5462,11 +5462,11 @@ DEFINE CLASS C_CONVERSOR_BASE AS SESSION
FUNCTION RowTimeStamp(ltDateTime) FUNCTION RowTimeStamp(ltDateTime)
* Generate a FoxPro 3.0-style row timestamp * Generate a FoxPro 3.0-style row timestamp
*-- CONVIERTE UN DATO TIPO DATETIME EN TIMESTAMP NUMERICO USADO POR LOS ARCHIVOS SCX/VCX/etc. *-- CONVIERTE UN DATO TIPO DATETIME EN TIMESTAMP NUMERICO USADO POR LOS ARCHIVOS SCX/VCX/etc.
LOCAL lcTimeValue, tnTimestamp LOCAL lcTimeValue, tnTimeStamp
TRY TRY
IF EMPTY(ltDateTime) IF EMPTY(ltDateTime)
tnTimestamp = 0 tnTimeStamp = 0
EXIT EXIT
ENDIF ENDIF
@@ -5474,7 +5474,7 @@ DEFINE CLASS C_CONVERSOR_BASE AS SESSION
m.ltDateTime = DATETIME() m.ltDateTime = DATETIME()
ENDIF ENDIF
tnTimestamp = ( YEAR(m.ltDateTime) - 1980) * 2^25 ; tnTimeStamp = ( YEAR(m.ltDateTime) - 1980) * 2^25 ;
+ MONTH(m.ltDateTime) * 2^21 ; + MONTH(m.ltDateTime) * 2^21 ;
+ DAY(m.ltDateTime) * 2^16 ; + DAY(m.ltDateTime) * 2^16 ;
+ HOUR(m.ltDateTime) * 2^11 ; + HOUR(m.ltDateTime) * 2^11 ;
@@ -5482,7 +5482,7 @@ DEFINE CLASS C_CONVERSOR_BASE AS SESSION
+ SEC(m.ltDateTime) + SEC(m.ltDateTime)
ENDTRY ENDTRY
RETURN INT(tnTimestamp) RETURN INT(tnTimeStamp)
ENDFUNC ENDFUNC
@@ -6044,11 +6044,11 @@ DEFINE CLASS C_CONVERSOR_BASE AS SESSION
PROCEDURE writeLog PROCEDURE writeLog
LPARAMETERS tcText, tnTimestamp LPARAMETERS tcText, tnTimeStamp
TRY TRY
WITH THIS AS C_CONVERSOR_BASE OF 'FOXBIN2PRG.PRG' WITH THIS AS C_CONVERSOR_BASE OF 'FOXBIN2PRG.PRG'
IF EVL(tnTimestamp,0) = 1 THEN IF EVL(tnTimeStamp,0) = 1 THEN
*-- Format: Timestamp__Text *-- Format: Timestamp__Text
.c_TextLog = .c_TextLog + TTOC(DATETIME(),3) + ' ' .c_TextLog = .c_TextLog + TTOC(DATETIME(),3) + ' '
ENDIF ENDIF
@@ -6056,7 +6056,7 @@ DEFINE CLASS C_CONVERSOR_BASE AS SESSION
*-- Format: Text *-- Format: Text
.c_TextLog = .c_TextLog + EVL(tcText,'') .c_TextLog = .c_TextLog + EVL(tcText,'')
IF EVL(tnTimestamp,0) = 2 THEN IF EVL(tnTimeStamp,0) = 2 THEN
*-- Format: Text__Timestamp *-- Format: Text__Timestamp
.c_TextLog = .c_TextLog + ' ' + TTOC(DATETIME(),3) .c_TextLog = .c_TextLog + ' ' + TTOC(DATETIME(),3)
ENDIF ENDIF
@@ -6253,7 +6253,7 @@ DEFINE CLASS c_conversor_prg_a_bin AS C_CONVERSOR_BASE
CREATE &tcTableOrCursor. (lcCursorName) ; CREATE &tcTableOrCursor. (lcCursorName) ;
( NAME M ; ( NAME M ;
, TYPE c(1) ; , TYPE C(1) ;
, ID N(10) ; , ID N(10) ;
, TIMESTAMP N(10) ; , TIMESTAMP N(10) ;
, OUTFILE M ; , OUTFILE M ;
@@ -6271,14 +6271,14 @@ DEFINE CLASS c_conversor_prg_a_bin AS C_CONVERSOR_BASE
, OBJECT M ; , OBJECT M ;
, CKVAL N(6) ; , CKVAL N(6) ;
, CPID N(5) ; , CPID N(5) ;
, OSTYPE c(4) ; , OSTYPE C(4) ;
, OSCREATOR c(4) ; , OSCREATOR C(4) ;
, COMMENTS M ; , COMMENTS M ;
, RESERVED1 M ; , RESERVED1 M ;
, RESERVED2 M ; , RESERVED2 M ;
, SCCDATA M ; , SCCDATA M ;
, LOCAL L ; , LOCAL L ;
, KEY c(32) ; , KEY C(32) ;
, USER M ) , USER M )
IF tcTableOrCursor = 'TABLE' THEN IF tcTableOrCursor = 'TABLE' THEN
@@ -6347,8 +6347,8 @@ DEFINE CLASS c_conversor_prg_a_bin AS C_CONVERSOR_BASE
lcCursorName = ICASE( tcTableOrCursor = 'TABLE', THIS.c_OutputFile, 'TABLABIN' ) lcCursorName = ICASE( tcTableOrCursor = 'TABLE', THIS.c_OutputFile, 'TABLABIN' )
CREATE &tcTableOrCursor. (lcCursorName) ; CREATE &tcTableOrCursor. (lcCursorName) ;
( PLATFORM c(8) ; ( PLATFORM C(8) ;
, UNIQUEID c(10) ; , UNIQUEID C(10) ;
, TIMESTAMP N(10) ; , TIMESTAMP N(10) ;
, CLASS M ; , CLASS M ;
, CLASSLOC M ; , CLASSLOC M ;
@@ -6409,8 +6409,8 @@ DEFINE CLASS c_conversor_prg_a_bin AS C_CONVERSOR_BASE
lcCursorName = ICASE( tcTableOrCursor = 'TABLE', THIS.c_OutputFile, 'TABLABIN' ) lcCursorName = ICASE( tcTableOrCursor = 'TABLE', THIS.c_OutputFile, 'TABLABIN' )
CREATE &tcTableOrCursor. (lcCursorName) ; CREATE &tcTableOrCursor. (lcCursorName) ;
( PLATFORM c(8) ; ( PLATFORM C(8) ;
, UNIQUEID c(10) ; , UNIQUEID C(10) ;
, TIMESTAMP N(10) ; , TIMESTAMP N(10) ;
, CLASS M ; , CLASS M ;
, CLASSLOC M ; , CLASSLOC M ;
@@ -6471,8 +6471,8 @@ DEFINE CLASS c_conversor_prg_a_bin AS C_CONVERSOR_BASE
lcCursorName = ICASE( tcTableOrCursor = 'TABLE', THIS.c_OutputFile, 'TABLABIN' ) lcCursorName = ICASE( tcTableOrCursor = 'TABLE', THIS.c_OutputFile, 'TABLABIN' )
CREATE &tcTableOrCursor. (lcCursorName) ; CREATE &tcTableOrCursor. (lcCursorName) ;
( 'PLATFORM' c(8) ; ( 'PLATFORM' C(8) ;
, 'UNIQUEID' c(10) ; , 'UNIQUEID' C(10) ;
, 'TIMESTAMP' N(10) ; , 'TIMESTAMP' N(10) ;
, 'OBJTYPE' N(2) ; , 'OBJTYPE' N(2) ;
, 'OBJCODE' N(3) ; , 'OBJCODE' N(3) ;
@@ -6488,8 +6488,8 @@ DEFINE CLASS c_conversor_prg_a_bin AS C_CONVERSOR_BASE
, 'UNIQUE' L ; , 'UNIQUE' L ;
, 'COMMENT' M ; , 'COMMENT' M ;
, 'ENVIRON' L ; , 'ENVIRON' L ;
, 'BOXCHAR' c(1) ; , 'BOXCHAR' C(1) ;
, 'FILLCHAR' c(1) ; , 'FILLCHAR' C(1) ;
, 'TAG' M ; , 'TAG' M ;
, 'TAG2' M NOCPTRANS ; , 'TAG2' M NOCPTRANS ;
, 'PENRED' N(5) ; , 'PENRED' N(5) ;