Home

Linha Microsiga Protheus

Páginas filhas
  • AC240GRV - Inclusão ou alteração de aluno

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
AC240GRV - Inclusão ou alteração de aluno
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:
NomeTipoDescriçãoDefaultObrigatórioReferência
ParamIxb[1~]Array of RecordArray 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