Linha Microsiga Protheus.

Home

Linha Microsiga Protheus

Páginas filhas
  • AC240Exc - Exclusão de cadastro do aluno

Ponto-de-Entrada: AC240Exc - Exclusão de cadastro do 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: 
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.
Programa Fonte 
ACAA240.prw
Sintaxe

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

Parâmetros:
Nome Tipo Descrição Default Obrigatório Referência
ParamIxb[1] Array of Record Array aUserFol contendo todas as informações de folder criada pelo usuario
Retorno
    lRet()
  • Retorna .T. se exclusão do usuário foi bem sucedida, senão retorna .F.
Exemplos 
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
Variáveis
Nome Tipo Escopo Pode Alterar descrição
Array of Record Global Não