DT PE OM200OK - Geração de carga

01. DADOS GERAIS

Produto:	TOTVS OMS
Linha de Produto:	Linha Protheus
Segmento:	Logística
Módulo:	TOTVS OMS - Gestão de Distribuição (SIGAOMS)
Função:	OMSA200 - Montagem de Carga
País:	Todos Países
Ticket:	-
Requisito/Story/Issue (informe o requisito relacionado) :	-

02. DESCRIÇÃO

Este Ponto de Entrada permite que o usuário interfira na geração da carga.

Sintaxe
OM200OK → Geração de Carga ( [ PARAMIXB ] ) → lProcessa

03. LOCALIZAÇÃO

Localizado na rotina OMSA200 (Montagem de Carga), após a confirmação dos Pedidos selecionados e antes da geração da carga.

04. PARÂMETROS

Nome	Tipo	Descrição
PARAMIXB	Array of Record	Onde: Item 1, aArrayMan - vetor de Pedidos de Venda da carga. Item 2, aArrayCarga - vetor de cargas. Item 3, nPosCarga - carga disponível aberta.

05. RETORNO

Nome	Tipo	Descrição
IProcessa	Lógico	Se continua a geração da carga.

06. VERSÕES

Protheus 12.1.17 ou superiores.

07. OBSERVAÇÃO

Todos os parâmetros são recebidos na User Function via PARAMIXB, conforme consta no documento: Execblock / Customização.

Informações adicionais podem ser obtidas no documento: Informações armazenadas pela variável aArrayCarga.

08. EXEMPLO

------

#INCLUDE "PROTHEUS.CH"

User Function OM200OK()
Local lRet := .T.
Local aPedido := ParamIxb[1]

If SubStr(Time(), 1, 2) >= '14'
MsgInfo ('Pedido ' + aPedido[1][5] + ' do cliente ' +ALLTRIM( aPedido[1][8] ) + ' não pode ser carregado após 14h.', 'PE OMS2000K' )
lRet := .F.
EndIf

Return lRet