Histórico da Página

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

Handling of EP in the system

If ExistBlock( "AF125GRT" )

      ExecBlock( "AF125GRT", .F., .F. )

EndIf

EP Example

#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

Important !!

• 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

• Not Applicable.