If lRet .And. ExistBlock( "PCOA3102" )
//P_EÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//P_E³ Ponto de entrada utilizado para inclusao de funcoes de usuarios na ³
//P_E³ validacao do reprocessamento dos Lancamentos ³
//P_E³ Parametros : Nenhum ³
//P_E³ Retorno : .T.ou .F. //.T.validacao de usuario OK .F.-Falhou ³
//P_E³ Ex. : User Function PCOA3102 ³
//P_E³ Return(If(U_FuncUsr(), .T., .F.)) ³
//P_EÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
lRet := ExecBlock( "PCOA3102", .F., .F.,{cProcesso,cItem,aClone(aRet)})
EndIf |