Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 4

changes.mady.by.user Guilherme Augusto de Sordi Nogueira Guedes

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Guilherme Augusto de Sordi Nogueira Guedes

Gravado em

Chave

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

...

Bloco de código
languagejava
themeMidnight
firstline1
titleExemplo de execução
linenumberstrue
#include "protheus.ch"
	
User Function F460SE1F460VAL()
	local aCompl := aClone(PARAMIXB) // Exemplo: {{"E1_MEUCAMPO","1"}} //Veja P.E. F460SE1
	local nX := 1

	If RecLock("SE1",.F.)	
		for nX := 1 to len(aCompl)
			SE1->(aCompl[nX][1]) := aCompl[nX][2]
		next nX
   		SE1->(MsUnlock())
	EndIf
Return nil

...