Linha Microsiga Protheus

Árvore de páginas

Ponto-de-Entrada: QP215J9 - Status das manutenções em tabelas nos resultados das medições.
Abrangências: Microsiga Protheus 10 , Microsiga Protheus 11
Versões: Microsiga Protheus 10 , Microsiga Protheus 11
Compatível Países: Todos
Sistemas Operacionais: Todos
Compatível às Bases de Dados: Todos
Idiomas: Português (Brasil) , Espanhol , Inglês
Descrição: 
Este ponto de entrada envia a ação de manutenção de determinadas tabelas das medições ao se efetivar os resultados das medições, identificando 
por parametro a tabela e o Status da ação (Inclusão, alteração e deleção). Não espera nenhum retorno e pode ser usado conforme a necessidade em função de usuario.

As tabelas usadas são :
  QPS - Processo Medições Mensuráveis
  QPQ - Texto das Medições
  QPU - Não Conformidade
  QPT - Instrum Utilizados Medições
  QPR - Medições
Programa Fonte 
QIPA215.PRW
Sintaxe

QP215J9 - Status das manutenções em tabelas nos resultados das medições. ( [ PARAMIXB ] ) --> return

Parâmetros:
Nome Tipo Descrição Default Obrigatório Referência
PARAMIXB Array of Record 1 - Tabela
2 - Status (I=inclusão,A=Alteração,D=Deleção), Exceto p/ QA2=Matrix 1-cod,2-texto
3 - Chave de agrupamento (Quando houver)
Retorno
    return(nulo)
Observações

Status das manutenções em laudos nos resultados de medições

Exemplos 
USER FUNCTION QP215J9()  LOCAL cTab   := PARAMIXB[1]  LOCAL xStaDesc  := PARAMIXB[2]  Local cChave := iif(len(PARAMIXB)>2, PARAMIXB[3],'')  Local nCont	  If cTab <> "QA2"     alert ('Tabela : '+cTab+' Status : '+xStaDesc+' (I=Inclusão / A=Alteração /D=Deletado) '+Iif(cChave<>'',' chave:'+cChave,''))	  Else     for nCont = 1 to len(xStaDesc)           alert ('Tabela : '+cTab+' Não Conform: '+cvaltochar(xStaDesc[nCont,1])+' - '+xStaDesc[nCont,2]+''+Iif(cChave<>'',' chave:'+cChave,''))     Next nCont EndIf		RETURN
Variáveis
Nome Tipo Escopo Pode Alterar descrição
Array of Record Global Não