QTDESTR - Calcula Quantidade do Componente da Estrutura

Linha de Produto:

Microsiga Protheus

Segmento:

Manufatura

Módulo:

SIGAEST - Estoque Custos

Rotina:

Rotina	Nome Técnico
MATA650	Ordem de Produção

Cadastros Iniciais:

Cadastro de Opcionais

Ponto de Entrada:

MQTDESTR

Chamados Relacionados

TUEP57

País(es):

Todos

Banco(s) de Dados:

Todos Homologados pela TOTVS

Tabelas Utilizadas:

SG1

Sistema(s) Operacional(is):

Todos Homologados pela TOTVS

Descrição

Este Ponto de Entrada é responsável por calcular a quantidade usada de um componente da estrutura.

Observações

Neste momento, o ponto de entrada esta posicionado na tabela SG1 no item em que estiver sendo tratado.

Descrição:

Calcula quantidade do componente da estrutura.

Localização:

Localizado no final da função que permitirá alterar a quantidade do componente utilizado na estrutura.

Eventos:

 ExplEstr()

Programa Fonte:

SIGACUSA

Função:

ExplEstr()

Parâmetro:

Nome	Tipo	Descrição	Obrigatório
PARAMIXB[1]	Numérico	nRet() Quantidade do componente Pai da estrutura.
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

Exemplo:

#include 'totvs.ch'

User Function MQTDESTR()

Local nQt := PARAMIXB[1]

Local cPcsLoc := PARAMIXB[5]

Local cOpci:= PARAMIXB[6]

If (ALLTRIM(cOpci) $ ALLTRIM(cOpcLoc)) .And. (ALLTRIM(SG1->G1_COMP) == 'PRODOPC003') /
nQt := 10
Else
nQt := 0
EndIf

Return nQt