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="" /> + + * + *m: createcsrhealthcodes + * + + 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 0000000..01fd5f3 Binary files /dev/null and b/TESTS/DATOS_READONLY/procedure_in_lparameters.vct differ diff --git a/TESTS/DATOS_READONLY/procedure_in_lparameters.vcx b/TESTS/DATOS_READONLY/procedure_in_lparameters.vcx new file mode 100644 index 0000000..837b926 Binary files /dev/null and b/TESTS/DATOS_READONLY/procedure_in_lparameters.vcx differ