!!! <summary>
!!! Generated from procedure template - Window
!!! Send WatchManager Customers
!!! </summary>
SendWMCustomers PROCEDURE 

! Start of "Data for the procedure"
! [Priority 50]
URL                 string(20000)
st                  StringTheory
dfmt                StringDeformat
fmt                 StringFormat
ut                  real    ! Unix Time
utStart             REAL
utNow               REAL
utEstimate          REAL
utLoopCount         real
i                   LONG
j                   Long
!lngMaxRecords       LONG    ! Maximum records to fetch
!lngSkipRecords      LONG    ! Skip these records (on 2nd or subsequent fetches)
lngLoopCount        LONG
lngRecordCount      LONG
lngUpdateCount      LONG
loc:WatchDate       date
loc:WatchTime       time
stURL               string(20000)

! UltimateDebugger Object
udpt            UltimateDebugProcedureTracker
! [Priority 1300]

wmcust_response     Group,Name('wmcust_response')
ServiceResults          &ServiceResultsQueueType,Name('ServiceResults | queue')
wmcust                  String(250) ,Name('wmcust')
skippedrecords          STRING(255),Name('skippedrecords')
resultcomplete          STRING(255),Name('resultcomplete')
                    End
ServiceResultsQueueType     Queue,Type,Name('ServiceResults')
RESULTACTION                    STRING(255),Name('RESULTACTION')
RESULTTABLE                     STRING(255),Name('RESULTTABLE')
RESULTRECORDID                  STRING(255),Name('RESULTRECORDID')
RESULTDESCRIPTION               STRING(255),Name('RESULTDESCRIPTION')
                            End


jsonSWM                Class(jsonClass)
NewPointer              Procedure(String pColumnName),Derived
                    End
!// wmCust variables
loc:cus_guid        STRING(20)  !,NAME('cus_guid')    ! GUID                
loc:cust_no         STRING(10)  !,NAME('cus_cust_no') ! Master Account Code 
loc:site            STRING(4)  !,NAME('cus_site')     ! Branch/Division     
loc:type            SHORT  !,NAME('cus_type')         ! Clinet Type: 0=Customer, 1=Sales Lead, 2=Other
loc:co_name         STRING(50)  !,NAME('cus_co_name') ! Account Name        
loc:surname         STRING(25)  !,NAME('cus_surname') ! Client Surname      
loc:firstname       STRING(20)  !,NAME('cus_firstname') ! Client First name   
loc:title           STRING(15)  !,NAME('cus_title')   ! Title               
loc:lot_erf_no      STRING(20)  !,NAME('cus_lot_erf_no') ! Lot or Erf Number   
loc:site_adr1       STRING(30)  !,NAME('cus_site_adr1') ! Site Address line 1 
loc:site_adr2       STRING(30)  !,NAME('cus_site_adr2') ! Site Address line 2 
loc:site_adr3       STRING(30)  !,NAME('cus_site_adr3') ! Site Address line 3 
loc:site_adr4       STRING(30)  !,NAME('cus_site_adr4') ! Site Address line 4 
!loc:route_info      CSTRING(700)  !,NAME('cus_route_info') ! Route to Site/Directions
!loc:code1           STRING(20)  !,NAME('cus_code1')   ! 1st Monitoring Code 
!loc:ipaddr1         STRING(20)  !,NAME('cus_ipaddr1') ! GPRS IP Addr        
!loc:cross_ndx       STRING(20)  !,NAME('cus_cross_ndx') ! 2nd Monitoring Code 
!loc:ipaddr2         STRING(20)  !,NAME('cus_ipaddr2') ! GPRS IP Addr        
!loc:category        STRING(3)  !,NAME('cus_category') ! Customer Category Code
!loc:equipment1      STRING(3)  !,NAME('cus_equipment1') ! 1st Decoding Category
!loc:panel1          STRING(4)  !,NAME('cus_panel1')   ! 1st Panel Type Code 
!loc:equipment2      STRING(3)  !,NAME('cus_equipment2') ! 2nd Decoding Category
!loc:panel2          STRING(4)  !,NAME('cus_panel2')   ! 2nd Panel Type Code 
!loc:keypad1         STRING(10)  !,NAME('cus_keypad1') ! System Keypad Code  
!loc:keypad2         STRING(10)  !,NAME('cus_keypad2') ! System Keypad Code  
!loc:keypad3         STRING(10)  !,NAME('cus_keypad3') ! System Keypad Code  
!loc:partitions_on   BYTE  !,NAME('cus_partitions_on') ! Use Partitions      
!loc:keybyptn        BYTE  !,NAME('cus_keybyptn')      ! Action Alarm - Display KH by Partition
!loc:equip_info1     STRING(50)  !,NAME('cus_equip_info1') ! Equipment Info line 1
!loc:equip_info2     STRING(50)  !,NAME('cus_equip_info2') ! Equipment Info line 2
!loc:equip_info3     STRING(50)  !,NAME('cus_equip_info3') ! Equipment Info line 3
!loc:equip_info4     STRING(50)  !,NAME('cus_equip_info4') ! Equipment Info line 4
!loc:equip_info5     STRING(50)  !,NAME('cus_equip_info5') ! Equipment Info line 5
!loc:equip_info6     STRING(50)  !,NAME('cus_equip_info6') ! Equipment Info line 6
!loc:equip_info7     STRING(50)  !,NAME('cus_equip_info7') ! Equipment Info line 7
!loc:batt_date       LONG  !,NAME('cus_batt_date')     ! Battery Installed Date - 1st Device
!loc:batt_type       STRING(3)  !,NAME('cus_batt_type') ! Battery Type: SLA, GEL, LIT
!loc:batt_rating     LONG  !,NAME('cus_batt_rating')   ! Battery AH Rating   
!loc:batt_date2      LONG  !,NAME('cus_batt_date2')    ! Battery Installed Date - 2nd Device
!loc:batt_type2      STRING(3)  !,NAME('cus_batt_type2') ! Battery Type: SLA, GEL, LIT
!loc:batt_rating2    LONG  !,NAME('cus_batt_rating2')  ! Battery AH rating   
loc:str_ndx         STRING(30)  !,NAME('cus_str_ndx') ! Address Search      
!loc:longitude       REAL  !,NAME('cus_longitude')     ! Premises Longitude degrees
!loc:latitude        REAL  !,NAME('cus_latitude')      ! Premises Latitude Degrees
!loc:gatecode        STRING(20)  !,NAME('cus_gatecode') ! Gate Opener Code    
!loc:actn_mustphone  STRING(1)  !,NAME('cus_actn_mustphone') ! Client MUST be Phoned flag
!loc:actn_nophone    STRING(1)  !,NAME('cus_actn_nophone') ! Client DO NOT Phone 
!loc:keyword         STRING(20)  !,NAME('cus_keyword') ! Special Search for Keyword Search
!loc:keys            STRING(15)  !,NAME('cus_keys')    ! Premises keys       
!loc:gkeys           STRING(15)  !,NAME('cus_gkeys')   ! Gate Keys           
!loc:password        STRING(20)  !,NAME('cus_password') ! Site Password/Challenge code
!loc:duress          STRING(20)  !,NAME('cus_duress')  ! Site Duress Code    
!loc:response_zone   STRING(3)  !,NAME('cus_response_zone') ! Armed Response Zone 
!loc:tt_auto         LONG  !,NAME('cus_tt_auto')       ! TomTom Auto dispatch Veh ID
!loc:ar_sitelimit    SHORT  !,NAME('cus_ar_sitelimit') ! On Site feedback limit
!loc:ar_maxcalls     SHORT  !,NAME('cus_ar_maxcalls')  ! Max AR call outs per month
!loc:map_ref         STRING(10)  !,NAME('cus_map_ref') ! Map reference       
loc:invname         STRING(45)  !,NAME('cus_invname') ! Invoice/Reports Addressee
loc:inv_adr1        STRING(30)  !,NAME('cus_inv_adr1') ! Postal Address line 1
loc:inv_adr2        STRING(30)  !,NAME('cus_inv_adr2') ! Postal Address line 2
loc:postcode        STRING(25)  !,NAME('cus_postcode') ! Postal Code         
loc:addr_verified   BYTE  !,NAME('cus_addr_verified') ! Address has been verified
loc:area_code       STRING(4)  !,NAME('cus_area_code') ! Area Code           
!loc:mon_info        STRING(10)  !,NAME('cus_mon_info') ! Comm/Radio Indicator
loc:acctperson      STRING(30)  !,NAME('cus_acctperson') ! Contact Person name 
loc:status          STRING(1)  !,NAME('cus_status')   ! Account Status: P=Paid, O=Overdue, U=Unpaid, I=Ignore, H=HandOvr, C=No Charge, N-Non Monitor
loc:printhist       STRING(3)  !,NAME('cus_printhist') ! History Report Category
loc:last_chg        LONG  !,NAME('cus_last_chg')      ! Date Record last modified
loc:user_code       STRING(3)  !,NAME('cus_user_code') ! User Code last Modified/Deleted
loc:date_inst       LONG  !,NAME('cus_date_inst')     ! Date Installed      
!loc:contract_date   LONG  !,NAME('cus_contract_date') ! Contract Date       
!loc:maint_date      LONG  !,NAME('cus_maint_date')    ! Maintenance/Service Date
!loc:saidsa_date     LONG  !,NAME('cus_saidsa_date')   ! SAIDSA Certificate  
!loc:msg_valid       LONG  !,NAME('cus_msg_valid')     ! Temporary Message validity Date
!loc:temp1           STRING(36)  !,NAME('cus_temp1')   ! Temporary Message Line 1
!loc:temp2           STRING(36)  !,NAME('cus_temp2')   ! Temporary Message Line 2
!loc:temp3           STRING(36)  !,NAME('cus_temp3')   ! Temporary Message Line 3
!loc:temp4           STRING(36)  !,NAME('cus_temp4')   ! Temporary Message Line 4
!loc:temp5           STRING(36)  !,NAME('cus_temp5')   ! Temporary Message Line 5
!loc:temp6           STRING(36)  !,NAME('cus_temp6')   ! Temporary Message Line 6
!loc:tech_code       LONG  !,NAME('cus_tech_code')     ! Installer Code      
!loc:armed_res       STRING(1)  !,NAME('cus_armed_res') ! Armed Response Indicator (N/E/O/Y)
!loc:test_24h_1      STRING(1)  !,NAME('cus_test_24h_1') ! Chan A 24Hr Test (Y/N)
!loc:h24_days_1      STRING(2)  !,NAME('cus_h24_days_1') ! Chan A 24hr test Days
!loc:h24_time_1      STRING(5)  !,NAME('cus_h24_time_1') ! Chan A 24hr test Time
!loc:test_24h_2      STRING(1)  !,NAME('cus_test_24h_2') ! Chan B 24hr test (Y/N)
!loc:h24_days_2      STRING(2)  !,NAME('cus_h24_days_2') ! Chan B 24hr test Days
!loc:h24_time_2      STRING(5)  !,NAME('cus_h24_time_2') ! Chan B 24hr test Time
!loc:alm_process     BYTE  !,NAME('cus_alm_process')   ! Alarm in process indicator
!loc:ext_code        STRING(10)  !,NAME('cus_ext_code') ! Debtor/External Code
!loc:action_grp      LONG  !,NAME('cus_action_grp')    ! ACTION_GRP          
!loc:challenge       STRING(1)  !,NAME('cus_challenge') ! Must Challenge indicator
!loc:weblink         STRING(1)  !,NAME('cus_weblink')  ! Website linked      
!loc:httpvideo       STRING(1)  !,NAME('cus_httpvideo') ! HTTP Video - Y=Standard, A=AvTech CCTV
!loc:httpport        STRING(9)  !,NAME('cus_httpport') ! Port Number         
!loc:httpurl         STRING(200)  !,NAME('cus_httpurl') ! HTTP URL            
!loc:httpuser        STRING(20)  !,NAME('cus_httpuser') ! Username            
!loc:httppswd        STRING(20)  !,NAME('cus_httppswd') ! Password            
!loc:httptmr         LONG  !,NAME('cus_httptmr')       ! HTTP Viewer timeout 
!loc:http_ie         STRING(1)  !,NAME('cus_http_ie')  ! IE Version to use   
!loc:uw_code         STRING(3)  !,NAME('cus_uw_code')  ! Underwriter Code    
!loc:jobsenable      BYTE  !,NAME('cus_jobsenable')    ! Enable/Disable new Job Cards
!loc:jobsorder       BYTE  !,NAME('cus_jobsorder')     ! Job Requires Order No
!loc:jobsnolimit     BYTE  !,NAME('cus_jobsnolimit')   ! Not limited to 1 Job
!loc:dealer          STRING(5)  !,NAME('cus_dealer')   ! Dealer ID           
!loc:consolidate     STRING(10)  !,NAME('cus_consolidate') ! Consolidate Account/Invoice to Client Code
!loc:owned           STRING(1)  !,NAME('cus_owned')    ! System Owned: P=Purchased, R=Rented
!loc:debitorder      STRING(1)  !,NAME('cus_debitorder') ! Payment type: D=Debit order, C=Credit Card, S=Cash, A=Account
!loc:bankname        STRING(20)  !,NAME('cus_bankname') ! Bankers             
!loc:branchname      STRING(20)  !,NAME('cus_branchname') ! Branch Name         
!loc:branchcode      STRING(6)  !,NAME('cus_branchcode') ! Branch Code         
!loc:accountno       STRING(20)  !,NAME('cus_accountno') ! Bank Account No     
!loc:acct_type       STRING(1)  !,NAME('cus_acct_type') ! Bank Acct Type      
!loc:taxnumber       STRING(20)  !,NAME('cus_taxnumber') ! Tax/VAT Number      
!loc:next_bill       LONG  !,NAME('cus_next_bill')     ! Next Billing Date   
!loc:bill_freq       STRING(1)  !,NAME('cus_bill_freq') ! Billing Frequency   
!loc:stack_no        BYTE  !,NAME('cus_stack_no')      ! Default Stack for this Client
loc:db_comment1     STRING(30)  !,NAME('cus_db_comment1') ! Statement Comment 1 
loc:db_comment2     STRING(30)  !,NAME('cus_db_comment2') ! Statement Comment 2 
!loc:balance         REAL  !,NAME('cus_balance')       ! Balance on Account  
!loc:current         REAL  !,NAME('cus_current')       ! Current Balance     
!loc:thirty          REAL  !,NAME('cus_thirty')        ! 30 Days             
!loc:sixty           REAL  !,NAME('cus_sixty')         ! 60 Days             
!loc:ninety          REAL  !,NAME('cus_ninety')        ! 90 Days             
!loc:onetwenty       REAL  !,NAME('cus_onetwenty')     ! 120 Days            
!loc:storm_exclude   BYTE  !,NAME('cus_storm_exclude') ! Exclude from Storm Mode
!loc:tt_lat          REAL  !,NAME('cus_tt_lat')        ! TomTom Latitude     
!loc:tt_lng          REAL  !,NAME('cus_tt_lng')        ! TomTom Longitude    
!loc:airtime_calc1   BYTE  !,NAME('cus_airtime_calc1') ! Calc Airtime balance flag 1st Mon Code
!loc:airtime_calc2   BYTE  !,NAME('cus_airtime_calc2') ! Calc Airtime balance flag 2nd Mon Code
!loc:airtime_bal1    REAL  !,NAME('cus_airtime_bal1')  ! Airtime Balance 1st Mon Code
!loc:airtime_bal2    REAL  !,NAME('cus_airtime_bal2')  ! Airtime Balance 2nd Mon Code
loc:date_last       LONG  !,NAME('cus_date_last')     ! Date last changed   
loc:time_last       LONG  !,NAME('cus_time_last')     ! Time last changed   
!loc:logonly         BYTE  !,NAME('cus_logonly')       ! Log Only on all signals
!loc:no_globalsms    BYTE  !,NAME('cus_no_globalsms')  ! Exclude client from Global SMS action
!loc:sms_maxdaily    SHORT  !,NAME('cus_sms_maxdaily') ! Max Dailt SMS limit 
!loc:language        STRING(10)  !,NAME('cus_language') ! Client Language     
!loc:res_bus         STRING(1)  !,NAME('cus_res_bus')  ! Residence or Business
!loc:pref_comms      STRING(1)  !,NAME('cus_pref_comms') ! Communication method
!loc:postaddrsite    BYTE  !,NAME('cus_postaddrsite')  ! Postal Address Same as Site Address
!loc:lsncustid       STRING(20)  !,NAME('cus_lsncustid') ! MsSQL Cust ID       
!loc:date_sitetest   LONG  !,NAME('cus_date_sitetest') ! Date site last on Test
!loc:test_keyholder  STRING(30)  !,NAME('cus_test_keyholder') ! Keyholder last tested
!loc:notes           CSTRING(1501)  !,NAME('cus_notes') ! NOTES               
loc:cus_sage_id     LONG  !,NAME('cus_sage_id')       ! Customer ID         
!loc:timestamp       REAL  !,NAME('ts')                ! Sync - My Time Stamp
!loc:servertimestamp REAL  !,NAME('sts')               ! Sync - Server Time Stamp
loc:deletedtimestamp        REAL  !,NAME('dts')               ! Sync - Deleted Time Stamp
loc:deleted         BYTE  !,NAME('cus_deleted')       ! Record flagged as deleted
!loc:is_new          BYTE                           ! Is it a New record to upload to WM

WMStatusMessage      STRING(50)                            ! 
EstimateTime         STRING(25)                            ! 
Response             STRING(10000)                         ! 
! [Priority 3000]

! Window Structure
QuickWindow          WINDOW('Send the WatchManager Customer data'),AT(,,354,181),FONT('Segoe UI',9,,FONT:regular, |
  CHARSET:DEFAULT),RESIZE,CENTER,ICON('datasync.ico'),GRAY,IMM,MODAL,SYSTEM
                       BUTTON('Send &Data'),AT(7,11,49),USE(?Send),MSG('Get the Customer Data'),TIP('Get the Cu' & |
  'stomer data')
                       BUTTON('&Close'),AT(7,161,49,14),USE(?Ok),MSG('Accept operation'),TIP('Accept Operation')
                       !          BUTTON('&Help'),AT(207,142,49,14),USE(?Help),MSG('See Help Window'),STD(STD:Help), |
                       !            TIP('See Help Window'),#ORIG(?Help),#SEQ(3),#ORDINAL(3)
                       TEXT,AT(102,27,242,147),USE(Response),VSCROLL
                       ENTRY(@s200),AT(102,11,242),USE(URL)
                       PROMPT('URL'),AT(67,13,29),USE(?PROMPT1),RIGHT
                       PROMPT('Received'),AT(55,28,41),USE(?PROMPT3),RIGHT
                       ENTRY(@d10-),AT(7,86,48,10),USE(glo:WatchImportDate),CENTER,FLAT,MSG('Sage Date'),READONLY, |
  TIP('Sage Date')
                       ENTRY(@t4),AT(7,101,48,10),USE(glo:WatchImportTime),CENTER,FLAT,READONLY
                       BUTTON('Back Date'),AT(7,114,49,14),USE(?btnReset),FLAT,MSG('Go back one week'),TIP('Go back one week')
                       ENTRY(@s50),AT(7,41,89,12),USE(WMStatusMessage),FLAT,TIP('Progress'),TRN
                       ENTRY(@s25),AT(7,57,89),USE(EstimateTime),FONT(,,COLOR:Navy),FLAT,READONLY,TIP('Estimated ' & |
  'time of completion'),TRN
                       BUTTON('&Stop'),AT(7,138,49),USE(?btnStop)
                     END

! [Priority 5050]

    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]

! End of "Data for the procedure"
ThisWindow           CLASS(WindowManager)
Ask                    PROCEDURE(),DERIVED
ChangeAction           PROCEDURE(),BYTE,DERIVED
OnCloseEventCancelled  PROCEDURE(),DERIVED
PrimeUpdate            PROCEDURE(),BYTE,PROC,DERIVED
Reset                  PROCEDURE(BYTE Force=0),DERIVED
Run                    PROCEDURE(),BYTE,PROC,DERIVED
SetAlerts              PROCEDURE(),DERIVED
TakeAccepted           PROCEDURE(),BYTE,PROC,DERIVED
TakeDisableButton      PROCEDURE(SIGNED Control,BYTE MakeDisable),DERIVED
TakeEvent              PROCEDURE(),BYTE,PROC,DERIVED
Update                 PROCEDURE(),DERIVED
                     END

Toolbar              ToolbarClass
!Local Data Classes
ThisWebClient        CLASS(NetWebClient)                   ! Generated by NetTalk Extension (Class Definition)
! Start of "Class - New Property Declarations"
! [Priority 5000]

! End of "Class - New Property Declarations"
ANSIToUnicode          PROCEDURE(long encoding=st:EncodeUtf16,ulong pCodePage=st:CP_US_ASCII),DERIVED
Abort                  PROCEDURE(),DERIVED
AbortServerConnection  PROCEDURE(ulong p_Socket,long p_SockID),DERIVED
Ban                    PROCEDURE(String p_Ip),DERIVED
Base64Decode           PROCEDURE(String p_Text),STRING,DERIVED
Base64Encode           PROCEDURE(String p_Text),STRING,DERIVED
CheckIfChunkComplete   PROCEDURE(),Long,DERIVED
ClarionToUnixDate      PROCEDURE(Long p_Date,Long p_Time=0),Long,DERIVED
ClearProxy             PROCEDURE(),DERIVED
Close                  PROCEDURE(),DERIVED
CloseServerConnection  PROCEDURE(ulong p_Socket,long p_SockID),DERIVED
CompleteURL            PROCEDURE(StringTheory p_Url),DERIVED
ConnectionClosed       PROCEDURE(),DERIVED
Construct              PROCEDURE()
CreateAuthorizationString PROCEDURE(string p_UserName,string p_Password,long p_AuthorizationMethod,long p_Options=0),STRING,DERIVED
CreateAuthorizationStringOAuth1 PROCEDURE(String pVerb,String pUrl,AuthParametersGroup pAuthParms),STRING,DERIVED
CreateAuthorizationStringVapid PROCEDURE(String pAudience,String pSub,Long pExp,String pPrivateKey,String pPublicKey),STRING,DERIVED
CreateFolder           PROCEDURE(String pFolder),Long,PROC,DERIVED
CreateGMTDate          PROCEDURE(long p_Date=0,long p_Time=0),STRING,DERIVED
CreateUTCDate          PROCEDURE(long p_Date=0,long p_Time=0),STRING,DERIVED
DecodeWebString        PROCEDURE(string p_PostString),STRING,DERIVED
DefaultPort            PROCEDURE(),LONG,DERIVED
Delete                 PROCEDURE(String p_Url),DERIVED
Delete                 PROCEDURE(String p_Url,String p_PostString),DERIVED
Delete                 PROCEDURE(String p_Url,StringTheory p_PostString),DERIVED
Delete                 PROCEDURE(StringTheory p_Url),DERIVED
Delete                 PROCEDURE(StringTheory p_Url,String p_PostString),DERIVED
Delete                 PROCEDURE(StringTheory p_Url,StringTheory p_PostString),DERIVED
DeleteCookie           PROCEDURE(String p_Name),DERIVED
DeleteValue            PROCEDURE(String pName),DERIVED
Destruct               PROCEDURE()
DontSendCookie         PROCEDURE(String p_name),DERIVED
EncodeWebString        PROCEDURE(string p_Text,Long p_Flags=0,Long p_Len=0),STRING,DERIVED
EncodeWebStringLength  PROCEDURE(string p_Text,Long p_Flags=0,Long p_Len=0),LONG,DERIVED
ErrorTrap              PROCEDURE(string errorStr,string functionName),DERIVED
Fetch                  PROCEDURE(String p_Url),DERIVED
Fetch                  PROCEDURE(StringTheory p_Url),DERIVED
Free                   PROCEDURE(),DERIVED
FreeCookies            PROCEDURE(),DERIVED
FreeFieldsQueue        PROCEDURE(),DERIVED
Get                    PROCEDURE(String p_Url),DERIVED
Get                    PROCEDURE(String p_Url,String p_PostString),DERIVED
Get                    PROCEDURE(String p_Url,StringTheory p_PostString),DERIVED
Get                    PROCEDURE(StringTheory p_Url),DERIVED
Get                    PROCEDURE(StringTheory p_Url,String p_PostString),DERIVED
Get                    PROCEDURE(StringTheory p_Url,StringTheory p_PostString),DERIVED
GetBanned              PROCEDURE(),String,DERIVED
GetContentType         PROCEDURE(string p_FileName),STRING,DERIVED
GetCookie              PROCEDURE(String p_name),String,DERIVED
GetElapsedTimeUTC      PROCEDURE(Long pBaseDate=61730),Real,DERIVED
GetExeFolder           PROCEDURE(),String,DERIVED
GetHeaderField         PROCEDURE(string p_Header,long p_count=1),STRING,DERIVED
GetHeaderField         PROCEDURE(string p_SearchString,*string p_MainString,long p_StartPos=1,long p_EndPos=0,long p_CaseInSensitive=true),STRING,DERIVED
GetHeaderField         PROCEDURE(string p_SearchString,StringTheory p_MainString,long p_StartPos=1,long p_EndPos=0,long p_CaseInSensitive=true),STRING,DERIVED
GetInfo                PROCEDURE(long p_Options=1,long p_Socket=0,long p_SockId=0),DERIVED
GetValueFromWebString  PROCEDURE(string p_VarName,string p_PostString),STRING,DERIVED
GetVariableNameFromWebString PROCEDURE(long p_number,string p_string),STRING,DERIVED
HexToLong              PROCEDURE(String p_Hex),LONG,DERIVED
Init                   PROCEDURE(uLong Mode=NET:SimpleClient),DERIVED
InterpretError         PROCEDURE(),STRING,DERIVED
IsBanned               PROCEDURE(String p_Ip),Long,DERIVED
Kill                   PROCEDURE(),DERIVED
LoadCookies            PROCEDURE(String pFileName),DERIVED
Log                    PROCEDURE(string p_FunctionName,string p_LogString,long p_ErrorType=0),DERIVED
LongToHex              PROCEDURE(Long p_Long),String,DERIVED
MakeGetString          PROCEDURE(),DERIVED
MakePostString         PROCEDURE(),DERIVED
MatchSubjectWithURL    PROCEDURE(String p_CertName,String p_Server),long,DERIVED
NormalizeURL           PROCEDURE(String pURL),STRING,DERIVED
NormalizeURL           PROCEDURE(StringTheory pURL),DERIVED
Open                   PROCEDURE(string Server,uShort Port=0),DERIVED
Options                PROCEDURE(String p_Url),DERIVED
Options                PROCEDURE(StringTheory p_Url),DERIVED
PageReceived           PROCEDURE(),DERIVED
ParseAuthenticateHeader PROCEDURE(),LONG,DERIVED
PartiallyCloseServer   PROCEDURE(),DERIVED
Patch                  PROCEDURE(String p_Url),DERIVED
Patch                  PROCEDURE(String p_Url,String p_PostString),DERIVED
Patch                  PROCEDURE(String p_Url,StringTheory p_PostString),DERIVED
Patch                  PROCEDURE(StringTheory p_Url),DERIVED
Patch                  PROCEDURE(StringTheory p_Url,String p_PostString),DERIVED
Patch                  PROCEDURE(StringTheory p_Url,StringTheory p_PostString),DERIVED
Ping                   PROCEDURE(string p_IP,long p_TTL),LONG,DERIVED
Post                   PROCEDURE(String p_Url),DERIVED
Post                   PROCEDURE(String p_Url,String p_PostString),DERIVED
Post                   PROCEDURE(String p_Url,StringTheory p_PostString),DERIVED
Post                   PROCEDURE(StringTheory p_Url),DERIVED
Post                   PROCEDURE(StringTheory p_Url,String p_PostString),DERIVED
Post                   PROCEDURE(StringTheory p_Url,StringTheory p_PostString),DERIVED
Prime                  PROCEDURE(),DERIVED
Process                PROCEDURE(),DERIVED
Put                    PROCEDURE(String p_Url),DERIVED
Put                    PROCEDURE(String p_Url,String p_PostString),DERIVED
Put                    PROCEDURE(String p_Url,StringTheory p_PostString),DERIVED
Put                    PROCEDURE(StringTheory p_Url),DERIVED
Put                    PROCEDURE(StringTheory p_Url,String p_PostString),DERIVED
Put                    PROCEDURE(StringTheory p_Url,StringTheory p_PostString),DERIVED
RefreshQServerConnections PROCEDURE(long p_Free=0),DERIVED
RemoveHeader           PROCEDURE(),DERIVED
SSLGetAlternativeSubjectField PROCEDURE(string p_FieldName),string,DERIVED
SSLGetIssuerField      PROCEDURE(string p_FieldName),string,DERIVED
SSLGetSubjectField     PROCEDURE(string p_FieldName),string,DERIVED
SaveCookies            PROCEDURE(String pFileName),DERIVED
SavePage               PROCEDURE(string p_FileName),DERIVED
Send                   PROCEDURE(),DERIVED
Send                   PROCEDURE(String p_str),DERIVED
Send                   PROCEDURE(StringTheory p_str),DERIVED
SetAccept              PROCEDURE(String pType),DERIVED
SetAllHeadersDefault   PROCEDURE(),DERIVED
SetCodePage            PROCEDURE(<Long pCharSet>),DERIVED
SetContentType         PROCEDURE(String pType),DERIVED
SetCookie              PROCEDURE(String p_name,String p_Value,<Long p_Date>,<Long p_Time>,<Long p_Secure>,<String p_Path>,<String p_Domain>,Long p_HttpOnly=0,<String p_SameSite>),DERIVED
SetProgress            PROCEDURE(Long pProgress),DERIVED
SetValue               PROCEDURE(String pName,*Group pGroup),DERIVED
SetValue               PROCEDURE(String pName,*String pValue,Long pOptions=0,<String pContentType>,<String pCustomHeader>),DERIVED
SetValue               PROCEDURE(String pName,String pValue,Long pOptions=0,<String pContentType>,<String pCustomHeader>),DERIVED
SetValue               PROCEDURE(String pName,StringTheory pValue,Long pOptions=0,<String pContentType>,<String pCustomHeader>),DERIVED
Start                  PROCEDURE(),DERIVED
SwitchToSSL            PROCEDURE(long p_Socket=0,long p_SockID=0),DERIVED
TakeEvent              PROCEDURE(),DERIVED
TextOnly               PROCEDURE(),DERIVED
Trace                  PROCEDURE(string p_string),DERIVED
UnBan                  PROCEDURE(String p_Ip),DERIVED
UnicodeToAnsi          PROCEDURE(long encoding=st:EncodeUtf16,ulong pCodePage=st:CP_US_ASCII),DERIVED
UnixToClarionDate      PROCEDURE(Long p_DateTime),Long,DERIVED
UnixToClarionTime      PROCEDURE(Long p_DateTime),Long,DERIVED
VerifyCertificate      PROCEDURE(),long,DERIVED
_CallErrorTrap         PROCEDURE(string errorStr,string functionName),DERIVED
_CallPageReceived      PROCEDURE(),DERIVED
_ConnectingOkay        PROCEDURE(),DERIVED
_CreateRequestHeader   PROCEDURE(long p_HostPort),STRING,DERIVED
_CreateRequestURI      PROCEDURE(STRING p_Method),STRING,DERIVED
_HandleAsyncOpenFailed PROCEDURE(),long,DERIVED
_LoggingFirstTime      PROCEDURE(),DERIVED
_LoggingSetup          PROCEDURE(),DERIVED
_MakeCookies           PROCEDURE(),DERIVED
_ReadCookies           PROCEDURE(),DERIVED
_Release               PROCEDURE(long p_Count=-61),DERIVED
_ResetPage             PROCEDURE(),DERIVED
_SSLGetRemoteCertificate PROCEDURE(long p_Socket,long p_SockID,*long p_Closed),DERIVED
_SendCommand           PROCEDURE(),DERIVED
_SetServerResponse     PROCEDURE(),DERIVED
_TryOpen               PROCEDURE(),DERIVED
_UnChunk               PROCEDURE(*String pData,*Long pDataLen),DERIVED
_UnChunk               PROCEDURE(StringTheory pData),DERIVED
_Wait                  PROCEDURE(long p_Count=-60),DERIVED

! Start of "Class - New Method Declarations"
! [Priority 5000]

! End of "Class - New Method Declarations"
                     END

! Start of "Local Data After Object Declarations"
! [Priority 50]

! End of "Local Data After Object Declarations"

  CODE
  GlobalResponse = ThisWindow.Run()                        ! Opens the window and starts an Accept Loop
  GLO:oneInstance_SendWMCustomers_thread = 0

! Start of "Procedure Routines"
! [Priority 500]

!---------------------------------------------------------------------------
DefineListboxStyle ROUTINE
!|
!| This routine create all the styles to be shared in this window
!| It`s called after the window open
!|
! Start of "ListboxStyle Before Define"
! [Priority 5000]

! End of "ListboxStyle Before Define"
  ! Start of "ListboxStyle After Define"
  ! [Priority 5000]
  
  ! End of "ListboxStyle After Define"
!---------------------------------------------------------------------------
! [Priority 4000]
!Used by Load-Into-Structure
    !--------------------------------------------------------------------------------
    !-- Used by Load-Into-Structure
    !--------------------------------------------------------------------------------
jsonSWM.NewPointer     Procedure(String pColumnName)
                        ! note that pColumnName is the json tag name, not the label. case sensitive.
    Code
    Case pColumnName
    Of 'ServiceResults'
        wmcust_response.ServiceResults &= NEW ServiceResultsQueueType
    End

! End of "Procedure Routines"

ThisWindow.Ask PROCEDURE

! Start of "WindowManager Method Data Section"
! [Priority 5000]

! End of "WindowManager Method Data Section"
  CODE
  ! Start of "WindowManager Method Executable Code Section"
  ! [Priority 500]
  
  ! Parent Call
  PARENT.Ask
  ! [Priority 6300]
  
  ! End of "WindowManager Method Executable Code Section"


ThisWindow.ChangeAction PROCEDURE

ReturnValue          BYTE,AUTO

! Start of "WindowManager Method Data Section"
! [Priority 5000]

! End of "WindowManager Method Data Section"
  CODE
  ! Start of "WindowManager Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  ReturnValue = PARENT.ChangeAction()
  ! [Priority 7500]
  
  ! End of "WindowManager Method Executable Code Section"
  RETURN ReturnValue


ThisWindow.DeleteAction PROCEDURE

ReturnValue          BYTE,AUTO

! Start of "WindowManager Method Data Section"
! [Priority 5000]

! End of "WindowManager Method Data Section"
  CODE
  ! Start of "WindowManager Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  ReturnValue = PARENT.DeleteAction()
  ! [Priority 7500]
  
  ! End of "WindowManager Method Executable Code Section"
  RETURN ReturnValue


ThisWindow.Init PROCEDURE

ReturnValue          BYTE,AUTO

! Start of "WindowManager Method Data Section"
! [Priority 500]

! End of "WindowManager Method Data Section"
  CODE
  ! Start of "WindowManager Method Executable Code Section"
  ! [Priority 5]
  
    ! Start of "Before UltimateDebug Init"
    ! [Priority 5000]
    
    ! End of "Before UltimateDebug Init"
        udpt.Init(UD,'SendWMCustomers','wmSage008.clw','wmSage.EXE','08/05/2023 @ 01:12PM')    
    ! Start of "After UltimateDebug Init"
    ! [Priority 5000]
    
    ! End of "After UltimateDebug Init"
             
  ! [Priority 200]
  
  ! Enter procedure scope
  GlobalErrors.SetProcedureName('SendWMCustomers')
  ! [Priority 800]
  
  ! Snap-shot GlobalRequest
  SELF.Request = GlobalRequest                             ! Store the incoming request
  ! [Priority 4950]
  
  ! Parent Call
  ReturnValue = PARENT.Init()
  ! [Priority 5050]
  
  ! Set options from global values
  IF ReturnValue THEN RETURN ReturnValue.
  SELF.FirstField = ?Send
  SELF.VCRRequest &= VCRRequest
  SELF.Errors &= GlobalErrors                              ! Set this windows ErrorManager to the global ErrorManager
  ! [Priority 5300]
  
  ! BIND variables
  ! [Priority 5800]
  
  ! Initialize the procedure
  CLEAR(GlobalRequest)                                     ! Clear GlobalRequest after storing locally
  CLEAR(GlobalResponse)
  ! Setup Toolbar Object
  SELF.AddItem(Toolbar)
  ! [Priority 6300]
  
  ! Procedure setup standard formulas
  IF SELF.Request = SelectRecord
     SELF.AddItem(?Ok,RequestCancelled)                    ! Add the close control to the window manger
  ELSE
     SELF.AddItem(?Ok,RequestCompleted)                    ! Add the close control to the window manger
  END
  ! [Priority 7300]
  
  ! Open Files
  Relate:Settings.Open()                                   ! File Settings used by this procedure, so make sure it's RelationManager is open
  Relate:wmCust.Open()                                     ! File wmCust used by this procedure, so make sure it's RelationManager is open
  SELF.FilesOpened = True
  ! [Priority 7800]
  
  ! Open the window
  SELF.Open(QuickWindow)                                   ! Open window
  ! [Priority 8005]
  
  ! Setting LIST Line Height
                                               ! Generated by NetTalk Extension (Start)
  ! Start of "NetTalk Object Before Init Section"
  ! [Priority 5000]
  
  ! End of "NetTalk Object Before Init Section"
  ThisWebClient.SuppressErrorMsg = 1         ! No Object Generated Error Messages ! Generated by NetTalk Extension
  ThisWebClient.init()
  if ThisWebClient.error <> 0
    ! Put code in here to handle if the object does not initialise properly
    ! Start of "NetTalk Object Init Failed Section"
    ! [Priority 5000]
    
    ! End of "NetTalk Object Init Failed Section"
  end
  ! Start of "NetTalk Object After Init Section"
  ! [Priority 5000]
  
  ! End of "NetTalk Object After Init Section"
  ! [Priority 8032]
  
  ! Call ListBoxStyle Define Routine
  Do DefineListboxStyle
  Alert(AltKeyPressed)  ! WinEvent : These keys cause a program to crash on Windows 7 and Windows 10.
  Alert(F10Key)         !
  Alert(CtrlF10)        !
  Alert(ShiftF10)       !
  Alert(CtrlShiftF10)   !
  Alert(AltSpace)       !
  WinAlertMouseZoom()
  WinAlert(WE::WM_QueryEndSession,,Return1+PostUser)
  ! [Priority 8080]
  
  QuickWindow{Prop:Alrt,255} = CtrlShiftP
  ! [Priority 8180]
  
  ! Restore from INI file
  INIMgr.Fetch('SendWMCustomers',QuickWindow)              ! Restore window settings from non-volatile store
  ! [Priority 8400]
  
  ! Process field templates
  ! [Priority 8800]
  
  ! Prepare Alert Keys
  SELF.SetAlerts()
  ! [Priority 9500]
  
  ! End of "WindowManager Method Executable Code Section"
  RETURN ReturnValue


ThisWindow.InsertAction PROCEDURE

ReturnValue          BYTE,AUTO

! Start of "WindowManager Method Data Section"
! [Priority 5000]

! End of "WindowManager Method Data Section"
  CODE
  ! Start of "WindowManager Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  ReturnValue = PARENT.InsertAction()
  ! [Priority 7500]
  
  ! End of "WindowManager Method Executable Code Section"
  RETURN ReturnValue


ThisWindow.Kill PROCEDURE

ReturnValue          BYTE,AUTO

! Start of "WindowManager Method Data Section"
! [Priority 5000]

! End of "WindowManager Method Data Section"
  CODE
  ! Start of "WindowManager Method Executable Code Section"
  ! [Priority 500]
  
  ThisWebClient.Kill()                              ! Generated by NetTalk Extension
  ! [Priority 2002]
  
  If self.opened Then WinAlert().
  ! [Priority 3800]
  
  ! UNBIND variables
  ! [Priority 4800]
  
  ! Parent Call
  ReturnValue = PARENT.Kill()
  ! [Priority 5050]
  
  ! Short-stop if kill called already
  IF ReturnValue THEN RETURN ReturnValue.
  IF SELF.FilesOpened
  ! [Priority 5600]
  
  ! Call Close file methods
    Relate:Settings.Close()
    Relate:wmCust.Close()
  ! [Priority 6500]
  
  END
  ! [Priority 7300]
  
  ! Save window information
  IF SELF.Opened
    INIMgr.Update('SendWMCustomers',QuickWindow)           ! Save window data to non-volatile store
  END
  ! [Priority 8500]
  
  ! Leave procedure scope
  GlobalErrors.SetProcedureName
  ! [Priority 9700]
  
            
   
  ! [Priority 9999]
  
  ! End of "WindowManager Method Executable Code Section"
  RETURN ReturnValue


ThisWindow.OnCloseEventCancelled PROCEDURE

! Start of "WindowManager Method Data Section"
! [Priority 5000]

! End of "WindowManager Method Data Section"
  CODE
  ! Start of "WindowManager Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  PARENT.OnCloseEventCancelled
  ! [Priority 7500]
  
  ! End of "WindowManager Method Executable Code Section"


ThisWindow.Open PROCEDURE

! Start of "WindowManager Method Data Section"
! [Priority 5000]

! End of "WindowManager Method Data Section"
  CODE
  ! Start of "WindowManager Method Executable Code Section"
  ! [Priority 500]
  
  ! Parent Call
  PARENT.Open
  ! [Priority 6300]
  
  ! End of "WindowManager Method Executable Code Section"


ThisWindow.Open PROCEDURE(*Window pWindow,<*Window pOwner>)

! Start of "WindowManager Method Data Section"
! [Priority 5000]

! End of "WindowManager Method Data Section"
  CODE
  ! Start of "WindowManager Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  PARENT.Open(pWindow,pOwner)
  ! [Priority 7500]
  
  ! End of "WindowManager Method Executable Code Section"


ThisWindow.PrimeFields PROCEDURE

! Start of "WindowManager Method Data Section"
! [Priority 5000]

! End of "WindowManager Method Data Section"
  CODE
  ! Start of "WindowManager Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  PARENT.PrimeFields
  ! [Priority 7500]
  
  ! End of "WindowManager Method Executable Code Section"


ThisWindow.PrimeUpdate PROCEDURE

ReturnValue          BYTE,AUTO

! Start of "WindowManager Method Data Section"
! [Priority 5000]

! End of "WindowManager Method Data Section"
  CODE
  ! Start of "WindowManager Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  ReturnValue = PARENT.PrimeUpdate()
  ! [Priority 7500]
  
  ! End of "WindowManager Method Executable Code Section"
  RETURN ReturnValue


ThisWindow.Reset PROCEDURE(BYTE Force=0)

! Start of "WindowManager Method Data Section"
! [Priority 5000]

! End of "WindowManager Method Data Section"
  CODE
  ! Start of "WindowManager Method Executable Code Section"
  ! [Priority 500]
  
  ! Short-stop in AcceptAll case
  SELF.ForcedReset += Force
  IF QuickWindow{Prop:AcceptAll} THEN RETURN.
  ! [Priority 1500]
  
  ! Standard Formulas
  ! [Priority 2500]
  
  ! Secondary Lookups
  ! [Priority 3500]
  
  ! Parent Call
  PARENT.Reset(Force)
  ! [Priority 7500]
  
  ! End of "WindowManager Method Executable Code Section"


ThisWindow.RestoreField PROCEDURE(SIGNED Control)

! Start of "WindowManager Method Data Section"
! [Priority 5000]

! End of "WindowManager Method Data Section"
  CODE
  ! Start of "WindowManager Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  PARENT.RestoreField(Control)
  ! [Priority 7500]
  
  ! End of "WindowManager Method Executable Code Section"


ThisWindow.Run PROCEDURE

ReturnValue          BYTE,AUTO

! Start of "WindowManager Method Data Section"
! [Priority 5000]

! End of "WindowManager Method Data Section"
  CODE
  ! Start of "WindowManager Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  ReturnValue = PARENT.Run()
  ! [Priority 7500]
  
  ! End of "WindowManager Method Executable Code Section"
  RETURN ReturnValue


ThisWindow.Run PROCEDURE(USHORT Number,BYTE Request)

ReturnValue          BYTE,AUTO

! Start of "WindowManager Method Data Section"
! [Priority 5000]

! End of "WindowManager Method Data Section"
  CODE
  ! Start of "WindowManager Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  ReturnValue = PARENT.Run(Number,Request)
  ! [Priority 6000]
  
  ! End of "WindowManager Method Executable Code Section"
  RETURN ReturnValue


ThisWindow.SaveOnChangeAction PROCEDURE

ReturnValue          BYTE,AUTO

! Start of "WindowManager Method Data Section"
! [Priority 5000]

! End of "WindowManager Method Data Section"
  CODE
  ! Start of "WindowManager Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  ReturnValue = PARENT.SaveOnChangeAction()
  ! [Priority 7500]
  
  ! End of "WindowManager Method Executable Code Section"
  RETURN ReturnValue


ThisWindow.SaveOnInsertAction PROCEDURE

ReturnValue          BYTE,AUTO

! Start of "WindowManager Method Data Section"
! [Priority 5000]

! End of "WindowManager Method Data Section"
  CODE
  ! Start of "WindowManager Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  ReturnValue = PARENT.SaveOnInsertAction()
  ! [Priority 7500]
  
  ! End of "WindowManager Method Executable Code Section"
  RETURN ReturnValue


ThisWindow.SetAlerts PROCEDURE

! Start of "WindowManager Method Data Section"
! [Priority 5000]

! End of "WindowManager Method Data Section"
  CODE
  ! Start of "WindowManager Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  PARENT.SetAlerts
  ! [Priority 7500]
  
  ! End of "WindowManager Method Executable Code Section"


ThisWindow.SetResponse PROCEDURE(BYTE Response)

! Start of "WindowManager Method Data Section"
! [Priority 5000]

! End of "WindowManager Method Data Section"
  CODE
  ! Start of "WindowManager Method Executable Code Section"
  ! [Priority 1300]
  
  ! Parent Call
  PARENT.SetResponse(Response)
  ! [Priority 7500]
  
  ! End of "WindowManager Method Executable Code Section"


ThisWindow.TakeAccepted PROCEDURE

ReturnValue          BYTE,AUTO

! Start of "WindowManager Method Data Section"
! [Priority 3500]

Looped BYTE
! [Priority 8500]

! End of "WindowManager Method Data Section"
  CODE
  ! Start of "WindowManager Method Executable Code Section"
  ! [Priority 1300]
  
  ! Top of CYCLE/BREAK support
  LOOP                                                     ! This method receive all EVENT:Accepted's
    IF Looped
      RETURN Level:Notify
    ELSE
      Looped = 1
    END
  ! [Priority 2800]
  
  ! CASE ACCEPTED()
    CASE ACCEPTED()
    OF ?Send
      ! Start of "Control Event Handling"
      ! [Priority 2500]
        !// Submit the data
        dbg('>Send button')
        
        0{PROP:StatusText,1} = 'Reading data ...'
        WMStatusMessage = 'Reading data ...'
        utStart = fmt.ClarionToUnixDate(today(),clock())
        EstimateTime = 'Busy ...'
        SETCURSOR(CURSOR:Wait)
        DISPLAY()
        !CLEAR(qsgCustomer)
        Access:wmCust.Open()
        Access:wmCust.ClearKey(wmc:wmCoName)
        SET(wmc:wmCoName)
        glo:StopYN = False
        if Access:wmCust.TryOpen() = Level:Benign then ! wmCust
            SET(wmc:wmCoName) ! Order by Customer Name
            lngRecordCount = RECORDS(wmCust)
            dbg(lngRecordCount)
            i = 1
            lngUpdateCount = 0
            LOOP UNTIL Access:wmCust.TryNext() <> Level:Benign ! wmCust loop
                !
                i += 1
                if wmc:date_last >= glo:WatchImportDate then !    
                    loc:cus_guid                  = wmc:cus_guid               
                    loc:cust_no                   = wmc:cust_no                
                    loc:site                      = wmc:site                   
                    loc:type                      = wmc:type                   
                    loc:co_name                   = wmc:co_name                
                    loc:surname                   = wmc:surname                
                    loc:firstname                 = wmc:firstname              
                    loc:title                     = wmc:title                  
                    loc:lot_erf_no                = wmc:lot_erf_no             
                    loc:site_adr1                 = wmc:site_adr1              
                    loc:site_adr2                 = wmc:site_adr2              
                    loc:site_adr3                 = wmc:site_adr3              
                    loc:site_adr4                 = wmc:site_adr4              
                    !loc:route_info                = wmc:route_info             
                    !loc:code1                     = wmc:code1                  
                    !loc:ipaddr1                   = wmc:ipaddr1                
                    !loc:cross_ndx                 = wmc:cross_ndx              
                    !loc:ipaddr2                   = wmc:ipaddr2                
                    !loc:category                  = wmc:category               
                    !loc:equipment1                = wmc:equipment1             
                    !loc:panel1                    = wmc:panel1                 
                    !loc:equipment2                = wmc:equipment2             
                    !loc:panel2                    = wmc:panel2                 
                    !loc:keypad1                   = wmc:keypad1                
                    !loc:keypad2                   = wmc:keypad2                
                    !loc:keypad3                   = wmc:keypad3                
                    !loc:partitions_on             = wmc:partitions_on          
                    !loc:keybyptn                  = wmc:keybyptn               
                    !loc:equip_info1               = wmc:equip_info1            
                    !loc:equip_info2               = wmc:equip_info2            
                    !loc:equip_info3               = wmc:equip_info3            
                    !loc:equip_info4               = wmc:equip_info4            
                    !loc:equip_info5               = wmc:equip_info5            
                    !loc:equip_info6               = wmc:equip_info6            
                    !loc:equip_info7               = wmc:equip_info7            
                    !loc:batt_date                 = wmc:batt_date              
                    !loc:batt_type                 = wmc:batt_type              
                    !loc:batt_rating               = wmc:batt_rating            
                    !loc:batt_date2                = wmc:batt_date2             
                    !loc:batt_type2                = wmc:batt_type2             
                    !loc:batt_rating2              = wmc:batt_rating2           
                    loc:str_ndx                   = wmc:str_ndx                
                    !loc:longitude                 = wmc:longitude              
                    !loc:latitude                  = wmc:latitude               
                    !loc:gatecode                  = wmc:gatecode               
                    !loc:actn_mustphone            = wmc:actn_mustphone         
                    !loc:actn_nophone              = wmc:actn_nophone           
                    !loc:keyword                   = wmc:keyword                
                    !loc:keys                      = wmc:keys                   
                    !loc:gkeys                     = wmc:gkeys                  
                    !loc:password                  = wmc:password               
                    !loc:duress                    = wmc:duress                 
                    !loc:response_zone             = wmc:response_zone          
                    !loc:tt_auto                   = wmc:tt_auto                
                    !loc:ar_sitelimit              = wmc:ar_sitelimit           
                    !loc:ar_maxcalls               = wmc:ar_maxcalls            
                    !loc:map_ref                   = wmc:map_ref                
                    loc:invname                   = wmc:invname                
                    loc:inv_adr1                  = wmc:inv_adr1               
                    loc:inv_adr2                  = wmc:inv_adr2               
                    loc:postcode                  = wmc:postcode               
                    loc:addr_verified             = wmc:addr_verified          
                    loc:area_code                 = wmc:area_code              
                    !loc:mon_info                  = wmc:mon_info               
                    loc:acctperson                = wmc:acctperson             
                    loc:status                    = wmc:status                 
                    loc:printhist                 = wmc:printhist              
                    loc:last_chg                  = wmc:last_chg               
                    loc:user_code                 = wmc:user_code              
                    loc:date_inst                 = wmc:date_inst              
                    !loc:contract_date             = wmc:contract_date          
                    !loc:maint_date                = wmc:maint_date             
                    !loc:saidsa_date               = wmc:saidsa_date            
                    !loc:msg_valid                 = wmc:msg_valid              
                    !loc:temp1                     = wmc:temp1                  
                    !loc:temp2                     = wmc:temp2                  
                    !loc:temp3                     = wmc:temp3                  
                    !loc:temp4                     = wmc:temp4                  
                    !loc:temp5                     = wmc:temp5                  
                    !loc:temp6                     = wmc:temp6                  
                    !loc:tech_code                 = wmc:tech_code              
                    !loc:armed_res                 = wmc:armed_res              
                    !loc:test_24h_1                = wmc:test_24h_1             
                    !loc:h24_days_1                = wmc:h24_days_1             
                    !loc:h24_time_1                = wmc:h24_time_1             
                    !loc:test_24h_2                = wmc:test_24h_2             
                    !loc:h24_days_2                = wmc:h24_days_2             
                    !loc:h24_time_2                = wmc:h24_time_2             
                    !loc:alm_process               = wmc:alm_process            
                    !loc:ext_code                  = wmc:ext_code               
                    !loc:action_grp                = wmc:action_grp             
                    !loc:challenge                 = wmc:challenge              
                    !loc:weblink                   = wmc:weblink                
                    !loc:httpvideo                 = wmc:httpvideo              
                    !loc:httpport                  = wmc:httpport               
                    !loc:httpurl                   = wmc:httpurl                
                    !loc:httpuser                  = wmc:httpuser               
                    !loc:httppswd                  = wmc:httppswd               
                    !loc:httptmr                   = wmc:httptmr                
                    !loc:http_ie                   = wmc:http_ie                
                    !loc:uw_code                   = wmc:uw_code                
                    !loc:jobsenable                = wmc:jobsenable             
                    !loc:jobsorder                 = wmc:jobsorder              
                    !loc:jobsnolimit               = wmc:jobsnolimit            
                    !loc:dealer                    = wmc:dealer                 
                    !loc:consolidate               = wmc:consolidate            
                    !loc:owned                     = wmc:owned                  
                    !loc:debitorder                = wmc:debitorder             
                    !loc:bankname                  = wmc:bankname               
                    !loc:branchname                = wmc:branchname             
                    !loc:branchcode                = wmc:branchcode             
                    !loc:accountno                 = wmc:accountno              
                    !loc:acct_type                 = wmc:acct_type              
                    !loc:taxnumber                 = wmc:taxnumber              
                    !loc:next_bill                 = wmc:next_bill              
                    !loc:bill_freq                 = wmc:bill_freq              
                    !loc:stack_no                  = wmc:stack_no               
                    loc:db_comment1               = wmc:db_comment1            
                    loc:db_comment2               = wmc:db_comment2            
                    !loc:balance                   = wmc:balance                
                    !loc:current                   = wmc:current                
                    !loc:thirty                    = wmc:thirty                 
                    !loc:sixty                     = wmc:sixty                  
                    !loc:ninety                    = wmc:ninety                 
                    !loc:onetwenty                 = wmc:onetwenty              
                    !loc:storm_exclude             = wmc:storm_exclude          
                    !loc:tt_lat                    = wmc:tt_lat                 
                    !loc:tt_lng                    = wmc:tt_lng                 
                    !loc:airtime_calc1             = wmc:airtime_calc1          
                    !loc:airtime_calc2             = wmc:airtime_calc2          
                    !loc:airtime_bal1              = wmc:airtime_bal1           
                    !loc:airtime_bal2              = wmc:airtime_bal2           
                    loc:date_last                 = wmc:date_last              
                    loc:time_last                 = wmc:time_last              
                    !loc:logonly                   = wmc:logonly                
                    !loc:no_globalsms              = wmc:no_globalsms           
                    !loc:sms_maxdaily              = wmc:sms_maxdaily           
                    !loc:language                  = wmc:language               
                    !loc:res_bus                   = wmc:res_bus                
                    !loc:pref_comms                = wmc:pref_comms             
                    !loc:postaddrsite              = wmc:postaddrsite           
                    !loc:lsncustid                 = wmc:lsncustid              
                    !loc:date_sitetest             = wmc:date_sitetest          
                    !loc:test_keyholder            = wmc:test_keyholder         
                    !loc:notes                     = wmc:notes                  
                    loc:cus_sage_id               = wmc:cus_sage_id            
                    !loc:timestamp                 = wmc:timestamp              
                    !loc:servertimestamp           = wmc:servertimestamp        
                    loc:deletedtimestamp          = wmc:deletedtimestamp       
                    loc:deleted                   = wmc:deleted                
                    !loc:is_new                    = wmc:is_new             
                    stURL = clip(glo:WatchManagerURL) & 'wmdbwmcust?maxrecords=1&skiprecords=999999' 
                    stURL = AddURLItem('cus_guid',left(loc:cus_guid,20), stURL)
                    stURL = AddURLItem('cus_cust_no',left(loc:cust_no,10), stURL)
                    stURL = AddURLItem('cus_site',left(loc:site,4), stURL)
                    stURL = AddURLItem('cus_type',loc:type, stURL)        
                    stURL = AddURLItem('cus_co_name',left(loc:co_name ,50), stURL)
                    stURL = AddURLItem('cus_surname',left(loc:surname,25), stURL)
                    stURL = AddURLItem('cus_firstname',left(loc:firstname,20), stURL)
                    stURL = AddURLItem('cus_title',left(loc:title,15), stURL)
                    stURL = AddURLItem('cus_lot_erf_no',left(loc:lot_erf_no ,20), stURL)
                    stURL = AddURLItem('cus_site_adr1',left(loc:site_adr1,30), stURL)
                    stURL = AddURLItem('cus_site_adr2',left(loc:site_adr2,30), stURL)
                    stURL = AddURLItem('cus_site_adr3',left(loc:site_adr3,30), stURL)
                    stURL = AddURLItem('cus_site_adr4',left(loc:site_adr4,30), stURL)
                    stURL = AddURLItem('cus_str_ndx',left(loc:str_ndx,30), stURL)
                    stURL = AddURLItem('cus_invname',left(loc:invname ,45), stURL)
                    stURL = AddURLItem('cus_inv_adr1',left(loc:inv_adr1,30), stURL)
                    stURL = AddURLItem('cus_inv_adr2',left(loc:inv_adr2,30), stURL)
                    stURL = AddURLItem('cus_postcode',left(loc:postcode,25), stURL)
                    stURL = AddURLItem('cus_addr_verified',loc:addr_verified, stURL)
                    stURL = AddURLItem('cus_area_code',left(loc:area_code,4), stURL)
                    stURL = AddURLItem('cus_acctperson',left(loc:acctperson,30), stURL)
                    stURL = AddURLItem('cus_status',loc:status , stURL)
                    stURL = AddURLItem('cus_printhist',left(loc:printhist,3), stURL)       
                    stURL = AddURLItem('cus_last_chg',loc:last_chg, stURL)
                    stURL = AddURLItem('cus_user_code',left(loc:user_code,3), stURL)
                    stURL = AddURLItem('cus_db_comment1',left(loc:db_comment1,30), stURL)
                    stURL = AddURLItem('cus_db_comment2',left(loc:db_comment2,30), stURL)
                    stURL = AddURLItem('cus_sage_id',loc:cus_sage_id, stURL)
                    stURL = AddURLItem('cus_date_last',loc:date_last, stURL)
                    stURL = AddURLItem('cus_time_last',loc:time_last, stURL)
                    stURL = AddURLItem('cus_date_inst',loc:date_inst , stURL)
                    if loc:deleted = True then
                        stURL = AddURLItem('cus_deleted',loc:deleted , stURL)
                        stURL = AddURLItem('dts',loc:deletedtimestamp , stURL)
                    end
                    stURL = AddURLItem('wmcust_Action','updateinsert', stURL)
                    !dbg('URL=' & clip(stURL))
                    URL=clip(stURL)                   
                    lngUpdateCount = 1
                    lngLoopCount = i-1
                    BREAK
                end !
            END ! wmCust loop         
        end  ! sgCategory
        if lngUpdateCount = 1 then ! lngUpdateCount
            0{PROP:StatusText,1} = 'Connecting...'
            WMStatusMessage = 'Connecting ... ' & lngLoopCount
            SETCURSOR(CURSOR:Wait)
            DISPLAY()
            !do Options
            ThisWebClient.SetAllHeadersDefault() 
            ThisWebClient.HTTPVersion = 'HTTP/1.1'
            ThisWebClient.ContentType = 'application/x-www-form-urlencoded'
            !ThisWebClient.Accept_ = AcceptType
            ThisWebClient.CanUseProxy = False
            ThisWebClient.Pragma_ = 'No-Cache'     ! Force any proxies to not use their cache. Uses more bandwidth but will contact the webserver directly which is what we want.
            ThisWebClient.CacheControl = 'No-Cache'! Force any proxies to not use their cache. Uses more bandwidth but will contact the webserver directly which is what we want.
            ThisWebClient.AsyncOpenTimeOut = 1200    ! 12 seconds
            ThisWebClient.InActiveTimeout = 9000     ! 90 seconds
            ThisWebClient.HeaderOnly = 0             ! We want the whole page 
            !ThisWebClient.Authorization = ThisWebClient.CreateAuthorizationString (glo:UserName, glo:Password, Net:WebBasicAuthentication)        
            ThisWebClient.Get(clip(stURL))
        else ! lngUpdateCount
            WMStatusMessage = 'Nothing to update'
            DISPLAY()
        end ! lngUpdateCount
        dbg('<Send button ' & stURL)
      
      ! Generated Code
    OF ?Ok
      ! Start of "Control Event Handling"
      ! [Priority 2500]
      
      ! Generated Code
    OF ?Response
      ! Start of "Control Event Handling"
      ! [Priority 2500]
      
      ! Generated Code
    OF ?URL
      ! Start of "Control Event Handling"
      ! [Priority 2500]
      
      ! Generated Code
    OF ?glo:WatchImportDate
      ! Start of "Control Event Handling"
      ! [Priority 2500]
      
      ! Generated Code
    OF ?glo:WatchImportTime
      ! Start of "Control Event Handling"
      ! [Priority 2500]
      
      ! Generated Code
    OF ?btnReset
      ! Start of "Control Event Handling"
      ! [Priority 2500]
      
      ! Generated Code
    OF ?WMStatusMessage
      ! Start of "Control Event Handling"
      ! [Priority 2500]
      
      ! Generated Code
    OF ?EstimateTime
      ! Start of "Control Event Handling"
      ! [Priority 2500]
      
      ! Generated Code
    OF ?btnStop
      ! Start of "Control Event Handling"
      ! [Priority 4499]
      dbg('btnStop')
      glo:StopYN = True
      
      ! Generated Code
      ! End of "Control Event Handling"
  ! [Priority 3030]
  
  ! ELSE Clause
    ELSE
  ! [Priority 3080]
  
    END
  ! [Priority 4100]
  
  ! Parent Call
  ReturnValue = PARENT.TakeAccepted()
  ! [Priority 6300]
  
    CASE ACCEPTED()
    OF ?Send
      ThisWindow.Update()
      ! [Priority 8500]
      
    OF ?Ok
      ThisWindow.Update()
      ! [Priority 8500]
      
      ! End of "Control Event Handling"
    OF ?Response
      ! [Priority 8500]
      
      ! End of "Control Event Handling"
    OF ?URL
      ! [Priority 8500]
      
      ! End of "Control Event Handling"
    OF ?glo:WatchImportDate
      ! [Priority 8500]
      
      ! End of "Control Event Handling"
    OF ?glo:WatchImportTime
      ! [Priority 8500]
      
      ! End of "Control Event Handling"
    OF ?btnReset
      ThisWindow.Update()
      ! [Priority 8500]
      
      ! End of "Control Event Handling"
    OF ?WMStatusMessage
      ! [Priority 8500]
      
      ! End of "Control Event Handling"
    OF ?EstimateTime
      ! [Priority 8500]
      
      ! End of "Control Event Handling"
    OF ?btnStop
      ThisWindow.Update()
      ! [Priority 8500]
      
      ! End of "Control Event Handling"
    END
    ! Start of "Bottom of loop after CASE ACCEPTED()"
    ! [Priority 5000]
    
    ! End of "Bottom of loop after CASE ACCEPTED()"
    RETURN ReturnValue
  END
  ReturnValue = Level:Fatal
  ! [Priority 8800]
  
  ! End of "WindowManager Method Executable Code Section"
  RETURN ReturnValue


ThisWindow.TakeCloseEvent PROCEDURE

ReturnValue          BYTE,AUTO

! Start of "WindowManager Method Data Section"
! [Priority 5000]

! End of "WindowManager Method Data Section"
  CODE
  ! Start of "WindowManager Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  ReturnValue = PARENT.TakeCloseEvent()
  ! [Priority 7500]
  
  ! End of "WindowManager Method Executable Code Section"
  RETURN ReturnValue


ThisWindow.TakeCompleted PROCEDURE

ReturnValue          BYTE,AUTO

! Start of "WindowManager Method Data Section"
! [Priority 5000]

! End of "WindowManager Method Data Section"
  CODE
  ! Start of "WindowManager Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  ReturnValue = PARENT.TakeCompleted()
  ! [Priority 7500]
  
  ! End of "WindowManager Method Executable Code Section"
  RETURN ReturnValue


ThisWindow.TakeDisableButton PROCEDURE(SIGNED Control,BYTE MakeDisable)

! Start of "WindowManager Method Data Section"
! [Priority 5000]

! End of "WindowManager Method Data Section"
  CODE
  ! Start of "WindowManager Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  PARENT.TakeDisableButton(Control,MakeDisable)
  ! [Priority 7500]
  
  ! End of "WindowManager Method Executable Code Section"


ThisWindow.TakeEvent PROCEDURE

ReturnValue          BYTE,AUTO

! Start of "WindowManager Method Data Section"
! [Priority 3500]

Looped BYTE
! [Priority 8500]

! End of "WindowManager Method Data Section"
  CODE
  ! Start of "WindowManager Method Executable Code Section"
  ! [Priority 1300]
  
  ! Top of CYCLE/BREAK support
  LOOP                                                     ! This method receives all events
    IF Looped
      RETURN Level:Notify
    ELSE
      Looped = 1
    END
  ! [Priority 2520]
  
    ThisWebClient.TakeEvent()                 ! Generated by NetTalk Extension
  ! [Priority 3200]
  
  ! Parent Call
  ReturnValue = PARENT.TakeEvent()
  ! [Priority 5500]
  
  case Event() - WinMessageEvent
  of 0 ! WinMessageEvent
    ! Start of "WinAlert Message Processing"
    ! [Priority 5000]
    
    ! End of "WinAlert Message Processing"
  of 5502 ! WE::WM_SysCommand
    ! Start of "WinEvent Embeds"
    ! [Priority 5000]
    
    ! End of "WinEvent Embeds"
  of 5503 ! WE::WM_QueryEndSession
    ! Start of "WinEvent Embeds"
    ! [Priority 5000]
    
    ! End of "WinEvent Embeds"
  of 5504 ! WE::WM_EndSession Aborted
    ! Start of "WinEvent Embeds"
    ! [Priority 5000]
    
    ! End of "WinEvent Embeds"
  of 5505 ! WE::WM_EndSession Now!
    ! Start of "WinEvent Embeds"
    ! [Priority 5000]
    
    ! End of "WinEvent Embeds"
  of 5506 ! WE::WM_WTSSESSION_CHANGE
    ! Start of "WinEvent Embeds"
    ! [Priority 5000]
    
    ! End of "WinEvent Embeds"
  of 5507 ! SERVICE_CONTROL_SHUTDOWN
    ! Start of "WinEvent Embeds"
    ! [Priority 5000]
    
    ! End of "WinEvent Embeds"
  end
  If event() = event:VisibleOnDesktop !or event() = event:moved
    ds_VisibleOnDesktop()
  end
  ! [Priority 6200]
  
     IF KEYCODE()=CtrlShiftP AND EVENT() = Event:PreAlertKey
       CYCLE
     END
     IF KEYCODE()=CtrlShiftP  
        UD.ShowProcedureInfo('SendWMCustomers',UD.SetApplicationName('wmSage','EXE'),QuickWindow{PROP:Hlp},'08/04/2023 @ 07:06PM','08/05/2023 @ 01:12PM','08/05/2023 @ 01:12PM')  
    
       CYCLE
     END
  ! [Priority 6900]
  
  ! Bottom of CYCLE/BREAK support
    RETURN ReturnValue
  END
  ReturnValue = Level:Fatal
  ! [Priority 8800]
  
  ! End of "WindowManager Method Executable Code Section"
  RETURN ReturnValue


ThisWindow.TakeFieldEvent PROCEDURE

ReturnValue          BYTE,AUTO

! Start of "WindowManager Method Data Section"
! [Priority 3500]

Looped BYTE
! [Priority 8500]

! End of "WindowManager Method Data Section"
  CODE
  ! Start of "WindowManager Method Executable Code Section"
  ! [Priority 1300]
  
  LOOP                                                     ! This method receives all field specific events
    IF Looped
      RETURN Level:Notify
    ELSE
      Looped = 1
    END
  ! [Priority 2800]
  
  CASE FIELD()
  ! [Priority 3050]
  
  OF ?Send
    ! Start of "Control Handling"
    ! [Priority 500]
    
    CASE EVENT()
    ! [Priority 1800]
    
    OF EVENT:Selecting
      ! Start of "Control Event Handling"
      ! [Priority 2500]
      
      ! Generated Code
      ! End of "Control Event Handling"
    ELSE
    ! [Priority 2800]
    
    END
    ! [Priority 4000]
    
    ! Generated Code
  OF ?Ok
    ! Start of "Control Handling"
    ! [Priority 500]
    
    CASE EVENT()
    ! [Priority 1800]
    
    OF EVENT:Selecting
      ! Start of "Control Event Handling"
      ! [Priority 2500]
      
      ! Generated Code
      ! End of "Control Event Handling"
    ELSE
    ! [Priority 2800]
    
    END
    ! [Priority 4000]
    
    ! Generated Code
  OF ?Response
    ! Start of "Control Handling"
    ! [Priority 500]
    
    CASE EVENT()
    ! [Priority 1800]
    
    OF EVENT:Selecting
      ! Start of "Control Event Handling"
      ! [Priority 2500]
      
      ! Generated Code
      ! End of "Control Event Handling"
    ELSE
    ! [Priority 2800]
    
    END
    ! [Priority 4000]
    
    ! Generated Code
  OF ?URL
    ! Start of "Control Handling"
    ! [Priority 500]
    
    CASE EVENT()
    ! [Priority 1800]
    
    OF EVENT:Selecting
      ! Start of "Control Event Handling"
      ! [Priority 2500]
      
      ! Generated Code
      ! End of "Control Event Handling"
    ELSE
    ! [Priority 2800]
    
    END
    ! [Priority 4000]
    
    ! Generated Code
  OF ?PROMPT1
    ! Start of "Control Handling"
    ! [Priority 500]
    
    CASE EVENT()
    ! [Priority 1800]
    
    ELSE
    ! [Priority 2800]
    
    END
    ! [Priority 4000]
    
    ! Generated Code
  OF ?PROMPT3
    ! Start of "Control Handling"
    ! [Priority 500]
    
    CASE EVENT()
    ! [Priority 1800]
    
    ELSE
    ! [Priority 2800]
    
    END
    ! [Priority 4000]
    
    ! Generated Code
  OF ?glo:WatchImportDate
    ! Start of "Control Handling"
    ! [Priority 500]
    
    CASE EVENT()
    ! [Priority 1800]
    
    OF EVENT:Selecting
      ! Start of "Control Event Handling"
      ! [Priority 2500]
      
      ! Generated Code
      ! End of "Control Event Handling"
    ELSE
    ! [Priority 2800]
    
    END
    ! [Priority 4000]
    
    ! Generated Code
  OF ?glo:WatchImportTime
    ! Start of "Control Handling"
    ! [Priority 500]
    
    CASE EVENT()
    ! [Priority 1800]
    
    OF EVENT:Selecting
      ! Start of "Control Event Handling"
      ! [Priority 2500]
      
      ! Generated Code
      ! End of "Control Event Handling"
    ELSE
    ! [Priority 2800]
    
    END
    ! [Priority 4000]
    
    ! Generated Code
  OF ?btnReset
    ! Start of "Control Handling"
    ! [Priority 500]
    
    CASE EVENT()
    ! [Priority 1800]
    
    OF EVENT:Selecting
      ! Start of "Control Event Handling"
      ! [Priority 2500]
      
      ! Generated Code
      ! End of "Control Event Handling"
    ELSE
    ! [Priority 2800]
    
    END
    ! [Priority 4000]
    
    ! Generated Code
  OF ?WMStatusMessage
    ! Start of "Control Handling"
    ! [Priority 500]
    
    CASE EVENT()
    ! [Priority 1800]
    
    OF EVENT:Selecting
      ! Start of "Control Event Handling"
      ! [Priority 2500]
      
      ! Generated Code
      ! End of "Control Event Handling"
    ELSE
    ! [Priority 2800]
    
    END
    ! [Priority 4000]
    
    ! Generated Code
  OF ?EstimateTime
    ! Start of "Control Handling"
    ! [Priority 500]
    
    CASE EVENT()
    ! [Priority 1800]
    
    OF EVENT:Selecting
      ! Start of "Control Event Handling"
      ! [Priority 2500]
      
      ! Generated Code
      ! End of "Control Event Handling"
    ELSE
    ! [Priority 2800]
    
    END
    ! [Priority 4000]
    
    ! Generated Code
  OF ?btnStop
    ! Start of "Control Handling"
    ! [Priority 500]
    
    CASE EVENT()
    ! [Priority 1800]
    
    OF EVENT:Selecting
      ! Start of "Control Event Handling"
      ! [Priority 2500]
      
      ! Generated Code
      ! End of "Control Event Handling"
    ELSE
    ! [Priority 2800]
    
    END
    ! [Priority 4000]
    
    ! Generated Code
  END
  ! [Priority 4100]
  
  ! Parent Call
  ReturnValue = PARENT.TakeFieldEvent()
  ! [Priority 5500]
  
  CASE FIELD()
  ! [Priority 6050]
  
  OF ?Send
    CASE EVENT()
    ! [Priority 6800]
    
    OF EVENT:Selecting
      ! [Priority 5000]
      
    ELSE
    ! [Priority 7800]
    
    END
    ! [Priority 9000]
    
    ! End of "Control Handling"
  OF ?Ok
    CASE EVENT()
    ! [Priority 6800]
    
    OF EVENT:Selecting
      ! [Priority 5000]
      
    ELSE
    ! [Priority 7800]
    
    END
    ! [Priority 9000]
    
    ! End of "Control Handling"
  OF ?Response
    CASE EVENT()
    ! [Priority 6800]
    
    OF EVENT:Selecting
      ! [Priority 5000]
      
    ELSE
    ! [Priority 7800]
    
    END
    ! [Priority 9000]
    
    ! End of "Control Handling"
  OF ?URL
    CASE EVENT()
    ! [Priority 6800]
    
    OF EVENT:Selecting
      ! [Priority 5000]
      
    ELSE
    ! [Priority 7800]
    
    END
    ! [Priority 9000]
    
    ! End of "Control Handling"
  OF ?PROMPT1
    CASE EVENT()
    ! [Priority 6800]
    
    ELSE
    ! [Priority 7800]
    
    END
    ! [Priority 9000]
    
  OF ?PROMPT3
    CASE EVENT()
    ! [Priority 6800]
    
    ELSE
    ! [Priority 7800]
    
    END
    ! [Priority 9000]
    
    ! End of "Control Handling"
  OF ?glo:WatchImportDate
    CASE EVENT()
    ! [Priority 6800]
    
    OF EVENT:Selecting
      ! [Priority 5000]
      
    ELSE
    ! [Priority 7800]
    
    END
    ! [Priority 9000]
    
    ! End of "Control Handling"
  OF ?glo:WatchImportTime
    CASE EVENT()
    ! [Priority 6800]
    
    OF EVENT:Selecting
      ! [Priority 5000]
      
    ! End of "Control Handling"
    ELSE
    ! [Priority 7800]
    
    END
    ! [Priority 9000]
    
    ! End of "Control Handling"
  OF ?btnReset
    CASE EVENT()
    ! [Priority 6800]
    
    OF EVENT:Selecting
      ! [Priority 5000]
      
    ELSE
    ! [Priority 7800]
    
    END
    ! [Priority 9000]
    
    ! End of "Control Handling"
  OF ?WMStatusMessage
    CASE EVENT()
    ! [Priority 6800]
    
    OF EVENT:Selecting
      ! [Priority 5000]
      
    ELSE
    ! [Priority 7800]
    
    END
    ! [Priority 9000]
    
    ! End of "Control Handling"
  OF ?EstimateTime
    CASE EVENT()
    ! [Priority 6800]
    
    OF EVENT:Selecting
      ! [Priority 5000]
      
    ELSE
    ! [Priority 7800]
    
    END
    ! [Priority 9000]
    
    ! End of "Control Handling"
  OF ?btnStop
    CASE EVENT()
    ! [Priority 6800]
    
    OF EVENT:Selecting
      ! [Priority 5000]
      
    ELSE
    ! [Priority 7800]
    
    END
    ! [Priority 9000]
    
    ! End of "Control Handling"
  ! [Priority 6150]
  
  END
  ! [Priority 6900]
  
    RETURN ReturnValue
  END
  ReturnValue = Level:Fatal
  ! [Priority 8800]
  
  ! End of "WindowManager Method Executable Code Section"
  RETURN ReturnValue


ThisWindow.TakeNewSelection PROCEDURE

ReturnValue          BYTE,AUTO

! Start of "WindowManager Method Data Section"
! [Priority 3500]

Looped BYTE
! [Priority 8500]

! End of "WindowManager Method Data Section"
  CODE
  ! Start of "WindowManager Method Executable Code Section"
  ! [Priority 1300]
  
  LOOP                                                     ! This method receives all NewSelection events
    IF Looped
      RETURN Level:Notify
    ELSE
      Looped = 1
    END
  ! [Priority 2800]
  
  ! Parent Call
  ReturnValue = PARENT.TakeNewSelection()
  ! [Priority 6300]
  
    RETURN ReturnValue
  END
  ReturnValue = Level:Fatal
  ! [Priority 8800]
  
  ! End of "WindowManager Method Executable Code Section"
  RETURN ReturnValue


ThisWindow.TakeNotify PROCEDURE(UNSIGNED NotifyCode,SIGNED Thread,LONG Parameter)

ReturnValue          BYTE,AUTO

! Start of "WindowManager Method Data Section"
! [Priority 5000]

! End of "WindowManager Method Data Section"
  CODE
  ! Start of "WindowManager Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  ReturnValue = PARENT.TakeNotify(NotifyCode,Thread,Parameter)
  ! [Priority 7500]
  
  ! End of "WindowManager Method Executable Code Section"
  RETURN ReturnValue


ThisWindow.TakeRejected PROCEDURE

ReturnValue          BYTE,AUTO

! Start of "WindowManager Method Data Section"
! [Priority 3500]

Looped BYTE
! [Priority 8500]

! End of "WindowManager Method Data Section"
  CODE
  ! Start of "WindowManager Method Executable Code Section"
  ! [Priority 1300]
  
  LOOP                                                     ! This method receives all Rejected events
    IF Looped
      RETURN Level:Notify
    ELSE
      Looped = 1
    END
  ! [Priority 2800]
  
    CASE FIELD()
    OF ?URL
      ! Start of "Control Event Handling"
      ! [Priority 2500]
      
      ! Generated Code
    OF ?glo:WatchImportDate
      ! Start of "Control Event Handling"
      ! [Priority 2500]
      
      ! Generated Code
    OF ?glo:WatchImportTime
      ! Start of "Control Event Handling"
      ! [Priority 2500]
      
      ! Generated Code
    OF ?WMStatusMessage
      ! Start of "Control Event Handling"
      ! [Priority 2500]
      
      ! Generated Code
    OF ?EstimateTime
      ! Start of "Control Event Handling"
      ! [Priority 2500]
      
      ! Generated Code
    END
      ! End of "Control Event Handling"
  ! [Priority 4000]
  
  ! Parent Call
  ReturnValue = PARENT.TakeRejected()
  ! [Priority 6300]
  
    CASE FIELD()
    OF ?URL
      ! [Priority 5000]
      
    OF ?glo:WatchImportDate
      ! [Priority 5000]
      
      ! End of "Control Event Handling"
    OF ?glo:WatchImportTime
      ! [Priority 5000]
      
      ! End of "Control Event Handling"
    OF ?WMStatusMessage
      ! [Priority 5000]
      
      ! End of "Control Event Handling"
    OF ?EstimateTime
      ! [Priority 5000]
      
      ! End of "Control Event Handling"
    END
    RETURN ReturnValue
  END
  ReturnValue = Level:Fatal
  ! [Priority 8800]
  
  ! End of "WindowManager Method Executable Code Section"
  RETURN ReturnValue


ThisWindow.TakeSelected PROCEDURE

ReturnValue          BYTE,AUTO

! Start of "WindowManager Method Data Section"
! [Priority 3500]

Looped BYTE
! [Priority 8500]

! End of "WindowManager Method Data Section"
  CODE
  ! Start of "WindowManager Method Executable Code Section"
  ! [Priority 1300]
  
  LOOP                                                     ! This method receives all Selected events
    IF Looped
      RETURN Level:Notify
    ELSE
      Looped = 1
    END
  ! [Priority 2800]
  
    CASE FIELD()
    OF ?Send
      ! Start of "Control Event Handling"
      ! [Priority 2500]
      
      ! Generated Code
    OF ?Ok
      ! Start of "Control Event Handling"
      ! [Priority 2500]
      
      ! Generated Code
    OF ?Response
      ! Start of "Control Event Handling"
      ! [Priority 2500]
      
      ! Generated Code
    OF ?URL
      ! Start of "Control Event Handling"
      ! [Priority 2500]
      
      ! Generated Code
    OF ?glo:WatchImportDate
      ! Start of "Control Event Handling"
      ! [Priority 2500]
      
      ! Generated Code
    OF ?glo:WatchImportTime
      ! Start of "Control Event Handling"
      ! [Priority 2500]
      
      ! Generated Code
    OF ?btnReset
      ! Start of "Control Event Handling"
      ! [Priority 2500]
      
      ! Generated Code
    OF ?WMStatusMessage
      ! Start of "Control Event Handling"
      ! [Priority 2500]
      
      ! Generated Code
    OF ?EstimateTime
      ! Start of "Control Event Handling"
      ! [Priority 2500]
      
      ! Generated Code
    OF ?btnStop
      ! Start of "Control Event Handling"
      ! [Priority 2500]
      
      ! Generated Code
    END
      ! End of "Control Event Handling"
  ! [Priority 4000]
  
  ! Parent Call
  ReturnValue = PARENT.TakeSelected()
  ! [Priority 6300]
  
    CASE FIELD()
    OF ?Send
      ! [Priority 8500]
      
    OF ?Ok
      ! [Priority 8500]
      
      ! End of "Control Event Handling"
    OF ?Response
      ! [Priority 8500]
      
      ! End of "Control Event Handling"
    OF ?URL
      ! [Priority 8500]
      
      ! End of "Control Event Handling"
    OF ?glo:WatchImportDate
      ! [Priority 8500]
      
      ! End of "Control Event Handling"
    OF ?glo:WatchImportTime
      ! [Priority 8500]
      
      ! End of "Control Event Handling"
    OF ?btnReset
      ! [Priority 8500]
      
      ! End of "Control Event Handling"
    OF ?WMStatusMessage
      ! [Priority 8500]
      
      ! End of "Control Event Handling"
    OF ?EstimateTime
      ! [Priority 8500]
      
      ! End of "Control Event Handling"
    OF ?btnStop
      ! [Priority 8500]
      
      ! End of "Control Event Handling"
    END
    RETURN ReturnValue
  END
  ReturnValue = Level:Fatal
  ! [Priority 8800]
  
  ! End of "WindowManager Method Executable Code Section"
  RETURN ReturnValue


ThisWindow.TakeWindowEvent PROCEDURE

ReturnValue          BYTE,AUTO

! Start of "WindowManager Method Data Section"
! [Priority 3500]

Looped BYTE
! [Priority 8500]

! End of "WindowManager Method Data Section"
  CODE
  ! Start of "WindowManager Method Executable Code Section"
  ! [Priority 1300]
  
  ! Top of CYCLE/BREAK support
  LOOP                                                     ! This method receives all window specific events
    IF Looped
      RETURN Level:Notify
    ELSE
      Looped = 1
    END
    CASE EVENT()
  ! [Priority 2800]
  
  ! Handlers for each event
    OF EVENT:AlertKey
      ! Start of "Window Event Handling"
      ! [Priority 2500]
      
      ! Generated Code
    OF EVENT:CloseDown
      ! Start of "Window Event Handling"
      ! [Priority 1300]
      
      if WE::CantCloseNow
        WE::MustClose = 1
        cycle
      else
        self.CancelAction = cancel:cancel
        self.response = requestcancelled
      end
      ! [Priority 3800]
      
      ! Generated Code
    OF EVENT:CloseWindow
      ! Start of "Window Event Handling"
      ! [Priority 2500]
      
      ! Generated Code
    OF EVENT:Completed
      ! Start of "Window Event Handling"
      ! [Priority 2500]
      
      ! Generated Code
    OF EVENT:DoResize
      ! Start of "Window Event Handling"
      ! [Priority 2500]
      
      ! Generated Code
    OF EVENT:GainFocus
      ! Start of "Window Event Handling"
      ! [Priority 2500]
      
      ! Generated Code
    OF EVENT:Iconize
      ! Start of "Window Event Handling"
      ! [Priority 2500]
      
      ! Generated Code
    OF EVENT:Iconized
      ! Start of "Window Event Handling"
      ! [Priority 2500]
      
      ! Generated Code
    OF EVENT:LoseFocus
      ! Start of "Window Event Handling"
      ! [Priority 2500]
      
      ! Generated Code
    OF EVENT:Maximize
      ! Start of "Window Event Handling"
      ! [Priority 2500]
      
      ! Generated Code
    OF EVENT:Maximized
      ! Start of "Window Event Handling"
      ! [Priority 2500]
      
      ! Generated Code
    OF EVENT:Move
      ! Start of "Window Event Handling"
      ! [Priority 2500]
      
      ! Generated Code
    OF EVENT:Moved
      ! Start of "Window Event Handling"
      ! [Priority 2500]
      
      ! Generated Code
    OF EVENT:Notify
      ! Start of "Window Event Handling"
      ! [Priority 2500]
      
      ! Generated Code
    OF EVENT:OpenWindow
      ! Start of "Window Event Handling"
      ! [Priority 1300]
      
      ! [Priority 4499]
        !// Set the URL value
        dbg('>Open Window')
        !lngMaxRecords = 50   ! Don't fetch too much data at once
      !        lngSkipRecords = 0  ! We Haven't skipped any yet
        lngLoopCount = 0    ! not started yet
        lngRecordCount = 0
        EstimateTime = ''
        glo:StopYN = FALSE
        utStart = fmt.ClarionToUnixDate(today(),clock())
        URL = clip(glo:WatchManagerURL) !& '?wmcust_Action=get' 
      !        if (glo:WatchImportDate > 0) then ! Add in a filter
      !            URL = clip(URL) & '&FromLastChg=' & glo:WatchImportDate         
      !        end ! Filter        
      !        URL = clip(URL) & '&maxrecords=' & lngMaxRecords
      !        if lngSkipRecords > 0 then ! lngSkipRecords
      !            URL = clip(URL) & '&skiprecords=' & lngSkipRecords
      !        end ! lngSkipRecords
      !        dbg('URL=' & URL)
      !        WMStatusMessage = ''
      !        loc:WatchDate = glo:WatchImportDate
      !        loc:WatchTime = glo:WatchImportTime
        DISPLAY()
        dbg('<Open Window')
      
      ! Generated Code
    OF EVENT:PreAlertKey
      ! Start of "Window Event Handling"
      ! [Priority 2500]
      
      ! Generated Code
    OF EVENT:Restore
      ! Start of "Window Event Handling"
      ! [Priority 2500]
      
      ! Generated Code
    OF EVENT:Restored
      ! Start of "Window Event Handling"
      ! [Priority 2500]
      
      ! Generated Code
    OF EVENT:Size
      ! Start of "Window Event Handling"
      ! [Priority 2500]
      
      ! Generated Code
    OF EVENT:Sized
      ! Start of "Window Event Handling"
      ! [Priority 2500]
      
      ! Generated Code
    END
      ! End of "Window Event Handling"
  ! [Priority 4000]
  
  ! Parent Call
  ReturnValue = PARENT.TakeWindowEvent()
  ! [Priority 6300]
  
  ! CASE EVENT()
    CASE EVENT()
    OF EVENT:AlertKey
      ! [Priority 5000]
      
    OF EVENT:CloseDown
      ! [Priority 5000]
      
      ! End of "Window Event Handling"
    OF EVENT:CloseWindow
      ! [Priority 8900]
      
      ! End of "Window Event Handling"
    OF EVENT:Completed
      ! [Priority 5000]
      
      ! End of "Window Event Handling"
    OF EVENT:DoResize
      ! [Priority 5000]
      
      ! End of "Window Event Handling"
    OF EVENT:GainFocus
      ! [Priority 5000]
      
      ! End of "Window Event Handling"
    OF EVENT:Iconize
      ! [Priority 5000]
      
      ! End of "Window Event Handling"
    OF EVENT:Iconized
      ! [Priority 5000]
      
      ! End of "Window Event Handling"
    OF EVENT:LoseFocus
      ! [Priority 5000]
      
      ! End of "Window Event Handling"
    OF EVENT:Maximize
      ! [Priority 5000]
      
      ! End of "Window Event Handling"
    OF EVENT:Maximized
      ! [Priority 5000]
      
      ! End of "Window Event Handling"
    OF EVENT:Move
      ! [Priority 5000]
      
      ! End of "Window Event Handling"
    OF EVENT:Moved
      ! [Priority 5000]
      
      ! End of "Window Event Handling"
    OF EVENT:Notify
      ! [Priority 5000]
      
      ! End of "Window Event Handling"
    OF EVENT:OpenWindow
      ! [Priority 5000]
      
      ! End of "Window Event Handling"
        post(event:visibleondesktop)
    OF EVENT:PreAlertKey
      ! [Priority 5000]
      
      ! End of "Window Event Handling"
    OF EVENT:Restore
      ! [Priority 5000]
      
      ! End of "Window Event Handling"
    OF EVENT:Restored
      ! [Priority 5000]
      
      ! End of "Window Event Handling"
    OF EVENT:Size
      ! [Priority 5000]
      
      ! End of "Window Event Handling"
    OF EVENT:Sized
      ! [Priority 5000]
      
      ! End of "Window Event Handling"
  ! [Priority 7530]
  
  ! ELSE Clause
    ELSE
  ! [Priority 7580]
  
    END
  ! [Priority 7800]
  
  ! Bottom of CYCLE/BREAK support
    RETURN ReturnValue
  END
  ReturnValue = Level:Fatal
  ! [Priority 9000]
  
  ! End of "WindowManager Method Executable Code Section"
  RETURN ReturnValue


ThisWindow.Update PROCEDURE

! Start of "WindowManager Method Data Section"
! [Priority 5000]

! End of "WindowManager Method Data Section"
  CODE
  ! Start of "WindowManager Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  PARENT.Update
  ! [Priority 6300]
  
  ! Secondary Lookups
  ! [Priority 8800]
  
  ! End of "WindowManager Method Executable Code Section"


Toolbar.DisplayButtons PROCEDURE

! Start of "Toolbar Manager Method Data Section"
! [Priority 5000]

! End of "Toolbar Manager Method Data Section"
  CODE
  ! Start of "Toolbar Manager Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  PARENT.DisplayButtons
  ! [Priority 7500]
  
  ! End of "Toolbar Manager Method Executable Code Section"


Toolbar.Init PROCEDURE

! Start of "Toolbar Manager Method Data Section"
! [Priority 5000]

! End of "Toolbar Manager Method Data Section"
  CODE
  ! Start of "Toolbar Manager Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  PARENT.Init
  ! [Priority 7500]
  
  ! End of "Toolbar Manager Method Executable Code Section"


Toolbar.Kill PROCEDURE

! Start of "Toolbar Manager Method Data Section"
! [Priority 5000]

! End of "Toolbar Manager Method Data Section"
  CODE
  ! Start of "Toolbar Manager Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  PARENT.Kill
  ! [Priority 7500]
  
  ! End of "Toolbar Manager Method Executable Code Section"


Toolbar.TakeEvent PROCEDURE(<*LONG VCR>,WindowManager WM)

! Start of "Toolbar Manager Method Data Section"
! [Priority 5000]

! End of "Toolbar Manager Method Data Section"
  CODE
  ! Start of "Toolbar Manager Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  PARENT.TakeEvent(VCR,WM)
  ! [Priority 7500]
  
  ! End of "Toolbar Manager Method Executable Code Section"

! Start of "Local Procedures"
! [Priority 3500]


ThisWebClient.ANSIToUnicode PROCEDURE(long encoding=st:EncodeUtf16,ulong pCodePage=st:CP_US_ASCII)

! Start of "NetTalk Method Data Section"
! [Priority 5000]

! End of "NetTalk Method Data Section"

  CODE
  ! Start of "NetTalk Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  PARENT.ANSIToUnicode(encoding,pCodePage)
  ! [Priority 7500]
  
  ! End of "NetTalk Method Executable Code Section"

! Start of "NetTalk Method Routine Section"
! [Priority 5000]

! End of "NetTalk Method Routine Section"

ThisWebClient.Abort PROCEDURE

! Start of "NetTalk Method Data Section"
! [Priority 5000]

! End of "NetTalk Method Data Section"

  CODE
  ! Start of "NetTalk Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  PARENT.Abort
  ! [Priority 7500]
  
  ! End of "NetTalk Method Executable Code Section"

! Start of "NetTalk Method Routine Section"
! [Priority 5000]

! End of "NetTalk Method Routine Section"

ThisWebClient.AbortServerConnection PROCEDURE(ulong p_Socket,long p_SockID)

! Start of "NetTalk Method Data Section"
! [Priority 5000]

! End of "NetTalk Method Data Section"

  CODE
  ! Start of "NetTalk Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  PARENT.AbortServerConnection(p_Socket,p_SockID)
  ! [Priority 7500]
  
  ! End of "NetTalk Method Executable Code Section"

! Start of "NetTalk Method Routine Section"
! [Priority 5000]

! End of "NetTalk Method Routine Section"

ThisWebClient.Ban PROCEDURE(String p_Ip)

! Start of "NetTalk Method Data Section"
! [Priority 5000]

! End of "NetTalk Method Data Section"

  CODE
  ! Start of "NetTalk Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  PARENT.Ban(p_Ip)
  ! [Priority 7500]
  
  ! End of "NetTalk Method Executable Code Section"

! Start of "NetTalk Method Routine Section"
! [Priority 5000]

! End of "NetTalk Method Routine Section"

ThisWebClient.Base64Decode PROCEDURE(String p_Text)

ReturnValue          ANY

! Start of "NetTalk Method Data Section"
! [Priority 5000]

! End of "NetTalk Method Data Section"

  CODE
  ! Start of "NetTalk Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  ReturnValue = PARENT.Base64Decode(p_Text)
  ! [Priority 7500]
  
  ! End of "NetTalk Method Executable Code Section"
  RETURN ReturnValue

! Start of "NetTalk Method Routine Section"
! [Priority 5000]

! End of "NetTalk Method Routine Section"

ThisWebClient.Base64Encode PROCEDURE(String p_Text)

ReturnValue          ANY

! Start of "NetTalk Method Data Section"
! [Priority 5000]

! End of "NetTalk Method Data Section"

  CODE
  ! Start of "NetTalk Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  ReturnValue = PARENT.Base64Encode(p_Text)
  ! [Priority 7500]
  
  ! End of "NetTalk Method Executable Code Section"
  RETURN ReturnValue

! Start of "NetTalk Method Routine Section"
! [Priority 5000]

! End of "NetTalk Method Routine Section"

ThisWebClient.CheckIfChunkComplete PROCEDURE

ReturnValue          Long,AUTO

! Start of "NetTalk Method Data Section"
! [Priority 5000]

! End of "NetTalk Method Data Section"

  CODE
  ! Start of "NetTalk Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  ReturnValue = PARENT.CheckIfChunkComplete()
  ! [Priority 7500]
  
  ! End of "NetTalk Method Executable Code Section"
  RETURN ReturnValue

! Start of "NetTalk Method Routine Section"
! [Priority 5000]

! End of "NetTalk Method Routine Section"

ThisWebClient.ClarionToUnixDate PROCEDURE(Long p_Date,Long p_Time=0)

ReturnValue          Long,AUTO

! Start of "NetTalk Method Data Section"
! [Priority 5000]

! End of "NetTalk Method Data Section"

  CODE
  ! Start of "NetTalk Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  ReturnValue = PARENT.ClarionToUnixDate(p_Date,p_Time)
  ! [Priority 7500]
  
  ! End of "NetTalk Method Executable Code Section"
  RETURN ReturnValue

! Start of "NetTalk Method Routine Section"
! [Priority 5000]

! End of "NetTalk Method Routine Section"

ThisWebClient.ClearProxy PROCEDURE

! Start of "NetTalk Method Data Section"
! [Priority 5000]

! End of "NetTalk Method Data Section"

  CODE
  ! Start of "NetTalk Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  PARENT.ClearProxy
  ! [Priority 7500]
  
  ! End of "NetTalk Method Executable Code Section"

! Start of "NetTalk Method Routine Section"
! [Priority 5000]

! End of "NetTalk Method Routine Section"

ThisWebClient.Close PROCEDURE

! Start of "NetTalk Method Data Section"
! [Priority 5000]

! End of "NetTalk Method Data Section"

  CODE
  ! Start of "NetTalk Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  PARENT.Close
  ! [Priority 7500]
  
  ! End of "NetTalk Method Executable Code Section"

! Start of "NetTalk Method Routine Section"
! [Priority 5000]

! End of "NetTalk Method Routine Section"

ThisWebClient.CloseServerConnection PROCEDURE(ulong p_Socket,long p_SockID)

! Start of "NetTalk Method Data Section"
! [Priority 5000]

! End of "NetTalk Method Data Section"

  CODE
  ! Start of "NetTalk Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  PARENT.CloseServerConnection(p_Socket,p_SockID)
  ! [Priority 7500]
  
  ! End of "NetTalk Method Executable Code Section"

! Start of "NetTalk Method Routine Section"
! [Priority 5000]

! End of "NetTalk Method Routine Section"

ThisWebClient.CompleteURL PROCEDURE(StringTheory p_Url)

! Start of "NetTalk Method Data Section"
! [Priority 5000]

! End of "NetTalk Method Data Section"

  CODE
  ! Start of "NetTalk Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  PARENT.CompleteURL(p_Url)
  ! [Priority 7500]
  
  ! End of "NetTalk Method Executable Code Section"

! Start of "NetTalk Method Routine Section"
! [Priority 5000]

! End of "NetTalk Method Routine Section"

ThisWebClient.ConnectionClosed PROCEDURE

! Start of "NetTalk Method Data Section"
! [Priority 5000]

! End of "NetTalk Method Data Section"

  CODE
  ! Start of "NetTalk Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  PARENT.ConnectionClosed
  ! [Priority 7500]
  
  ! End of "NetTalk Method Executable Code Section"

! Start of "NetTalk Method Routine Section"
! [Priority 5000]

! End of "NetTalk Method Routine Section"

ThisWebClient.Construct PROCEDURE

! Start of "NetTalk Method Data Section"
! [Priority 5000]

! End of "NetTalk Method Data Section"

  CODE
  ! Start of "NetTalk Method Executable Code Section"
  ! [Priority 2500]
  
  ! End of "NetTalk Method Executable Code Section"

! Start of "NetTalk Method Routine Section"
! [Priority 5000]

! End of "NetTalk Method Routine Section"

ThisWebClient.CreateAuthorizationString PROCEDURE(string p_UserName,string p_Password,long p_AuthorizationMethod,long p_Options=0)

ReturnValue          ANY

! Start of "NetTalk Method Data Section"
! [Priority 5000]

! End of "NetTalk Method Data Section"

  CODE
  ! Start of "NetTalk Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  ReturnValue = PARENT.CreateAuthorizationString(p_UserName,p_Password,p_AuthorizationMethod,p_Options)
  ! [Priority 7500]
  
  ! End of "NetTalk Method Executable Code Section"
  RETURN ReturnValue

! Start of "NetTalk Method Routine Section"
! [Priority 5000]

! End of "NetTalk Method Routine Section"

ThisWebClient.CreateAuthorizationStringOAuth1 PROCEDURE(String pVerb,String pUrl,AuthParametersGroup pAuthParms)

ReturnValue          ANY

! Start of "NetTalk Method Data Section"
! [Priority 5000]

! End of "NetTalk Method Data Section"

  CODE
  ! Start of "NetTalk Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  ReturnValue = PARENT.CreateAuthorizationStringOAuth1(pVerb,pUrl,pAuthParms)
  ! [Priority 7500]
  
  ! End of "NetTalk Method Executable Code Section"
  RETURN ReturnValue

! Start of "NetTalk Method Routine Section"
! [Priority 5000]

! End of "NetTalk Method Routine Section"

ThisWebClient.CreateAuthorizationStringVapid PROCEDURE(String pAudience,String pSub,Long pExp,String pPrivateKey,String pPublicKey)

ReturnValue          ANY

! Start of "NetTalk Method Data Section"
! [Priority 5000]

! End of "NetTalk Method Data Section"

  CODE
  ! Start of "NetTalk Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  ReturnValue = PARENT.CreateAuthorizationStringVapid(pAudience,pSub,pExp,pPrivateKey,pPublicKey)
  ! [Priority 7500]
  
  ! End of "NetTalk Method Executable Code Section"
  RETURN ReturnValue

! Start of "NetTalk Method Routine Section"
! [Priority 5000]

! End of "NetTalk Method Routine Section"

ThisWebClient.CreateFolder PROCEDURE(String pFolder)

ReturnValue          Long,AUTO

! Start of "NetTalk Method Data Section"
! [Priority 5000]

! End of "NetTalk Method Data Section"

  CODE
  ! Start of "NetTalk Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  ReturnValue = PARENT.CreateFolder(pFolder)
  ! [Priority 7500]
  
  ! End of "NetTalk Method Executable Code Section"
  RETURN ReturnValue

! Start of "NetTalk Method Routine Section"
! [Priority 5000]

! End of "NetTalk Method Routine Section"

ThisWebClient.CreateGMTDate PROCEDURE(long p_Date=0,long p_Time=0)

ReturnValue          ANY

! Start of "NetTalk Method Data Section"
! [Priority 5000]

! End of "NetTalk Method Data Section"

  CODE
  ! Start of "NetTalk Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  ReturnValue = PARENT.CreateGMTDate(p_Date,p_Time)
  ! [Priority 7500]
  
  ! End of "NetTalk Method Executable Code Section"
  RETURN ReturnValue

! Start of "NetTalk Method Routine Section"
! [Priority 5000]

! End of "NetTalk Method Routine Section"

ThisWebClient.CreateUTCDate PROCEDURE(long p_Date=0,long p_Time=0)

ReturnValue          ANY

! Start of "NetTalk Method Data Section"
! [Priority 5000]

! End of "NetTalk Method Data Section"

  CODE
  ! Start of "NetTalk Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  ReturnValue = PARENT.CreateUTCDate(p_Date,p_Time)
  ! [Priority 7500]
  
  ! End of "NetTalk Method Executable Code Section"
  RETURN ReturnValue

! Start of "NetTalk Method Routine Section"
! [Priority 5000]

! End of "NetTalk Method Routine Section"

ThisWebClient.DecodeWebString PROCEDURE(string p_PostString)

ReturnValue          ANY

! Start of "NetTalk Method Data Section"
! [Priority 5000]

! End of "NetTalk Method Data Section"

  CODE
  ! Start of "NetTalk Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  ReturnValue = PARENT.DecodeWebString(p_PostString)
  ! [Priority 7500]
  
  ! End of "NetTalk Method Executable Code Section"
  RETURN ReturnValue

! Start of "NetTalk Method Routine Section"
! [Priority 5000]

! End of "NetTalk Method Routine Section"

ThisWebClient.DefaultPort PROCEDURE

ReturnValue          LONG,AUTO

! Start of "NetTalk Method Data Section"
! [Priority 5000]

! End of "NetTalk Method Data Section"

  CODE
  ! Start of "NetTalk Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  ReturnValue = PARENT.DefaultPort()
  ! [Priority 7500]
  
  ! End of "NetTalk Method Executable Code Section"
  RETURN ReturnValue

! Start of "NetTalk Method Routine Section"
! [Priority 5000]

! End of "NetTalk Method Routine Section"

ThisWebClient.Delete PROCEDURE(String p_Url)

! Start of "NetTalk Method Data Section"
! [Priority 5000]

! End of "NetTalk Method Data Section"

  CODE
  ! Start of "NetTalk Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  PARENT.Delete(p_Url)
  ! [Priority 7500]
  
  ! End of "NetTalk Method Executable Code Section"

! Start of "NetTalk Method Routine Section"
! [Priority 5000]

! End of "NetTalk Method Routine Section"

ThisWebClient.Delete PROCEDURE(String p_Url,String p_PostString)

! Start of "NetTalk Method Data Section"
! [Priority 5000]

! End of "NetTalk Method Data Section"

  CODE
  ! Start of "NetTalk Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  PARENT.Delete(p_Url,p_PostString)
  ! [Priority 7500]
  
  ! End of "NetTalk Method Executable Code Section"

! Start of "NetTalk Method Routine Section"
! [Priority 5000]

! End of "NetTalk Method Routine Section"

ThisWebClient.Delete PROCEDURE(String p_Url,StringTheory p_PostString)

! Start of "NetTalk Method Data Section"
! [Priority 5000]

! End of "NetTalk Method Data Section"

  CODE
  ! Start of "NetTalk Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  PARENT.Delete(p_Url,p_PostString)
  ! [Priority 7500]
  
  ! End of "NetTalk Method Executable Code Section"

! Start of "NetTalk Method Routine Section"
! [Priority 5000]

! End of "NetTalk Method Routine Section"

ThisWebClient.Delete PROCEDURE(StringTheory p_Url)

! Start of "NetTalk Method Data Section"
! [Priority 5000]

! End of "NetTalk Method Data Section"

  CODE
  ! Start of "NetTalk Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  PARENT.Delete(p_Url)
  ! [Priority 7500]
  
  ! End of "NetTalk Method Executable Code Section"

! Start of "NetTalk Method Routine Section"
! [Priority 5000]

! End of "NetTalk Method Routine Section"

ThisWebClient.Delete PROCEDURE(StringTheory p_Url,String p_PostString)

! Start of "NetTalk Method Data Section"
! [Priority 5000]

! End of "NetTalk Method Data Section"

  CODE
  ! Start of "NetTalk Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  PARENT.Delete(p_Url,p_PostString)
  ! [Priority 7500]
  
  ! End of "NetTalk Method Executable Code Section"

! Start of "NetTalk Method Routine Section"
! [Priority 5000]

! End of "NetTalk Method Routine Section"

ThisWebClient.Delete PROCEDURE(StringTheory p_Url,StringTheory p_PostString)

! Start of "NetTalk Method Data Section"
! [Priority 5000]

! End of "NetTalk Method Data Section"

  CODE
  ! Start of "NetTalk Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  PARENT.Delete(p_Url,p_PostString)
  ! [Priority 7500]
  
  ! End of "NetTalk Method Executable Code Section"

! Start of "NetTalk Method Routine Section"
! [Priority 5000]

! End of "NetTalk Method Routine Section"

ThisWebClient.DeleteCookie PROCEDURE(String p_Name)

! Start of "NetTalk Method Data Section"
! [Priority 5000]

! End of "NetTalk Method Data Section"

  CODE
  ! Start of "NetTalk Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  PARENT.DeleteCookie(p_Name)
  ! [Priority 7500]
  
  ! End of "NetTalk Method Executable Code Section"

! Start of "NetTalk Method Routine Section"
! [Priority 5000]

! End of "NetTalk Method Routine Section"

ThisWebClient.DeleteValue PROCEDURE(String pName)

! Start of "NetTalk Method Data Section"
! [Priority 5000]

! End of "NetTalk Method Data Section"

  CODE
  ! Start of "NetTalk Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  PARENT.DeleteValue(pName)
  ! [Priority 7500]
  
  ! End of "NetTalk Method Executable Code Section"

! Start of "NetTalk Method Routine Section"
! [Priority 5000]

! End of "NetTalk Method Routine Section"

ThisWebClient.Destruct PROCEDURE

! Start of "NetTalk Method Data Section"
! [Priority 5000]

! End of "NetTalk Method Data Section"

  CODE
  ! Start of "NetTalk Method Executable Code Section"
  ! [Priority 2500]
  
  ! End of "NetTalk Method Executable Code Section"

! Start of "NetTalk Method Routine Section"
! [Priority 5000]

! End of "NetTalk Method Routine Section"

ThisWebClient.DontSendCookie PROCEDURE(String p_name)

! Start of "NetTalk Method Data Section"
! [Priority 5000]

! End of "NetTalk Method Data Section"

  CODE
  ! Start of "NetTalk Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  PARENT.DontSendCookie(p_name)
  ! [Priority 7500]
  
  ! End of "NetTalk Method Executable Code Section"

! Start of "NetTalk Method Routine Section"
! [Priority 5000]

! End of "NetTalk Method Routine Section"

ThisWebClient.EncodeWebString PROCEDURE(string p_Text,Long p_Flags=0,Long p_Len=0)

ReturnValue          ANY

! Start of "NetTalk Method Data Section"
! [Priority 5000]

! End of "NetTalk Method Data Section"

  CODE
  ! Start of "NetTalk Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  ReturnValue = PARENT.EncodeWebString(p_Text,p_Flags,p_Len)
  ! [Priority 7500]
  
  ! End of "NetTalk Method Executable Code Section"
  RETURN ReturnValue

! Start of "NetTalk Method Routine Section"
! [Priority 5000]

! End of "NetTalk Method Routine Section"

ThisWebClient.EncodeWebStringLength PROCEDURE(string p_Text,Long p_Flags=0,Long p_Len=0)

ReturnValue          LONG,AUTO

! Start of "NetTalk Method Data Section"
! [Priority 5000]

! End of "NetTalk Method Data Section"

  CODE
  ! Start of "NetTalk Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  ReturnValue = PARENT.EncodeWebStringLength(p_Text,p_Flags,p_Len)
  ! [Priority 7500]
  
  ! End of "NetTalk Method Executable Code Section"
  RETURN ReturnValue

! Start of "NetTalk Method Routine Section"
! [Priority 5000]

! End of "NetTalk Method Routine Section"

ThisWebClient.ErrorTrap PROCEDURE(string errorStr,string functionName)

! Start of "NetTalk Method Data Section"
! [Priority 5000]

! End of "NetTalk Method Data Section"

  CODE
  ! Start of "NetTalk Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  PARENT.ErrorTrap(errorStr,functionName)
  ! [Priority 7500]
  
  ! End of "NetTalk Method Executable Code Section"

! Start of "NetTalk Method Routine Section"
! [Priority 5000]
    WMStatusMessage = 'Error!'
    EstimateTime = ''
    response = CLIP(errorStr)
    SETCURSOR()
    DISPLAY()

! End of "NetTalk Method Routine Section"

ThisWebClient.Fetch PROCEDURE(String p_Url)

! Start of "NetTalk Method Data Section"
! [Priority 5000]

! End of "NetTalk Method Data Section"

  CODE
  ! Start of "NetTalk Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  PARENT.Fetch(p_Url)
  ! [Priority 7500]
  
  ! End of "NetTalk Method Executable Code Section"

! Start of "NetTalk Method Routine Section"
! [Priority 5000]

! End of "NetTalk Method Routine Section"

ThisWebClient.Fetch PROCEDURE(StringTheory p_Url)

! Start of "NetTalk Method Data Section"
! [Priority 5000]

! End of "NetTalk Method Data Section"

  CODE
  ! Start of "NetTalk Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  PARENT.Fetch(p_Url)
  ! [Priority 7500]
  
  ! End of "NetTalk Method Executable Code Section"

! Start of "NetTalk Method Routine Section"
! [Priority 5000]

! End of "NetTalk Method Routine Section"

ThisWebClient.Free PROCEDURE

! Start of "NetTalk Method Data Section"
! [Priority 5000]

! End of "NetTalk Method Data Section"

  CODE
  ! Start of "NetTalk Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  PARENT.Free
  ! [Priority 7500]
  
  ! End of "NetTalk Method Executable Code Section"

! Start of "NetTalk Method Routine Section"
! [Priority 5000]

! End of "NetTalk Method Routine Section"

ThisWebClient.FreeCookies PROCEDURE

! Start of "NetTalk Method Data Section"
! [Priority 5000]

! End of "NetTalk Method Data Section"

  CODE
  ! Start of "NetTalk Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  PARENT.FreeCookies
  ! [Priority 7500]
  
  ! End of "NetTalk Method Executable Code Section"

! Start of "NetTalk Method Routine Section"
! [Priority 5000]

! End of "NetTalk Method Routine Section"

ThisWebClient.FreeFieldsQueue PROCEDURE

! Start of "NetTalk Method Data Section"
! [Priority 5000]

! End of "NetTalk Method Data Section"

  CODE
  ! Start of "NetTalk Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  PARENT.FreeFieldsQueue
  ! [Priority 7500]
  
  ! End of "NetTalk Method Executable Code Section"

! Start of "NetTalk Method Routine Section"
! [Priority 5000]

! End of "NetTalk Method Routine Section"

ThisWebClient.Get PROCEDURE(String p_Url)

! Start of "NetTalk Method Data Section"
! [Priority 5000]

! End of "NetTalk Method Data Section"

  CODE
  ! Start of "NetTalk Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  PARENT.Get(p_Url)
  ! [Priority 7500]
  
  ! End of "NetTalk Method Executable Code Section"

! Start of "NetTalk Method Routine Section"
! [Priority 5000]

! End of "NetTalk Method Routine Section"

ThisWebClient.Get PROCEDURE(String p_Url,String p_PostString)

! Start of "NetTalk Method Data Section"
! [Priority 5000]

! End of "NetTalk Method Data Section"

  CODE
  ! Start of "NetTalk Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  PARENT.Get(p_Url,p_PostString)
  ! [Priority 7500]
  
  ! End of "NetTalk Method Executable Code Section"

! Start of "NetTalk Method Routine Section"
! [Priority 5000]

! End of "NetTalk Method Routine Section"

ThisWebClient.Get PROCEDURE(String p_Url,StringTheory p_PostString)

! Start of "NetTalk Method Data Section"
! [Priority 5000]

! End of "NetTalk Method Data Section"

  CODE
  ! Start of "NetTalk Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  PARENT.Get(p_Url,p_PostString)
  ! [Priority 7500]
  
  ! End of "NetTalk Method Executable Code Section"

! Start of "NetTalk Method Routine Section"
! [Priority 5000]

! End of "NetTalk Method Routine Section"

ThisWebClient.Get PROCEDURE(StringTheory p_Url)

! Start of "NetTalk Method Data Section"
! [Priority 5000]

! End of "NetTalk Method Data Section"

  CODE
  ! Start of "NetTalk Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  PARENT.Get(p_Url)
  ! [Priority 7500]
  
  ! End of "NetTalk Method Executable Code Section"

! Start of "NetTalk Method Routine Section"
! [Priority 5000]

! End of "NetTalk Method Routine Section"

ThisWebClient.Get PROCEDURE(StringTheory p_Url,String p_PostString)

! Start of "NetTalk Method Data Section"
! [Priority 5000]

! End of "NetTalk Method Data Section"

  CODE
  ! Start of "NetTalk Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  PARENT.Get(p_Url,p_PostString)
  ! [Priority 7500]
  
  ! End of "NetTalk Method Executable Code Section"

! Start of "NetTalk Method Routine Section"
! [Priority 5000]

! End of "NetTalk Method Routine Section"

ThisWebClient.Get PROCEDURE(StringTheory p_Url,StringTheory p_PostString)

! Start of "NetTalk Method Data Section"
! [Priority 5000]

! End of "NetTalk Method Data Section"

  CODE
  ! Start of "NetTalk Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  PARENT.Get(p_Url,p_PostString)
  ! [Priority 7500]
  
  ! End of "NetTalk Method Executable Code Section"

! Start of "NetTalk Method Routine Section"
! [Priority 5000]

! End of "NetTalk Method Routine Section"

ThisWebClient.GetBanned PROCEDURE

ReturnValue          ANY

! Start of "NetTalk Method Data Section"
! [Priority 5000]

! End of "NetTalk Method Data Section"

  CODE
  ! Start of "NetTalk Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  ReturnValue = PARENT.GetBanned()
  ! [Priority 7500]
  
  ! End of "NetTalk Method Executable Code Section"
  RETURN ReturnValue

! Start of "NetTalk Method Routine Section"
! [Priority 5000]

! End of "NetTalk Method Routine Section"

ThisWebClient.GetContentType PROCEDURE(string p_FileName)

ReturnValue          ANY

! Start of "NetTalk Method Data Section"
! [Priority 5000]

! End of "NetTalk Method Data Section"

  CODE
  ! Start of "NetTalk Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  ReturnValue = PARENT.GetContentType(p_FileName)
  ! [Priority 7500]
  
  ! End of "NetTalk Method Executable Code Section"
  RETURN ReturnValue

! Start of "NetTalk Method Routine Section"
! [Priority 5000]

! End of "NetTalk Method Routine Section"

ThisWebClient.GetCookie PROCEDURE(String p_name)

ReturnValue          ANY

! Start of "NetTalk Method Data Section"
! [Priority 5000]

! End of "NetTalk Method Data Section"

  CODE
  ! Start of "NetTalk Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  ReturnValue = PARENT.GetCookie(p_name)
  ! [Priority 7500]
  
  ! End of "NetTalk Method Executable Code Section"
  RETURN ReturnValue

! Start of "NetTalk Method Routine Section"
! [Priority 5000]

! End of "NetTalk Method Routine Section"

ThisWebClient.GetElapsedTimeUTC PROCEDURE(Long pBaseDate=61730)

ReturnValue          Real,AUTO

! Start of "NetTalk Method Data Section"
! [Priority 5000]

! End of "NetTalk Method Data Section"

  CODE
  ! Start of "NetTalk Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  ReturnValue = PARENT.GetElapsedTimeUTC(pBaseDate)
  ! [Priority 7500]
  
  ! End of "NetTalk Method Executable Code Section"
  RETURN ReturnValue

! Start of "NetTalk Method Routine Section"
! [Priority 5000]

! End of "NetTalk Method Routine Section"

ThisWebClient.GetExeFolder PROCEDURE

ReturnValue          ANY

! Start of "NetTalk Method Data Section"
! [Priority 5000]

! End of "NetTalk Method Data Section"

  CODE
  ! Start of "NetTalk Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  ReturnValue = PARENT.GetExeFolder()
  ! [Priority 7500]
  
  ! End of "NetTalk Method Executable Code Section"
  RETURN ReturnValue

! Start of "NetTalk Method Routine Section"
! [Priority 5000]

! End of "NetTalk Method Routine Section"

ThisWebClient.GetHeaderField PROCEDURE(string p_Header,long p_count=1)

ReturnValue          ANY

! Start of "NetTalk Method Data Section"
! [Priority 5000]

! End of "NetTalk Method Data Section"

  CODE
  ! Start of "NetTalk Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  ReturnValue = PARENT.GetHeaderField(p_Header,p_count)
  ! [Priority 7500]
  
  ! End of "NetTalk Method Executable Code Section"
  RETURN ReturnValue

! Start of "NetTalk Method Routine Section"
! [Priority 5000]

! End of "NetTalk Method Routine Section"

ThisWebClient.GetHeaderField PROCEDURE(string p_SearchString,*string p_MainString,long p_StartPos=1,long p_EndPos=0,long p_CaseInSensitive=true)

ReturnValue          ANY

! Start of "NetTalk Method Data Section"
! [Priority 5000]

! End of "NetTalk Method Data Section"

  CODE
  ! Start of "NetTalk Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  ReturnValue = PARENT.GetHeaderField(p_SearchString,p_MainString,p_StartPos,p_EndPos,p_CaseInSensitive)
  ! [Priority 7500]
  
  ! End of "NetTalk Method Executable Code Section"
  RETURN ReturnValue

! Start of "NetTalk Method Routine Section"
! [Priority 5000]

! End of "NetTalk Method Routine Section"

ThisWebClient.GetHeaderField PROCEDURE(string p_SearchString,StringTheory p_MainString,long p_StartPos=1,long p_EndPos=0,long p_CaseInSensitive=true)

ReturnValue          ANY

! Start of "NetTalk Method Data Section"
! [Priority 5000]

! End of "NetTalk Method Data Section"

  CODE
  ! Start of "NetTalk Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  ReturnValue = PARENT.GetHeaderField(p_SearchString,p_MainString,p_StartPos,p_EndPos,p_CaseInSensitive)
  ! [Priority 7500]
  
  ! End of "NetTalk Method Executable Code Section"
  RETURN ReturnValue

! Start of "NetTalk Method Routine Section"
! [Priority 5000]

! End of "NetTalk Method Routine Section"

ThisWebClient.GetInfo PROCEDURE(long p_Options=1,long p_Socket=0,long p_SockId=0)

! Start of "NetTalk Method Data Section"
! [Priority 5000]

! End of "NetTalk Method Data Section"

  CODE
  ! Start of "NetTalk Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  PARENT.GetInfo(p_Options,p_Socket,p_SockId)
  ! [Priority 7500]
  
  ! End of "NetTalk Method Executable Code Section"

! Start of "NetTalk Method Routine Section"
! [Priority 5000]

! End of "NetTalk Method Routine Section"

ThisWebClient.GetValueFromWebString PROCEDURE(string p_VarName,string p_PostString)

ReturnValue          ANY

! Start of "NetTalk Method Data Section"
! [Priority 5000]

! End of "NetTalk Method Data Section"

  CODE
  ! Start of "NetTalk Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  ReturnValue = PARENT.GetValueFromWebString(p_VarName,p_PostString)
  ! [Priority 7500]
  
  ! End of "NetTalk Method Executable Code Section"
  RETURN ReturnValue

! Start of "NetTalk Method Routine Section"
! [Priority 5000]

! End of "NetTalk Method Routine Section"

ThisWebClient.GetVariableNameFromWebString PROCEDURE(long p_number,string p_string)

ReturnValue          ANY

! Start of "NetTalk Method Data Section"
! [Priority 5000]

! End of "NetTalk Method Data Section"

  CODE
  ! Start of "NetTalk Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  ReturnValue = PARENT.GetVariableNameFromWebString(p_number,p_string)
  ! [Priority 7500]
  
  ! End of "NetTalk Method Executable Code Section"
  RETURN ReturnValue

! Start of "NetTalk Method Routine Section"
! [Priority 5000]

! End of "NetTalk Method Routine Section"

ThisWebClient.HexToLong PROCEDURE(String p_Hex)

ReturnValue          LONG,AUTO

! Start of "NetTalk Method Data Section"
! [Priority 5000]

! End of "NetTalk Method Data Section"

  CODE
  ! Start of "NetTalk Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  ReturnValue = PARENT.HexToLong(p_Hex)
  ! [Priority 7500]
  
  ! End of "NetTalk Method Executable Code Section"
  RETURN ReturnValue

! Start of "NetTalk Method Routine Section"
! [Priority 5000]

! End of "NetTalk Method Routine Section"

ThisWebClient.Init PROCEDURE(uLong Mode=NET:SimpleClient)

! Start of "NetTalk Method Data Section"
! [Priority 5000]

! End of "NetTalk Method Data Section"

  CODE
  ! Start of "NetTalk Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  PARENT.Init(Mode)
  ! [Priority 7500]
  
  ! End of "NetTalk Method Executable Code Section"

! Start of "NetTalk Method Routine Section"
! [Priority 5000]

! End of "NetTalk Method Routine Section"

ThisWebClient.InterpretError PROCEDURE

ReturnValue          ANY

! Start of "NetTalk Method Data Section"
! [Priority 5000]

! End of "NetTalk Method Data Section"

  CODE
  ! Start of "NetTalk Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  ReturnValue = PARENT.InterpretError()
  ! [Priority 7500]
  
  ! End of "NetTalk Method Executable Code Section"
  RETURN ReturnValue

! Start of "NetTalk Method Routine Section"
! [Priority 5000]

! End of "NetTalk Method Routine Section"

ThisWebClient.IsBanned PROCEDURE(String p_Ip)

ReturnValue          Long,AUTO

! Start of "NetTalk Method Data Section"
! [Priority 5000]

! End of "NetTalk Method Data Section"

  CODE
  ! Start of "NetTalk Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  ReturnValue = PARENT.IsBanned(p_Ip)
  ! [Priority 7500]
  
  ! End of "NetTalk Method Executable Code Section"
  RETURN ReturnValue

! Start of "NetTalk Method Routine Section"
! [Priority 5000]

! End of "NetTalk Method Routine Section"

ThisWebClient.Kill PROCEDURE

! Start of "NetTalk Method Data Section"
! [Priority 5000]

! End of "NetTalk Method Data Section"

  CODE
  ! Start of "NetTalk Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  PARENT.Kill
  ! [Priority 7500]
  
  ! End of "NetTalk Method Executable Code Section"

! Start of "NetTalk Method Routine Section"
! [Priority 5000]

! End of "NetTalk Method Routine Section"

ThisWebClient.LoadCookies PROCEDURE(String pFileName)

! Start of "NetTalk Method Data Section"
! [Priority 5000]

! End of "NetTalk Method Data Section"

  CODE
  ! Start of "NetTalk Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  PARENT.LoadCookies(pFileName)
  ! [Priority 7500]
  
  ! End of "NetTalk Method Executable Code Section"

! Start of "NetTalk Method Routine Section"
! [Priority 5000]

! End of "NetTalk Method Routine Section"

ThisWebClient.Log PROCEDURE(string p_FunctionName,string p_LogString,long p_ErrorType=0)

! Start of "NetTalk Method Data Section"
! [Priority 5000]

! End of "NetTalk Method Data Section"

  CODE
  ! Start of "NetTalk Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  PARENT.Log(p_FunctionName,p_LogString,p_ErrorType)
  ! [Priority 7500]
  
  ! End of "NetTalk Method Executable Code Section"

! Start of "NetTalk Method Routine Section"
! [Priority 5000]

! End of "NetTalk Method Routine Section"

ThisWebClient.LongToHex PROCEDURE(Long p_Long)

ReturnValue          ANY

! Start of "NetTalk Method Data Section"
! [Priority 5000]

! End of "NetTalk Method Data Section"

  CODE
  ! Start of "NetTalk Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  ReturnValue = PARENT.LongToHex(p_Long)
  ! [Priority 7500]
  
  ! End of "NetTalk Method Executable Code Section"
  RETURN ReturnValue

! Start of "NetTalk Method Routine Section"
! [Priority 5000]

! End of "NetTalk Method Routine Section"

ThisWebClient.MakeGetString PROCEDURE

! Start of "NetTalk Method Data Section"
! [Priority 5000]

! End of "NetTalk Method Data Section"

  CODE
  ! Start of "NetTalk Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  PARENT.MakeGetString
  ! [Priority 7500]
  
  ! End of "NetTalk Method Executable Code Section"

! Start of "NetTalk Method Routine Section"
! [Priority 5000]

! End of "NetTalk Method Routine Section"

ThisWebClient.MakePostString PROCEDURE

! Start of "NetTalk Method Data Section"
! [Priority 5000]

! End of "NetTalk Method Data Section"

  CODE
  ! Start of "NetTalk Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  PARENT.MakePostString
  ! [Priority 7500]
  
  ! End of "NetTalk Method Executable Code Section"

! Start of "NetTalk Method Routine Section"
! [Priority 5000]

! End of "NetTalk Method Routine Section"

ThisWebClient.MatchSubjectWithURL PROCEDURE(String p_CertName,String p_Server)

ReturnValue          long,AUTO

! Start of "NetTalk Method Data Section"
! [Priority 5000]

! End of "NetTalk Method Data Section"

  CODE
  ! Start of "NetTalk Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  ReturnValue = PARENT.MatchSubjectWithURL(p_CertName,p_Server)
  ! [Priority 7500]
  
  ! End of "NetTalk Method Executable Code Section"
  RETURN ReturnValue

! Start of "NetTalk Method Routine Section"
! [Priority 5000]

! End of "NetTalk Method Routine Section"

ThisWebClient.NormalizeURL PROCEDURE(String pURL)

ReturnValue          ANY

! Start of "NetTalk Method Data Section"
! [Priority 5000]

! End of "NetTalk Method Data Section"

  CODE
  ! Start of "NetTalk Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  ReturnValue = PARENT.NormalizeURL(pURL)
  ! [Priority 7500]
  
  ! End of "NetTalk Method Executable Code Section"
  RETURN ReturnValue

! Start of "NetTalk Method Routine Section"
! [Priority 5000]

! End of "NetTalk Method Routine Section"

ThisWebClient.NormalizeURL PROCEDURE(StringTheory pURL)

! Start of "NetTalk Method Data Section"
! [Priority 5000]

! End of "NetTalk Method Data Section"

  CODE
  ! Start of "NetTalk Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  PARENT.NormalizeURL(pURL)
  ! [Priority 7500]
  
  ! End of "NetTalk Method Executable Code Section"

! Start of "NetTalk Method Routine Section"
! [Priority 5000]

! End of "NetTalk Method Routine Section"

ThisWebClient.Open PROCEDURE(string Server,uShort Port=0)

! Start of "NetTalk Method Data Section"
! [Priority 5000]

! End of "NetTalk Method Data Section"

  CODE
  ! Start of "NetTalk Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  PARENT.Open(Server,Port)
  ! [Priority 7500]
  
  ! End of "NetTalk Method Executable Code Section"

! Start of "NetTalk Method Routine Section"
! [Priority 5000]

! End of "NetTalk Method Routine Section"

ThisWebClient.Options PROCEDURE(String p_Url)

! Start of "NetTalk Method Data Section"
! [Priority 5000]

! End of "NetTalk Method Data Section"

  CODE
  ! Start of "NetTalk Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  PARENT.Options(p_Url)
  ! [Priority 7500]
  
  ! End of "NetTalk Method Executable Code Section"

! Start of "NetTalk Method Routine Section"
! [Priority 5000]

! End of "NetTalk Method Routine Section"

ThisWebClient.Options PROCEDURE(StringTheory p_Url)

! Start of "NetTalk Method Data Section"
! [Priority 5000]

! End of "NetTalk Method Data Section"

  CODE
  ! Start of "NetTalk Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  PARENT.Options(p_Url)
  ! [Priority 7500]
  
  ! End of "NetTalk Method Executable Code Section"

! Start of "NetTalk Method Routine Section"
! [Priority 5000]

! End of "NetTalk Method Routine Section"

ThisWebClient.PageReceived PROCEDURE

! Start of "NetTalk Method Data Section"
! [Priority 5000]

n                               LONG

! End of "NetTalk Method Data Section"

  CODE
  ! Start of "NetTalk Method Executable Code Section"
  ! [Priority 2500]
    !//Process the received data
    dbg('>Page PageReceived')
    dbg (lngLoopCount & ' Downloaded ' & ThisWebClient.ThisPage.Length() & ' bytes<13,10>')
    WMStatusMessage = 'Downloaded ' & ThisWebClient.ThisPage.Length() & ' bytes'
    0{PROP:StatusText,1} = 'Downloaded ' & ThisWebClient.ThisPage.Length() & ' bytes'
    DISPLAY()
    utNow = fmt.ClarionToUnixDate(today(),clock())
    if ThisWebClient.ThisPage.Length() > 0
        !        ! Revised to show start of page rather then end of page, tell how big things are, and remind to use Save Page to file
        !        !if ThisWebClient.ThisPage.Length() <= size(response)  !was 30000
        !        CLEAR(wmcust_response.wmcust)
        ThisWebClient.TextOnly()
        st.SetValue(ThisWebClient.ThisPage) !
        st.Replace('<9>',' ')
        dbg('response=' & st.getvalue())
        !        !st.Replace('<9>',' ')
        response = st.getvalue()
        WMStatusMessage = 'Record ' & lngLoopCount & '/' & lngRecordCount
        DISPLAY()
        !SLEEP(5)
        !-- Load From StringTheory object into Structure---
          jsonSWM.start()
          jsonSWM.SetTagCase(jf:CaseAsIs)
          jsonSWM.Load(wmcust_response,st,'wmcust_response') ! Load From a StringTheory object        
        if clip(wmcust_response.serviceresults.RESULTDESCRIPTION) <> 'success' then ! success
            lngUpdateCount -= 1
        end ! success
        if lngLoopCount > 10 then ! loopCount
            utLoopCount = lngLoopCount
            utEstimate = utStart + ((utNow - utStart) / utLoopCount) * lngRecordCount
            !dbg('utEstimate=' & utEstimate)
            EstimateTime = fmt.FormatValue(utEstimate,'@U2_@D10-@T4')
            dbg('EstimateTime=' & EstimateTime)
        end ! loopCount
    else
        response = 'Nothing received.'
        WMStatusMessage = clip(response)
        EstimateTime = ''
        SETCURSOR()
    end   
    DISPLAY()    
  
  ! Parent Call
  PARENT.PageReceived
  ! [Priority 7500]
  
    if (ThisWebClient.ThisPage.Length() > 0) and (glo:StopYN = False) then ! Length
        !SLEEP(250)
        IF SUB(response,1,1) = '{' THEN ! JSON
            !
            !// See if there are any more records to send
            !
            if lngLoopCount < lngRecordCount then ! Try again
                dbg('Old Loop Count:' & lngLoopCount)
                if Access:wmCust.TryOpen() = Level:Benign then ! wmCust
                    SET(wmc:wmCoName) ! Order by wmc:co_name Customer Name
                    i = 1
                    LOOP UNTIL Access:wmCust.TryNext() <> Level:Benign ! wmCust loop
                        !
                        i += 1
                        dbg('i=' & i)
                        if (i > (lngLoopCount+1)) and (wmc:date_last >= glo:WatchImportDate) then !    
                            loc:cus_guid                  = wmc:cus_guid               
                            loc:cust_no                   = wmc:cust_no                
                            loc:site                      = wmc:site                   
                            loc:type                      = wmc:type                   
                            loc:co_name                   = wmc:co_name                
                            loc:surname                   = wmc:surname                
                            loc:firstname                 = wmc:firstname              
                            loc:title                     = wmc:title                  
                            loc:lot_erf_no                = wmc:lot_erf_no             
                            loc:site_adr1                 = wmc:site_adr1              
                            loc:site_adr2                 = wmc:site_adr2              
                            loc:site_adr3                 = wmc:site_adr3              
                            loc:site_adr4                 = wmc:site_adr4              
                            !loc:route_info                = wmc:route_info             
                            !loc:code1                     = wmc:code1                  
                            !loc:ipaddr1                   = wmc:ipaddr1                
                            !loc:cross_ndx                 = wmc:cross_ndx              
                            !loc:ipaddr2                   = wmc:ipaddr2                
                            !loc:category                  = wmc:category               
                            !loc:equipment1                = wmc:equipment1             
                            !loc:panel1                    = wmc:panel1                 
                            !loc:equipment2                = wmc:equipment2             
                            !loc:panel2                    = wmc:panel2                 
                            !loc:keypad1                   = wmc:keypad1                
                            !loc:keypad2                   = wmc:keypad2                
                            !loc:keypad3                   = wmc:keypad3                
                            !loc:partitions_on             = wmc:partitions_on          
                            !loc:keybyptn                  = wmc:keybyptn               
                            !loc:equip_info1               = wmc:equip_info1            
                            !loc:equip_info2               = wmc:equip_info2            
                            !loc:equip_info3               = wmc:equip_info3            
                            !loc:equip_info4               = wmc:equip_info4            
                            !loc:equip_info5               = wmc:equip_info5            
                            !loc:equip_info6               = wmc:equip_info6            
                            !loc:equip_info7               = wmc:equip_info7            
                            !loc:batt_date                 = wmc:batt_date              
                            !loc:batt_type                 = wmc:batt_type              
                            !loc:batt_rating               = wmc:batt_rating            
                            !loc:batt_date2                = wmc:batt_date2             
                            !loc:batt_type2                = wmc:batt_type2             
                            !loc:batt_rating2              = wmc:batt_rating2           
                            loc:str_ndx                   = wmc:str_ndx                
                            !loc:longitude                 = wmc:longitude              
                            !loc:latitude                  = wmc:latitude               
                            !loc:gatecode                  = wmc:gatecode               
                            !loc:actn_mustphone            = wmc:actn_mustphone         
                            !loc:actn_nophone              = wmc:actn_nophone           
                            !loc:keyword                   = wmc:keyword                
                            !loc:keys                      = wmc:keys                   
                            !loc:gkeys                     = wmc:gkeys                  
                            !loc:password                  = wmc:password               
                            !loc:duress                    = wmc:duress                 
                            !loc:response_zone             = wmc:response_zone          
                            !loc:tt_auto                   = wmc:tt_auto                
                            !loc:ar_sitelimit              = wmc:ar_sitelimit           
                            !loc:ar_maxcalls               = wmc:ar_maxcalls            
                            !loc:map_ref                   = wmc:map_ref                
                            loc:invname                   = wmc:invname                
                            loc:inv_adr1                  = wmc:inv_adr1               
                            loc:inv_adr2                  = wmc:inv_adr2               
                            loc:postcode                  = wmc:postcode               
                            loc:addr_verified             = wmc:addr_verified          
                            loc:area_code                 = wmc:area_code              
                            !loc:mon_info                  = wmc:mon_info               
                            loc:acctperson                = wmc:acctperson             
                            loc:status                    = wmc:status                 
                            loc:printhist                 = wmc:printhist              
                            loc:last_chg                  = wmc:last_chg               
                            loc:user_code                 = wmc:user_code              
                            loc:date_inst                 = wmc:date_inst              
                            !loc:contract_date             = wmc:contract_date          
                            !loc:maint_date                = wmc:maint_date             
                            !loc:saidsa_date               = wmc:saidsa_date            
                            !loc:msg_valid                 = wmc:msg_valid              
                            !loc:temp1                     = wmc:temp1                  
                            !loc:temp2                     = wmc:temp2                  
                            !loc:temp3                     = wmc:temp3                  
                            !loc:temp4                     = wmc:temp4                  
                            !loc:temp5                     = wmc:temp5                  
                            !loc:temp6                     = wmc:temp6                  
                            !loc:tech_code                 = wmc:tech_code              
                            !loc:armed_res                 = wmc:armed_res              
                            !loc:test_24h_1                = wmc:test_24h_1             
                            !loc:h24_days_1                = wmc:h24_days_1             
                            !loc:h24_time_1                = wmc:h24_time_1             
                            !loc:test_24h_2                = wmc:test_24h_2             
                            !loc:h24_days_2                = wmc:h24_days_2             
                            !loc:h24_time_2                = wmc:h24_time_2             
                            !loc:alm_process               = wmc:alm_process            
                            !loc:ext_code                  = wmc:ext_code               
                            !loc:action_grp                = wmc:action_grp             
                            !loc:challenge                 = wmc:challenge              
                            !loc:weblink                   = wmc:weblink                
                            !loc:httpvideo                 = wmc:httpvideo              
                            !loc:httpport                  = wmc:httpport               
                            !loc:httpurl                   = wmc:httpurl                
                            !loc:httpuser                  = wmc:httpuser               
                            !loc:httppswd                  = wmc:httppswd               
                            !loc:httptmr                   = wmc:httptmr                
                            !loc:http_ie                   = wmc:http_ie                
                            !loc:uw_code                   = wmc:uw_code                
                            !loc:jobsenable                = wmc:jobsenable             
                            !loc:jobsorder                 = wmc:jobsorder              
                            !loc:jobsnolimit               = wmc:jobsnolimit            
                            !loc:dealer                    = wmc:dealer                 
                            !loc:consolidate               = wmc:consolidate            
                            !loc:owned                     = wmc:owned                  
                            !loc:debitorder                = wmc:debitorder             
                            !loc:bankname                  = wmc:bankname               
                            !loc:branchname                = wmc:branchname             
                            !loc:branchcode                = wmc:branchcode             
                            !loc:accountno                 = wmc:accountno              
                            !loc:acct_type                 = wmc:acct_type              
                            !loc:taxnumber                 = wmc:taxnumber              
                            !loc:next_bill                 = wmc:next_bill              
                            !loc:bill_freq                 = wmc:bill_freq              
                            !loc:stack_no                  = wmc:stack_no               
                            loc:db_comment1               = wmc:db_comment1            
                            loc:db_comment2               = wmc:db_comment2            
                            !loc:balance                   = wmc:balance                
                            !loc:current                   = wmc:current                
                            !loc:thirty                    = wmc:thirty                 
                            !loc:sixty                     = wmc:sixty                  
                            !loc:ninety                    = wmc:ninety                 
                            !loc:onetwenty                 = wmc:onetwenty              
                            !loc:storm_exclude             = wmc:storm_exclude          
                            !loc:tt_lat                    = wmc:tt_lat                 
                            !loc:tt_lng                    = wmc:tt_lng                 
                            !loc:airtime_calc1             = wmc:airtime_calc1          
                            !loc:airtime_calc2             = wmc:airtime_calc2          
                            !loc:airtime_bal1              = wmc:airtime_bal1           
                            !loc:airtime_bal2              = wmc:airtime_bal2           
                            loc:date_last                 = wmc:date_last              
                            loc:time_last                 = wmc:time_last              
                            !loc:logonly                   = wmc:logonly                
                            !loc:no_globalsms              = wmc:no_globalsms           
                            !loc:sms_maxdaily              = wmc:sms_maxdaily           
                            !loc:language                  = wmc:language               
                            !loc:res_bus                   = wmc:res_bus                
                            !loc:pref_comms                = wmc:pref_comms             
                            !loc:postaddrsite              = wmc:postaddrsite           
                            !loc:lsncustid                 = wmc:lsncustid              
                            !loc:date_sitetest             = wmc:date_sitetest          
                            !loc:test_keyholder            = wmc:test_keyholder         
                            !loc:notes                     = wmc:notes                  
                            loc:cus_sage_id               = wmc:cus_sage_id            
                            !loc:timestamp                 = wmc:timestamp              
                            !loc:servertimestamp           = wmc:servertimestamp        
                            loc:deletedtimestamp          = wmc:deletedtimestamp       
                            loc:deleted                   = wmc:deleted                
                            !loc:is_new                    = wmc:is_new             
                            stURL = clip(glo:WatchManagerURL) & 'wmdbwmcust?maxrecords=1&skiprecords=999999' 
                            stURL = AddURLItem('cus_guid',left(loc:cus_guid,20), stURL)
                            stURL = AddURLItem('cus_cust_no',left(loc:cust_no,10), stURL)
                            stURL = AddURLItem('cus_site',left(loc:site,4), stURL)
                            stURL = AddURLItem('cus_type',loc:type, stURL)        
                            stURL = AddURLItem('cus_co_name',left(loc:co_name ,50), stURL)
                            stURL = AddURLItem('cus_surname',left(loc:surname,25), stURL)
                            stURL = AddURLItem('cus_firstname',left(loc:firstname,20), stURL)
                            stURL = AddURLItem('cus_title',left(loc:title,15), stURL)
                            stURL = AddURLItem('cus_lot_erf_no',left(loc:lot_erf_no ,20), stURL)
                            stURL = AddURLItem('cus_site_adr1',left(loc:site_adr1,30), stURL)
                            stURL = AddURLItem('cus_site_adr2',left(loc:site_adr2,30), stURL)
                            stURL = AddURLItem('cus_site_adr3',left(loc:site_adr3,30), stURL)
                            stURL = AddURLItem('cus_site_adr4',left(loc:site_adr4,30), stURL)
                            stURL = AddURLItem('cus_str_ndx',left(loc:str_ndx,30), stURL)
                            stURL = AddURLItem('cus_invname',left(loc:invname ,45), stURL)
                            stURL = AddURLItem('cus_inv_adr1',left(loc:inv_adr1,30), stURL)
                            stURL = AddURLItem('cus_inv_adr2',left(loc:inv_adr2,30), stURL)
                            stURL = AddURLItem('cus_postcode',left(loc:postcode,25), stURL)
                            stURL = AddURLItem('cus_addr_verified',loc:addr_verified, stURL)
                            stURL = AddURLItem('cus_area_code',left(loc:area_code,4), stURL)
                            stURL = AddURLItem('cus_acctperson',left(loc:acctperson,30), stURL)
                            stURL = AddURLItem('cus_status',loc:status , stURL)
                            stURL = AddURLItem('cus_printhist',left(loc:printhist,3), stURL)       
                            stURL = AddURLItem('cus_last_chg',loc:last_chg, stURL)
                            stURL = AddURLItem('cus_user_code',left(loc:user_code,3), stURL)
                            stURL = AddURLItem('cus_db_comment1',left(loc:db_comment1,30), stURL)
                            stURL = AddURLItem('cus_db_comment2',left(loc:db_comment2,30), stURL)
                            stURL = AddURLItem('cus_sage_id',loc:cus_sage_id, stURL)
                            stURL = AddURLItem('cus_date_last',loc:date_last, stURL)
                            stURL = AddURLItem('cus_time_last',loc:time_last, stURL)
                            stURL = AddURLItem('cus_date_inst',loc:date_inst , stURL)
                            if loc:deleted = True then
                                stURL = AddURLItem('cus_deleted',loc:deleted , stURL)
                                stURL = AddURLItem('dts',loc:deletedtimestamp , stURL)
                            end
                            stURL = AddURLItem('wmcust_Action','updateinsert', stURL)
                            !dbg('URL=' & clip(stURL))
                            URL=clip(stURL)                   
                    
                            lngLoopCount = i-1
                            BREAK
                        end !
                    END ! wmCust loop         
                end  ! wmCust
       
                0{PROP:StatusText,1} = 'Connecting...'
                WMStatusMessage = 'Connecting ... ' & lngLoopCount
                SETCURSOR(CURSOR:Wait)
                DISPLAY()
                !do Options
                !ThisWebClient.Get(clip(stURL))  
                !dbg('lngLoopCount=' & lngLoopCount)
                !dbg('Sent=' & Sent)
                !dbg('i=' & i)
                if (lngLoopCount <= lngRecordCount) and ((i-1) <= lngRecordCount) then ! lngLoopCount
                    WMStatusMessage = 'Record ' & lngLoopCount & '/' & lngRecordCount
                    ThisWebClient.Get(clip(stURL))  
                    !dbg('URL=' & stURL) 
                    lngUpdateCount += 1
                else ! lngLoopCount
                    WMStatusMessage = 'All records done'
                    EstimateTime = ''
                    glo:StopYN = False 
                    dbg('All records done')
                    ThisWebClient.Close()
                    SETCURSOR()
                end ! lngLoopCount
                DISPLAY()
            else ! Try Again
                WMStatusMessage = 'Updated ' & lngUpdateCount & '/' & lngRecordCount & ' Records'
                EstimateTime = ''
                glo:StopYN = False 
                dbg(WMStatusMessage)
                ThisWebClient.Close()
                SETCURSOR()
            end ! Try again
        END ! JSON
        !Response = ''
    elsif glo:StopYN = True then ! Length
        WMStatusMessage = 'Updated ' & lngUpdateCount & '/' & lngRecordCount & ' Records'
        EstimateTime = 'Stopped'
        SETCURSOR()
        ThisWebClient.Close()
    else !
        ThisWebClient.Close()
        SETCURSOR()
    end ! Length    
    DISPLAY()
    dbg('<Page PageReceived')  
  
  ! End of "NetTalk Method Executable Code Section"

! Start of "NetTalk Method Routine Section"
! [Priority 5000]

! End of "NetTalk Method Routine Section"

ThisWebClient.ParseAuthenticateHeader PROCEDURE

ReturnValue          LONG,AUTO

! Start of "NetTalk Method Data Section"
! [Priority 5000]

! End of "NetTalk Method Data Section"

  CODE
  ! Start of "NetTalk Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  ReturnValue = PARENT.ParseAuthenticateHeader()
  ! [Priority 7500]
  
  ! End of "NetTalk Method Executable Code Section"
  RETURN ReturnValue

! Start of "NetTalk Method Routine Section"
! [Priority 5000]

! End of "NetTalk Method Routine Section"

ThisWebClient.PartiallyCloseServer PROCEDURE

! Start of "NetTalk Method Data Section"
! [Priority 5000]

! End of "NetTalk Method Data Section"

  CODE
  ! Start of "NetTalk Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  PARENT.PartiallyCloseServer
  ! [Priority 7500]
  
  ! End of "NetTalk Method Executable Code Section"

! Start of "NetTalk Method Routine Section"
! [Priority 5000]

! End of "NetTalk Method Routine Section"

ThisWebClient.Patch PROCEDURE(String p_Url)

! Start of "NetTalk Method Data Section"
! [Priority 5000]

! End of "NetTalk Method Data Section"

  CODE
  ! Start of "NetTalk Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  PARENT.Patch(p_Url)
  ! [Priority 7500]
  
  ! End of "NetTalk Method Executable Code Section"

! Start of "NetTalk Method Routine Section"
! [Priority 5000]

! End of "NetTalk Method Routine Section"

ThisWebClient.Patch PROCEDURE(String p_Url,String p_PostString)

! Start of "NetTalk Method Data Section"
! [Priority 5000]

! End of "NetTalk Method Data Section"

  CODE
  ! Start of "NetTalk Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  PARENT.Patch(p_Url,p_PostString)
  ! [Priority 7500]
  
  ! End of "NetTalk Method Executable Code Section"

! Start of "NetTalk Method Routine Section"
! [Priority 5000]

! End of "NetTalk Method Routine Section"

ThisWebClient.Patch PROCEDURE(String p_Url,StringTheory p_PostString)

! Start of "NetTalk Method Data Section"
! [Priority 5000]

! End of "NetTalk Method Data Section"

  CODE
  ! Start of "NetTalk Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  PARENT.Patch(p_Url,p_PostString)
  ! [Priority 7500]
  
  ! End of "NetTalk Method Executable Code Section"

! Start of "NetTalk Method Routine Section"
! [Priority 5000]

! End of "NetTalk Method Routine Section"

ThisWebClient.Patch PROCEDURE(StringTheory p_Url)

! Start of "NetTalk Method Data Section"
! [Priority 5000]

! End of "NetTalk Method Data Section"

  CODE
  ! Start of "NetTalk Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  PARENT.Patch(p_Url)
  ! [Priority 7500]
  
  ! End of "NetTalk Method Executable Code Section"

! Start of "NetTalk Method Routine Section"
! [Priority 5000]

! End of "NetTalk Method Routine Section"

ThisWebClient.Patch PROCEDURE(StringTheory p_Url,String p_PostString)

! Start of "NetTalk Method Data Section"
! [Priority 5000]

! End of "NetTalk Method Data Section"

  CODE
  ! Start of "NetTalk Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  PARENT.Patch(p_Url,p_PostString)
  ! [Priority 7500]
  
  ! End of "NetTalk Method Executable Code Section"

! Start of "NetTalk Method Routine Section"
! [Priority 5000]

! End of "NetTalk Method Routine Section"

ThisWebClient.Patch PROCEDURE(StringTheory p_Url,StringTheory p_PostString)

! Start of "NetTalk Method Data Section"
! [Priority 5000]

! End of "NetTalk Method Data Section"

  CODE
  ! Start of "NetTalk Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  PARENT.Patch(p_Url,p_PostString)
  ! [Priority 7500]
  
  ! End of "NetTalk Method Executable Code Section"

! Start of "NetTalk Method Routine Section"
! [Priority 5000]

! End of "NetTalk Method Routine Section"

ThisWebClient.Ping PROCEDURE(string p_IP,long p_TTL)

ReturnValue          LONG,AUTO

! Start of "NetTalk Method Data Section"
! [Priority 5000]

! End of "NetTalk Method Data Section"

  CODE
  ! Start of "NetTalk Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  ReturnValue = PARENT.Ping(p_IP,p_TTL)
  ! [Priority 7500]
  
  ! End of "NetTalk Method Executable Code Section"
  RETURN ReturnValue

! Start of "NetTalk Method Routine Section"
! [Priority 5000]

! End of "NetTalk Method Routine Section"

ThisWebClient.Post PROCEDURE(String p_Url)

! Start of "NetTalk Method Data Section"
! [Priority 5000]

! End of "NetTalk Method Data Section"

  CODE
  ! Start of "NetTalk Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  PARENT.Post(p_Url)
  ! [Priority 7500]
  
  ! End of "NetTalk Method Executable Code Section"

! Start of "NetTalk Method Routine Section"
! [Priority 5000]

! End of "NetTalk Method Routine Section"

ThisWebClient.Post PROCEDURE(String p_Url,String p_PostString)

! Start of "NetTalk Method Data Section"
! [Priority 5000]

! End of "NetTalk Method Data Section"

  CODE
  ! Start of "NetTalk Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  PARENT.Post(p_Url,p_PostString)
  ! [Priority 7500]
  
  ! End of "NetTalk Method Executable Code Section"

! Start of "NetTalk Method Routine Section"
! [Priority 5000]

! End of "NetTalk Method Routine Section"

ThisWebClient.Post PROCEDURE(String p_Url,StringTheory p_PostString)

! Start of "NetTalk Method Data Section"
! [Priority 5000]

! End of "NetTalk Method Data Section"

  CODE
  ! Start of "NetTalk Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  PARENT.Post(p_Url,p_PostString)
  ! [Priority 7500]
  
  ! End of "NetTalk Method Executable Code Section"

! Start of "NetTalk Method Routine Section"
! [Priority 5000]

! End of "NetTalk Method Routine Section"

ThisWebClient.Post PROCEDURE(StringTheory p_Url)

! Start of "NetTalk Method Data Section"
! [Priority 5000]

! End of "NetTalk Method Data Section"

  CODE
  ! Start of "NetTalk Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  PARENT.Post(p_Url)
  ! [Priority 7500]
  
  ! End of "NetTalk Method Executable Code Section"

! Start of "NetTalk Method Routine Section"
! [Priority 5000]

! End of "NetTalk Method Routine Section"

ThisWebClient.Post PROCEDURE(StringTheory p_Url,String p_PostString)

! Start of "NetTalk Method Data Section"
! [Priority 5000]

! End of "NetTalk Method Data Section"

  CODE
  ! Start of "NetTalk Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  PARENT.Post(p_Url,p_PostString)
  ! [Priority 7500]
  
  ! End of "NetTalk Method Executable Code Section"

! Start of "NetTalk Method Routine Section"
! [Priority 5000]

! End of "NetTalk Method Routine Section"

ThisWebClient.Post PROCEDURE(StringTheory p_Url,StringTheory p_PostString)

! Start of "NetTalk Method Data Section"
! [Priority 5000]

! End of "NetTalk Method Data Section"

  CODE
  ! Start of "NetTalk Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  PARENT.Post(p_Url,p_PostString)
  ! [Priority 7500]
  
  ! End of "NetTalk Method Executable Code Section"

! Start of "NetTalk Method Routine Section"
! [Priority 5000]

! End of "NetTalk Method Routine Section"

ThisWebClient.Prime PROCEDURE

! Start of "NetTalk Method Data Section"
! [Priority 5000]

! End of "NetTalk Method Data Section"

  CODE
  ! Start of "NetTalk Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  PARENT.Prime
  ! [Priority 7500]
  
  ! End of "NetTalk Method Executable Code Section"

! Start of "NetTalk Method Routine Section"
! [Priority 5000]

! End of "NetTalk Method Routine Section"

ThisWebClient.Process PROCEDURE

! Start of "NetTalk Method Data Section"
! [Priority 5000]

! End of "NetTalk Method Data Section"

  CODE
  ! Start of "NetTalk Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  PARENT.Process
  ! [Priority 7500]
  
  ! End of "NetTalk Method Executable Code Section"

! Start of "NetTalk Method Routine Section"
! [Priority 5000]

! End of "NetTalk Method Routine Section"

ThisWebClient.Put PROCEDURE(String p_Url)

! Start of "NetTalk Method Data Section"
! [Priority 5000]

! End of "NetTalk Method Data Section"

  CODE
  ! Start of "NetTalk Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  PARENT.Put(p_Url)
  ! [Priority 7500]
  
  ! End of "NetTalk Method Executable Code Section"

! Start of "NetTalk Method Routine Section"
! [Priority 5000]

! End of "NetTalk Method Routine Section"

ThisWebClient.Put PROCEDURE(String p_Url,String p_PostString)

! Start of "NetTalk Method Data Section"
! [Priority 5000]

! End of "NetTalk Method Data Section"

  CODE
  ! Start of "NetTalk Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  PARENT.Put(p_Url,p_PostString)
  ! [Priority 7500]
  
  ! End of "NetTalk Method Executable Code Section"

! Start of "NetTalk Method Routine Section"
! [Priority 5000]

! End of "NetTalk Method Routine Section"

ThisWebClient.Put PROCEDURE(String p_Url,StringTheory p_PostString)

! Start of "NetTalk Method Data Section"
! [Priority 5000]

! End of "NetTalk Method Data Section"

  CODE
  ! Start of "NetTalk Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  PARENT.Put(p_Url,p_PostString)
  ! [Priority 7500]
  
  ! End of "NetTalk Method Executable Code Section"

! Start of "NetTalk Method Routine Section"
! [Priority 5000]

! End of "NetTalk Method Routine Section"

ThisWebClient.Put PROCEDURE(StringTheory p_Url)

! Start of "NetTalk Method Data Section"
! [Priority 5000]

! End of "NetTalk Method Data Section"

  CODE
  ! Start of "NetTalk Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  PARENT.Put(p_Url)
  ! [Priority 7500]
  
  ! End of "NetTalk Method Executable Code Section"

! Start of "NetTalk Method Routine Section"
! [Priority 5000]

! End of "NetTalk Method Routine Section"

ThisWebClient.Put PROCEDURE(StringTheory p_Url,String p_PostString)

! Start of "NetTalk Method Data Section"
! [Priority 5000]

! End of "NetTalk Method Data Section"

  CODE
  ! Start of "NetTalk Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  PARENT.Put(p_Url,p_PostString)
  ! [Priority 7500]
  
  ! End of "NetTalk Method Executable Code Section"

! Start of "NetTalk Method Routine Section"
! [Priority 5000]

! End of "NetTalk Method Routine Section"

ThisWebClient.Put PROCEDURE(StringTheory p_Url,StringTheory p_PostString)

! Start of "NetTalk Method Data Section"
! [Priority 5000]

! End of "NetTalk Method Data Section"

  CODE
  ! Start of "NetTalk Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  PARENT.Put(p_Url,p_PostString)
  ! [Priority 7500]
  
  ! End of "NetTalk Method Executable Code Section"

! Start of "NetTalk Method Routine Section"
! [Priority 5000]

! End of "NetTalk Method Routine Section"

ThisWebClient.RefreshQServerConnections PROCEDURE(long p_Free=0)

! Start of "NetTalk Method Data Section"
! [Priority 5000]

! End of "NetTalk Method Data Section"

  CODE
  ! Start of "NetTalk Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  PARENT.RefreshQServerConnections(p_Free)
  ! [Priority 7500]
  
  ! End of "NetTalk Method Executable Code Section"

! Start of "NetTalk Method Routine Section"
! [Priority 5000]

! End of "NetTalk Method Routine Section"

ThisWebClient.RemoveHeader PROCEDURE

! Start of "NetTalk Method Data Section"
! [Priority 5000]

! End of "NetTalk Method Data Section"

  CODE
  ! Start of "NetTalk Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  PARENT.RemoveHeader
  ! [Priority 7500]
  
  ! End of "NetTalk Method Executable Code Section"

! Start of "NetTalk Method Routine Section"
! [Priority 5000]

! End of "NetTalk Method Routine Section"

ThisWebClient.SSLGetAlternativeSubjectField PROCEDURE(string p_FieldName)

ReturnValue          ANY

! Start of "NetTalk Method Data Section"
! [Priority 5000]

! End of "NetTalk Method Data Section"

  CODE
  ! Start of "NetTalk Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  ReturnValue = PARENT.SSLGetAlternativeSubjectField(p_FieldName)
  ! [Priority 7500]
  
  ! End of "NetTalk Method Executable Code Section"
  RETURN ReturnValue

! Start of "NetTalk Method Routine Section"
! [Priority 5000]

! End of "NetTalk Method Routine Section"

ThisWebClient.SSLGetIssuerField PROCEDURE(string p_FieldName)

ReturnValue          ANY

! Start of "NetTalk Method Data Section"
! [Priority 5000]

! End of "NetTalk Method Data Section"

  CODE
  ! Start of "NetTalk Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  ReturnValue = PARENT.SSLGetIssuerField(p_FieldName)
  ! [Priority 7500]
  
  ! End of "NetTalk Method Executable Code Section"
  RETURN ReturnValue

! Start of "NetTalk Method Routine Section"
! [Priority 5000]

! End of "NetTalk Method Routine Section"

ThisWebClient.SSLGetSubjectField PROCEDURE(string p_FieldName)

ReturnValue          ANY

! Start of "NetTalk Method Data Section"
! [Priority 5000]

! End of "NetTalk Method Data Section"

  CODE
  ! Start of "NetTalk Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  ReturnValue = PARENT.SSLGetSubjectField(p_FieldName)
  ! [Priority 7500]
  
  ! End of "NetTalk Method Executable Code Section"
  RETURN ReturnValue

! Start of "NetTalk Method Routine Section"
! [Priority 5000]

! End of "NetTalk Method Routine Section"

ThisWebClient.SaveCookies PROCEDURE(String pFileName)

! Start of "NetTalk Method Data Section"
! [Priority 5000]

! End of "NetTalk Method Data Section"

  CODE
  ! Start of "NetTalk Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  PARENT.SaveCookies(pFileName)
  ! [Priority 7500]
  
  ! End of "NetTalk Method Executable Code Section"

! Start of "NetTalk Method Routine Section"
! [Priority 5000]

! End of "NetTalk Method Routine Section"

ThisWebClient.SavePage PROCEDURE(string p_FileName)

! Start of "NetTalk Method Data Section"
! [Priority 5000]

! End of "NetTalk Method Data Section"

  CODE
  ! Start of "NetTalk Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  PARENT.SavePage(p_FileName)
  ! [Priority 7500]
  
  ! End of "NetTalk Method Executable Code Section"

! Start of "NetTalk Method Routine Section"
! [Priority 5000]

! End of "NetTalk Method Routine Section"

ThisWebClient.Send PROCEDURE

! Start of "NetTalk Method Data Section"
! [Priority 5000]

! End of "NetTalk Method Data Section"

  CODE
  ! Start of "NetTalk Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  PARENT.Send
  ! [Priority 7500]
  
  ! End of "NetTalk Method Executable Code Section"

! Start of "NetTalk Method Routine Section"
! [Priority 5000]

! End of "NetTalk Method Routine Section"

ThisWebClient.Send PROCEDURE(String p_str)

! Start of "NetTalk Method Data Section"
! [Priority 5000]

! End of "NetTalk Method Data Section"

  CODE
  ! Start of "NetTalk Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  PARENT.Send(p_str)
  ! [Priority 7500]
  
  ! End of "NetTalk Method Executable Code Section"

! Start of "NetTalk Method Routine Section"
! [Priority 5000]

! End of "NetTalk Method Routine Section"

ThisWebClient.Send PROCEDURE(StringTheory p_str)

! Start of "NetTalk Method Data Section"
! [Priority 5000]

! End of "NetTalk Method Data Section"

  CODE
  ! Start of "NetTalk Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  PARENT.Send(p_str)
  ! [Priority 7500]
  
  ! End of "NetTalk Method Executable Code Section"

! Start of "NetTalk Method Routine Section"
! [Priority 5000]

! End of "NetTalk Method Routine Section"

ThisWebClient.SetAccept PROCEDURE(String pType)

! Start of "NetTalk Method Data Section"
! [Priority 5000]

! End of "NetTalk Method Data Section"

  CODE
  ! Start of "NetTalk Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  PARENT.SetAccept(pType)
  ! [Priority 7500]
  
  ! End of "NetTalk Method Executable Code Section"

! Start of "NetTalk Method Routine Section"
! [Priority 5000]

! End of "NetTalk Method Routine Section"

ThisWebClient.SetAllHeadersDefault PROCEDURE

! Start of "NetTalk Method Data Section"
! [Priority 5000]

! End of "NetTalk Method Data Section"

  CODE
  ! Start of "NetTalk Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  PARENT.SetAllHeadersDefault
  ! [Priority 7500]
  
  ! End of "NetTalk Method Executable Code Section"

! Start of "NetTalk Method Routine Section"
! [Priority 5000]

! End of "NetTalk Method Routine Section"

ThisWebClient.SetCodePage PROCEDURE(<Long pCharSet>)

! Start of "NetTalk Method Data Section"
! [Priority 5000]

! End of "NetTalk Method Data Section"

  CODE
  ! Start of "NetTalk Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  PARENT.SetCodePage(pCharSet)
  ! [Priority 7500]
  
  ! End of "NetTalk Method Executable Code Section"

! Start of "NetTalk Method Routine Section"
! [Priority 5000]

! End of "NetTalk Method Routine Section"

ThisWebClient.SetContentType PROCEDURE(String pType)

! Start of "NetTalk Method Data Section"
! [Priority 5000]

! End of "NetTalk Method Data Section"

  CODE
  ! Start of "NetTalk Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  PARENT.SetContentType(pType)
  ! [Priority 7500]
  
  ! End of "NetTalk Method Executable Code Section"

! Start of "NetTalk Method Routine Section"
! [Priority 5000]

! End of "NetTalk Method Routine Section"

ThisWebClient.SetCookie PROCEDURE(String p_name,String p_Value,<Long p_Date>,<Long p_Time>,<Long p_Secure>,<String p_Path>,<String p_Domain>,Long p_HttpOnly=0,<String p_SameSite>)

! Start of "NetTalk Method Data Section"
! [Priority 5000]

! End of "NetTalk Method Data Section"

  CODE
  ! Start of "NetTalk Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  PARENT.SetCookie(p_name,p_Value,p_Date,p_Time,p_Secure,p_Path,p_Domain,p_HttpOnly,p_SameSite)
  ! [Priority 7500]
  
  ! End of "NetTalk Method Executable Code Section"

! Start of "NetTalk Method Routine Section"
! [Priority 5000]

! End of "NetTalk Method Routine Section"

ThisWebClient.SetProgress PROCEDURE(Long pProgress)

! Start of "NetTalk Method Data Section"
! [Priority 5000]

! End of "NetTalk Method Data Section"

  CODE
  ! Start of "NetTalk Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  PARENT.SetProgress(pProgress)
  ! [Priority 7500]
  
  ! End of "NetTalk Method Executable Code Section"

! Start of "NetTalk Method Routine Section"
! [Priority 5000]

! End of "NetTalk Method Routine Section"

ThisWebClient.SetValue PROCEDURE(String pName,*Group pGroup)

! Start of "NetTalk Method Data Section"
! [Priority 5000]

! End of "NetTalk Method Data Section"

  CODE
  ! Start of "NetTalk Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  PARENT.SetValue(pName,pGroup)
  ! [Priority 7500]
  
  ! End of "NetTalk Method Executable Code Section"

! Start of "NetTalk Method Routine Section"
! [Priority 5000]

! End of "NetTalk Method Routine Section"

ThisWebClient.SetValue PROCEDURE(String pName,*String pValue,Long pOptions=0,<String pContentType>,<String pCustomHeader>)

! Start of "NetTalk Method Data Section"
! [Priority 5000]

! End of "NetTalk Method Data Section"

  CODE
  ! Start of "NetTalk Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  PARENT.SetValue(pName,pValue,pOptions,pContentType,pCustomHeader)
  ! [Priority 7500]
  
  ! End of "NetTalk Method Executable Code Section"

! Start of "NetTalk Method Routine Section"
! [Priority 5000]

! End of "NetTalk Method Routine Section"

ThisWebClient.SetValue PROCEDURE(String pName,String pValue,Long pOptions=0,<String pContentType>,<String pCustomHeader>)

! Start of "NetTalk Method Data Section"
! [Priority 5000]

! End of "NetTalk Method Data Section"

  CODE
  ! Start of "NetTalk Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  PARENT.SetValue(pName,pValue,pOptions,pContentType,pCustomHeader)
  ! [Priority 7500]
  
  ! End of "NetTalk Method Executable Code Section"

! Start of "NetTalk Method Routine Section"
! [Priority 5000]

! End of "NetTalk Method Routine Section"

ThisWebClient.SetValue PROCEDURE(String pName,StringTheory pValue,Long pOptions=0,<String pContentType>,<String pCustomHeader>)

! Start of "NetTalk Method Data Section"
! [Priority 5000]

! End of "NetTalk Method Data Section"

  CODE
  ! Start of "NetTalk Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  PARENT.SetValue(pName,pValue,pOptions,pContentType,pCustomHeader)
  ! [Priority 7500]
  
  ! End of "NetTalk Method Executable Code Section"

! Start of "NetTalk Method Routine Section"
! [Priority 5000]

! End of "NetTalk Method Routine Section"

ThisWebClient.Start PROCEDURE

! Start of "NetTalk Method Data Section"
! [Priority 5000]

! End of "NetTalk Method Data Section"

  CODE
  ! Start of "NetTalk Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  PARENT.Start
  ! [Priority 7500]
  
  ! End of "NetTalk Method Executable Code Section"

! Start of "NetTalk Method Routine Section"
! [Priority 5000]

! End of "NetTalk Method Routine Section"

ThisWebClient.SwitchToSSL PROCEDURE(long p_Socket=0,long p_SockID=0)

! Start of "NetTalk Method Data Section"
! [Priority 5000]

! End of "NetTalk Method Data Section"

  CODE
  ! Start of "NetTalk Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  PARENT.SwitchToSSL(p_Socket,p_SockID)
  ! [Priority 7500]
  
  ! End of "NetTalk Method Executable Code Section"

! Start of "NetTalk Method Routine Section"
! [Priority 5000]

! End of "NetTalk Method Routine Section"

ThisWebClient.TakeEvent PROCEDURE

! Start of "NetTalk Method Data Section"
! [Priority 5000]

! End of "NetTalk Method Data Section"

  CODE
  ! Start of "NetTalk Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  PARENT.TakeEvent
  ! [Priority 5500]
  
  ! End of "NetTalk Method Executable Code Section"

! Start of "NetTalk Method Routine Section"
! [Priority 5000]

! End of "NetTalk Method Routine Section"

ThisWebClient.TextOnly PROCEDURE

! Start of "NetTalk Method Data Section"
! [Priority 5000]

! End of "NetTalk Method Data Section"

  CODE
  ! Start of "NetTalk Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  PARENT.TextOnly
  ! [Priority 7500]
  
  ! End of "NetTalk Method Executable Code Section"

! Start of "NetTalk Method Routine Section"
! [Priority 5000]

! End of "NetTalk Method Routine Section"

ThisWebClient.Trace PROCEDURE(string p_string)

! Start of "NetTalk Method Data Section"
! [Priority 5000]

! End of "NetTalk Method Data Section"

  CODE
  ! Start of "NetTalk Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  PARENT.Trace(p_string)
  ! [Priority 7500]
  
  ! End of "NetTalk Method Executable Code Section"

! Start of "NetTalk Method Routine Section"
! [Priority 5000]

! End of "NetTalk Method Routine Section"

ThisWebClient.UnBan PROCEDURE(String p_Ip)

! Start of "NetTalk Method Data Section"
! [Priority 5000]

! End of "NetTalk Method Data Section"

  CODE
  ! Start of "NetTalk Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  PARENT.UnBan(p_Ip)
  ! [Priority 7500]
  
  ! End of "NetTalk Method Executable Code Section"

! Start of "NetTalk Method Routine Section"
! [Priority 5000]

! End of "NetTalk Method Routine Section"

ThisWebClient.UnicodeToAnsi PROCEDURE(long encoding=st:EncodeUtf16,ulong pCodePage=st:CP_US_ASCII)

! Start of "NetTalk Method Data Section"
! [Priority 5000]

! End of "NetTalk Method Data Section"

  CODE
  ! Start of "NetTalk Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  PARENT.UnicodeToAnsi(encoding,pCodePage)
  ! [Priority 7500]
  
  ! End of "NetTalk Method Executable Code Section"

! Start of "NetTalk Method Routine Section"
! [Priority 5000]

! End of "NetTalk Method Routine Section"

ThisWebClient.UnixToClarionDate PROCEDURE(Long p_DateTime)

ReturnValue          Long,AUTO

! Start of "NetTalk Method Data Section"
! [Priority 5000]

! End of "NetTalk Method Data Section"

  CODE
  ! Start of "NetTalk Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  ReturnValue = PARENT.UnixToClarionDate(p_DateTime)
  ! [Priority 7500]
  
  ! End of "NetTalk Method Executable Code Section"
  RETURN ReturnValue

! Start of "NetTalk Method Routine Section"
! [Priority 5000]

! End of "NetTalk Method Routine Section"

ThisWebClient.UnixToClarionTime PROCEDURE(Long p_DateTime)

ReturnValue          Long,AUTO

! Start of "NetTalk Method Data Section"
! [Priority 5000]

! End of "NetTalk Method Data Section"

  CODE
  ! Start of "NetTalk Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  ReturnValue = PARENT.UnixToClarionTime(p_DateTime)
  ! [Priority 7500]
  
  ! End of "NetTalk Method Executable Code Section"
  RETURN ReturnValue

! Start of "NetTalk Method Routine Section"
! [Priority 5000]

! End of "NetTalk Method Routine Section"

ThisWebClient.VerifyCertificate PROCEDURE

ReturnValue          long,AUTO

! Start of "NetTalk Method Data Section"
! [Priority 5000]

! End of "NetTalk Method Data Section"

  CODE
  ! Start of "NetTalk Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  ReturnValue = PARENT.VerifyCertificate()
  ! [Priority 7500]
  
  ! End of "NetTalk Method Executable Code Section"
  RETURN ReturnValue

! Start of "NetTalk Method Routine Section"
! [Priority 5000]

! End of "NetTalk Method Routine Section"

ThisWebClient._CallErrorTrap PROCEDURE(string errorStr,string functionName)

! Start of "NetTalk Method Data Section"
! [Priority 5000]

! End of "NetTalk Method Data Section"

  CODE
  ! Start of "NetTalk Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  PARENT._CallErrorTrap(errorStr,functionName)
  ! [Priority 7500]
  
  ! End of "NetTalk Method Executable Code Section"

! Start of "NetTalk Method Routine Section"
! [Priority 5000]

! End of "NetTalk Method Routine Section"

ThisWebClient._CallPageReceived PROCEDURE

! Start of "NetTalk Method Data Section"
! [Priority 5000]

! End of "NetTalk Method Data Section"

  CODE
  ! Start of "NetTalk Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  PARENT._CallPageReceived
  ! [Priority 7500]
  
  ! End of "NetTalk Method Executable Code Section"

! Start of "NetTalk Method Routine Section"
! [Priority 5000]

! End of "NetTalk Method Routine Section"

ThisWebClient._ConnectingOkay PROCEDURE

! Start of "NetTalk Method Data Section"
! [Priority 5000]

! End of "NetTalk Method Data Section"

  CODE
  ! Start of "NetTalk Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  PARENT._ConnectingOkay
  ! [Priority 7500]
  
  ! End of "NetTalk Method Executable Code Section"

! Start of "NetTalk Method Routine Section"
! [Priority 5000]

! End of "NetTalk Method Routine Section"

ThisWebClient._CreateRequestHeader PROCEDURE(long p_HostPort)

ReturnValue          ANY

! Start of "NetTalk Method Data Section"
! [Priority 5000]

! End of "NetTalk Method Data Section"

  CODE
  ! Start of "NetTalk Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  ReturnValue = PARENT._CreateRequestHeader(p_HostPort)
  ! [Priority 7500]
  
  ! End of "NetTalk Method Executable Code Section"
  RETURN ReturnValue

! Start of "NetTalk Method Routine Section"
! [Priority 5000]

! End of "NetTalk Method Routine Section"

ThisWebClient._CreateRequestURI PROCEDURE(STRING p_Method)

ReturnValue          ANY

! Start of "NetTalk Method Data Section"
! [Priority 5000]

! End of "NetTalk Method Data Section"

  CODE
  ! Start of "NetTalk Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  ReturnValue = PARENT._CreateRequestURI(p_Method)
  ! [Priority 7500]
  
  ! End of "NetTalk Method Executable Code Section"
  RETURN ReturnValue

! Start of "NetTalk Method Routine Section"
! [Priority 5000]

! End of "NetTalk Method Routine Section"

ThisWebClient._HandleAsyncOpenFailed PROCEDURE

ReturnValue          long,AUTO

! Start of "NetTalk Method Data Section"
! [Priority 5000]

! End of "NetTalk Method Data Section"

  CODE
  ! Start of "NetTalk Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  ReturnValue = PARENT._HandleAsyncOpenFailed()
  ! [Priority 7500]
  
  ! End of "NetTalk Method Executable Code Section"
  RETURN ReturnValue

! Start of "NetTalk Method Routine Section"
! [Priority 5000]

! End of "NetTalk Method Routine Section"

ThisWebClient._LoggingFirstTime PROCEDURE

! Start of "NetTalk Method Data Section"
! [Priority 5000]

! End of "NetTalk Method Data Section"

  CODE
  ! Start of "NetTalk Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  PARENT._LoggingFirstTime
  ! [Priority 7500]
  
  ! End of "NetTalk Method Executable Code Section"

! Start of "NetTalk Method Routine Section"
! [Priority 5000]

! End of "NetTalk Method Routine Section"

ThisWebClient._LoggingSetup PROCEDURE

! Start of "NetTalk Method Data Section"
! [Priority 5000]

! End of "NetTalk Method Data Section"

  CODE
  ! Start of "NetTalk Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  PARENT._LoggingSetup
  ! [Priority 7500]
  
  ! End of "NetTalk Method Executable Code Section"

! Start of "NetTalk Method Routine Section"
! [Priority 5000]

! End of "NetTalk Method Routine Section"

ThisWebClient._MakeCookies PROCEDURE

! Start of "NetTalk Method Data Section"
! [Priority 5000]

! End of "NetTalk Method Data Section"

  CODE
  ! Start of "NetTalk Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  PARENT._MakeCookies
  ! [Priority 7500]
  
  ! End of "NetTalk Method Executable Code Section"

! Start of "NetTalk Method Routine Section"
! [Priority 5000]

! End of "NetTalk Method Routine Section"

ThisWebClient._ReadCookies PROCEDURE

! Start of "NetTalk Method Data Section"
! [Priority 5000]

! End of "NetTalk Method Data Section"

  CODE
  ! Start of "NetTalk Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  PARENT._ReadCookies
  ! [Priority 7500]
  
  ! End of "NetTalk Method Executable Code Section"

! Start of "NetTalk Method Routine Section"
! [Priority 5000]

! End of "NetTalk Method Routine Section"

ThisWebClient._Release PROCEDURE(long p_Count=-61)

! Start of "NetTalk Method Data Section"
! [Priority 5000]

! End of "NetTalk Method Data Section"

  CODE
  ! Start of "NetTalk Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  PARENT._Release(p_Count)
  ! [Priority 7500]
  
  ! End of "NetTalk Method Executable Code Section"

! Start of "NetTalk Method Routine Section"
! [Priority 5000]

! End of "NetTalk Method Routine Section"

ThisWebClient._ResetPage PROCEDURE

! Start of "NetTalk Method Data Section"
! [Priority 5000]

! End of "NetTalk Method Data Section"

  CODE
  ! Start of "NetTalk Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  PARENT._ResetPage
  ! [Priority 7500]
  
  ! End of "NetTalk Method Executable Code Section"

! Start of "NetTalk Method Routine Section"
! [Priority 5000]

! End of "NetTalk Method Routine Section"

ThisWebClient._SSLGetRemoteCertificate PROCEDURE(long p_Socket,long p_SockID,*long p_Closed)

! Start of "NetTalk Method Data Section"
! [Priority 5000]

! End of "NetTalk Method Data Section"

  CODE
  ! Start of "NetTalk Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  PARENT._SSLGetRemoteCertificate(p_Socket,p_SockID,p_Closed)
  ! [Priority 7500]
  
  ! End of "NetTalk Method Executable Code Section"

! Start of "NetTalk Method Routine Section"
! [Priority 5000]

! End of "NetTalk Method Routine Section"

ThisWebClient._SendCommand PROCEDURE

! Start of "NetTalk Method Data Section"
! [Priority 5000]

! End of "NetTalk Method Data Section"

  CODE
  ! Start of "NetTalk Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  PARENT._SendCommand
  ! [Priority 7500]
  
  ! End of "NetTalk Method Executable Code Section"

! Start of "NetTalk Method Routine Section"
! [Priority 5000]

! End of "NetTalk Method Routine Section"

ThisWebClient._SetServerResponse PROCEDURE

! Start of "NetTalk Method Data Section"
! [Priority 5000]

! End of "NetTalk Method Data Section"

  CODE
  ! Start of "NetTalk Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  PARENT._SetServerResponse
  ! [Priority 7500]
  
  ! End of "NetTalk Method Executable Code Section"

! Start of "NetTalk Method Routine Section"
! [Priority 5000]

! End of "NetTalk Method Routine Section"

ThisWebClient._TryOpen PROCEDURE

! Start of "NetTalk Method Data Section"
! [Priority 5000]

! End of "NetTalk Method Data Section"

  CODE
  ! Start of "NetTalk Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  PARENT._TryOpen
  ! [Priority 7500]
  
  ! End of "NetTalk Method Executable Code Section"

! Start of "NetTalk Method Routine Section"
! [Priority 5000]

! End of "NetTalk Method Routine Section"

ThisWebClient._UnChunk PROCEDURE(*String pData,*Long pDataLen)

! Start of "NetTalk Method Data Section"
! [Priority 5000]

! End of "NetTalk Method Data Section"

  CODE
  ! Start of "NetTalk Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  PARENT._UnChunk(pData,pDataLen)
  ! [Priority 7500]
  
  ! End of "NetTalk Method Executable Code Section"

! Start of "NetTalk Method Routine Section"
! [Priority 5000]

! End of "NetTalk Method Routine Section"

ThisWebClient._UnChunk PROCEDURE(StringTheory pData)

! Start of "NetTalk Method Data Section"
! [Priority 5000]

! End of "NetTalk Method Data Section"

  CODE
  ! Start of "NetTalk Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  PARENT._UnChunk(pData)
  ! [Priority 7500]
  
  ! End of "NetTalk Method Executable Code Section"

! Start of "NetTalk Method Routine Section"
! [Priority 5000]

! End of "NetTalk Method Routine Section"

ThisWebClient._Wait PROCEDURE(long p_Count=-60)

! Start of "NetTalk Method Data Section"
! [Priority 5000]

! End of "NetTalk Method Data Section"

  CODE
  ! Start of "NetTalk Method Executable Code Section"
  ! [Priority 2500]
  
  ! Parent Call
  PARENT._Wait(p_Count)
  ! [Priority 7500]
  
  ! End of "NetTalk Method Executable Code Section"

! Start of "NetTalk Method Routine Section"
! [Priority 5000]

! End of "NetTalk Method Routine Section"
! [Priority 8500]

! End of "Local Procedures"