Product Line: | Microsiga Protheus. | ||||
Industry: | Services | ||||
Module: | Fixed Asset (SIGAATF) | ||||
Routine: |
| ||||
Entry Point: | AF030VLBX. | ||||
Related Tickets | TTOYD2. | ||||
Countries: | All | ||||
Database: | All approved for Protheus. | ||||
Tables Used: | SN1,SN3. | ||||
Operating Systems: | All approved for Protheus. |
Entry point AF030VLBX validates the item that will be posted manually or automatically. The user can place the desired validations that are not in the default product.
The changes and impacts of these changes to the system are the responsibility of the customer who uses this entry point.
Description: | This entry point was created so that the user does validations that do not exist in the standard product in the manual posting and/or automatic posting routines. |
Location: | Custom routine, therefore, it is not part of the default menu. |
Events: | AF030VLBX. |
Source Program: | ATFA030. |
Function: | AF030Baixa - Manual posting, and AF030VLAUTO - Automatic posting. |
Return: | Logic return. |
Example:
* *
Example:
#Include '[<span style="color: #0000ee"><span style="text-decoration: underline; ">Protheus.ch</span></span>|http://Protheus.ch]'
User function AF030VLBX()Local lRet := .T.Local cRotina := paramixb\[1\]Local cManuAuto := paramixb\[2\]
If cManuAuto == "MAN"
msgAlert("Manual Posting") lRet := .t.Elseif cManuAuto == "AUTO" msgAlert("Automatic Posting") lRet := .t.Endif
Return(lRet)
\\
*_Excerpt in which the PE is called in the default source code._*
/* ----------------------------------------------------------------------- Validate whether the item selected can be posted ------------------------------------------------------------------------ Call on manual posting -----------------------
IF lAF030VLBX lRet := ExecBlock("AF030VLBX",.F.,.F.,\{"ATFA030","MAN"\}) IF ValType(lRet) == "L" .AND. !lRet EXIT ENDIFENDIF
------------------------------------------------------------------------Call on automatic posting (using a static function)--------------------------------------------------------STATIC FUNCTION AF030VLAUTO()LOCAL lRet := .T.Local lAF030VLBX := ExistBlock("AF030VLBX")
IF lAF030VLBX lRet := ExecBlock("AF030VLBX",.F.,.F.,\{"ATFA030","AUTO"\}) IF ValType(lRet) != "L" lRet := .T. ENDIFENDIFRETURN lRet ------------------------------------------------------------------------ */
!worddavaf485e25f57cd86bb5b0fc63f3f1b1cc.png|height=32,width=32! Wiki Markup