QDOXCTB - Ponto de entrada para validar a integração RH/Centro de Custo com o Quality

Linha de Produto:

Microsiga Protheus

Segmento:

Manufatura

Módulo:

SIGAQDO - Controle de Documentos

Rotina:

Rotina

Nome Técnico

QDOXFUN.PRW

Rotinas genéricas do modulo de Documentos 

Cadastros Iniciais:

Cadastro de Funcionário - GPEA010.PRX

Ponto de Entrada:

QDOXCTB

Chamados Relacionados

TVLFKQ

País(es):

Todos

Banco(s) de Dados:

Todos Homologados pela TOTVS

Tabelas Utilizadas:

QAA - Cadastro de usuário

SI3 - Centros de Custos

Sistemas Operacionais:

Todos Homologados pela TOTVS

Descrição

 Ponto de entrada para validar a integração RH/Centro de Custo com o Quality

Observações :


Retorno: Logico 

Descrição:

Ponto de entrada para validar a integração do RH/Centro de Custo X Quality

Localização:

Localizado no final da função que permitirá alterar a quantidade do componente utilizado na estrutura.

Eventos:

 

Programa Fonte:

QDOXFUN.PRW

Função:

QT_QUALITY()

Parâmetro:

Nome

Tipo

Descrição

Obrigatório

 PARAMIXB[1]

Numérico

nRet()

  • Quantidade do componente Pai da estrutura.

 

 PARAMIXB[2]

Carácter

nQuantIt

  • Consulta quantidade do Item do componente que esta sendo usado

 

PARAMIXB[3]Logico

lOk

  • Permite saber se o componente será utilizado caso .T. será utilizado, .F. não será utilizado.

(Somente para consulta )

 
PARAMIXB[4]Numérico

nMotivo

  • Permite consultar o motivo do lOk estar .F. 
  • Motivo 1 = Componente fora das datas inicio / fim
  • Motivo 2 = Componente fora dos grupos de opcionais
  • Motivo 3 = Componente fora das revisões
 
PARAMIXB[5] 

cOpcLoc

  • Grupo de Opcionais encontrado no momento
 
PARAMIXB[6] 

cOpcionais

  • Grupo de Opcionais selecionado na geração de OP
 

 Exemplo: 

#include 'totvs.ch'

#Include 'Protheus.ch'

User Function QDOXCTB()

Local cFilDe := ParamIXB [1]
Local cEmpDe := ParamIXB [2]
Local cMatDe := ParamIXB [3]
Local cCcDe := ParamIXB [4]
Local cFilAte := ParamIXB [5]
Local cEmpAte := ParamIXB [6]
Local cMatAte := ParamIXB [7]
Local cCcuAte := ParamIXB [8]

Local lRet := .T.

IF IsInCallStack("GPEA180")

    IF ALLTRIM(cCcuAte) == "0002"
lRet := .F.
EndIF

EndIF

Return lRet