Árvore de páginas

Ponto-de-Entrada: QNCVLACO - Plano de ação / Ações Corretivas


Abrangências:Advanced Protheus 6.09 , Advanced Protheus 7.10 , Microsiga Protheus 8.11 , Microsiga Protheus 10 , Microsiga Protheus 11
Versões:Advanced Protheus 6.09 , Advanced Protheus 7.10 , Microsiga Protheus 8.11 , Microsiga Protheus 10 , Microsiga Protheus 11
Compatível Países:Todos
Sistemas Operacionais:Todos
Compatível às Bases de Dados:ADS/ADSServer
Idiomas:Português (Brasil) , Espanhol , Inglês


Descrição:
Validação de campos específicos e/ou critérios das alterações das Ações Corretivas / Plano de ção.

Ponto de Chamada: disparado no momento em que for selecionado o Botão de OK do Cadastro de Ações Corretivas.

Programa Fonte
QNCA030.PRW
Sintaxe

QNCVLACO - Plano de ação / Ações Corretivas ( < ParamIXB> ) --> lRet

Parâmetros:



Nome

Tipo

Descrição

Default

Obrigatório

Referência

ParamIXB

Array of Record

1 - ocorrencias / Não conformidades
   1.1 - codigo FNC
   1.2 - revisão FNC
   1.3 - descr resumida
   1.4 - rev PIAGR
   1.5 - Tabela (QI9)
   1.6 - Nr. registro
   1.7 - Ctrl logico
2 - Ações/Etapas
   2.1 - Tipo ação
   2.2 - Descrição
   2.3 - Revisão
   2.4 - cod usuário
   2.5 - Nome usuario
   2.6 - Prazo execução
   2.7 - Dt realização
   2.8 - Status ação 0-0% 1-25% 2 -50% 3 -75% 4 - 100%
   2.9 - Descr resumida
   2.10 - Descr Completa
   2.11 - Observação
   2.12 - Tabela (QI5)
   2.13 - Nr Registro
   2.14- Ctrl Logico
3 - Causas potenciais
   3.1 - Tipo causa 1-mediçao,2-materiais,3-M.O..,4-meio ambiente,5-metodo maquinas
   3.2 - Cod causa
   3.3 - Descr causa
   3.4 - Detalhes causa
   3.5 - Causa raiz
   3.6 - Metodo
   3.7 - Tabela (QI6)
   3.8 - Nr Registro
   3.9 - Ctrl Logico
4 - layout Matriz 5 (plano de ação)
      matriz5 Tab Ref Nome campo
   4.1 - [01][1] QI3 [5] QI3_CODIGO
   4.2 - [01][2] QI3 [5] QI3_REV
   4.3 - [02][1] QI3 [5] QI3_ABERTU
   4.4 - [02][2] QI3 [5] QI3_ENCPRE
   4.5 - [03][1] QI3 [5] QI3_ENCREA
   4.6 - [03][2] QI3 [5] QI3_FILMATSMO
   4.7 - [04][1] QI3 [5] QI3_MAT
   4.8 - [04][2] QI3 [5] QI3_NUSR
   4.9 - [05][1] QI3 [5] QI3_MEMO1
   4.10 - [06][1] QI3 [5] QI3_MEMO2
   4.11 - [07][1] QI3 [5] QI3_MEMO3
   4.12 - [08][1] QI3 [5] QI3_MEMO4
   4.13 - [09][1] QI3 [5] QI3_MEMO5
   4.14 - [10][1] QI3 [5] QI3_MEMO6
   4.15 - [11][1] QI3 [5] QI3_STATUS
   4.16 - [11][2] QI3 [5] QI3_TIPO
   4.17 - [12][1] QI3 [5] QI3_MODELOQIH
   4.18 - [12][2] QI3 [5] QI3_DESCMD
   4.19 - [13][1] QI3 [5] QI3_SIGILO
5 - Matriz Campos Descrição e conteudo
   5.1
      5.1.1 Codigo ação
      5.1.2 conteudo
      5.1.3 revisao
      5.1.4 conteudo
      5.1.5 01
   5.2
      5.2.1 Dt Abertura
      5.2.2 conteudo
      5.2.3 dt.encer.pre
      5.2.4 conteudo
      5.2.5 02
   5.3
      5.3.1 dt encer rea
      5.3.2 conteudo
      5.3.3 fil usr.resp
      5.3.4 conteudo
      5.3.5 03
   5.4
      5.4.1 usr resp
      5.4.2 conteudo
      5.4.3 nome usuario
      5.4.4 conteudo
      5.4.5 04
   5.5
      5.5.1 descr.detalh
      5.5.2 memo1
      5.5.3
      5.5.4
      5.5.5 05
   5.6
      5.6.1 local ocorr
      5.6.2 memo2
      5.6.3
      5.6.4
      5.6.5 06
   5.7
      5.7.1 Res.Esperado
      5.7.2 memo3
      5.7.3
      5.7.4
      5.7.5 07
   5.8
      5.8.1 Res.Atingido
      5.8.2 memo4
      5.8.3
      5.8.4
      5.8.5 08
   5.9
      5.9.1 oBSERVAÇÕES
      5.9.2 MEMO5
      5.9.3
      5.9.4
      5.9.5 09
   5.10
      5.10.1 METODO UTIL
      5.10.2 MEMO6
      5.10.3
      5.10.4
      5.10.5 10
   5.11
      5.11.1 STATUS AÇÃO
      5.11.2 CONTEUDO
      5.11.3 TIPO AÇÃO
      5.11.4 CONTEUDO
      5.11.5 11
   5.12
      5.12.1 COD MODELO
      5.12.2 CONTEUDO
      5.12.3 DESCR MODELO
      5.12.4 CONTEUDO
      5.12.5 12
   5.13
      5.13.1 SIGILO?
      5.13.2 1/2
      5.13.3
      5.13.4
      5.13.5 13
6 status 0-0% 1-25% 2 -50% 3 -75% 4 - 100%





X




Retorno
lRet
    (logico)
  • Retorna .T. ou .F.
Exemplos
USER FUNCTION QNCVLACO ()  lret           := .F.  aMatrix    := paramIXB   If Len(aMatrix[3]) > 0     lret := .T.  Else     Alert ("é Obrigatorio informar as Causas para concluir."	)  Endif	RETURN lret