Cross Segmento - TOTVS Backoffice (Linha Protheus) - SIGAFAT - Preenchimento do campo A1_COD_MUN

[Remover as instruções entre colchetes e altere o tempo aproximado para leitura]

Tempo aproximado para leitura: 00:02:00 min

Dúvida
Como preencher o campo A1_COD_MUN digitando o nome do Município 

Ambiente
Cross Segmento - TOTVS Backoffice (Linha Protheus) - SIGAFAT - Todas as versões

Solução
Será necessário criar um gatilho de um ponto de entrada. Segue abaixo os exemplos :

Gatilho



Ponto de Entrada

#Include "TOTVS.ch"

User Function T05GTMV()
Local oModel := FwModelActive()
Local cCodMun := IIf(!Empty(M->A1_EST), Posicione("CC2", 2, XFilial("CC2") + Upper(NoAcento(FwFldGet("A1_MUN"))), "CC2_CODMUN"), "")

If (Empty(M->A1_EST) == .T.)
Help(NIL, NIL, "ERRO", NIL, "Ausência de Preenchimento",;
1, 0, NIL, NIL, NIL, NIL, NIL, {"Preencha o campo Estado (A1_EST)"})
Else
oModel:GetModel("SA1MASTER"):LoadValue("A1_COD_MUN", cCodMun)
EndIf
Return (NIL)

O sistema vai preencher o código do município ao digitar o nome do Município quando o Estado estiver preenchido