DT PE M460MARK - Validação dos pedidos marcados para faturamento

01. DADOS GERAIS

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

02. DESCRIÇÃO

Este Ponto de Entrada permite validar o Pedido marcado para faturamento pela ação de Faturar Carga.

03. LOCALIZAÇÃO

Localizado no início da função de faturamento do Pedido (a460Nota).

04. PARÂMETROS

Nome	Tipo	Descrição
cMark	Caractere	Marca realizada no Pedido. Não é a mesma marca realizada na carga.
lInvert	Lógico	Não utilizar para validações de faturamento por carga.
cSerie	Caractere	Série selecionada na geração da Nota Fiscal.

05. RETORNO

Nome	Tipo	Descrição
lExecuta	Lógico	Determina se deverá prosseguir com o processamento para a geração da Nota Fiscal.

06. VERSÕES

Protheus 12.1.23 e superiores.

07. OBSERVAÇÃO

Este Ponto de Entrada é chamado apenas uma vez, na tentativa de faturar todas as cargas marcadas em tela.

Ao retornar Falso (.F.), o sistema cancelará o faturamento de todas as cargas marcadas em tela.

08. EXEMPLO

------

User Function M460MARK()
Local lRet := .T.
Local cMark := PARAMIXB[1] // Marca realizada no pedido
Local cAliasQry := GetNextAlias()
Local cCargas := ""

//Query com a validação necessária para a carga
BeginSql Alias cAliasQry
SELECT DISTINCT DAK.DAK_COD
FROM %Table:SC9% SC9
INNER JOIN %Table:DAK% DAK
ON DAK.DAK_FILIAL = %xFilial:DAK%
AND DAK.DAK_COD = SC9.C9_CARGA
AND DAK.DAK_CAMINH = ' '
AND DAK.%NotDel%
WHERE SC9.C9_FILIAL = %xFilial:SC9%
AND SC9.C9_OK = %Exp:cMark%
AND SC9.%NotDel%

EndSql
While (cAliasQry)→(!EoF())
cCargas += (cAliasQry)->DAK_COD + " " //Armazena cargas com problema
(cAliasQry)->(DbSkip())
EndDo
(cAliasQry)→(DbCloseArea())

If !Empty(cCargas)
MsgInfo("Faturamento cancelado por problema nas cargas: "+cCargas, "Ponto de Entrada M460MARK")
lRet := .F.
EndIf

Return lRet