Índice | ||
---|---|---|
|
Entry Point AF140GRV was developed to handle and make changes to table SN3 in accordance with desired rule in routine ATFA140.
Informações | ||
---|---|---|
| ||
The examples used in this documentation are merely illustrative and have pedagogical purposes. The operation and goal of the Entry Point is of the customer's full responsibility. |
Parameter | Type | Description | Mandatory |
PARAMBIX[1] | Not Applicable. | Not Applicable. | No |
Return | Type | Description | Mandatory |
lRet | Not Applicable | Not Applicable | No |
Bloco de código | ||||||||||
---|---|---|---|---|---|---|---|---|---|---|
| ||||||||||
user function AF140GRV()
// take a given cost center for changes
Local cCustEsp := GetMV("XX_ATFCC",.F.,'9999')
Local lCCusDep := GetMv("MV_ATFCCDP",.F.,.F.)
If Empty(MV_PAR01)
SN3->N3_CCUSTO := cCCustEsp
If lCCusDep
SN3->N3_CCDESP := cCCustEsp
EndIf
EndIf
Return |