DT PE OM200CAR - Filtro dos pedidos na geração da carga

01. DADOS GERAIS

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

Este Ponto de Entrada permite filtrar os Pedidos na geração da carga.

Localizado após clicar na opção Salvar, na tela de Montagem de Carga (OMSA200).

Geralmente utilizado em conjunto com o Ponto de Entrada OM200QRY.

Nome	Tipo	Descrição
cQuery	Caractere	Expressão da query a ser executada no banco.

Nome	Tipo	Descrição
cRet	Caractere	Nova query que filtra os Pedidos para a geração da carga.

Protheus 12.1.17 ou superiores

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

------

#INCLUDE "PROTHEUS.CH"

User Function OM200CAR()
Local cQuery := PARAMIXB[1]
Local nPosInicio := 0 Local cWhere := ""

//Definir posição inicial do WHERE
nPosInicio := At("AND SC9.C9_BLEST", cQuery)

//Extrair o WHERE da query
cWhere := "AND SC9.C9_BLEST = '"+Space(Len(SC9->C9_BLEST)) +"'"

//Remover o WHERE C9_BLEST da query
cQuery := StrTran(cQuery,cWhere," ")

Return cQuery

------