Linha Microsiga Protheus

Árvore de páginas

MTI650FILC- Filtrar os componentes que irão compor a lista de materiais - Protheus x Totvs MES

Linha de Produto:

Protheus

Segmento:

Manufatura

Módulo:

SIGAPCP

Parâmetros:

PARAMIXB -> Array (Informações do empenho - SD4)

1 - Ordem de Produção

2 - Componente

3 - TRT Sequência da Estrutura

4 - Lote

5 - SubLote

6 - Local

7 - Quantidade

8 - Recno do Registro na SD4

País(es):

Todos

Banco(s) de Dados:

Todos

Sistema(s) Operacional(is):

Todos

Versões/Release:

12.1.27

Ponto de Entrada

Descrição:

É utilizado para filtrar os componentes que irão compor a lista de materiais (ListOfMaterialOrders) da mensagem de integração ProductionOrder - Protheus x TOTVS MES.

Localização:

Function MATI650 -> Adapter de integração dos Ordens de Produção

Programa Fonte:

MATI650.prw

Retorno:

Nome

Tipo

Descrição

Obrigatório

 lConsComp

Lógica

Indicador do tipo lógico indicando se o componente irá ou não compor a lista de materiais.

Sim

 

Exemplo:

#Include 'Protheus.ch'

User Function MTI650FILC()


Local cOp        := PARAMIXB[1]
Local cComp      := PARAMIXB[2]
Local cTrt       := PARAMIXB[3]
Local cLoteCtl   := PARAMIXB[4]
Local cNumLote   := PARAMIXB[5]
Local cLocal     := PARAMIXB[6]
Local nQtd       := PARAMIXB[7]
Local nRecno     := PARAMIXB[8]

Local lRet := .T.

ConOut('Ordem de Producao: '+cValToChar(cOp))
ConOut('Componente: '+cValToChar(cComp))
ConOut('TRT - Sequencia: '+cValToChar(cTrt))
ConOut('Lote: '+cValToChar(cLoteCtl))
ConOut('SubLote: '+cValToChar(cNumLote))
ConOut('Local: '+cValToChar(cLocal))
ConOut('Quantidade: '+cValToChar(nQtd))
ConOut('Recno: '+cValToChar(nRecno))

SB1->(dbSetOrder(1))
SB1->(MsSeek(xFilial("SB1")+cComp))

If SB1->B1_TIPO == 'GG'
   lRet := .F.
EndIf

ConOut('lRet: '+cValToChar(lRet))

Return lRet