AC240GRV - Inclusão ou alteração de aluno

Ponto-de-Entrada: AC240GRV - Inclusão ou alteração de aluno

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:

Ponto de entrada chamado após a gravação da inclusão ou alteração de um aluno.Ao chamar este ponto de entrada a tabela de cadastro de alunos (JA2) já está posicionada no aluno gravado.

Programa Fonte

ACAA240.PRW

Sintaxe

AC240GRV - Inclusão ou alteração de aluno ( [ ParamIxb[1~] ] ) --> Nil

Parâmetros:

Nome

Tipo

Descrição

Default

Obrigatório

Referência

ParamIxb[1~]

Array of Record

Array aUserFol contendo todas as informações da Folder criada pelo usuário para ser utilizada na gravação dos dados da folder.

Retorno

Nil

Nil

Exemplos

//este exemplo irá gravar os dados da folder criado pelo usuarioUser Function AC240Grv()Local aUserFol := ParamIxb[1]Local nX := 0 //Folder 1Local aHeadF1User := aUserFol[1][1]Local aColsF1User   := aUserFol[1][2]  //Folder 2Local aHeadF2User := aUserFol[2][1]Local aColsF2User := aUserFol[2][2]  Local nItem := 0 Local nCmp1 := 0 Local nCmp2 := 0 //Gravacao Folder 1nItem := aScan(aHeadF1User, {|x| x[2] == "JK1_ITEM"})nCmp1 := aScan(aHeadF1User, {|x| x[2] == "JK1_TPSAN"})nCmp2 := aScan(aHeadF1User, {|x| x[2] == "JK1_ALERGI"})For nx := 1 To Len(aColsF1User)	If !aColsF1User[nx,Len(aHeadF1User)+1]   		If !Empty(aColsF1User[nx][nItem])			dbSelectArea("JK1")			If JK1->(DbSeek(xFilial("JK1")+M->JA2_NUMRA + aColsF1User[nx][nItem]))				RecLock("JK1",.F.)			Else				RecLock("JK1",.T.)				    EndIf		                                   		    JK1->JK1_FILIAL := xFilial("JK1")		    JK1->JK1_NUMRA  := M->JA2_NUMRA		    JK1->JK1_ITEM   := aColsF1User[nx][nItem]		    JK1->JK1_TPSAN  := aColsF1User[nx][nCmp1]		    JK1->JK1_ALERGI := aColsF1User[nx][nCmp2]    			JK1->( MsUnlock() )		EndIf	Else		If JK1->(DbSeek(xFilial("JK1")+M->JA2_NUMRA + aColsF1User[nx][nItem]))			RecLock("JK1",.F.)			JK1->( DBDelete() )						JK1->( MsUnlock() )		EndIf				EndIf	Next nX        //Gravacao folder 2nItem := aScan(aHeadF2User, {|x| x[2] == "JK2_ITEM"})nCmp1 := aScan(aHeadF2User, {|x| x[2] == "JK2_OBS"})For nx := 1 To Len(aColsF2User)	If !aColsF2User[nx,Len(aHeadF2User)+1]   		If !Empty(aColsF2User[nx][nItem])			dbSelectArea("JK2")			If JK2->(DbSeek(xFilial("JK2")+M->JA2_NUMRA + aColsF2User[nx][nItem]))				RecLock("JK2",.F.)			Else				RecLock("JK2",.T.)				    EndIf		                                   		    JK2->JK2_FILIAL := xFilial("JK2")		    JK2->JK2_NUMRA  := M->JA2_NUMRA		    JK2->JK2_ITEM   := aColsF2User[nx][nItem]		    JK2->JK2_OBS    := aColsF2User[nx][nCmp1]			JK2->( MsUnlock() )		EndIf	Else		If JK2->(DbSeek(xFilial("JK2")+M->JA2_NUMRA + aColsF2User[nx][nItem]))			RecLock("JK2",.F.)			JK2->( DBDelete() )						JK2->( MsUnlock() )		EndIf				EndIf	Next nX  Return

Home

Linha Microsiga Protheus

Páginas filhas