Linha Microsiga Protheus.

Home

Linha Microsiga Protheus

Páginas filhas
  • 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:
Nome Tipo Descrição Default Obrigatório Referência
cNumRa Caracter Número de Registro Academico do aluno. (RA)
cCodCur Array of Record Código do Curso Vigente do aluno.
cCodCli Array of Record Cód. de cliente do aluno, para validação na E1_CLIENTE
cLojCli Array of Record Có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
Nome Tipo Escopo Pode Alterar descrição
Array of Record Global Não