PE MNTA5501 - Gravar campos do Bem Transferido

#Include "Protheus.ch"

User Function MNTA5501()

	Local oDlg
	Local bOk := {|| If(U_fValStatus(.T.) , oDlg:End(),Nil)}
	Local bCancel := {|| oDlg:End() }

	Private cStatus := Space(Len(ST9->T9_STATUS))
	Private cDescStatus := ""
	Private cBemTRans := ParamIXB1
	Private cFilTRans := ParamIXB2

	DEFINE MsDIALOG oDlg TITLE "Status do Bem" From 30,20 To 34.5,80
COLOR CLR_BLACK,CLR_WHITE

	@0.7,1 Say OemtoAnsi("Status do Bem") Of oDlg COLOR CLR_HBLUE
//"Motivo"

	@0.7,6.5 MSget cStatus Picture "@!" valid U_fValStatus(.F.) F3
"TQY" SIZE 35,10 Of oDlg HASBUTTON

	@0.7,13.5 MSget cDescStatus Picture "@!" SIZE 100,10 Of oDlg
When .F.

	ACTIVATE MsDIALOG oDlg ON INIT EnchoiceBar(oDlg, bOk, bCancel,,,)
CENTERED

Return nil

User Function fValStatus(lTudoOk)

	If !EXISTCPO("TQY",cStatus)
		Return .F.
	Else
		cDescStatus := TQY->TQY_DESTAT
	EndIf

	If lTudoOk
		dbSelectArea("ST9")
		dbSetOrder(1)
			If dbSeek(cBemTRans + cFilTRans)
				RecLock("ST9",.F.)
				ST9->T9_STATUS := cStatus
				MsUnlock("ST9")
			EndIf
	EndIf

Return .T.