總覽 - 統一發票廠區 RMB 統一發票 - 廠區

admin

總覽 - 統一發票廠區  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: Edit  GuiSite
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[0] = 'SITE'
                        Set hWndItems[0] = 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[nIndex] = '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