DT PE OM215PCA - Permite efetuar a validação antes da geração da carga pela rotina OMSA215

01. DADOS GERAIS

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

02. DESCRIÇÃO

Este Ponto de Entrada permite efetuar uma validação antes do processamento da geração de cada carga na rotina OMSA215 (Montagem de Carga para Terceiros), sendo que esta validação ocorrerá para cada carga gerada de forma automática.

Caso retorne False, a carga não é gerada e a rotina passa para a próxima carga, se existir.

03. LOCALIZAÇÃO

Localizado antes da geração de cada carga a ser gerada pela rotina OMSA215 (Montagem de Carga para Terceiros).

04. PARÂMETROS

Nome

Tipo

Descrição

Obrigatório

aGera

Array

Array contendo as informações referente aos Pedidos que irão compor uma carga.

Abaixo um detalhamento dos campos do Array:

Seq. Array	Nome	Tipo	Descrição
1	nSequencia	Numérico	Sequência do Pedido na carga
2	Não Utilizado
3	Não Utilizado
4	Não Utilizado
5	C9_Pedido	Caractere	Numero Pedido Venda
6	C9_Item	Caractere	Item
7	C9_Cliente	Caractere	Código Cliente
8	C9_Loja	Caractere	Loja
9	R_E_C_N_O_	Inteiro	R_E_C_N_O_ tabela SC9
10	A4_ENDPAD	Caractere	Endereço padrão transportadora
11	C9_FILIAL	Caractere	Filial tabela SC9
12	Filial	Caractere	Filial SA1, quando uso exclusivo, Filial SC9
13	Não Utilizado
14	Não Utilizado
15	dDataBase	Date	Data Login Sistema
16	dDataBase	Date	Data Login Sistema
17	Não Utilizado
18	Não Utilizado

Sim

05. RETORNO

Nome	Tipo	Descrição	Obrigatório
GeraCar	Lógico	.T. - executa o processamento da carga em questão. .F. - não processa a geração da carga, indo para o processamento da próxima, se existir.	Sim

06. VERSÕES

Protheus 12.1.23 ou superiores.

07. OBSERVAÇÃO

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

08. EXEMPLO

------

#INCLUDE "PROTHEUS.CH"

User Function OM215PCA()
Local aGera := PARAMIXB[1] //Array pedidos para geração carga
Local lGeraCar := .T.
Local nI := 0

//Posições ARRAY aGera:

//1 - Sequencia
//2 - Em Branco (Nâo utilizado)
//3 - Em Branco (Nâo utilizado)
//4 - Em Branco (Nâo utilizado)
//5 - SC9.C9_PEDIDO
//6 - SC9.C9_ITEM
//7 - SC9.C9_CLIENTE
//8 - SC9.C9_LOJA
//9 - SC9.R_E_C_N_O_
//10 - SA4.A4_ENDPAD,
//11 - SC9.C9_FILIAL
//12 - FILIAL
//13 - Em Branco (Nâo utilizado)
//14 - Em Branco (Nâo utilizado)
//15 - Data Atual
//16 - Data atual
//17 - Nulo (não utilizado)
//18 - Nulo (não utilizado)

For nI := 1 To Len(aGera) //Percorre o array para validação

If aGera[nI,7] == '000001'
MsgAlert('Montagem de carga bloqueada para cliente 000001.')
lGeraCar := .F.
Exit
EndIf

Next nI

Return lGeraCar