Versões comparadas

Chave

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

...

Bloco de código
languagecpp
themeRDark
titleEP Example
#Include "Protheus.ch"

User Function AF125GTL()

	Local cNota  := ""
	Local cCodSol := ""

    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

Retur
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.

04. RELATED SUBJECTS

  • Not Applicable.