Produto:

Protheus

Ocorrência:

Rotina Automática - MATA020 (Execauto)

1 - Passo a passo - Inclusão:

#Include "Protheus.ch"
#Include "RwMake.ch"
#Include "TbiConn.ch"

User Function EXEC020()

Local nOpc := 3 // ----> Inclusão
Local oModel := Nil
Local cCod := "008"
Local cLoja := "01"
Local cNome := "Fornecedor 008"
Local cNReduz := "Forn 008"
Local cEnd := "Av Braz Leme, 1000"
Local cBairro := "Casa Verde"
Local cEst := "SP"
Local cCodMun := "50308"
Local cMun := "São Paulo"
Local cTipo := "F"
Local cCGC := "88888888888"

PREPARE ENVIRONMENT EMPRESA "32" FILIAL "6597" MODULO "COM"

oModel := FWLoadModel('MATA020')

oModel:SetOperation(nOpc)
oModel:Activate()

//Cabeçalho
oModel:SetValue('SA2MASTER','A2_COD' ,cCod)
oModel:SetValue('SA2MASTER','A2_LOJA' ,cLoja)
oModel:SetValue('SA2MASTER','A2_NOME' ,cNome)
oModel:SetValue('SA2MASTER','A2_NREDUZ' ,cNReduz)
oModel:SetValue('SA2MASTER','A2_END' ,cEnd)
oModel:SetValue('SA2MASTER','A2_BAIRRO' ,cBairro)
oModel:SetValue('SA2MASTER','A2_EST' ,cEst)
oModel:SetValue('SA2MASTER','A2_COD_MUN',cCodMun)
oModel:SetValue('SA2MASTER','A2_MUN' ,cMun)
oModel:SetValue('SA2MASTER','A2_TIPO' ,cTipo)
oModel:SetValue('SA2MASTER','A2_CGC' ,cCGC)

If oModel:VldData()
     oModel:CommitData()
Endif

oModel:DeActivate()

oModel:Destroy()

RESET ENVIRONMENT

Return