#Include "Protheus.ch"
#Include "RwMake.ch"
#Include "TbiConn.ch" User Function EXEC061() Local nOpc := 3
Local oModel := Nil
Local cProd061 := "0002"
Local cForn1 := "001"
Local cLoja1 := "01"
Local cForn2 := "002"
Local cLoja2 := "01" PREPARE ENVIRONMENT EMPRESA "32" FILIAL "6597" MODULO "COM" oModel := FWLoadModel('MATA061') oModel:SetOperation(nOpc)
oModel:Activate() //Cabeçalho
oModel:SetValue('MdFieldSA5','A5_PRODUTO',cProd061)
oModel:SetValue('MdFieldSA5','A5_NOMPROD','PRODUTO 061 CT001') //Grid
oModel:SetValue('MdGridSA5','A5_FORNECE',cForn1)
oModel:SetValue('MdGridSA5','A5_LOJA' ,cLoja1)
//oModel:SetValue('MdGridSA5','A5_NOMEFOR', 'FOR. P/ ROTINA MATA061 - CT001') //Nova linha na Grid
oModel:GetModel("MdGridSA5"):AddLine() oModel:SetValue('MdGridSA5','A5_FORNECE',cForn2)
oModel:SetValue('MdGridSA5','A5_LOJA' ,cLoja2)
//oModel:SetValue('MdGridSA5','A5_NOMEFOR', 'FOR. P/ ROTINA MATA061 - CT001') If oModel:VldData()
oModel:CommitData()
Endif oModel:DeActivate() oModel:Destroy() RESET ENVIRONMENT Return | 
