Linha Microsiga Protheus

Árvore de páginas

Tempo aproximado para leitura: 4 minutos


01. DADOS GERAIS

Produto:

TOTVS Backoffice

Linha de Produto:

Linha Protheus

Segmento:

Backoffice

Módulo:


TOTVS Backoffice (Linha Protheus) - Compras (SIGACOM)
Função:MATA116 - Conhecimento de Frete
País:Brasil
Ticket:
Requisito/Story/Issue (informe o requisito relacionado) :


02. DESCRIÇÃO

Este Ponto de Entrada tem como função a validação da Nota selecionada na rotina de Conhecimento de Frete.


03. LOCALIZAÇÃO

O ponto é chamado ao selecionar a nota que irá gerar Conhecimento de Frete.


04. PARAMETROS

Nome

Tipo

Descrição

{ThisMark(),ThisInv()}

Array

 Identificam se o documento de entrada foi selecionado, verificar se passou True(Marcado) ou False(Não Marcado)

05. RETORNO

Não há.

06. EXEMPLO DE UTILIZAÇÃO

ADVPL
#INCLUDE "PROTHEUS.CH"
/*/{Protheus.doc} User Function M116MARK
Função para validar a nota selecionada no Conhecimento de Frete.
@type  Function
@since 26/09/2024
@version P12
@param param_name, param_type, param_descr
@return return_var, return_type, return_description
/*/
User Function M116MARK()


Local lRet      := .T.
Local _cMArk    := ThisMark()
Local nPos      := aScan(aRecMark,{|x| x == SF1->(Recno())})

lRet:= FWAlertYesNo("Deseja prosseguir com a ação? Sim / Não", "Validação da Nota fiscal")

If lRet
    RecLock("SF1",.F.)
    If IsMark('F1_OK',_cMark)
        SF1->F1_OK :=Space(2)
        If nPos > 0
            ADEL( aRecMark, nPos )
            ASIZE( aRecMark, Len(aRecMark)-1 )
        Endif
   Else
        SF1->F1_OK :=_cMark
        If nPos== 0
            AAdd( aRecMark, SF1->(Recno()) )
        EndIf
    EndIf
    MsUnLock()
EndIf


Return