Linha Microsiga Protheus

Árvore de páginas

Ponto-de-Entrada: CHKRDZREL - Verificação de Relacionamento
Versões: Microsiga Protheus 10
Compatível Países: Todos
Sistemas Operacionais: Todos
Compatível às Bases de Dados: Todos
Descrição: 
O ponto de entrada tem como objetivo realizar vericação do relacionamento das tabelas RD0 e RDZ.
Eventos

Na tela de manutenção, ao clicar no botão Relaciona e, também, na validação do campo Centro de Custo.

Programa Fonte 
APDA020.PRX
Sintaxe

CHKRDZREL - Verificação de Relacionamento ( [ Param1 ], [ Param2 ] ) --> Param1

Parâmetros:
Nome Tipo Descrição Default Obrigatório Referência
Param1 Caracter Indica se é a 1ª ou 2ª chamada.
Param2 Array of Record Indica se foi feita alteração na Tabela.
Retorno
    Param1(logico)
  • Indica se foi feita alteração na Tabela.
Observações

O Ponto de Entrada deverá retornar .T. se alterou a tabela SRA ou .F., caso contrário.

Param1   -> Terá o conteúdo "INIT" quando executado na 1ª vez e o conteúdo "END" quando executado pela 2ª vez .
Param2 -> É enviado apenas na segunda chamada para verificar se houve alteração

 

 

Exemplos 
#INCLUDE 'PROTHEUS.CH'User Function ChkRdzRel()Local cType 	:= Paramixb[1]Local lChanged 	If cType == "INIT"//	Operacoes da 1a chamada.//	Alert("Passou pelo PE ChkRdzRel-INIT")ElseIf cType == "END"	lChanged := Paramixb[2]//	Operacoes da 2a chamada.//	Alert("Passou pelo PE ChkRdzRel-END")EndIfIf ( lChanged == Nil, lChanged := .T., )Return ( lChanged )
Variáveis
Nome Tipo Escopo Pode Alterar descrição
Array of Record Global Não