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 } )

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

• Observa-se que a utilização do PE e os impactos dele no sistema são de responsabilidade do cliente.
• Os exemplos utilizados nessa documentação são apenas para fins de demonstração, cada cliente deve verificar qual comportamento deseja realizar de acordo com o escopo do ponto de entrada.