Histórico da Página
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: |
| ||||
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: | QAD - Departamento 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 : No momento 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: |
|
Exemplo:
#include 'totvs.ch'
#Include 'Protheus.ch'
User Function QDOXCTB()
Local cEmpDe := ParamIXB [1]
Local cFilDep := ParamIXB [2]
Local lRet := .T.
IF IsInCallStack("GPEA030")
IF ALLTRIM(cEmpDe) == "D MG 01T1"
lRet := .F.
EndIF
EndIF
Return lRet // Retorno Logico.