DT PE OMSCPL7E - Permitir a alteração do tipo de operação a ser utilizado na integração com o SIGAGFE

01. DADOS GERAIS

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

02. DESCRIÇÃO

Este Ponto de Entrada permite alterar o Tipo de Operação a ser utilizada na integração com o Frete Embarcador (SIGAGFE).

03. LOCALIZAÇÃO

Localizado na função GeraCarga da rotina OMSXCPL7, antes da gravação da carga e seus itens (DAK e DAI).

04. PARÂMETROS

Nome	Tipo	Descrição
cViagId	Caractere	Código da viagem
cTipOper	Caractere	Tipo de operação
cRegId	Caractere	Id da região

05. RETORNO

Nome	Tipo	Descrição	Obrigatório
cOperaca	Caractere	Tipo de operação a ser utilizado na integração com o Frete Embarcador (SIGAGFE)	Sim

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.

A emissão de mensagens será efetuada pelo Ponto de Entrada.

08. EXEMPLO

------

#include 'protheus.ch'
#include 'parmtype.ch'

//Ponto de entrada para ajustar Tipo de Operação com a Integração com o GFE.

user function OMSCPL7E()
Local cCodViag := PARAMIXB[1] //Viagem
Local cOperaca := PARAMIXB[2] //cTipOper
Local cCodRegi := PARAMIXB[3] //Regional
Local cOperFrg := SuperGetMv("MV_CDTPOP",.F.,"")

dbSelectArea("DK1")
DK1→ (dbSetOrder(1))
If DK1→ (dbSeek(xFilial("DK1")+ cCodRegi+cCodViag))
While DK1→ (!Eof()) .AND. xFilial("DK1") == DK1->DK1_FILIAL .AND. DK1->DK1_REGID == cCodRegi .AND. DK1→ DK1_VIAGID == cCodViag
IF DK1→ DK1_FILPED == "01001"
cOperaca := cOperFrg
exit
EndIF
DK1->(DbSkip())
EndDo
EndIF

return cOperaca