...
| Bloco de código | ||||||
|---|---|---|---|---|---|---|
| ||||||
User Function CTB270TOK Local nOpcX := PARAMIXB[1] // Number of option Local cCtq_CtOri := PARAMIXB[2] // Source account Local cCtq_CCOri := PARAMIXB[3] // Source cost center Local cCtq_ItOri := PARAMIXB[4] // Source item Local cCtq_ClOri := PARAMIXB[5] // Source value class Local cCtq_CtPar := PARAMIXB[6] // Entry Account Local cCtq_CCPar := PARAMIXB[7] // Entry cost center Local cCtq_ItPar := PARAMIXB[8] // Entry item Local cCtq_ClPar := PARAMIXB[9] // Entry value class Local cCtq_E05Ori := PARAMIXB[10]// Entity 05 Source Local cCtq_E06Ori := PARAMIXB[11]// Entity 06 Source Local cCtq_E07Ori := PARAMIXB[12]// Entity 07 Source Local cCtq_E08Ori := PARAMIXB[13]// Entity 08 Source Local cCtq_E09Ori := PARAMIXB[14]// Entity 09 Source Local cCtq_E05Par := PARAMIXB[15]// Entity 05 Entry Local cCtq_E06Par := PARAMIXB[16]// Entity 06 Entry Local cCtq_E07Par := PARAMIXB[17]// Entity 07 Entry Local cCtq_E08Par := PARAMIXB[18]// Entity 08 Entry Local cCtq_E09Par := PARAMIXB[19]// Entity 09 Entry Local lRet := .F. // customer validation Return lRet |
| Aviso | ||
|---|---|---|
| ||
|
Handling of EP in the system
lRet := ExecBlock("CTB270TOK", .F., .F., {nOpcX,cCtq_CtOri,cCtq_CCOri,cCtq_ItOri,cCtq_ClOri,;
cCtq_CtPar,cCtq_CCPar,cCtq_ItPar,cCtq_ClPar,;
cCtq_E05Ori,cCtq_E06Ori,cCtq_E07Ori,cCtq_E08Ori,cCtq_E09Ori,;
cCtq_E05Par,cCtq_E06Par,cCtq_E07Par,cCtq_E08Par,cCtq_E09Par } )
EP Example
| |
|
