Árvore de páginas

Versões comparadas

Chave

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

...

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

User Function WMS001CWMSV001C()
	Local nRecnoD12 	:= PARAMIXB[1]

	D12->(dbGoTo(nRecnoD12))
	//Exemplo de regra
	//D12_STATUS 0=Estornada;1=Executada;2=Interrompida;3=Em Execução;4=A Executar
	If (D12->D12_RECHUM != __cUserID) .And. (D12->D12_STATUS = '2' .Or. D12->D12_STATUS = '4')
		RecLock("D12",.F.)
			D12->D12_RECHUM := __cUserID
		D12->(MsUnlock())
	EndIf
Return .T.

...