Linha Microsiga Protheus.

Home

Linha Microsiga Protheus

Páginas filhas
  • AcDocStat - Customização da gravação do campo

Ponto-de-Entrada: AcDocStat - Customização da gravação do campo
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: 
Permite ao usuário customizar a gravação do campo JC6_STATUS preenchido automaticamente quando realizada a matricula de um aluno em um curso vigente que possua um grupo de documentos cadastrados.
Programa Fonte 
ACAXFUN.PRW
Sintaxe

AcDocStat - Customização da gravação do campo ( [ cNumRa ], [ cCodCur ], [ cCodDoc ], [ cNomRot ] ) --> cRet

Parâmetros:
Nome Tipo Descrição Default Obrigatório Referência
cNumRa Caracter Numero do registro academico do aluno matriculado/modificado.
cCodCur Array of Record Código do curso vigente qual o aluno foi matriculado/modificado.
cCodDoc Array of Record Código do documento em questão.
cNomRot Array of Record Nome da rotina em execução (ponto de entrada pode ser executado por diversas rotinas)
Retorno
    cRet()
  • '1' - Pendente'2' - Ok'3' - Não Requerido
Exemplos 
User Function AcDocStat()Local cNumra  := ParamIxb[1]Local cCodCur := ParamIxb[2]Local cCodDoc := ParamIxb[3]Local cRotIni := ParamIxb[4]Local cRet	  := ''Local cMens   := ''//Monta a mensagem de alertacMens += '#####################################################' + chr(13) + chr(10)cMens += 'Qual status voce deseja atribuir para o documento: ' + alltrim(cCodDoc) + " ?" + chr(13) + chr(10)cMens += 'Aluno referencia: ' + alltrim(cNumRa) + chr(13) + chr(10)cMens += 'Curso referencia: ' + alltrim(cCodCur) + chr(13) + chr(10)cMens += 'Rotina executada: ' + alltrim(cRotIni) + chr(13) + chr(10)cMens += '#####################################################' + chr(13) + chr(10)//Exibe a mensagem de alerta e define o retorno da funcaocRet := alltrim(str(Aviso('Ponto de Entra AcDocStat',cMens,{'1 - Pendente','2 - Ok','3 - Ñ Req.'})))Return cRet
Variáveis
Nome Tipo Escopo Pode Alterar descrição
Array of Record Global Não