QADGRFNC - Não Conformidades

Ponto de Entrada criado para tratar QUG por QUG, alterando as que são Não-Conformidades / Melhorias, sendo tratado dentro do While.

QADA140.PRW

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

aCpoQNC(array_of_record)

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)