AC240ChF - Mudança de folder

Criação do ponto de entrada "AC240ChF" chamado ao mudar de folder no cadastro de alunos.

ACAA240.prw

AC240ChF - Mudança de folder ( [ ParamIxb[1] ], [ ParamIxb[2] ], [ ParamIxb[3] ] ) --> aUserFol

aUserFol()
• Array contendo todas as informações da folder do usuário.

User Function AC240ChF()Local aUserCol := Paramixb[1]Local nNewOption := Paramixb[2]Local oFolder := Paramixb[3]//Folder 1Local aHeadF1User := aUserCol[1][1]Local aColsF1User := aUserCol[1][2]   Local oGetF1User := aUserCol[1][3]//Folder 2Local aHeadF2User := aUserCol[2][1]Local aColsF2User := aUserCol[2][2]   Local oGetF2User := aUserCol[2][3]Local nLinha := aUserCol[1][4] //Folder anterior      If oFolder:nOption == 8  // folder usuario 1 	If 	aUserCol[1][5]		aColsF1User	:= aClone(aCols)		aHeadF1User 	:= aClone(aHeader)		nLinha 	:= n		oGetF1User:oBrowse:lDisablePaint := .T.		aUserCol[1][1] := aClone(aHeadF1User)		aUserCol[1][2] := aClone(aColsF1User)		aUserCol[1][3] := oGetF1User		aUserCol[1][4] := nLinha								aUserCol[1][5] := .F. 	EndIf		ElseIf oFolder:nOption == 9  // folder usuario  2	If 	aUserCol[2][5]		aColsF2User 	:= aClone(aCols)		aHeadF2User 	:= aClone(aHeader)		nLinha 	:= n		oGetF2User:oBrowse:lDisablePaint := .T.		aUserCol[2][1] := aClone(aHeadF2User)		aUserCol[2][2] := aClone(aColsF2User)		aUserCol[2][3] := oGetF2User		aUserCol[2][4] := nLinha								aUserCol[2][5] := .F.	EndIf		EndIf   //Folder selecionadaIf nNewOption == 8 // Change para Folder 1	If 	!aUserCol[1][5] 		DbSelectarea("JK1")		aCols 		:= aClone(aColsF1User)		aHeader		:= aClone(aHeadF1User)		n 		:= nLinha		oGetF1User:oBrowse:lDisablePaint := .F.		oGetF1User:ForceRefresh() 		aUserCol[1][5] := .T.	EndIfElseIf nNewOption == 9       // Change para Folder 2	If 	!aUserCol[2][5] 		DbSelectarea("JK2")		aCols 		:= aClone(aColsF2User)		aHeader		:= aClone(aHeadF2User)		n 		:= nLinha		oGetF2User:oBrowse:lDisablePaint := .F.		oGetF2User:ForceRefresh()   		aUserCol[2][5] := .T.	EndIfEndIfReturn aUserCol