AT010SN1 - Enable Fields in Update of Fixed Assets

Description

Entry Point AT010SN1 to enable fields in update of Fixed Assets.

Examples

#INCLUDE "PROTHEUS.CH"
User Function AT010SN1()
Local aCposSN1 := paramixb [1]
AAdd(aCposSN1,"N1_STATUS")
AAdd(aCposSN1,"N1_PATRIM")
AAdd(aCposSN1,"N1_ESTUSO")
AAdd(aCposSN1,"N1_ART32")
AAdd(aCposSN1,"N1_DISTGRP")
Alert ("The following fields are enabled for updating: N1_STATUS, N1_PATRIM, N1_ESTUSO, N1_ART32, N1_DISTGRP")
Return aCposSN1

Language

Portuguese(Brazil)

Versions

Microsiga_Protheus10

Operating Systems Supported

All

Compatible with the following Databases

All

Parameters

paramixb [1]

Return

Return aCposSN1//Return the modified array

Call events of the Entry Point

If ExistBlock("AT010SN1")
aCposSN1:=ExecBlock("AT010SN1",.F.,.F.,{aCposSN1})
EndIf

Source Program

ATFA010.PRW