...
O sequenciamento dos Pedidos da montagem de carga (OMSA200) não está considerando o Ponto de Entrada OM200MRC.
03. SOLUÇÃO
Implementada novamente a lógica para que o sequenciamento seja considerado, quando existir o Ponto de Entrada OM200MRCEntrada DT PE OM200MRC - Pedido de venda vai para o final dos metadados.
Exemplo de Utilização
| Totvs custom tabs box |
|---|
| tabs | Passo 01, Passo 02 |
|---|
| ids | passo1,passo2 |
|---|
|
| Totvs custom tabs box items |
|---|
| default | yes |
|---|
| referencia | passo1 |
|---|
| OM200MRC - Com o Ponto de Entrada no ambiente, informe as sequências diferentes das apresentadas na tabela de Pedidos.
|
| Totvs custom tabs box items |
|---|
| default | no |
|---|
| referencia | passo2 |
|---|
| Exemplo #Include "Protheus.ch"
#INCLUDE "rwmake.ch"
#Include "TOPCONN.CH" Static nSeqEnt := 0 User Function OM200MRC()
Local aArea := GetArea()
Local aPedidos := PARAMIXB[1] // Array Contendo os Pedidos de Venda
Local nPosPed := PARAMIXB[2] // Valor Correspondente do Item Marcado
If nPosPed == 1
nSeqEnt := 0
EndIf // Incrementa a Sequencia de Entrega do Pedido
nSeqEnt+= 5
// Grava a Sequencia de Entrega do Item Marcado no Array dos Pedidos
aPedidos[nPosPed,1]:= StrZero(nSeqEnt,6)
RestArea(aArea)
Return(aPedidos) |
|
...
