Histórico da Página

Criação do ponto de entrada "AC240Exc" chamado após o processo de exclusão do cadastro do aluno, para excluir dados criados pelo usuário.

ACAA240.prw

AC240Exc - Exclusão de cadastro do aluno ( [ ParamIxb[1] ] ) --> lRet

lRet()
• Retorna .T. se exclusão do usuário foi bem sucedida, senão retorna .F.

User Function AC240Exc()Local aUserFol := ParamIxb[1]Local nX := 0 Local lRet := .F.Local nItem := 0 //Folder 1Local aHeadF1User := aUserFol[1][1]Local aColsF1User := aUserFol[1][2]  //Folder 2Local aHeadF2User := aUserFol[2][1]Local aColsF2User := aUserFol[2][2]               //Exclusao folder 1 nItem := aScan(aHeadF1User, {|x| x[2] == "JK1_ITEM"})For nx := 1 To Len(aColsF1User)	dbSelectArea("JK1")	If JK1->(DbSeek(xFilial("JK1")+M->JA2_NUMRA + aColsF1User[nx][nItem]))		RecLock("JK1",.F.)		JK1->( DBDelete() )		JK1->( MsUnlock() ) 		lRet := .T.	EndIfNext Nx         //Exclusao folder 2 nItem := aScan(aHeadF2User, {|x| x[2] == "JK2_ITEM"})For nx := 1 To Len(aColsF2User)	dbSelectArea("JK2")	If JK2->(DbSeek(xFilial("JK2")+M->JA2_NUMRA + aColsF2User[nx][nItem]))		RecLock("JK2",.F.)		JK2->( DBDelete() )		JK2->( MsUnlock() ) 		lRet := .T.	EndIfNext Nx  Return lRet