Linha Microsiga Protheus

Árvore de páginas

QDOXCTB - Ponto de Entrada para validar a integração RH/Centro de Custo com o Quality (Departamento)

Linha de Produto:

Microsiga Protheus

Segmento:

Manufatura

Módulo:

SIGAQDO - Controle de Documentos

Rotina:

Rotina

Nome Técnico

QDOXFUN

Rotinas Genéricas do Módulo de Documentos 

Cadastros Iniciais:

GPEA010 - Cadastro de Funcionário

Ponto de Entrada:

QDOXCTB

Chamados Relacionados

TVLFKQ

País(es):

Todos

Banco(s) de Dados:

Todos Homologados pela TOTVS

Tabelas Utilizadas:

QAD - Departamento.

SI3 - Centros de Custos.

Sistemas Operacionais:

Todos Homologados pela TOTVS

Descrição

 Disponibilizado Ponto de Entrada para validar a integração RH/Centro de Custo com o Quality.

Observações : No momento em que o Ponto for acionado o mesmo vai estar posicionado na tabela SI3 (Centro de Custo).

Retorno: Logico 

Descrição:

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

Localização:

Localizado antes da gravação do Departamento (Tabela QAD).

Eventos:

Ao realizar a Inclusão de Centro de Custo.

Programa Fonte:

QDOXFUN.PRW

Função:

QD_QUALITY()

Parâmetro:

Nome

Tipo

Descrição

Obrigatório

 PARAMIXB[1]

Carácter

cEmpDe

  • Empresa do Departamento

 

PARAMIXB[2]Carácter

cFilDep

  • Código da Filial do Departamento
 

 Exemplo: 

#include 'totvs.ch'

#Include 'Protheus.ch'

User Function QDOXCTB()

Local cEmpDe := ParamIXB [1]
Local cFilDep := ParamIXB [2]

Local lRet := .T.

 

IF IsInCallStack("CTBA030")

    IF ALLTRIM(cEmpDe) == "T1"
         lRet := .F.
    EndIF

EndIF

Return lRet   // Retorno Logico.