Recent Posts

Pages: [1] 2 3 ... 10

Web Server - Ask For Help / Re: How to make a "sticky" ban list.

« Last post by DonnEdwards on Today at 11:06:08 AM »

Thank you. How do you handle security? Using Secwin or something else? My app is a medical database, and they also want an API server.

Web Server - Ask For Help / NetWebServiceMethod returning queue

« Last post by jlavera on May 07, 2021, 08:58:34 PM »

Hi,

I'm trying to use a NetWebServiceMethod to return a local queue, because I have to take fields from different files and make some calculations. I use the QUEUE return type option, which has two tabs, Options and Fields. My problem is it seems to not be taking the Fields tab at all, it doesn't matter if I select a different order for the fields, or try to omit some of the fields. This is not working. It is returning the queue's fields as they are defined in the local data.
I'm using NT 11.43, but I don't see any history comment related with this in any later version, and I don't find this in the docs.
So, what is the Fields tab for? Is it really being ignored, or I'm missing something?

Kind regards,
Jorge Lavera

Web Server - Ask For Help / Re: Server Error 500

« Last post by urayoan on May 07, 2021, 07:09:27 AM »

Quote from: Bruce on May 07, 2021, 04:27:03 AM

yeah, you can bump that up, and I'll bump it up in the next build.

Thank you Bruce

The Rest - Share Knowledge / Re: Desktop and web maps

« Last post by michelis on May 07, 2021, 04:41:50 AM »

Ok, attached goes:

jquery.nt-maps.js (the folded code, to call the leaflet_numbered_markers.js is between //ARMi and //end ARMi)
leaflet_numbered_markers.js
and
leaflet_numbered_markers.css

The code extracts the number from the icon Tip, yo can change it as you need.

To make it work:
Replace the jquery.nt-maps.js in ..\scipts
Copy leaflet_numbered_markers.js to ..\scripts
Copy leaflet_numbered_markers.css to ..\styles
Add leaflet_numbered_markers.js to the Webserver
Add leaflet_numbered_markers.css to the Webserver

Hope it helps

Web Server - Ask For Help / Re: Server Error 500

« Last post by Bruce on May 07, 2021, 04:27:03 AM »

yeah, you can bump that up, and I'll bump it up in the next build.

The Rest - Share Knowledge / Re: Desktop and web maps

« Last post by Bruce on May 07, 2021, 03:59:40 AM »

excellent - yes please share the code.

Web Server - Ask For Help / Re: Refresh Browse After Report Generation

« Last post by urayoan on May 06, 2021, 10:40:14 AM »

Quote from: osquiabro on May 06, 2021, 05:36:41 AM

check the GotFocus Back routine in your WebForm, I don't know if it works when you call a page as a new page, for me it works as a popup and closes a window, like this

p_web.PushEvent('parentupdated')
do refresh::BrowseCustomerServices

the browse is inside the webform

Question related to this, the button is called from the browse and not from the form. Any ideas how to call it from the browse (the getfocusback function)

This is the code I call from he buttton in the row of the browse. The bold text is what I think should refresh the browse based on what you told me and what I understand

PrintAllLabels PROCEDURE (NetWebServerWorker p_web)
LocFileName CSTRING(256) !
LocPDFName CSTRING(256) !
LocTimeStamp LONG !
LoopVar LONG !
! Start of "Data Section"
! [Priority 50]

oHH &tagHTMLHelp
! [Priority 2600]

omit('***',WE::CantCloseNowSetHereDone=1) !Getting Nested omit compile error, then uncheck the "Check for duplicate CantCloseNowSetHere variable declaration" in the WinEvent local template
WE::CantCloseNowSetHereDone equate(1)
WE::CantCloseNowSetHere long
!***
! [Priority 6100]

loc:x Long
packet StringTheory
loc:options StringTheory ! options for jQuery calls
! [Priority 8500]

! End of "Data Section"
! Start of "Local Data After Object Declarations"
! [Priority 5000]

! End of "Local Data After Object Declarations"

CODE
GlobalErrors.SetProcedureName('PrintAllLabels')
p_web.Trace('PrintAllLabels START')
! Start of "Procedure Setup"
! [Priority 2500]

p_web.SetValue('_parentPage','PrintAllLabels')
If p_web.GetSessionLoggedIn() = 0
If p_web.site.LoginPage = ''
p_web.SendError (401,'Unauthorized', 'A login is required to view this page', true , true)
ElsIf p_web.site.LoginPageIsControl
p_web.MakePage(p_web.site.LoginPage)
else
p_web._SendFile(p_web.site.LoginPage)
End
Return
End
! [Priority 7500]

! End of "Procedure Setup"
! Start of "Processed Code"
! [Priority 500]

if p_web.sessionId = '' then p_web.NewSession().
! Start of "Before Header"
! [Priority 5000]

! End of "Before Header"
do Header
! [Priority 1200]

! [Priority 4000]
IF p_web.GetValue('RRH:RequestNumber') > 0

LocTimeStamp = FORMAT(CLOCK(),@T5)

LocPDFName = '$$$' & clip(p_web.SessionID) & LocTimeStamp & '.pdf'

LocFileName = 'labels\' & LocPDFName

WindowProcessSARAWebRequest(p_web.GetValue('RRH:RequestNumber'),LocPDFName)

!DO RefreshBrowse

END!IF
do Footer
! [Priority 8500]

do SendPacket
! [Priority 9500]

! End of "Processed Code"
p_web.Trace('PrintAllLabels END')
GlobalErrors.SetProcedureName()
Return

! Start of "Procedure Routines"
! [Priority 4000]
RefreshBrowse ROUTINE
DATA
loc:parent string(252)
CODE
p_web.PushEvent('gainfocus')
p_web.SetValue('_parentProc_',p_web.SetParent(loc:parent,'WindowUpdateOrder'))
p_web.SetValue('BrowseNewOrders:parentIs','Form')
BrowseNewOrders(p_web)

EXIT

SendPacket Routine
! Start of "Start of SendPacket Routine"
! [Priority 5000]

! End of "Start of SendPacket Routine"
p_web.ParseHTML(packet,1,0,Net:NoHeader)
packet.SetValue('')
! Start of "End of SendPacket Routine"
! [Priority 5000]

! End of "End of SendPacket Routine"
Header Routine
! Start of "Start of Header Routine"
! [Priority 5000]

! End of "Start of Header Routine"
! Start of "W3 Header Override"
! [Priority 5000]

! End of "W3 Header Override"
p_web.ReplyContentType = p_web.GetContentType('.pdf')
p_web.ReplyContentFixed = 1
packet.setvalue('')
! Start of "End of Header Routine"
! [Priority 5000]

! End of "End of Header Routine"

Footer Routine
! Start of "Start of Footer Routine"
! [Priority 4000]
p_web.ForceNoCache = 1
p_web.HeaderDetails.ContentDisposition = 'attachment; filename="'&CLIP(p_web.SessionID) & CLIP(LocTimeStamp) & '.pdf'&'"'
p_web.ReplyContentType = 'application/octet-stream'
p_web.ReplyContentFixed = true
p_web.SetHeader200()
! End of "Start of Footer Routine"
p_web._Sendfile(clip(p_web.site.WebFolderPath) & '\' & LocFileName)
! Start of "End of Footer Routine"
! [Priority 5000]
DO RefreshBrowse
! End of "End of Footer Routine"
! [Priority 8500]

! End of "Procedure Routines"
! Start of "Local Procedures"
! [Priority 5000]

! End of "Local Procedures"

Web Server - Ask For Help / Re: Refresh Browse After Report Generation

« Last post by urayoan on May 06, 2021, 08:44:48 AM »

Quote from: osquiabro on May 06, 2021, 05:36:41 AM

check the GotFocus Back routine in your WebForm, I don't know if it works when you call a page as a new page, for me it works as a popup and closes a window, like this

p_web.PushEvent('parentupdated')
do refresh::BrowseCustomerServices

the browse is inside the webform

Thanks man. Will try and check if it works

Web Server - Ask For Help / Re: Refresh Browse After Report Generation

« Last post by osquiabro on May 06, 2021, 05:36:41 AM »

check the GotFocus Back routine in your WebForm, I don't know if it works when you call a page as a new page, for me it works as a popup and closes a window, like this

p_web.PushEvent('parentupdated')
do refresh::BrowseCustomerServices

the browse is inside the webform

Web Server - Ask For Help / Re: Server Error 500

« Last post by urayoan on May 06, 2021, 05:24:10 AM »

Related to this, it is possible or pertinent in this structure to ramp up the field description to a higher length? I need the field larger to fit the request complete when it goes to disk. Is truncating the request in the log

LogQueue QUEUE,PRE(LogQ)
Port STRING(30)
Socket LONG
Thread LONG
Date LONG
Time LONG
Desc STRING(4096)
END

Pages: [1] 2 3 ... 10