DT PE OMSCPL7F - Permitir a alteração da classificação de operação a ser utilizada 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 a Classificação de Operação a ser utilizada na integração com o 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
cClassif	Caractere	Classificação de operação
cRegId	Caractere	Id da região

05. RETORNO

Nome	Tipo	Descrição	Obrigatório
cClassif	Caractere	Classificação de operação a ser utilizada na integração com o 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 no documento: 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 Classificação de Operação com a Integração com o GFE.

user function OMSCPL7F()
Local cCodViag := PARAMIXB[1] //Viagem
Local cClassif := PARAMIXB[2] //cClasFrete
Local cCodRegi := PARAMIXB[3] //Regional
Local cClasFrg := SuperGetMv("MV_CDCLFR",.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"
cClassif := cClasFrg
exit
EndIF
DK1→(DbSkip())
EndDo
EndIF

return cClassif