Tempo aproximado para leitura: 00:04 min
Dúvida
Como configurar a rotina automática que permite a inclusão de amarração produto x fornecedor?
Ambiente
Cross Segmento - TOTVS Backoffice (Linha Protheus) - TOTVS COMPRAS - Protheus 12
Solução
Para realizar a opção de alteração e/ou exclusão é necessário que deixe posicionado no registro a ser alterado ou excluído.
Exemplo de Incusão :
#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
Saiba mais em :
Rotina Automatica Mata061 - Execauto
Mais Artigos Materiais - Compras (SIGACOM)
0 Comentários