Linha Microsiga Protheus.

Home

Linha Microsiga Protheus

Páginas filhas
  • Ac682Inad - Substituição de validação padrão

Versões comparadas

Versão antiga 2

changes.mady.by.user admin

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user admin

Gravado em

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
Ac682Inad - Substituição de validação padrão
Ac682Inad - Substituição de validação padrão

Ponto-de-Entrada: Ac682Inad - Substituição de validação padrão
Abrangências: Microsiga Protheus 8.11 , Microsiga Protheus 10
Versões: Microsiga Protheus 8.11 , Microsiga Protheus 10
Compatível Países: Brasil
Sistemas Operacionais: Todos
Compatível às Bases de Dados: Todas TotvsDbAccess
Descrição: 
Ponto de entrada que substitui a validação padrão de inadimplencia na geração de títulos de matricula antecipados (ACAA682)
Programa Fonte 
ACAA682.PRW
Sintaxe

Ac682Inad - Substituição de validação padrão ( [ cNumRa ], [ cCodCur ], [ cCodCli ], [ cLojCli ] ) --> lRet

Parâmetros:
NomeTipoDescriçãoDefaultObrigatórioReferência
cNumRaCaracterNúmero de Registro Academico do aluno. (RA)
cCodCurArray of RecordCódigo do Curso Vigente do aluno.
cCodCliArray of RecordCód. de cliente do aluno, para validação na E1_CLIENTE
cLojCliArray of RecordCód Loja do cliente/aluno no cadastro da SA1
Retorno
    lRet()
  • .T. = Não existem títulos pendentes que caracterizem inadimplencia..F. = Aluno com títulos pendentes (Inadimplente)
Exemplos 
User Function Ac682Inad()Local cNumRa := ParamIxb[1]Local cCodCur:= ParamIxb[2]Local cCodCli:= ParamIxb[3]Local cLojCli:= ParamIxb[4]Local cMens	 := ""Local lRet	 := .F.                   cMens += ' Aluno: ' + cNumra  + chr(13) + chr(10)cMens += ' Cod. Curso: ' + cCodCur + chr(13) + chr(10)cMens += ' Cod. Cliente: ' + cCodCli + chr(13) + chr(10)cMens += ' Loj. Cliente: ' + cLojCli + chr(13) + chr(10)Aviso('Ponto de entrada Ac682Inad executado com sucesso.      ',cMens,{'Voltar'})                           Return lRet
Variáveis
NomeTipoEscopoPode Alterardescrição
Array of RecordGlobalNão