NetTalk Central

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.


Messages - lanmicro

Pages: [1] 2 3 ... 8
1
Web Server - Ask For Help / Re: WebServer Hanging
« on: November 02, 2015, 08:48:54 AM »
Hi Bruce,

Not sure if it is worth pursuing.  Sometimes the error about the connection dropping happens between opening of consecutive files.  That's why I have the code inside a loop.  So that all files are attempted to be opened at the same time again if an error occurs.

2
Web Server - Ask For Help / Re: WebServer Hanging
« on: October 27, 2015, 11:17:11 AM »
Hi Bruce,  I placed code like the following in the OpenFiles routine:
    loop 5 times
        ds_OutputDebugString( 'Opening Files' )
        ds_OutputDebugString( clip( GLO:UCABATCH )&' '&GLO:FILESPEC:Batch )       
        State{ PROP:Disconnect }
        accdef{ prop:Disconnect }
        batch{ PROP:Disconnect }
        open( Company, 42h )
        if errorcode()   
            ds_OutputDebugString( 'Company error '& errorcode() )
            cycle
        end!if   
        open( Activity, 42h )
        if errorcode()   
            ds_OutputDebugString( 'Activity error '& errorcode() )
            cycle
        end!if   
        open( Flags, 42h )
        if errorcode()   
            ds_OutputDebugString( 'Flags error '& errorcode() )
            cycle
        end!if         
        open( Client2, 42h )
        if errorcode()   
            ds_OutputDebugString( 'Client2 error '& errorcode() )
            cycle
        end!if   
        open( SITE, 42h )
        if errorcode()   
            ds_OutputDebugString( 'Site error '& errorcode() )
            cycle
        end!if   
        if errorcode()   
            ds_OutputDebugString( 'Batch error '& errorcode() )
            cycle
        end!if   
        if errorcode()      then cycle.               
        break
    end!loop   

This appears to have resolved the problem with the server disconnecting. 

3
Web Server - Ask For Help / WebServer Hanging
« on: October 20, 2015, 08:29:32 AM »
Hi Guys,

I have a webserver that is hanging several times a day when it loses its connection to the Scalable database.

It appears to occur when a p_web.Open is issued at the beginning of a procedure.  I have placed a prop:disconnect before the p_web.Opens, but the hangs are still occurring.

Is there some way to capture the fact of the lost connection before the p_web.Open and issue a prop:disconnect and reopen all of my files?

4
Hi Bruce,

Here is an example app and dictionary.  The example doesn't use any files to make it simple.

Here is the xml that is received.

<UCAPOSMessage version="1.0.0.0" Service="POSTranNotification" MessageStatus="Pending" MessageID="1" MessageSentDate="2015-05-26T15:05:23" SoftwareVersionNumber="1000" registerID="21">
   <ChargeTran>
      <StoreID>0160</StoreID>
      <CashierID>1958094</CashierID>
      <TranDate>2015-04-25</TranDate>
      <TranTime>10:32</TranTime>
      <TranNumber>1234</TranNumber>
      <CustomerNumber>016085490</CustomerNumber>
      <TranTotal>-14.30</TranTotal>
      <TranType>Sale</TranType>
      <TranDetail>
               <Items>
         <Item>
            <ItemCode>2</ItemCode>
                      <ItemDesc>WRITE OFF CHGS/WRONG PERSON</ItemDesc>
            <ItemAmount>-14.30</ItemAmount>
            <ItemQty>1</ItemQty>
         </Item>            
           </Items>
            </TranDetail>
         </ChargeTran>
</UCAPOSMessage>



[attachment deleted by admin]

5
Web Server - Ask For Help / Re: Requiered Field Problem
« on: June 11, 2015, 08:47:05 PM »
osquiabro,

try

if cat:SeguroSocial = '' or null( cat:SeguroSocial ) or deformat( cat:SeguroSocial, @p###-##-####p ) = ''

assuming @p###-##-####p is how your formatting your social.


6
Hi Bruce,

Spoke too soon.  Bad test. 

Here is the debug output when the : is used in the MessageSentDate attribute of <UCAPOSMessage>

[3648] <UCAPOSMessage version="1.0.0.0" Service="POSTranNotification" MessageStatus="Pending" MessageID="1" MessageSentDate="2015-05-26T15:05:23" SoftwareVersionNumber="1000" registerID="21">
[3648]  <ChargeTran>
[3648]   <StoreID>0160</StoreID>
[3648]   <CashierID>1958094</CashierID>
[3648]   <TranDate>2015-04-25</TranDate>
[3648]   <TranTime>10:32</TranTime>
[3648]   <TranNumber>1234</TranNumber>
[3648]   <CustomerNumber>016085490</CustomerNumber>
[3648]   <TranTotal>-14.30</TranTotal>
[3648]   <TranType>Sale</TranType>
[3648]   <TranDetail>
[3648]              <Items>
[3648]    <Item>
[3648]     <ItemCode>2</ItemCode>
[3648]                   <ItemDesc>WRITE OFF CHGS/WRONG PERSON</ItemDesc>
[3648]     <ItemAmount>-14.30</ItemAmount>
[3648]     <ItemQty>1</ItemQty>
[3648]    </Item>     
[3648]        </Items>
[3648]           </TranDetail>
[3648]          </ChargeTran>
[3648] </UCAPOSMessage>
[3648] 
[3648] ]
[3648] [NetDLL] [2] CallBackWindowClientCallBack() :  Count=1 p_wMsg = 6217 wParam = 488 (lParam = 2) = Loc:WSAGetSelect.Err = 0 & Loc:WSAGetSelect.Event = 2. p_hWnd = 459796
[3648] [NetDLL] [2] SimpleClient_Async() : FD_WRITE  Socket = 488 SockID = 38 Err = 0
[3648] [NetDLL] [2] SimpleClientWrite() : Nothing to do for this Socket. records (qSimpleOutList) = 0
[3648] [NetDLL] [2] SimpleClientWrite() : Number of writes = 0  records (qSimpleOutList) = 0
[3648] [NetDLL] [2] CallBackWindowClientCallBack() : End of Function - will Return (1)
[3648] [NetDLL] [4] SimpleClientSend() : Sending packet to Server = 127.0.0.1 Socket = 488 SockID = 38
[3648] [NetDLL] [4] lookupSimpleClientSocket() : IP = 127.0.0.1 Socket = 488 SockID = 38
[3648] [NetDLL] [4] SimpleClientWrite() : Whole packet sent  SimplePacketID = 38 Bytes sent now = 1067 Bytes sent total of this packet = 1067
[3648] [NetDLL] [4] SimpleClientWrite() : Nothing to do for this Socket. records (qSimpleOutList) = 0
[3648] [NetDLL] [4] SimpleClientWrite() : Number of writes = 1  records (qSimpleOutList) = 0
[1864] [st] [netTalk][thread=3] UCAPOSMessage Group=
[1864] [st] [netTalk][thread=3] StoreID =160
[1864] [st] [netTalk][thread=3] CashierID =1958094
[1864] [st] [netTalk][thread=3] TranDate =2015-04-25
[1864] [st] [netTalk][thread=3] TranTime =10:32
[1864] [st] [netTalk][thread=3] TranNumber =1234
[1864] [st] [netTalk][thread=3] CustomerNumber =016085490
[1864] [st] [netTalk][thread=3] TranTotal =-14.30
[1864] [st] [netTalk][thread=3] TranType =Sale
[1864] [st] [netTalk][thread=3] Item Records=1
[1864] [st] [netTalk][thread=3] Tax Records=0
[1864] [st] [netTalk][thread=3] Tender Records=0

Here is the debug output when the a . is used in the MessageSentDate attribute of <UCAPOSMessage>

[3648] <UCAPOSMessage version="1.0.0.0" Service="POSTranNotification" MessageStatus="Pending" MessageID="1" MessageSentDate="2015-05-26T15.05.23" SoftwareVersionNumber="1000" registerID="21">
[3648]  <ChargeTran>
[3648]   <StoreID>0160</StoreID>
[3648]   <CashierID>1958094</CashierID>
[3648]   <TranDate>2015-04-25</TranDate>
[3648]   <TranTime>10:32</TranTime>
[3648]   <TranNumber>1234</TranNumber>
[3648]   <CustomerNumber>016085490</CustomerNumber>
[3648]   <TranTotal>-14.30</TranTotal>
[3648]   <TranType>Sale</TranType>
[3648]   <TranDetail>
[3648]              <Items>
[3648]    <Item>
[3648]     <ItemCode>2</ItemCode>
[3648]                   <ItemDesc>WRITE OFF CHGS/WRONG PERSON</ItemDesc>
[3648]     <ItemAmount>-14.30</ItemAmount>
[3648]     <ItemQty>1</ItemQty>
[3648]    </Item>     
[3648]        </Items>
[3648]           </TranDetail>
[3648]          </ChargeTran>
[3648] </UCAPOSMessage>
[3648] 
[3648] ]
[3648] [NetDLL] [2] CallBackWindowClientCallBack() : loc:ret = 0
[3648] [NetDLL] [4] SimpleClientSend() : Sending packet to Server = 127.0.0.1 Socket = 468 SockID = 39
[3648] [NetDLL] [4] lookupSimpleClientSocket() : IP = 127.0.0.1 Socket = 468 SockID = 39
[3648] [NetDLL] [4] SimpleClientWrite() : Whole packet sent  SimplePacketID = 39 Bytes sent now = 1067 Bytes sent total of this packet = 1067
[3648] [NetDLL] [4] SimpleClientWrite() : Nothing to do for this Socket. records (qSimpleOutList) = 0
[3648] [NetDLL] [4] SimpleClientWrite() : Number of writes = 1  records (qSimpleOutList) = 0
[3648] [NetDLL] [2] CallBackWindowClientCallBack() :  Count=1 p_wMsg = 6218 wParam = 468 (lParam = 2) = Loc:WSAGetSelect.Err = 0 & Loc:WSAGetSelect.Event = 2. p_hWnd = 459796
[3648] [NetDLL] [2] SimpleClient_Async() : FD_WRITE  Socket = 468 SockID = 39 Err = 0
[3648] [NetDLL] [2] SimpleClientWrite() : Nothing to do for this Socket. records (qSimpleOutList) = 0
[3648] [NetDLL] [2] SimpleClientWrite() : Number of writes = 0  records (qSimpleOutList) = 0
[3648] [NetDLL] [2] CallBackWindowClientCallBack() : End of Function - will Return (1)
[1864] [st] [netTalk][thread=3] UCAPOSMessage Group=1.0.0.0                                                     POSTranNotification                                         Pending                                                     1                                                           2015-05-26T15.05.23                                         1000                                                        21
[1864] [st] [netTalk][thread=3] StoreID =160
[1864] [st] [netTalk][thread=3] CashierID =1958094
[1864] [st] [netTalk][thread=3] TranDate =2015-04-25
[1864] [st] [netTalk][thread=3] TranTime =10:32
[1864] [st] [netTalk][thread=3] TranNumber =1234
[1864] [st] [netTalk][thread=3] CustomerNumber =016085490
[1864] [st] [netTalk][thread=3] TranTotal =-14.30
[1864] [st] [netTalk][thread=3] TranType =Sale
[1864] [st] [netTalk][thread=3] Item Records=1
[1864] [st] [netTalk][thread=3] Tax Records=0
[1864] [st] [netTalk][thread=3] Tender Records=0

You can see that UCAPOSMessage Group is blank when the : is used and has parameters found when the . is used. 

The XML data structure is shown above.  If you need anything else holler.

7
Hi Bruce,

I updated Xfiles.  Last installed in Feb 2015.  Did not fix problem.

I updated StringTheory.  Last installed in Apr 2015.  Fixed problem.

So some combination of Xfiles and StringTheory update solves this.

8
Hi Urayon,

Thanks for the response.  I got it to work except for the information in the "MessageSentDate" attribute.

When the data is "2015-05-26T15:05:23" the group starts with "23

When the data is changed to "2015-05-26T15.05.23"  the entire group is shown.  Is there something about : that causes this to fail?

9
I need to emulate the following XML message receipt from my customer. 
The part that has me stumped is the <UCAPOSMessage...> before the <CustomerQuery> tag.  How can I read that part of the message and include that information in my WebServer documentation?

I will also need to send similar information out in the response.  I hope once I know how to receive it the how to send it will be similar.

<?xml version="1.0" encoding="UTF-8"?>
<UCAPOSMessage version="1.0.0.0" Service="POSAccountInquiry" MessageStatus="Pending" MessageID="1" MessageSentDate="2015-05-26T15:05:23" SoftwareVersionNumber="1000" registerID="21">
   <CustomerQuery>
      <StoreID>1234</StoreID>
      <CashierID>1958094</CashierID>
      <TranDate>2015-04-25</TranDate>
      <TranTime>10:32</TranTime>
      <CustomerNumber>1234567890123</CustomerNumber>
   </CustomerQuery>
</UCAPOSMessage>

10
Web Server - Ask For Help / Re: Broadcast message to all users
« on: April 20, 2015, 01:30:19 PM »
Hi Rainer,

A web app is not like an app on your internal network.  People are not "in".  They connect to the server and are served a page which they look at.  While they are looking at the page the server doesn't know anything about them.  They can turn their machines off or navigate to a new page anywhere on the web and the server wouldn't know.

When you replace the binary people are going to lose their place.  Do it at a time that might affect the least number of people.

11
Web Server - Ask For Help / Re: Browse list empty after a long time
« on: January 16, 2014, 11:18:27 AM »
I had a similar problem.  What I wound up doing was using a timer to stop the webserver at midnight and using a task scheduler to restart it.  Since then I have not had a problem.  I don't know why it works.

Nothing else I tried worked.  Even pinging the MySQL database every 30 seconds would fail to connect first attempt the next day.

12
E-Mail - Ask For Help / Send Email getting -68 error
« on: December 19, 2013, 12:54:16 PM »
Hi Guys,

Using NetTalk 7.31 and attempting to send email. 

ThisEmail.ToList   = xyz.com
ThisEmail.From = xya.net
ThisEmail.Server = outbound.att.net
ThisEmail.Port = 465
ThisEmail.AuthUser = AuthUser
ThisEmail.AuthPassword = AuthPassword
ThisEmail.SSL = 1
ThisEmail.SendMail( net:EmailMadeFromPartsMode )

I am getting an error -68.  Something about certificate not found. 

This application could be on dozens of machines, all with a different email client. 

What do I do about a certificate that needs to be installed on lots of machines? 

Or am I thinking about this wrong?

13
Web Server - Ask For Help / Re: Server doesn't respond
« on: April 05, 2013, 11:04:28 AM »
Hi Kevin,

Don't know if it is the time.  I have tried loging in at 11pm and it works.  The next morning it fails.

The code in the heartbeat is the same as the code in the login.

Really the only difference would be that the login would be on a different thread. 

But shouldn't the MySQL has gone away message happen on the open and not the row access?

And when testing the PROP:SQL method of accessing the password file I used a dummy table to return the data into so its not something wrong with the Clarion buffer.  It's the access of the row.

BTW, 4 days in a row working with the shutting down of the app at midnight and using task manager to restart at 12:05AM.

14
Web Server - Ask For Help / Re: Server doesn't respond
« on: April 04, 2013, 04:39:58 AM »
Hi Kevin,

I have tried prop:SQL and get the same error on the attempt to read the logon.

I have run the program with the ODBC trace turned on.  Everything looks fine (even the open of the file) until the attempt to read the logon. When I get the MySQL has gone away message.

I have not tried the super user.  But since I only get one test per day it is difficult to try everything.

BTW, so far for 3 days in a row.  Closing the app at midnight and using the scheduler to restart at 12:05AM has worked.

15
Web Server - Ask For Help / Re: Server doesn't respond
« on: April 03, 2013, 08:52:37 AM »
Gregory, do you have all of the hooks hooked in your sever so you can everything to a file?  Message, Assert, Stop, Halt, etc...

Larry Sand

Not sure what your asking here.  After starting the program during the day I have no problems accessing anything in the file.  After the site sits overnight the first access to the password file causes a GPF.

Pages: [1] 2 3 ... 8