Histórico da Página

#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 MunicipioMunicípio                               

	MSExecAuto({|x,y| FISA010(x,y)},aCab,3) //-- OpcaoOpção 3 - InclusaoInclusão do registroconoutregistro 
	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