Cross Segmento - Backoffice Linha Protheus - ADVPL - Rotina automática mata020 preenchimento da tabela FIL

Tempo aproximado para leitura: 00:03:00 min

Dúvida
É possível por meio da rotina automática de cadastro de fornecedores (MATA020) realizar o preenchimento da tabela FIL (Outras Ações/Bancos [A020BANCOS])?

Ambiente
Cross Segmento - TOTVS Backoffice (Linha Protheus) – ADVPL – A partir da versão 11.8

Solução
Sim, utilizando a estrutura MVC, onde deve ser informado o Sub modelo "BANCOS", abaixo PoC:

#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 "99" FILIAL "01" 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)

oModel:SetValue('BANCOS','FIL_BANCO' ,"01")
oModel:SetValue('BANCOS','FIL_AGENCI' ,"0101")
oModel:SetValue('BANCOS','FIL_CONTA' ,"010101")

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

oModel:DeActivate()

oModel:Destroy()

RESET ENVIRONMENT

Return

Saiba mais
MATA020 MVC