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

Changeset: 293 fdbozzo - 14/06/2014 17:24:06:

Browse Source 
- Bug Fix: Un campo de tabla llamado "text" que comienza la línea puede confundirse con la estructura TEXT/ENDTEXT y reconocer mal el resto del código (Mario Peschke)
- Modificado el README.txt para que primero esté el texto en Inglés (Internacionalización)
This commit is contained in:
fdbozzo
2014-06-14 17:51:26 +02:00
parent dfa503d528
commit 813bca2e48
11 changed files with 162 additions and 62 deletions
Download Patch File Download Diff File Expand all files Collapse all files

BIN
TESTS/DATOS_READONLY/fb2p_test.pjt
View File

Binary file not shown.

BIN
TESTS/DATOS_READONLY/fb2p_test.pjx
View File

Binary file not shown.

77
TESTS/ut__foxbin2prg__c_conversor_base__IdentificarBloquesDeExclusion.prg
View File

@@ -158,4 +158,81 @@ DEFINE CLASS ut__foxbin2prg__c_conversor_base__IdentificarBloquesDeExclusion as
ENDFUNC
*******************************************************************************************************************************************
FUNCTION Deberia_NoEncontrarNingunBloque_TEXT_ENDTEXT_CuandoUnaLineaQueComienzaConUnCampoLlamado_Text_esEvaluado
LOCAL lcMethod, laLineas(1), lnLineas, laPos(1,2), lnPos_Count, laExpected_Pos(1,2)
LOCAL loObj AS c_conversor_prg_a_bin OF "FOXBIN2PRG.PRG"
loObj = THIS.icObj
*-- Input and expected params
STORE '' TO lcMethod
laExpected_Pos(1,1) = 0
laExpected_Pos(1,2) = 0
TEXT TO lcMethod NOSHOW TEXTMERGE FLAGS 1 PRETEXT 1+2+4
<<C_PROC>> myMethod_B
*-- Code Block
IF !FOUND()
APPEND BLANK
REPLACE CURSOR WITH "cawlmain", START WITH 1, END WITH 999999, isnumeric WITH .F., lastused WITH "", ; && Worst case for next line
TEXT WITH "W<>rmeobjekte", standard WITH .T.
ENDIF
*-- Code Block
CREATE CURSOR vorlaufsatz (;
Satzlaenge C(4),;
Satzart C(2),;
Folgekennz C(2),;
Absender C(2),;
Empfaenger C(2),;
Rohdatum C(8),;
RohZeit C(4),;
LFDNr C(4),; && Worst case for next line
Text C(26),;
Trenner C(2),;
DATUM D NULL,;
ZEIT C(8) NULL,;
KEYLINEID N(6,0) NULL )
*-- Code Block
CREATE CURSOR eomaildbf (;
adresse c(8) NULL DEFAULT .NULL.,;
zaehler i AUTOINC NEXTVALUE 1 STEP 1,;
startseite N(6) NOT NULL DEFAULT 0,;
endseite N(6) NOT NULL DEFAULT 0,;
vseite N(6) NOT NULL DEFAULT 0,;
lfdnr c(30) NULL DEFAULT .NULL.,;
linkkey int,;
email CHAR(60) NULL DEFAULT .NULL.,;
subject VARCHAR(254) NULL DEFAULT .NULL.,; && Worst case for next line
TEXT m NULL DEFAULT .NULL.,;
docname c(50) NULL DEFAULT .NULL.,;
versenden l NOT NULL DEFAULT .F.,;
signierung l NOT NULL DEFAULT .F.,;
praefix c(10) NULL DEFAULT .NULL.,;
signdatei VARCHAR(254) NULL DEFAULT .NULL.,;
signiert l NOT NULL DEFAULT .F.,;
ccemail VARCHAR(254) NULL DEFAULT .NULL.,;
datei VARCHAR(254) NULL DEFAULT .NULL.)
*-- Code Block
CREATE CURSOR c_prf_zeilen (;
lauf I NULL, ;
zeile I NOT NULL, ;
Text C(200) NULL ;
)
<<C_ENDPROC>>
ENDTEXT
lnLineas = ALINES( laLineas, lcMethod )
*-- Test
loObj.identificarBloquesDeExclusion( @laLineas, lnLineas, , @laPos, @lnPos_Count )
THIS.Evaluate_results( @laExpected_Pos, @laPos, lnPos_Count )
ENDFUNC
ENDDEFINE