?{"Nome do Arquivo INI","ISSFORT.INI"}
?{"Informações necessárias para o preenchimento automático da Instrução Normativa sobre Notas Fiscais de Serviços Prestados e Tomados - Fortaleza"}     

[XXX Inicializacao]
(PRE) _aTotal[001] := MV_PAR01
(PRE) _aTotal[002] := MV_PAR02 
(PRE) _aTotal[003] := {}    
(PRE) _aTotal[004] := {}   
(PRE) _aTotal[005] := .F.
(PRE) _aTotal[006] := {}     
(PRE) _aTotal[007] := 0
(PRE) _aTotal[008] := MV_PAR06 == 1
(PRE) _aTotal[009] := {} 
(PRE) Iif( !_aTotal[008], _aTotal[009] := MatFilCalc( .F. ), _aTotal[009] := aFilsCalc )

[XXX Montagem do CFP Utilizado pela rotina - PRINCIPAL]
(PRE) aAdd (_aTotal[003], "Processamento Instrução Normativa")
(PRE) aAdd (_aTotal[003], "")
(PRE) aAdd (_aTotal[003], "Preencha corretamente as informações solicitadas.")
(PRE) aAdd (_aTotal[003], "Informações necessárias para o preenchimento automático da Instrução Normativa sobre Notas Fiscais de Serviços Prestados e Tomados - Fortaleza")

[XXX Montagem do CFP Utilizado pela rotina - COMPLEMENTAR]
(PRE) aAdd (_aTotal[004], {})
(PRE) aAdd (_aTotal[004][1], "Processamento Instrução Normativa")
(PRE) aAdd (_aTotal[004][1], "Informações Gerais")
(PRE) aAdd (_aTotal[004][1], {})
(PRE) aAdd (_aTotal[004][1][3], {1, "Informe à Versão",,,,,,}) 
(PRE) aAdd (_aTotal[004][1][3], {0, "",,,,,,})
(PRE) aAdd (_aTotal[004][1][3], {2,,"@!",1,0,,,3})
(PRE) aAdd (_aTotal[004][1][3],{0,"",,,,,,})
(PRE) aAdd (_aTotal[004][1][3],{0,"",,,,,,})
(PRE) aAdd (_aTotal[004][1][3],{0,"",,,,,,})
(PRE) aAdd (_aTotal[004][1][3], {1, "Espécies que não devem ser consideradas.",,,,,,}) 
(PRE) aAdd (_aTotal[004][1][3], {0, "",,,,,,})
(PRE) aAdd (_aTotal[004][1][3], {2,,"@!",1,0,,,50})

[XXX Chamada do Wizard]
(PRE) _atotal[005] := xMagWizard (_aTotal[003], _aTotal[004], "ISSFORT")
(PRE) Iif (_atotal[005], xMagLeWiz ("ISSFORT", @_aTotal[006], .T.), Nil)
(PRE) lAbtMT950	:= !_atotal[005]

[XXX Chamada da Função]
(PRE) _aTotal[007]:= IssFort(_aTotal[001],_aTotal[002],_aTotal[006])  

[TRB Registro I]
VERSAO     C 003 0 TRB->VERSAO
TPSERVICO  N 001 0 TRB->TPSERVICO
TPPESSOA   N 001 0 TRB->TPPESSOA
CPFCNPJ    C 014 0 TRB->CPFCNPJ
RSOCIAL    C 115 0 TRB->RSOCIAL
INSCMUNIC  C 007 0 TRB->INSCMUNIC
CODPAIS    C 004 0 TRB->CODPAIS
CODUF      C 002 0 TRB->CODUF
CODCID     C 007 0 TRB->CODCID
CEP        C 008 0 TRB->CEP
LOGRADOURO C 125 0 TRB->LOGRADOURO
NUMERO     C 010 0 TRB->NUMERO
COMPLEM    C 060 0 TRB->COMPLEM
BAIRRO     C 060 0 TRB->BAIRRO
TEL        C 012 0 TRB->TEL
EMAIL      C 080 0 TRB->EMAIL
TIPODOC    N 002 0 TRB->TIPODOC
NOTAFISCAL C 018 0 TRB->NOTAFISCAL
SERIE      C 010 0 TRB->SERIE
EMISSAO    C 010 0 TRB->EMISSAO
SITUACAO   N 001 0 TRB->SITUACAO
MES        C 002 0 TRB->MES
ANO        C 004 0 TRB->ANO
CNAE       C 009 0 TRB->CNAE
ALIQUOTA   C 003 0 TRB->ALIQUOTA
SERVICO    C 200 0 TRB->SERVICO
CODPAISLOC C 004 0 TRB->CODPAISLOC
CODUFLOC   C 002 0 TRB->CODUFLOC
CODCIDLOC  C 007 0 TRB->CODCIDLOC
CODNAT     N 001 0 TRB->CODNAT
CODART     C 015 0 TRB->CODART
CODOBRA    C 015 0 TRB->CODOBRA
VALSERVICO C 019 0 TRB->VALSERVICO
VALDEDUC   C 019 0 TRB->VALDEDUC
DESCONTOIN C 019 0 TRB->DESCONTOIN
DESCONTOCO C 019 0 TRB->DESCONTOCO
OUTRET     C 019 0 TRB->OUTRET
VALIR      C 019 0 TRB->VALIR
VALPIS     C 019 0 TRB->VALPIS
VALCOFINS  C 019 0 TRB->VALCOFINS
VALCSLL    C 019 0 TRB->VALCSLL
VALINSS    C 019 0 TRB->VALINSS
EMPENHO    C 010 0 TRB->EMPENHO
ISSRETIDO  N 001 0 TRB->ISSRETIDO
TIPOTRIB   N 001 0 TRB->TIPOTRIB
INSMUNIC   C 017 0 TRB->INSMUNIC
(DEL);M
(POS)