Linha Microsiga Protheus - Inglês

Páginas filhas
  • EP AF125GRT

Versões comparadas

Versão antiga 3

changes.mady.by.user Otto Alexandre Monteiro Altorfer

Gravado em

comparado com

Nova versão 4

changes.mady.by.user Otto Alexandre Monteiro Altorfer

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

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



Bloco de código
languagecpp
themeRDark
titleHandling of EP in the system
If ExistBlock( "AF125GRT" )
	ExecBlock( "AF125GRT", .F., .F. )
EndIf
Bloco de código
languagecpp
themeRDark
titleEP 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



Aviso
titleImportant !!
  • 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.

...