Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 1

changes.mady.by.user Guilherme Alexandre Metzger

Gravado em

comparado com

Nova versão 2

changes.mady.by.user Guilherme Alexandre Metzger

Gravado em

Chave

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

...

 

Bloco de código
linenumberstrue
#INCLUDE "PROTHEUS.CH"

User Function GFEYWS01()
Local aDados := PARAMIXB[1]
Local nLenDados := Len(aDados)
	
	RecLock(cTabGWN,.F.)
	GWN->GWN_CDTPOP := aDados[ nLenDados   ]
	GWN->GWN_PLACAD := aDados[ nLenDados-1 ]
	GWN->GWN_PLACAM := aDados[ nLenDados-2 ]
	GWN->GWN_PLACAT := aDados[ nLenDados-3 ]
	GWN->GWN_DISTAN := Val(aDados[ nLenDados -4 ])
	MsUnlock()


Return