Show Posts
This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.
31
Web Server - Ask For Help / File Uploads - multiple
« on: March 10, 2018, 12:38:22 AM »
Hi All,
CL 10
NT 10.18
STheory 2.73
Doing FIle Uploads and trying to
1) Save the uploaded file to another location
2) Create a record for each file attached to the parent by a staff ID
Works fine on single uploads
Works fine on multiples if I click start on each file
If I click start on multiple files
- Saves each file where I want it
- Creates the first child record then wloses the staffID and does not save the record.
Code as follows:
SaveFile::st:UploadCerts Routine
data
! Start of "Save File"
! [Priority 5000]
! End of "Save File"
code
! Start of "Save File"
! [Priority 5000]
IF p_web.GetValue('nosave') <> 1
Clear(ECT:Record)
ECT:staffid = p_web.GSV('st:staffid')
ECT:CertLocation = p_web.GSV('st:UploadLocation')
ECT:CertName = str.FileNameOnly(p_web.GSV('st:UploadCerts'))
Access:empcerts.Insert()
st:UploadCerts = clip(p_web.GSV('st:UploadLocation')) &'\' &ECT:CertName
p_web.SSV('st:UploadCerts',st:UploadCerts)
!MESSAGE(p_web.GSV('st:staffid')) -- this is correct
END
! End of "Save File"
p_web.SetSessionValue('_save_st:UploadCerts',st:UploadCerts)
p_web.SaveFile('st:UploadCerts',st:UploadCerts)
! Start of "Save File"
! [Priority 5000]
! End of "Save File"
Thanks in advance
Brian.
CL 10
NT 10.18
STheory 2.73
Doing FIle Uploads and trying to
1) Save the uploaded file to another location
2) Create a record for each file attached to the parent by a staff ID
Works fine on single uploads
Works fine on multiples if I click start on each file
If I click start on multiple files
- Saves each file where I want it
- Creates the first child record then wloses the staffID and does not save the record.
Code as follows:
SaveFile::st:UploadCerts Routine
data
! Start of "Save File"
! [Priority 5000]
! End of "Save File"
code
! Start of "Save File"
! [Priority 5000]
IF p_web.GetValue('nosave') <> 1
Clear(ECT:Record)
ECT:staffid = p_web.GSV('st:staffid')
ECT:CertLocation = p_web.GSV('st:UploadLocation')
ECT:CertName = str.FileNameOnly(p_web.GSV('st:UploadCerts'))
Access:empcerts.Insert()
st:UploadCerts = clip(p_web.GSV('st:UploadLocation')) &'\' &ECT:CertName
p_web.SSV('st:UploadCerts',st:UploadCerts)
!MESSAGE(p_web.GSV('st:staffid')) -- this is correct
END
! End of "Save File"
p_web.SetSessionValue('_save_st:UploadCerts',st:UploadCerts)
p_web.SaveFile('st:UploadCerts',st:UploadCerts)
! Start of "Save File"
! [Priority 5000]
! End of "Save File"
Thanks in advance
Brian.
32
Web Server - Ask For Help / Menu on Right or Left
« on: February 24, 2018, 01:01:20 AM »
Hi,
NT 10.16
Is it possible to switch the menu from left to right in browser after the user logs in depending on a setting in the staff lookup table?
Brian.
NT 10.16
Is it possible to switch the menu from left to right in browser after the user logs in depending on a setting in the staff lookup table?
Brian.
33
Web Server - Ask For Help / Extract Blob
« on: October 19, 2017, 04:18:26 AM »
Hi All,
NT Apps 10.08
CL 10
Want to loop through a table (10,000 records) and extract a blob and save the document in a specific location on the server.
Any Suggestions?
MemForm with Button that calls a procedure which is plain Clarion procedure that loops through the table?
Brian.
NT Apps 10.08
CL 10
Want to loop through a table (10,000 records) and extract a blob and save the document in a specific location on the server.
Any Suggestions?
MemForm with Button that calls a procedure which is plain Clarion procedure that loops through the table?
Brian.
34
Web Server - Ask For Help / Contract button on browse and passing a paramater
« on: October 03, 2017, 07:13:59 AM »
CL 10
NT 10.06
Have a contract button on a browse that will drop down a listing of documents.
The document list is filtered on a field in the browse, there is no relationship in the dictionary between these two files.
How do I get the value from the browse to use on the filter? I see a parameter prompt but this does not seem to work.
If I hard code the filter with the Staff ID it works just fine.
Does Not Work
'CVFA:Status=<39>ASSIGNED<39> AND CVFA:AssignedTo=' &p_web.GSV('MTC:StaffSysID')
Works Fine
'CVFA:Status=<39>ASSIGNED<39> AND CVFA:AssignedTo=123'
Thanks
NT 10.06
Have a contract button on a browse that will drop down a listing of documents.
The document list is filtered on a field in the browse, there is no relationship in the dictionary between these two files.
How do I get the value from the browse to use on the filter? I see a parameter prompt but this does not seem to work.
If I hard code the filter with the Staff ID it works just fine.
Does Not Work
'CVFA:Status=<39>ASSIGNED<39> AND CVFA:AssignedTo=' &p_web.GSV('MTC:StaffSysID')
Works Fine
'CVFA:Status=<39>ASSIGNED<39> AND CVFA:AssignedTo=123'
Thanks
35
Web Server - Ask For Help / How To - Select a field based on validation?
« on: October 02, 2017, 01:50:35 AM »
Hi All,
What is the nettalk equivalent of the Clarion Select(?FieldName)
Have two date fields and want to make sure that the end date is greater then the start date and select the start date if not.
Thanks.
What is the nettalk equivalent of the Clarion Select(?FieldName)
Have two date fields and want to make sure that the end date is greater then the start date and select the start date if not.
Thanks.
36
Web Server - Ask For Help / Updated to 10.07 Version Error
« on: September 29, 2017, 08:05:19 AM »
Getting:
-
UPDATE OF WEB FOLDER REQUIRED - Try pressing Ctrl-F5. Server is on version 10.07 but web folder is on version undefined
Undefined?
Brian.
-
UPDATE OF WEB FOLDER REQUIRED - Try pressing Ctrl-F5. Server is on version 10.07 but web folder is on version undefined
Undefined?
Brian.
37
Web Server - Ask For Help / Nettalk 10 Apps CSS - ' nt-nowrap'
« on: July 31, 2017, 03:44:39 AM »
Converting from 9 to 10
Get a compile error when using ' nt-nowrap'
Get a compile error when using ' nt-nowrap'
38
Web Server - Ask For Help / ValidateRecord
« on: July 26, 2017, 02:35:16 AM »
Hi, it is my understanding that ValidateRecord is the place for me to change the value of a field prior to saving?
Like SavedOK = 'Y'
I prime this field as 'N'
It does not seem to want to change it on save.
I've used SSV and SetValue and just the field to no avail.
Brian.
Like SavedOK = 'Y'
I prime this field as 'N'
It does not seem to want to change it on save.
I've used SSV and SetValue and just the field to no avail.
Brian.
39
Web Server - Ask For Help / Drop List get another field from the table
« on: June 20, 2017, 09:58:20 AM »
NT 9....
CL10
Using drop list on a field to get the Supervisor ID from another table. Want to fill in a couple more fields on the form from drop selection. Where do I do this please?
Brian.
CL10
Using drop list on a field to get the Supervisor ID from another table. Want to fill in a couple more fields on the form from drop selection. Where do I do this please?
Brian.
40
Web Server - Ask For Help / Export Blob - Postgres
« on: May 20, 2017, 12:02:58 AM »
Hi ALl,
NT 9.27
CL 10
String 2.6
Put a button on a simple browse that exports the blob in the row to a location on the server.
First one seems to go OK, creates appropriate dir etc.
2nd, 3rd or so hangs the server or even shuts it down.
Using BLOBTOFILE
Any Ideas?
Brian.
NT 9.27
CL 10
String 2.6
Put a button on a simple browse that exports the blob in the row to a location on the server.
First one seems to go OK, creates appropriate dir etc.
2nd, 3rd or so hangs the server or even shuts it down.
Using BLOBTOFILE
Any Ideas?
Brian.
41
Web Server - Ask For Help / Menu Issue
« on: March 28, 2017, 01:51:43 PM »
Clarion 10
NT 9.22
StringTheory 2.57
Just upgraded to 9.22 and now the menu looks peculiar. The browses etc. all look lfine - see image.
Tried restoring the old Aristo folder to see would that change things but no luck. The switched themes but still the same issue.
NT 9.22
StringTheory 2.57
Just upgraded to 9.22 and now the menu looks peculiar. The browses etc. all look lfine - see image.
Tried restoring the old Aristo folder to see would that change things but no luck. The switched themes but still the same issue.
42
Web Server - Ask For Help / Tagging records for exclusive use
« on: September 21, 2016, 09:34:18 AM »
CL 10
NT 9.12
Application has a pool of documents waiting to be edited.
I want to allow users to tag multiple documents then commit them for editing to one editor.
I can make a simple tag field in the document table work but users are stepping on each other when they process the table.
Any suggestions welcome.
I thought that I could record the userid with the password then stop others tagging this record. My worry is that records would start to get tagged and not cleared then never sent to edit etc.
NT 9.12
Application has a pool of documents waiting to be edited.
I want to allow users to tag multiple documents then commit them for editing to one editor.
I can make a simple tag field in the document table work but users are stepping on each other when they process the table.
Any suggestions welcome.
I thought that I could record the userid with the password then stop others tagging this record. My worry is that records would start to get tagged and not cleared then never sent to edit etc.
43
Web Server - Ask For Help / Download a file then refresh a browse cell
« on: September 06, 2016, 01:10:08 PM »
Browse is a list of files that are available for download. One field on the browse is 'downloaded by'.'
I can capture and enter the username for this fieldbut canott figure out how to refresh the browse on return from the file download.
NT 9.12
CL 10
I can capture and enter the username for this fieldbut canott figure out how to refresh the browse on return from the file download.
NT 9.12
CL 10
44
Web Server - Ask For Help / Email from Web
« on: July 20, 2016, 01:11:00 AM »
Clarion 10
NT 9.11
Have email sending from my web app and all works fine. Including logging of sent emails.
However it seems slow, can take 4/5 seconds to send - previously used vuMail and it sent in less than a second.
Code below is what sends emails, am I doing correctly please.
Brian.
SendEmailNotice ROUTINE
email.pEmailSettingsPath = p_web.site.apppath
email.pEmailSubject = 'Transcription for: ' & p_web.GSV('CVF:cvfsysid') & ' ' &p_web.GSV('CVF:PatientName') & ' Customer: ' & p_web.GSV('CVF:CustomerName')
email.pEmailMessageText = app:TransEmail & '<13,10>' & '<13,10>' &app:ReturnText & '<13,10>' & '<13,10>' & app:Disclaimer
email.pEmailTo = CLIP(p_web.GSV('CVF:AssignedEmail'))
email.pEmailFrom = CLIP(p_web.GSV('UserName'))
email.pEmailReplyTo = CLIP(p_web.GSV('sta:emailaddress'))
email.pStartTLS = 1
r# = SendEmail(email)
DO AddEmailLog
EXIT
Thanks in advance.
NT 9.11
Have email sending from my web app and all works fine. Including logging of sent emails.
However it seems slow, can take 4/5 seconds to send - previously used vuMail and it sent in less than a second.
Code below is what sends emails, am I doing correctly please.
Brian.
SendEmailNotice ROUTINE
email.pEmailSettingsPath = p_web.site.apppath
email.pEmailSubject = 'Transcription for: ' & p_web.GSV('CVF:cvfsysid') & ' ' &p_web.GSV('CVF:PatientName') & ' Customer: ' & p_web.GSV('CVF:CustomerName')
email.pEmailMessageText = app:TransEmail & '<13,10>' & '<13,10>' &app:ReturnText & '<13,10>' & '<13,10>' & app:Disclaimer
email.pEmailTo = CLIP(p_web.GSV('CVF:AssignedEmail'))
email.pEmailFrom = CLIP(p_web.GSV('UserName'))
email.pEmailReplyTo = CLIP(p_web.GSV('sta:emailaddress'))
email.pStartTLS = 1
r# = SendEmail(email)
DO AddEmailLog
EXIT
Thanks in advance.
45
Web Server - Ask For Help / Select Dropdown not showing records on Next
« on: July 18, 2016, 02:13:01 PM »
Clarion 10
NT 9.11
Have a form with a Staff ID select (The ? mark)
When the ? is chosen a popup select list displays staff to select
If the user clicks the next button below the list then no records are displayed.
If they click the Clear button then the records will show.
On my laptop attached to the same site in the cloud it all works just fine?
Thanks in advance for any pointers.
NT 9.11
Have a form with a Staff ID select (The ? mark)
When the ? is chosen a popup select list displays staff to select
If the user clicks the next button below the list then no records are displayed.
If they click the Clear button then the records will show.
On my laptop attached to the same site in the cloud it all works just fine?
Thanks in advance for any pointers.