Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 1

changes.mady.by.user Usuário desconhecido (andre.maximo)

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Rubieni Gonzalez Aparicio

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

QDOXCTB - Ponto de

entrada

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.PRW

Rotinas genéricas Genéricas do modulo Módulo de Documentos 

Cadastros Iniciais:

GPEA010 - 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árioQAD - Departamento.

SI3 - Centros de Custos.

Sistemas Operacionais:

Todos Homologados pela TOTVS

Descrição

 Ponto

 Disponibilizado Ponto de

entrada

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 Entrada para validar a integração do RH/Centro de Custo X Quality.

Localização:

Localizado no finalantes da função que permitirá alterar a quantidade gravação do componenteDepartamento utilizado na estrutura.(Tabela QAD).

Eventos:

 		Ao realizar a Inclusão de Centro de Custo.

Programa Fonte:

QDOXFUN.PRW

Função:

QTQD_QUALITY()

Parâmetro:

NumériconRet()Quantidade do componente Pai da estrutura.

Nome

Tipo

Descrição

Obrigatório

 PARAMIXB[1]

Carácter

cEmpDe

  • Empresa do Departamento

  

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
 

cFilDep

  • Código da Filial do Departamento
 

 Exemplo: 

#include 'totvs.ch'

#Include 'Protheus.ch'

User Function QDOXCTB()

Local cFilDe cEmpDe := ParamIXB [1]
Local cEmpDe cFilDep := 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("GPEA180CTBA030")

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

EndIF

Return lRet   // Retorno Logico.