01. GENERAL DATA

Product:

TOTVS Backoffice

Product Line:

Protheus Line

Industry:

Services

Module:

TOTVS Backoffice (Protheus Line) - Fixed Assets (SIGAATF)

Function:

ATFA012

Country:

Brazil

Ticket:

Internal

Requisite/Story/Issue

DSERCTR1-46748

02. DESCRIPTION

Entry point AF012COPY allows the automatic completion of fields [N1_CBASE, N1_ITEM, N1_CHAPA, N1_FORNEC, N1_LOJA, N1_NSERIE and N1_NFISCAL] of the item selected. It makes it possible for the customer to fill out these fields automatically, ensuring greater efficiency and avoiding manual errors while registering or updating data.

With AF012COPY, you can speed up the registration of items, reducing the time required for data entry, and ensuring the compliance and accuracy of the information related to the item at issue.

03. OTHER INFORMATION


If (ExistBlock("AF012COPY"))
	lAf012Copy	:= ExecBlock("AF012COPY",.F.,.F.)
	If VALTYPE(lAf012Copy) <> "L"
		lAf012Copy := .T.
	EndIf
EndIf
#INCLUDE "PROTHEUS.CH"

User Function AF012COPY()

	Local lRet  := .F.
	Local cMsg0 := ""

	cMsg0 := oEmToAnsi("Populates key fields [N1_CBASE, N1_ITEM, N1_CHAPA], ") + CRLF
	cMsg0 += oEmToAnsi("of supplier/store [N1_FORNEC, N1_LOJA] and") + CRLF
	cMsg0 += oEmToAnsi("of invoice/series [N1_NSERIE, N1_NFISCAL] of ") + CRLF
	cMsg0 += oEmToAnsi("item selected? ") + CRLF

	If MsgYesNo(cMsg0)
	 lRet  := .T.
	Else
	 lRet  := .F.
	EndIf

Return(lRet)
  • It is noteworthy that the customer is responsible for EP utilization and its impacts on the system.
  • The examples used in this documentation are for demonstration purposes only. Each customer must check what behavior they want to perform according to the scope of the entry point.

04. RELATED SUBJECTS