...
Linha de Produto: | Protheus | ||||||||||||
Segmento: | Manufatura | ||||||||||||
Módulo: | SIGAPCP - Planejamento e Controle da Produção | ||||||||||||
| Parâmetro(s): |
| ||||||||||||
Idiomas: | Todos | ||||||||||||
País(es): | Todos | ||||||||||||
Banco(s) de Dados: | Todos | ||||||||||||
Sistema(s) Operacional(is): | Todos |
...
| 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óriatraga dados de outros grupos de empresa para as tabelas da execução atual do MRP. |
| Programa Fonte: | PCPA712.prw |
Sintaxe: | P712EXEC( ) → Nil |
| Retorno: | Nil |
| Observações: | A execução deste ponto de entrada é realizada em uma thread separada do MRP, para que conexões em outros grupos de empresa não tenham efeito no processamento do MRP. |
| Bloco de código | ||||||||
|---|---|---|---|---|---|---|---|---|
| ||||||||
#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
|
