Home

Linha Microsiga Protheus

Páginas filhas
  • AC240ChF - Mudança de folder

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Comentário: Migration of unmigrated content due to installation of a new plugin
Composition Setup
import.css=/download/attachments/327912/newLayout.css
Portuguese

Pagetitle
AC240ChF - Mudança de folder
AC240ChF - Mudança de folder

Ponto-de-Entrada: AC240ChF - Mudança de folder
Abrangências: Microsiga Protheus 8.11 , Microsiga Protheus 10
Versões: Microsiga Protheus 8.11 , Microsiga Protheus 10
Compatível Países: Todos
Sistemas Operacionais: Todos
Compatível às Bases de Dados: Todos
Descrição:
Criação do ponto de entrada "AC240ChF" chamado ao mudar de folder no cadastro de alunos.
Programa Fonte
ACAA240.prw
Sintaxe

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

Parâmetros:
NomeTipoDescriçãoDefaultObrigatórioReferência
ParamIxb[1]Array of RecordArray aUserFol contendo todas as informações da folder do usuário.
ParamIxb[2]Array of RecordNumero da folder selecionada.
ParamIxb[3]Array of RecordObjeto oFolder da janela
Retorno
    aUserFol()
  • Array contendo todas as informações da folder do usuário.
Exemplos
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
Variáveis
NomeTipoEscopoPode Alterardescrição
Array of RecordGlobalNão