MsUnlock

Destrava um registro da manipulação

Exemplo da Rotina:

ALIAS->(MsUnlock())

Exemplo 1- Destravando o registro de uma Inclusão:

RecLock("ZZZ", .T.)
	ZZZ->ZZZ_FILIAL := FWxFilial('ZZZ')
	ZZZ->ZZZ_CAMP01 := "AAA"
	ZZZ->ZZZ_CAMP02 := "BBB"
	ZZZ->ZZZ_CAMP03 := "CCC"
	ZZZ->ZZZ_CAMP04 := "DDD"
ZZZ->(MsUnlock())

Exemplo 2- Destravando o registro de uma Alteração:

DbSelectArea('SB1')
SB1->(DbSetOrder(1)) // Filial + Código

//Se conseguir posicionar no produto
If SB1->(DbSeek(FWxFilial('SB1') + "COD_AAA"))
	RecLock('SB1', .F.)
		SB1->B1_X_CAMPO := "AAA"
	SB1->(MsUnlock())
EndIf

Exemplo 3- Destravando o registro de uma Exclusão:

RecLock("ZZZ", .F.)
	DbDelete()
ZZZ->(MsUnlock())

Observações:

  • Caso tenha dúvidas ou problemas com os exemplos, entre em contato;
  • Se tiver sugestões de rotinas, pode entrar em contato;

Referências:

Receba novidades

Seja VIP e receba novidades exclusivas por e-Mail gratuitamente.

Junte-se a 4.310 outros assinantes