APTA100VLD - Validação dos dados do Cadastro de Processos.

Este ponto de entrada tem como objetivo permitir validar os dados do cadastro de processos ao realizar inclusão ou alteração.

#INCLUDE "PROTHEUS.CH"

User function APTA100VLD()

Local aProcesso := PARAMIXB[1] //Dados da aba de Processos
Local aPleito := PARAMIXB[2][1] //Dados da aba de Pleitos, area de Pleitos
Local aPericia := PARAMIXB[2][2] //Dados da aba de Pleitos, area de Pericias
Local aAdvogados := PARAMIXB[2][3] //Dados da aba de Advogados
Local aAudiencia := PARAMIXB[2][4] //Dados da aba de Audiencia, area de Audiencia
Local aTestemun := PARAMIXB[2][5] //Dados da aba de Audiencia, area de Testemunha
Local aOcorren := PARAMIXB[2][6] //Dados da aba de Ocorrencia
Local aSentenc := PARAMIXB[2][7] //Dados da aba de Sentenças, linha de Sentenças
Local aLanFol := PARAMIXB[2][8] //Dados da aba de Sentenças, linha Lançamentos para Fola
Local aRecursos := PARAMIXB[2][9] //Dados da aba de Recursos
Local aDespesa := PARAMIXB[2][10] //Dados da aba de Despesas
Local aBens := PARAMIXB[2][11] //Dados da aba de Bens
Local nAchou := 0
Local nProcura := 1
Local lRet := .T.

AEVAL(aProcesso, { | aProcesso | If(aProcesso[1] == "RE0_DTPROC" ,nAchou := nProcura, nProcura++ ) } )

If nAchou <> 0

If aProcesso[nAchou][2] == dDatabase
//Alert("Dados estão incorretos.")
lRet := .F.
EndIf

EndIf

Return lRet

Português(Brasil)

Microsiga_Protheus11

Todos

Todas

lRet
O retorno, obrigatoriamente, precisa ser do tipo lógico.
Ao retornar o Lógico ele determinará se deve gravar ou não os dados.

aProcesso := PARAMIXB[1] - Dados da aba de Processos
aPleito := PARAMIXB[2][1] - Dados da aba de Pleitos, área de Pleitos
aPericia := PARAMIXB[2][2] - Dados da aba de Pleitos, área de Pericias
aAdvogados := PARAMIXB[2][3] - Dados da aba de Advogados
aAudiencia := PARAMIXB[2][4] - Dados da aba de Audiência, área de Audiência
aTestemun := PARAMIXB[2][5] - Dados da aba de Audiência, área de Testemunha
aOcorren := PARAMIXB[2][6] - Dados da aba de Ocorrência
aSentenc := PARAMIXB[2][7] - Dados da aba de Sentenças, linha de Sentenças
aLanFol := PARAMIXB[2][8] - Dados da aba de Sentenças, linha Lançamentos para Fola
aRecursos := PARAMIXB[2][9] - Dados da aba de Recursos
aDespesa := PARAMIXB[2][10] - Dados da aba de Despesas
aBens := PARAMIXB[2][11] - Dados da aba de Bens

lRet: Variável lógica que irá determinar se os dados devem ser gravados ou não.

APTA100.PRW