EP AF125GRT

01. GENERAL DATA

02. DESCRIPTION

Entry Point AF125GRT is activated after the recording of a transfer request, if selected in table SNM. It allows the customer to perform complementary actions soon after confirming the transfer request, offering an additional layer of record customization and control.

With AF125GRT, you can implement a specific logic, such as adjustments to request records, related table updates, or other operations that ensure the consistency and compliance of transferred data. Thus, the entry point provides flexibility to adapt the system's default behavior depending on the needs of the business, ensuring a complete, customized transfer process.

03. OTHER INFORMATION

If ExistBlock( "AF125GRT" )
	ExecBlock( "AF125GRT", .F., .F. )
EndIf

#INCLUDE "Protheus.ch"

User Function AF125GRT()

	Local cNota := ""

	If MsgNoYes( "Do you want to save the note ", "Attention" )
		cCodSol := SNM->NM_CODIGO
		cNota:= '1234'
		dbSelectArea( "SNM" )
		SNM->( dbSetOrder(1) )
		SNM->( dbSeek(xFilial( "SNM" ) + cCodSol ) )

		While SNM->(!EOF()) .And. xFilial( "SNM" ) == SNM->NM_FILIAL .And. cCodSol == SNM->NM_CODIGO
			RecLock( "SNM", .F. )
				SNM->NM_NOTA := cNota
			SNM->( MsUnlock() )
			SNM->( dbSkip() )
		EndDo
		MSGINFO( "Note Saved "+ cNota + " successfully !", "Saving of Note" )
	EndIf

Return

04. RELATED SUBJECTS

• Not Applicable.