Árvore de páginas


01. DATOS GENERALES

Producto:

TOTVS Backoffice

Línea de producto:

Línea Protheus

Segmento:

Backoffice

Módulo:

 

TOTVS Backoffice (Línea Protheus) - Compras (SIGACOM)

Función:

MATA116 - Conocimiento de flete

País:

Brasil

Ticket:


Requisito/Story/Issue (informe el requisito relacionado):



02. DESCRIPCIÓN

Este Punto de entrada tiene como función la validación de la Factura seleccionada en la rutina de Conocimiento de flete.


03. UBICACIÓN

El punto se activa al seleccionar la factura que generará Conocimiento de flete.


04. PARÁMETROS

Nombre

Tipo

Descripción

{ThisMark(),ThisInv()}

Array

 Identifica si el documento de entrada fue seleccionado, verificar si pasó True(Marcado) o False(No marcado)

05. DEVOLUCIÓN

No existen.

06. EJEMPLO DE UTILIZACIÓN

ADVPL
#INCLUDE "PROTHEUS.CH"
/*/{Protheus.doc} User Function M116MARK
Función para validar la factura seleccionada en el Conocimiento de flete.
@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("¿Desea proseguir con la acción? Sí / No", "Validación de la factura")

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