IFS client development <centura> FrameStartupUser(2)

admin

以傳票登錄為例(Voucher.apl)
--- 'VouPosting'  is tab name

Function: FrameStartupUser
        Description:
        Returns
                Boolean:
        Parameters
        Static Variables
        Local variables-
                Number: nPosAccount
                Number: nRows
                Long String: lsStmt
                String: sValue
        Actions
                Set nRows = DataTransfer.RecCountGet()
                Set hWndFirstTab = TabAttachedWindowHandleGet( picTab.FindName( 'VouPosting' ) )
                Set sFormName = ':i_hWndFrame.' || QualifiedItemNameGet( i_hWndSelf ) || '.'
                If nRows > 0 And DataTransfer.SourceNameGet() = 'VOUCHER'
                        Call SalWaitCursor(TRUE)
                        Call InitFromTransferedData()
                        Call DataTransfer.Reset ()
                        Call ccsVoucherType.RecordSelectionListSetSelect( 0 )
                        Call SalWaitCursor(FALSE)
                If nRows > 0 And DataTransfer.SourceNameGet() ='VOUCHER_APPROVAL'
                        Call SalWaitCursor(TRUE)
                        Call InitFromTransferedData()
                        Call DataTransfer.Reset ()
                        Call ccsVoucherType.RecordSelectionListSetSelect( 0 )
                        Call SalWaitCursor(FALSE)
                        Set dfsApprovedByUserGroup=sUserGroup
                Call StartupDbCalls()
                ! Call Id 50567 Start - AsWiLk
                Call Profile.ValueStringGet( 'frmVoucherPosting.tblVoucherPosting', 'ColLockNumber', '8888', sValue )
                If sValue = '8888'
                        ! Call Id 50567 End - AsWiLk
                        Set nPosAccount = SalTblQueryColumnPos ( hWndFirstTab.frmVoucherPosting.tblVoucherPosting.colsAccount )
                        Call SalTblSetLockedColumns( hWndFirstTab.frmVoucherPosting.tblVoucherPosting, nPosAccount )
                Call SalSendMsg( cmbsVoucherStatus, SAM_DropDown, 0, 0 )
                ! A527
                Set lsStmt = sFormName || "sAmountMethodGross := " || c_sDbPrefix || "Def_Amount_Method_API.Decode( 'GROSS' ); "
                Set lsStmt = lsStmt || sFormName || "sAmountMethodNet := " || c_sDbPrefix || "Def_Amount_Method_API.Decode( 'NET' ); "
                Set lsStmt = lsStmt || sFormName || "sTaxDirectionDisbursed := " || c_sDbPrefix || "Tax_Direction_API.Decode( 'TAXDISBURSED' ); "
                Set lsStmt = lsStmt || sFormName || "sTaxDirectionReceived := " || c_sDbPrefix || "Tax_Direction_API.Decode( 'TAXRECEIVED' ); "
                Set lsStmt = lsStmt || sFormName || "sTaxDirectionNoTax := " || c_sDbPrefix || "Tax_Direction_API.Decode( 'NOTAX' ); "
               
                Set lsStmt = lsStmt || "  IF (&AO.Transaction_SYS.METHOD_IS_INSTALLED('GEN_LED_VOUCHER_API','Get_Preliminary_Acc_Year_') ) THEN
                                                                         :i_hWndFrame.frmEntryVoucher.bGetPrelAccYearIsAvailable := 1;
                                                                    ELSE
                                                                           :i_hWndFrame.frmEntryVoucher.bGetPrelAccYearIsAvailable := 0;
                                                                    END IF;
                                                               "
                If Not DbPLSQLBlock( c_hSql, 'BEGIN ' || lsStmt || ' END;')
                        Return FALSE
                Set sNewVoucher = FALSE
                Return TRUE