Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 6

changes.mady.by.user Marcos Vinicius Ferreira

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Marcos Vinicius Ferreira

Gravado em

Chave

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

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

Sistemas Operacionais:

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.

Retorno 

 numérico 

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