Hi All,
I have script/program code successfully running(.scx), even converted to prg file was successfully running.
My requirement is I need to include this codes to my html script to be run once I click the option menu in the html script, how can I call these codes from html script.
Can you please help me how can I convert or include these codes to my html front-end option menu. I am now started to learn html scripting, can you share me your samples code running in html using vfp iis, ActiveVFP, IIS7 etc.
---here is my SCREEN design and codes below---
TEXTBOX -- displayed path/folder upon clicking COMMAND BUTTON1 --- with codes to read the files from
target folder
COMMAND BUTTON2 - to read and append all text files to one dbf file
--------------------------------------------
CODES IN COMMAND BUTTON1 AND COMMAND BUTTON2
COMMAND BUTTON1:
PUBLIC mImportTXTFiles,McImportDir,MaryDir,cTXTFile
* --- Get the Import Directory ---
use elixirtabl
append blank
zap
McImportDir = GETDIR()
thisform.Text1.VALUE = McImportDir
* --- Now use it to find the individual TXT files in that directory ---
DIMENSION MaryDir(1)
mImportTXTFiles = ADIR(MaryDir, ADDBS(McImportDir) + "*.txt")
cImportTXTFiles = mImportTXTFiles
------------------------------------
COMMAND BUTTON2:
local cTXTFile
cImportTXTFiles = (mImportTXTFiles)
cImportDir = (McImportDir)
aryDir = (MaryDir)
xtname = space(22)
x = space(8)
z = space(8)
dd = space(2)
mm = space(2)
yy = space(4)
IF cImportTXTFiles > 0
* --- Cycle through the 'found' txt files and Append Each one separately ---
FOR nFileCntr = 1 TO cImportTXTfiles
cTXTFile = ADDBS(cImportDir) + maryDir(nFileCntr,1)
SELECT elixirtabl && The recipient DBF table
* --- Now Import that Specific File ---
y=cTXTfILE
xtname = right(cTXTFILE,21)
x=substr(xtname,1,8)
Z=substr(xtname,10,8)
yy = substr(xtname,10,4)
mm = substr(xtname,14,2)
dd = substr(xtname,16,2)
zdate = trim(dd)+"-"+trim(mm)+"-"+trim(yy) && original
xdate =ctod(mm+"/"+dd+"/"+yy)
smon = cmonth(xdate)
xsmon = substr(smon,1,3)
Yzdate =trim(dd)+"-"+trim(xsmon)+"-"+trim(yy)
set talk on
if (cTXTfILE) <> " "
append blank
replace column1 with 'Bank_'
replace column2 with ": "+alltrim(x)
replace termnum with alltrim(x)
replace tran_date with alltrim(Yzdate)
APPEND FROM (cTXTFile) type sdf
endif
?aryDir
ENDFOR
ENDIF
CLEAR
DO prg_ejtermi && Calling the module program
Thanks, Highly appreciate your response..