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:

Ao realizar a gravação dos dados nas tabelas do Quality.

Programa Fonte:

QDOXFUN.PRW

Função:

QT_QUALITY()

Parâmetro:

Nome

Tipo

Descrição

Obrigatório

 PARAMIXB[1]

Carácter

cFilDe()

  • Filial Origem

 

 PARAMIXB[2]

Carácter

cEmpDe

  • Empresa Origem

 

PARAMIXB[3]Carácter

cMatDe

  • Matricula Origem.

 

 
PARAMIXB[4]Carácter

cCcDe

  • Centro de Custo de Origem
 
PARAMIXB[5]Carácter

cFilAte

  • Filial Destino
 
PARAMIXB[6]Carácter

cEmpAte

  • Empresa destino
 
PARAMIXB[7]Carácter

cMatAte

Matricula Destino

 
PARAMIXB[8]Carácter

cCcuAte

Centro de Custo Destino

 

 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   // Retorno Logico.