Árvore de páginas

Ponto-de-Entrada: QADGRFNC - Não Conformidades
Abrangências: Microsiga Protheus 10
Compatível Países: Todos
Sistemas Operacionais: Todos
Compatível às Bases de Dados: Todos
Descrição:
Ponto de Entrada criado para tratar QUG por QUG, alterando as que são Não-Conformidades / Melhorias, sendo tratado dentro do While.
Programa Fonte
QADA140.PRW
Sintaxe

QADGRFNC - Não Conformidades ( < aCpoQNC> ) --> aCpoQNC

Parâmetros:
Nome Tipo Descrição Default Obrigatório Referência
aCpoQNC Array of Record Array para alimentar a QUG X
Retorno
    aCpoQNC(array_of_record)
Exemplos
User Function QADGRFNC()Local aCpos := PARAMIXB[1]Local aCpoQNC :={}	Aadd(aCpoQNC,{"QI2_MEMO1",MsMM(QUG->QUG_DESCHV,TamSX3('QUG_DESC1')[1])})	Aadd(aCpoQNC,{"QI2_OCORRE",QUG->QUG_OCORNC})	Aadd(aCpoQNC,{"QI2_CONPRE",QUG->QUG_OCORNC+QUG->QUG_PRAZO})	Aadd(aCpoQNC,{"QI2_DESCR" ,"NAO-CONFORMIDADE REFERENTE AUDITORIA "+AllTrim(QUG->QUG_NUMAUD)+" - "+QUG->QUG_SEQ}) 	Aadd(aCpoQNC,{"QI2_TPFIC" ,"3"}) // 2- NAO CONFORMIDADE 3-MELHORIA	Aadd(aCpoQNC,{"QI2_PRIORI",QUG->QUG_CATEG})	Aadd(aCpoQNC,{"QI2_MEMO2" ,"CHECK LIST "+QUG->QUG_CHKLST+" - "+QUG->QUG_REVIS+" - "+QUG->QUG_CHKITE+" - "+QUG->QUG_QSTITE})	Aadd(aCpoQNC,{"QI2_ORIGEM","QAD"})	Aadd(aCpoQNC,{"QI2_CODFOR",QUB->QUB_CODFOR})	Aadd(aCpoQNC,{"QI2_LOJFOR",QUB->QUB_LOJA})	Aadd(aCpoQNC,{"QI2_FILMAT","01"}) // Filial do usuario digitado	Aadd(aCpoQNC,{"QI2_MAT"   ,"001"}) //  Cod. do usuario digitado   	Aadd(aCpoQNC,{"QI2_MATDEP","DEPENG"}) // Depto do usuario digitado	Aadd(aCpoQNC,{"QI2_FILRES","01"})	//Filial do Responsavel	Aadd(aCpoQNC,{"QI2_MATRES","001"})	//Matricula do Responsavel	Aadd(aCpoQNC,{"QI2_ORIDEP","DEPENG"})  // Depto de OrigemReturn(aCpoQNC)
Variáveis
Nome Tipo Escopo Pode Alterar descrição
Array of Record Global Não