總覽 - 統一發票廠區 RMB 統一發票 - 廠區
總覽 - 統一發票廠區RMB 統一發票 - 廠區總覽 - 統一發票廠區(tbwGuiSite)
GuiSite(LU)
IFSAPP.GUI_SITE
IFSAPP.GUI_SITE_API
統一發票 - 廠區(frmGuiSite)
GuiSite(LU)
IFSAPP.GUI_SITE
IFSAPP.GUI_SITE_API
總覽 - 統一發票廠區(tbwGuiSite)
(1)
Menu Item: Gui&Site...
Resource Id: 60847
Keyboard Accelerator: (none)
Status Text: EditGuiSite
Menu Settings
Enabled when: SalSendMsg(hWndForm,PM_UserMethod,METHOD_Inquire,SalHStringToNumber('Guiform'))
Checked when:
Menu Actions
Call PostMessage(hWndForm, PM_UserMethod, METHOD_Execute, 'Guiform')
Menu Item Name:
(2)
Function: UserMethod
Description:
Returns
Number:
Parameters
Number: nWhat
String: sMethod
Static Variables
Local variables
Actions
Select Case nWhat
Case METHOD_Inquire
If sMethod = 'Guiform'
If NOT (Security.IsViewAvailable('GUI_SITE') AND Security.IsPresObjectAvailable('frmGuiSite'))
Return FALSE
Return SalTblAnyRows( hWndForm, ROW_Selected, 0)
Return FALSE
Case METHOD_Execute
If sMethod = 'Guiform'
Return PrepareLaunch( 'frmGuiSite' )
Return FALSE
(3)
Function: PrepareLaunch
Description:
Returns
Boolean:
Parameters
String: sFormName
Static Variables
Local variables
String: sItemNames[*]
Window Handle: hWndItems[*]
Actions
If sFormName = 'frmGuiSite'
Call SalWaitCursor(TRUE)
Set sItemNames = 'SITE'
Set hWndItems = colsSite
Call DataTransfer.Init( 'GuiSite', hWndForm, sItemNames, hWndItems )
Call SalCreateWindow ( sFormName, hWndMDI )
Call SalWaitCursor(FALSE)
Return TRUE
統一發票 - 廠區(frmGuiSite)
(4)
Function: FrameStartupUser
Description:
Returns
Boolean:
Parameters
Static Variables
Local variables
String: sItems[*]
Number: nIndex
Actions
If DataTransfer.RecCountGet () > 0
Call DataTransfer.ItemNamesGet( sItems )
Set nIndex = VisArrayFindString( sItems, 'SITE' )
If nIndex != -1
Set DataTransfer.i_sItemNames = 'SITE'
Call SetWindowTitle( )
Call SalWaitCursor(TRUE)
Call InitFromTransferedData ( )
Call DataTransfer.Reset ( )
Call ccsSite.RecordSelectionListSetSelect( 0 )
Call SalWaitCursor(FALSE)
Return FALSE
Else
Call SetWindowTitle( )
Return TRUE
頁:
[1]