Histórico da Página
...
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. |
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas