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 2

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

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:

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

Ponto de entrada responsável por calcular a quantidade usada de um componente da estrutura

Observações 

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

Descrição:

Calcula quantidade do componente da estrutura

Localização:

Localizada 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 da estrutura

 

 PARAMIXB[2]

Carácter

cOpc

  • Consulta código do opcional (somente para consulta)

 

 Exemplo: 

#include 'totvs.ch'

User Function MQTDESTR()

Local nQt := PARAMIXB[1]
Local cOpci:= PARAMIXB[2]

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

Return nQt