Histórico da Página
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: |
|
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
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas