Exemplos | #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 |
---|
Variáveis | 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. |
---|