admin 發表於 2015-12-11 18:51:46

IFS client development <centura> 前端 Call 後端 API(1)

以預開發票為例<GUIInvoice.apl>
Function: Get_Address1
      Description:
      Returns
                Boolean:
      Parameters
      Static Variables
      Local variables
      Actions
                If Security.IsMethodAvailable('CUSTOMER_INFO_ADDRESS_API.Get_Default_Address1')
                        Call DbPLSQLBlock( c_hSql, sFullName || ".mlAddress :=&AO.customer_info_address_api.get_default_address1(" || sFullName || ".dfsIdentity ,'Document' ) ")
                Return TRUE

Function: Get_Association_No
      Description:
      Returns
                Boolean:
      Parameters
      Static Variables
      Local variables
      Actions
                If Security.IsMethodAvailable('CUSTOMER_INFO_API.Get_Association_No')
                        Call DbPLSQLBlock( c_hSql, sFullName || ".dfsVatNo := &AO.CUSTOMER_INFO_API.Get_Association_No(
                                        " || sFullName || ".dfsIdentity )")
                        If dfsGuiFormat='32'
                              Set dfsVatNo=' '
                Return TRUE

Function: Get_Fee_Description
      Description:
      Returns
                Boolean:
      Parameters
      Static Variables
      Local variables
      Actions
                If Security.IsMethodAvailable('STATUTORY_FEE_API.Get_Description')
                        Call DbPLSQLBlock( c_hSql, sFullName || ".dfFeeDescription := SUBSTRB( &AO.STATUTORY_FEE_API.Get_Description(
                                        " || sFullName || ".dfsCompany,
                                        " || sFullName || ".dfsFeeCode ),1,20)")
                Return TRUE

Function: Get_Fee_Rate
      Description:
      Returns
                Boolean:
      Parameters
      Static Variables
      Local variables
      Actions
                If Security.IsMethodAvailable('STATUTORY_FEE_API.Get_Fee_Rate')
                        Call DbPLSQLBlock( c_hSql, sFullName || ".dfnPercentage :=&AO.STATUTORY_FEE_API.Get_Fee_Rate(
                                        " || sFullName || ".dfsCompany,
                                        " || sFullName || ".dfsFeeCode )")
                Return TRUE

Function: Get_GuiFormat_Description
      Description:
      Returns
                Boolean:
      Parameters
      Static Variables
      Local variables
      Actions
                If Security.IsMethodAvailable('GUI_FORMAT_API.Get_Description')
                        Call DbPLSQLBlock( c_hSql, sFullName || ".dfsGuiFormatDescription := &AO.GUI_FORMAT_API.Get_Description(
                                        " || sFullName || ".dfsCompany,
                                        " || sFullName || ".dfsGuiFormat )")
                Return TRUE

頁: [1]
查看完整版本: IFS client development <centura> 前端 Call 後端 API(1)