Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 2

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 gravação dos dados nas tabelas do QualityInclusão de Centro de Custo.

Programa Fonte:

QDOXFUN.PRW

Função:

QTQD_QUALITY()

Parâmetro:

]

Nome

Tipo

Descrição

Obrigatório

 PARAMIXB[1

Carácter

cFilDe()

  • Filial Origem

 

 PARAMIXB[2]

Carácter

cEmpDe

  • Empresa Origemdo Departamento

 

PARAMIXB[32]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

 

cFilDep

  • Código da Filial do Departamento
PARAMIXB[8]Carácter

cCcuAte

Centro de Custo Destino
 

 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 := .F.
    EndIF

EndIF

Return lRet   // Retorno Logico.