01. DADOS GERAIS

Produto:

Linha de Produto:

Segmento:

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). 

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.

04. PARÂMETROS

Nome

Tipo

Descrição
cMarkCaractereMarca realizada no Pedido.
Não é a mesma marca realizada na carga.
lInvertLógicoNão utilizar para validações de faturamento por carga.
cSerieCaractereSérie selecionada na geração da Nota Fiscal.

05. RETORNO

NomeTipoDescrição
lExecuta LógicoDetermina se deverá prosseguir com o processamento para a geração da Nota Fiscal.

06. VERSÕES

12.1.23 e superiores.

07. OBSERVAÇÃO

Não se aplica.

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