Changeset: 634 - Nuevo caso de prueba para probar la corrección de la detección entre líneas con ";"

TESTS/DATOS_READONLY/procedure_in_lparameters.vc2

@@ -0,0 +1,39 @@
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+* (ES) AUTOGENERADO - <20><>ATENCI<43>N!! - <20><>NO PENSADO PARA EJECUTAR!! USAR SOLAMENTE PARA INTEGRAR CAMBIOS Y ALMACENAR CON HERRAMIENTAS SCM!!
+* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+*< FOXBIN2PRG: Version="1.19" SourceFile="procedure_in_lparameters.vcx" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
+*
+*
+DEFINE CLASS custest AS custom 
+ 	*< CLASSDATA: Baseclass="custom" Timestamp="" Scale="Pixels" Uniqueid="" />
+
+	*<DefinedPropArrayMethod>
+		*m: createcsrhealthcodes
+	*</DefinedPropArrayMethod>
+
+	Name = "custest"
+	
+	PROCEDURE createcsrhealthcodes
+		
+		
+		*
+		* Add values to cursor, row by row.
+		*
+		FOR lnIndex = 1 TO lnCount
+			
+			*
+			* Write values to csr
+			*
+			REPLACE CBO_Id WITH lnCBO_ID, Diagnosis WITH lcDiagnosis, AdmitDiagnosis WITH lcAdmitDiagnosis, ; && Try to Break FB2P
+				Procedure WITH lcProcedure IN csrHealthCareCodes
+			
+		ENDFOR
+		
+		*
+		* Return success flag.
+		*
+		RETURN llSuccess
+	ENDPROC
+
+ENDDEFINE