P712EXEC - Adicionar dados nas tabelas antes da execução do MRP

Linha de Produto:

Protheus

Segmento:

Manufatura

Módulo:

SIGAPCP - Planejamento e Controle da Produção

Parâmetro(s):

Nome	Tipo	Descrição	Default	Obrigatório	Referencia
PARAMIXB	Caractere	Ticket reservado que será processado pelo MRP.

Idiomas:

Todos

País(es):

Todos

Banco(s) de Dados:

Todos

Sistema(s) Operacional(is):

Todos

Ponto de Entrada

Descrição:	O ponto de entrada P712EXEC permite o usuário realizar alterações nas tabelas do MRP antes do processamento do ticket reservado.
Localização:	Função MrpProcExe do fonte MRPProcess, antes de instanciar a aplicação do MRP.
Eventos:	Permite que o usuário altere os dados das tabelas do MRP após as sincronizações e antes da carga memória.
Programa Fonte:	PCPA712.prw
Sintaxe:	P712EXEC( ) → Nil
Retorno:	Nil
Observações:

#INCLUDE "PROTHEUS.CH"    

User Function P712EXEC() 
    Local cEmpBusca := "98"
    Local cFilBusca := "01"
    Local cLocal    := ""
    Local cProd     := ""
    Local cTicket   := PARAMIXB
    
    // Abre a tabela da outra empresa para buscar os dados
    NGPrepTBL({{"SB2",1}}, cEmpBusca, cFilBusca)

    DbSelectArea("T4V")
    T4V->(DbGoTop())
    While T4V->(!EoF())
        cProd  := AllTrim(T4V->T4V_PROD)
        cLocal := T4V->T4V_LOCAL

        If SB2->(DbSeek(xFilial('SB2') + PadR(cProd, GetSx3Cache("B2_COD", "X3_TAMANHO")) + cLocal))
            If RecLock('T4V',.F.)
                T4V->T4V_QTD := SB2->B2_QATU
                T4V->(MsUnlock())
            EndIf
        EndIf
        T4V->(DbSkip())
    End

Return Nil