From 5ee6024c7ce5820dff867ca5b61ba93deb510c72 Mon Sep 17 00:00:00 2001
From: fdbozzo <fdbozzo@.(none)>
Date: Wed, 14 Jan 2015 20:13:38 +0100
Subject: [PATCH] =?UTF-8?q?Changeset:=20634=20-=20Nuevo=20caso=20de=20prue?=
 =?UTF-8?q?ba=20para=20probar=20la=20correcci=C3=B3n=20de=20la=20detecci?=
 =?UTF-8?q?=C3=B3n=20entre=20l=C3=ADneas=20con=20";"?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 .../procedure_in_lparameters.vc2              |  39 ++++++++++++++++++
 .../procedure_in_lparameters.vct              | Bin 0 -> 1516 bytes
 .../procedure_in_lparameters.vcx              | Bin 0 -> 1359 bytes
 3 files changed, 39 insertions(+)
 create mode 100644 TESTS/DATOS_READONLY/procedure_in_lparameters.vc2
 create mode 100644 TESTS/DATOS_READONLY/procedure_in_lparameters.vct
 create mode 100644 TESTS/DATOS_READONLY/procedure_in_lparameters.vcx

diff --git a/TESTS/DATOS_READONLY/procedure_in_lparameters.vc2 b/TESTS/DATOS_READONLY/procedure_in_lparameters.vc2
new file mode 100644
index 0000000..f250471
--- /dev/null
+++ b/TESTS/DATOS_READONLY/procedure_in_lparameters.vc2
@@ -0,0 +1,39 @@
+*--------------------------------------------------------------------------------------------------------------------------------------------------------
+* (ES) AUTOGENERADO - ˇˇATENCIÓN!! - ˇˇ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
diff --git a/TESTS/DATOS_READONLY/procedure_in_lparameters.vct b/TESTS/DATOS_READONLY/procedure_in_lparameters.vct
new file mode 100644
index 0000000000000000000000000000000000000000..01fd5f3cfcdcf7b0072dd24361ac1d4f564bd437
GIT binary patch
literal 1516
zcmeHG&2G~`5FV#ZQl|t}6#~SCQ6(y<qSC?<6)9P}#8R*$+iAHW*IC*KCziZ+X^%+o
z0!TapC!U7);KTuglpkgt$F!(C0j#~=`Q~rE-^>D(zXE_l^Z)oa8IZMKJJ4;%uuR-T
z#K+q^JEW8Ps-K9Mi#Ugs?%<3EB1dHwcwzyR-Gz?~35PlQBf;%0KjL1@eG#2-FNjb4
zu+Ih7Yjbzy^Yq&cOLFHA^pW%G@#&5<-J^Lo_c3U#5Z=2GGhTuv=m8wSEqIsGDaSt)
zWpaO<Dlqw3-iPT!czQEkg|q};#_1AFs_C+n%2KLGsVb!vDXB1-F2nn&3axQ^jR0k?
zLlruvVQTsdDKM*Nx)oq8>!qQsNJS>8pc&0)rsWvUDs)%@u0vCMZny<rBjaU_3SHY`
zy4JIG8Cif580I=K$8PJ*j@xEUTW6N0J1TTKPLDC&ac;m>L^m=vXR}>6Rlb*6@DXIy
zE)U5c(mW+0<MIK4zf?lHye)nUuiCO+lg}2t*zEW5)C&?ScpRdiL?VnD7=>@}=v*$_
zncu!;V=yvCeSSvWxQnhukcG)8uGdt0DV4f~htVMB7qf{dx7m8P(_}hk<oEH=aN9CL
zR*D8{1Mhegih;-texYd4{|yImffo*!wGDiNo15rH=kg3KYUbCt-+I)g&DCxc`n;b+
zd=dIvVVFoQ-_BZ|c@bx_?J1^S(@l*|TySLbIEh9m65r=S;H$tpp3`FMZqGI`2%Nbo
ai<Hza?hdS*-jEYz8~L5xC@huvmHY*bclb~M

literal 0
HcmV?d00001

diff --git a/TESTS/DATOS_READONLY/procedure_in_lparameters.vcx b/TESTS/DATOS_READONLY/procedure_in_lparameters.vcx
new file mode 100644
index 0000000000000000000000000000000000000000..837b9264702c9998d9a8fac861305750b2e04147
GIT binary patch
literal 1359
zcmeIxK}*9h6bJBZPMCsv@Zv?N2N4g#rmeGxhpdfQ?Q6Owb?hLrgP@?NeF;C9pTp1M
zKiwv6$tt`1V6P#+yeu!Jy}j1%24k$-`9Q8l8<56a-^z?2K?|u{UBdDt8s#Dijc*}s
z*IY*=l;)H&mh4+Rh`Cbp8al+YQ>!mLmI0>e$l^n;#9|LRwzwSLC!B=Yl};_5@=PS!
zFrzb@XEGI;j)Y>=x4RaB7PtWNEKWk-$*|~<e2e3Jfeh#8yD7YS12QfQ!id}IV{vW}
zQFK|YW-Jp*WRD`m*(t)JRgO)_yyR7W0UtHE3(p%IcSDl~zl1+E_y9g_@GJO>#dEZe
zX%qB@RPS%6p#S6qk_cad6TDAnGp8DBT~GV()y_CdLOE8>v+Mi4anDn{-yaNI&-Y#b
zVX?vYCS#Mu_zPnb*LZ!Or9bd69^&^}nmZ|tP0ep-%TJ-)n^~}ogIeKoex2tJdxltD

literal 0
HcmV?d00001