ExecAuto MATA020 – Inclusão de Fornecedores(SA2) em MVC

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

/*{Protheus.doc} User Function ExMAT020
    (Essa função tem por finalidade mostrar a rotina automática com ExecAuto MATA020 em ADVPL)
    @type  Function
    @author Adilio Costa
    @since 27/01/2025

@Inscreva-se no Blog ProtheusAdvpl:
https://www.protheusadvpl.com.br
@Inscreva-se no Canal ProtheusAdvpl:
https://www.youtube.com/protheusadvpl
@Siga-nos no Instagram:
https://www.instagram.com/protheusadvpl
@Conheça os Cursos e Formações do ProtheusAdvpl:
https://cursos-e-formacoes-protheusadvpl.gr-site.com/
|Se esse conteúdo foi útil pra você nos ajude divulgando 
ele e nossas redes sociais!!|
*/


User Function ExMAT020()

	Local nOpc := 3 // ----> Inclusão
	Local oModel := Nil
	Local cCod := "00001"
	Local cLoja := "01"
	Local cNome := "Protheus ADVPL Consultoria e Treinamentos LTDA."
	Local cNReduz := "ProtheusAdvpl"
	Local cEnd := "Rua Protheus, nº 1987"
	Local cBairro := "ADVPL"
	Local cEst := "CE"
	Local cCodMun := "99999"
	Local cMun := "Maracanaú"
	Local cTipo := "J"
	Local cCGC := "878787878787"

	PREPARE ENVIRONMENT EMPRESA "99" FILIAL "0101" 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()
	Else
		MsgInfo("Erro ao incluir o fornecedor automaticamente!","Execauto MATA020")
		MostraErro()
	Endif

	oModel:DeActivate()

	oModel:Destroy()

	RESET ENVIRONMENT

Return