Hi Bruce
Yes it's multi dll,
1 data app (wfdata.app)
1 dll (wfwa.app)
1 exe with one webhandler (wfwserv.app)
Each app only has 3-4 procedures
I checked another project and it seems as if the include file code is in the webhandler source, not using the includes
So perhaps there is a setting somewhere that generates this code into an include file?
If I delete the include file and do a global compile, nothing re-generates it and it moans about the missing include file.
Should I start from scratch with the apps?
Not ideal but can be done.
Would be nice to know how this happened in case it happens again and further down the project.
Below is the code from Webhandler source
####################################################################################################
p_web._SendFile PROCEDURE(string p_FileName,Long p_header=NET:SendHeader)
! Start of "NetTalk Method Data Section"
! [Priority 1500]
loc:parent string(250)
loc:done Long
loc:filename string(255)
! [Priority 6500]
! End of "NetTalk Method Data Section"
CODE
! Start of "NetTalk Method Executable Code Section"
! [Priority 1500]
loc:parent = Lower(self.GetValue('_ParentProc'))
loc:filename = SELF.GetPageName(Lower(p_FileName))
Include('wfw_a_ni.clw','_SendFile')
! [Priority 3040]
do CaseStart:wfwserv
If loc:Done then Return.
Include('wfw_a_ni.clw','_SendFileCase')
! [Priority 4000]
! Parent Call
PARENT._SendFile(p_FileName,p_header)
! [Priority 7500]
! End of "NetTalk Method Executable Code Section"
####################################################################################################
This is the code from the include file
####################################################################################################
Section('_SendFile')
Section('_SendFileCase')
do CaseStart:wfw_a
If loc:Done then Return.
Section('_SendFileRoutines')
CaseStart:wfw_a routine
do Case:BrowseCompany
do Case:UpdateCompany
! - - - - - - - - - - - - - - - -
Case:BrowseCompany Routine
Case loc:filename !SELF.GetPageName(Lower(p_FileName))
of 'browsecompany'
orof 'browsecompany' & '_' & loc:parent
orof 'browsecompany' & '_' & loc:parent
Self.MakePage('BrowseCompany',Net:Web:Browse,0,'Browse Customers',,)
loc:Done = 1 ; Exit
End ! Case
! - - - - - - - - - - - - - - - -
Case:UpdateCompany Routine
Case loc:filename !SELF.GetPageName(Lower(p_FileName))
of 'updatecompany'
Self.MakePage('UpdateCompany',Net:Web:Form,0,'Update Customer',,)
loc:Done = 1 ; Exit
of self._nocolon('updatecompany_tab_0')
UpdateCompany(self,Net:Web:Div)
self._Sendfooter(5)
loc:Done = 1 ; Exit
of self._nocolon('updatecompany_cpy:cpy_name_value')
UpdateCompany(self,Net:Web:Div)
self._Sendfooter(9)
loc:Done = 1 ; Exit
of self._nocolon('updatecompany_cpy:cpy_adr1_value')
UpdateCompany(self,Net:Web:Div)
self._Sendfooter(9)
loc:Done = 1 ; Exit
of self._nocolon('updatecompany_cpy:cpy_adr2_value')
UpdateCompany(self,Net:Web:Div)
self._Sendfooter(9)
loc:Done = 1 ; Exit
of self._nocolon('updatecompany_cpy:cpy_adr3_value')
UpdateCompany(self,Net:Web:Div)
self._Sendfooter(9)
loc:Done = 1 ; Exit
End ! Case
Section('ProcessTag')
loc:tag = Choose(Instring('?',loc:tag) > 0,sub(loc:tag,1,Instring('?',loc:tag)-1),loc:tag)
Case loc:tag
of 'browsecompany'
browsecompany(Self)
of 'pagefootertag'
pagefootertag(Self)
of 'pageheadertag'
pageheadertag(Self)
of 'updatecompany'
updatecompany(Self)
End
Section('CallFormA')
If Band(p_Stage, NET:WEB:StagePost + NET:WEB:StageValidate + NET:WEB:Cancel)
case lower(self.formsettings.proc)
Of 'updatecompany'
ReturnValue = UpdateCompany(Self,p_stage)
RETURN ReturnValue
End
Else
case lower(SELF.PageName)
Of 'updatecompany'
ReturnValue = UpdateCompany(Self,p_stage)
RETURN ReturnValue
End
End
Section('CallFormB')
If p_File &= company
ReturnValue = UpdateCompany(Self,p_stage)
RETURN ReturnValue
End
Section('CallFormC')
Section('ProcessYear')
####################################################################################################