DT PE OMSCPL6A - Permite alterar validações na desatualização de pedidos do TOL

01. DADOS GERAIS

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

02. DESCRIÇÃO

Este Ponto de Entrada permite substituir a validação¹ relacionada ao parâmetro MV_CPLESCG (Permite estorno automático da carga ao cancelar ou reprogramar viagem?), bem como, incluir outras validações no momento do estorno da integração de Pedidos no OMS Protheus, rotina Envio de Pedidos de Venda (OMSXCPL6).

¹ Atualmente a regra a validação verifica se o parâmetro MV_CPLESCG encontra-se como 2-não e se a carga encontra-se preenchida na DK0, para então impedir o estorno da integração. Ao ativar o Ponto de Entrada, esta validação não será mais realizada.

03. LOCALIZAÇÃO

Localizado na função PermEstCar da rotina OMXCPL6B, a qual é chamada no momento da marcação dos registros na tela de Desatualizar Pedido Posicionado e também no processamento da desatualização dos Pedidos.

04. PARÂMETROS

Nome	Tipo	Descrição
cFilPed	Caractere	Filial do pedido de venda.
cPedido	Caractere	Número do pedido de venda.
cCarga	Caractere	Código da carga.
cViagem	Caractere	Identificador da viagem do TOTVS Otimização Logística.
cSeqInt	Caractere	Sequência de integração do pedido.
lViagComp	Lógico	Indica se é um estorno da viagem completa, que ocasiona a exclusão da viagem no TOL e o estorno completo da carga.
cItem	Caractere	Item do pedido de venda.
cProduto	Caractere	Código do produto.
lEstPedSel	Lógico	Se .T. indica que o estorno foi chamado do botão Desatualizar Pedidos Selecionados na rotina de Envio de Pedidos de Venda. Se .F. indica que o estorno foi chamado do botão Desatualizar Pedido Posicionado na rotina de Envio de Pedidos de Venda.

05. RETORNO

Este Ponto de Entrada deve retornar um array com as seguintes informações:

Nome	Tipo	Descrição
lRet	Lógico	Se .T. o pedido terá sua integração cancelada, se .F. o Pedido não poderá ter sua integração cancelada.
cFalha	Caractere	Mensagem do motivo da rejeição de cancelamento (quando o retorno for Falso).

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 em Execblock / Customização.

08. EXEMPLO

------

User Function OMSCPL6A()
Local cFilPed := PARAMIXB[1] //Filial do pedido
Local cPedido := PARAMIXB[2] //Número do pedido
Local cCarga := PARAMIXB[3] //Códido da carga
Local cViagem := PARAMIXB[4] //Código da viagem
Local cSeqInt := PARAMIXB[5] //Sequência de Integração
Local lViagComp := PARAMIXB[6] //Indica se a viagem completa será estornada
Local cItem := PARAMIXB[7] //Item do pedido Local cProduto := PARAMIXB[8] //Código do produto
Local lEstPedSel:= PARAMIXB[9] //Indica se é um estorno de "pedidos selecionados"
Local aRet := {}
Local lRet := .T.
Local cFalha := ""

If lEstPedSel
lRet := .F.
cFalha := "Forma de desatualização de pedidos bloqueada para uso. Utilize a opção de desatualizar pedido posicionado."
EndIf

If lRet .And. lViagComp .And. !Empty(cCarga)
lRet := .F.
cFalha := "A sequência de integração possui carga gerada, estorne a carga manualmente."
EndIf

aRet := {lRet,cFalha}

Return aRet