Producto:

Protheus

Ocurrencia:

Rutina automática - MATA020 (Execauto)

1 - Paso a paso - Inclusión:

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

User Function EXEC020()

Local nOpc := 3 // ----> Inclusión
Local oModel := Nil
Local cCod := "008"
Local cLoja := "01"
Local cNome := "Proveedor 008"
Local cNReduz := "Proveed 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