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): |
Este Punto de entrada tiene como función la validación de la Factura seleccionada en la rutina de Conocimiento de flete.
El punto se activa al seleccionar la factura que generará Conocimiento de flete.
Nombre | Tipo | Descripción |
{ThisMark(),ThisInv()} | Array | Identifica si el documento de entrada fue seleccionado, verificar si pasó True(Marcado) o False(No marcado) |
No existen.
#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