Essa rotina disponibiliza opções para efetuar o lançamento automático de códigos postais de municípios, de acordo com o cadastro do IBGE: inclusão, exclusão e visualização. Assim, visualizando esta tabela de códigos, é possível facilitar o preenchimento do campo "município".
Sintaxe:
Rotina Automática - FISA010 ( [xAutoCab],[nCallOpcx] ) --> Nil
Retorno:
Nil
(nulo)
Exemplo:
#Include "RwMake.CH"
#include "tbiconn.ch"
User Function TFISA010()
Local aCab := {}
private lMsErroAuto := .F.
PREPARE ENVIRONMENT EMPRESA "99" FILIAL "01" MODULO "FIS"
aVetor:= {{"CC2_EST", "AL", Nil},; // Sigla do Estado
{"CC2_MUN", "Exemplo", Nil}} // Nome do Município
MSExecAuto({|x,y| FISA010(x,y)},aCab,3) //-- Opção 3 - Inclusão do registro
conout("Acabou de executar a rotina automática do Cadastro de Municípios")
//-- Retorno de erro na execução da rotina
If lMsErroAuto
conout("erro")
cErro:=MostraErro()
Else
conout("Ok")
Endif
Return
Parâmetros:
| Nome | Tipo | Descrição | Default | Obrigatório | Referência |
|---|---|---|---|---|---|
| [xAutoCab], | Array of Record | Cabeçalho | X | ||
| [nCallOpcx] | Numérico | Opção Incluir,Alterar,Visualizar e etc | X |
| Produto | Microsiga Protheus |
|---|---|
| Função Envolvida | FISA010 |