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

removed binary sources (FoxBin2Prg)

Browse Source
This commit is contained in:
Lutz
2023-08-26 21:49:42 +02:00
parent 607c6120a5
commit 4c7589c927
166 changed files with 48386 additions and 37119 deletions
Download Patch File Download Diff File Expand all files Collapse all files

35
TESTS/DATOS_READONLY/procedure_in_lparameters.vc2
View File

@@ -4,36 +4,7 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< 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="" />
*-- EXTERNAL_CLASS identify external member Class names / EXTERNAL_CLASS identifica los nombres de las Clases externas
*< EXTERNAL_CLASS: Name="custest" Baseclass="custom" />
*<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
*