//-------------------------------------------------------------------
/*/{Protheus.doc} ViewDef
Definição do interface
UI definition
@author alvaro.camillo
@since 06/09/2016
@version 1.0
/*/
//-------------------------------------------------------------------
Static Function ViewDef()
Local oView := FWLoadView("MLOC003")
//Formulário Continuo
oView:SetContinuousForm(.T.)
oView:AddUserButton("Rateio","FILTRO",{|oModel,oView| ML03Rat(oModel,oView)})//"Condição Filtro"
Return oView
//-------------------------------------------------------------------
/*/{Protheus.doc} ML03Rat
Tela modal com os dados do Rateio
@author alvaro.camillo
@since 06/09/2016
@version 1.0
/*/
//-------------------------------------------------------------------
Static Function ML03Rat(oViewPai)
Local oStr2 := FWFormStruct(2,'ZL4')
Local oView := Nil
Local oExecView := FWViewExec():New()
Local oModel:= oViewPai:GetModel()
Local lRet := .T.
oStr2:RemoveField( 'ZL4_COD' )
oStr2:RemoveField( 'ZL4_ITEM' )
oView := FWFormView():New(oViewPai)
oView:SetModel(oModel)
oView:SetOperation(oViewPai:GetOperation())
oView:AddGrid('FORM_ZL4' , oStr2,'ZL4DETAIL')
oView:CreateHorizontalBox( 'BOXFORM_ZL4', 100)
oView:SetOwnerView('FORM_ZL4','BOXFORM_ZL4')
oView:AddIncrementField('FORM_ZL4' , 'ZL4_ITRAT' )
oView:EnableTitleView('FORM_ZL4' , 'Rateio do Item Russo' )
//Proteção para execução com View ativa.
If oModel != Nil .And. oModel:isActive()
oExecView:setModel(oModel)
oExecView:setView(oView)
oExecView:setTitle('Rateio do Item Russo')
oExecView:setOperation(oViewPai:GetOperation())
oExecView:setReduction(50)
oExecView:SetCloseOnOk({|| .t.})
oExecView:openView(.F.)
If oExecView:getButtonPress() == VIEW_BUTTON_OK
lRet := .T.
Endif
EndIf
Return lRet |