?{"Nome do Arquivo INI","GIASTBR.INI"}
?{"Descrição Completa do Arquivo Magnético","Guia de Informação e Apuração de ICMS dos estados."}
?{"A Quem se Destina","Aos contribuintes localizados fora do estado, ainda que no período não tenham ocorrido operações sujeitas à substituição tributária."}
?{"Objetivo","Esta declaração tem por finalidade demonstrar o imposto apurado fora do estado em cada período de apuração, bem como apresentar outras informações de interesse econômico-fiscal."}
?{"Prazo de Entrega","A GIA-ST deverá ser transmitida até o dia 10 (dez) do mês subsequente ao da apuração do imposto."}
?{"Aplicativo Disponibilizado pelo Fisco","GIAST"}
?{"Versão do Aplicativo Contemplada pela Totvs","3"}
?{"Comentários",""}
[XXX Inicializacao variaveis]
(PRE) _aTotal[001] := 1
(PRE) _aTotal[002] := 0
(PRE) _aTotal[003] := {}
(PRE) _aTotal[004] := {}
(PRE) _aTotal[005] := .F.
(PRE) _aTotal[006] := {}
(PRE) _aTotal[008] := IIf(FindFunction("GETSUBTRIB"),GetSubTrib(),SuperGetMv("MV_SUBTRIB"))
(PRE) _aTotal[010] := 0
(PRE) lExitPFil	:= IIf(lAglFil, .T., .F.)

[XXX Montagem do CFP Utilizado pela rotina - PRINCIPAL]
(PRE) aAdd (_aTotal[003], "Processamento da GIA-ST")
(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 GIA-ST       Guia de Informação e Apuração do ICMS Substituicao Tributaria.")

[XXX Montagem do CFP Utilizado pela rotina - COMPLEMENTAR]
(PRE) aAdd (_aTotal[004], {})
(PRE) aAdd (_aTotal[004][1], "Processamento da GIA-ST")
(PRE) aAdd (_aTotal[004][1], "Preeenchimento das Informações do registro Principal")
(PRE) aAdd (_aTotal[004][1], {})
(PRE) aAdd (_aTotal[004][1][3], {1, "Gia com Movimento ?",,,,,,})
(PRE) aAdd (_aTotal[004][1][3], {1, "Gia de Substituicao ?",,,,,,})
(PRE) aAdd (_aTotal[004][1][3], {3,,,,,{"1=Sim", "2=Não"},,})
(PRE) aAdd (_aTotal[004][1][3], {3,,,,,{"1=Sim", "2=Não"},,})
(PRE) aAdd (_aTotal[004][1][3], {1, "",,,,,,})
(PRE) aAdd (_aTotal[004][1][3], {0, "",,,,,,})                 
(PRE) aAdd (_aTotal[004][1][3], {1, "EC N° 87/15 com Movimento ?",,,,,,})
(PRE) aAdd (_aTotal[004][1][3], {1, " ",,,,,,})
(PRE) aAdd (_aTotal[004][1][3], {3,,,,,{"1=Sim", "2=Não"},,})
(PRE) aAdd (_aTotal[004][1][3], {1, " ",,,,,,})
(PRE) aAdd (_aTotal[004][1][3], {1, "",,,,,,})
(PRE) aAdd (_aTotal[004][1][3], {0, "",,,,,,})
(PRE) aAdd (_aTotal[004][1][3], {1, "Informações do Declarante",,,,,,})
(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, "Nome do Declarante",,,,,,})
(PRE) aAdd (_aTotal[004][1][3], {1, "CPF/MF do Declarante",,,,,,})
(PRE) aAdd (_aTotal[004][1][3], {2,,"XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", 1,,,,46})
(PRE) aAdd (_aTotal[004][1][3], {2,,"99999999999",2,0,,,11})
(PRE) aAdd (_aTotal[004][1][3], {1, "",,,,,,})
(PRE) aAdd (_aTotal[004][1][3], {0, "",,,,,,})
(PRE) aAdd (_aTotal[004][1][3], {1, "Cargo do Declarante",,,,,,})
(PRE) aAdd (_aTotal[004][1][3], {1, "E-Mail do Declarante",,,,,,})
(PRE) aAdd (_aTotal[004][1][3], {2,,"XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", 1,,,,30})
(PRE) aAdd (_aTotal[004][1][3], {2,,"XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", 1,,,,80})
(PRE) aAdd (_aTotal[004][1][3], {1, "",,,,,,})
(PRE) aAdd (_aTotal[004][1][3], {0, "",,,,,,})
(PRE) aAdd (_aTotal[004][1][3], {1, "DDD",,,,,,})
(PRE) aAdd (_aTotal[004][1][3], {1, "Telefone",,,,,,})
(PRE) aAdd (_aTotal[004][1][3], {2,,"9999",2,0,,,4})
(PRE) aAdd (_aTotal[004][1][3], {2,,"999999999",2,0,,,9})
(PRE) aAdd (_aTotal[004][1][3], {1, "",,,,,,})
(PRE) aAdd (_aTotal[004][1][3], {0, "",,,,,,})
(PRE) aAdd (_aTotal[004][1][3], {1, "Fax DDD",,,,,,})
(PRE) aAdd (_aTotal[004][1][3], {1, "Fax",,,,,,})
(PRE) aAdd (_aTotal[004][1][3], {2,,"9999",2,0,,,4})
(PRE) aAdd (_aTotal[004][1][3], {2,,"999999999",2,0,,,9})
(PRE) aAdd (_aTotal[004][1][3], {1, "",,,,,,})
(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, "Credito Periodo Anterior",,,,,,})
(PRE) aAdd (_aTotal[004][1][3], {1, "Pagamento Antecipado",,,,,,})
(PRE) aAdd (_aTotal[004][1][3], {2,,"@E 9,99,999,999.99",2,2,,,15})
(PRE) aAdd (_aTotal[004][1][3], {2,,"@E 9,99,999,999.99",2,2,,,15})
(PRE) aAdd (_aTotal[004][1][3], {1, "",,,,,,})
(PRE) aAdd (_aTotal[004][1][3], {0, "",,,,,,})
(PRE) aAdd (_aTotal[004][1][3], {1, "Distribuidor de Comb. ou TRR c/ oper. p/ UF",,,,,,})
(PRE) aAdd (_aTotal[004][1][3], {1, "Efetuou Transferencia p/ UF Favorecida",,,,,,})
(PRE) aAdd (_aTotal[004][1][3], {3,,,,,{"1=Sim", "2=Não"},,})
(PRE) aAdd (_aTotal[004][1][3], {3,,,,,{"1=Sim", "2=Não"},,})
(PRE) aAdd (_aTotal[004][1][3], {1, "",,,,,,})
(PRE) aAdd (_aTotal[004][1][3], {0, "",,,,,,})
(PRE) aAdd (_aTotal[004][1][3], {1, "Informacoes Complementares",,,,,,})
(PRE) aAdd (_aTotal[004][1][3], {1, "Declaração para UF",,,,,,})
(PRE) aAdd (_aTotal[004][1][3], {2,,"", 1,,,,180})
(PRE) aAdd (_aTotal[004][1][3], {3,,,,,{"AC - Acre","AL - Alagoas","AM - Amazônas","AP - Amapá","BA - Bahia","CE - Ceara","DF - Distrito Federal","ES - Espírito Santo","GO - Goiás","MA - Maranhão","MG - Minas Gerais","MS - Mato Grosso do Sul","MT - Mato Grosso","PA - Pará","PB - Paraíba","PE - Pernambuco","PI - Piauí","PR - Paraná","RJ - Rio de Janeiro","RN - Rio Grande Norte","RO - Rondônia","RR - Roraima","RS - Rio Grande do Sul","SC - Santa Catariana","SE - Sergipe","SP - São Paulo","TO - Tocantins"},,})
(PRE) aAdd (_aTotal[004][1][3], {1, "Soma o valor do FECP no DIFAL:",,,,,,})
(PRE) aAdd (_aTotal[004][1][3], {1, "Soma Vlr. FECP no ICMS ST:",,,,,,})
(PRE) aAdd (_aTotal[004][1][3], {3,,,,,{"1=Sim", "2=Não"},,})
(PRE) aAdd (_aTotal[004][1][3], {3,,,,,{"1=Sim", "2=Não"},,})


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

[XXX Chamada Principal]
(PRE) _aTotal[009] := Substr(_aTotal[006][1][17],0,2)
(PRE) _aTotal[007] := GIASTBR(MV_PAR01,MV_PAR02,_aTotal[009], _aTotal[006][1][18],_aTotal[006][1][19])

[RGP - Registro Principal]
(IMP){.T.,1,2,"REG_ID"}
(CMP){{"REF3D1","Vencto"},{"REF3V1","Valor"},{"REF4","UF"},{"REF11","Vl.Próp."},{"REF13","Vl.ST"},{"REF14","Devoluções"},{"REF15","Ressarcimentos"},{"REF16","Cred.Período Ant"},{"REF17","Pag.Antecip"},{"REF18","ST Devido"},{"REF19","Ret.Refi/Comp"},{"REF20","Créd.Próximo"},{"REF21","Vl.ST Recolher"}, {"REF39DA","Dev.Dif"} , {"REF39V1","FECP ST"}}
(LEG)""
(PRE) RGP->(DbGoTop ())
(PRE) _aTotal[010] := Iif("1"$_aTotal[006][1][1],Iif((RGP->TOTALREC-Val(_aTotal[006][1][12])-Val(_aTotal[006][1][13]))>0,RGP->TOTALREC-Val(_aTotal[006][1][12])-Val(_aTotal[006][1][13]),0),0)

REG_ID     C 002 0 "A0"
FIXO       C 003 0 "GST"
VERSAO     C 002 0 "03"
REF5       C 006 0 StrZero(Month(MV_PAR01),2)+StrZero(Year(MV_PAR01),4)
REF6       C 014 0 RGP->IE
REF1       C 001 0 Iif ("1"$_aTotal[006][1][1],"N","S")
REF2       C 001 0 Iif ("1"$_aTotal[006][1][2],"S","N")
REF3D1     C 008 0 Iif("1"$_aTotal[006][1][1] .And. _aTotal[010]>0,Iif(Empty(RGP->VENCTO),"00000000",RGP->VENCTO),"00000000")
REF3V1     N 015 2 Iif ("1"$_aTotal[006][1][1],_aTotal[010],0)
REF3D2     C 008 0 "00000000"
REF3V2     N 015 2 0
REF3D3     C 008 0 "00000000"
REF3V3     N 015 2 0
REF3D4     C 008 0 "00000000"
REF3V4     N 015 2 0
REF3D5     C 008 0 "00000000"
REF3V5     N 015 2 0
REF3D6     C 008 0 "00000000"
REF3V6     N 015 2 0
REF4       C 002 0 _aTotal[009]
REF7       N 015 2 Iif ("1"$_aTotal[006][1][1],RGP->VLRPROD,0)
REF8       N 015 2 Iif ("1"$_aTotal[006][1][1],RGP->VLRIPI,0)
REF9       N 015 2 Iif ("1"$_aTotal[006][1][1],RGP->DESP,0)
REF10      N 015 2 Iif ("1"$_aTotal[006][1][1],RGP->BASECALC,0)
REF11      N 015 2 Iif ("1"$_aTotal[006][1][1],RGP->ICMSPROP,0)
REF12      N 015 2 Iif ("1"$_aTotal[006][1][1],RGP->BASEST,0)
REF13      N 015 2 Iif ("1"$_aTotal[006][1][1],RGP->ICMSSUBST,0)
REF14      N 015 2 Iif ("1"$_aTotal[006][1][1],RGP->DEVOL,0)
REF15      N 015 2 Iif ("1"$_aTotal[006][1][1],RGP->RESSARC,0)
REF16      N 015 2 Val(_aTotal[006][1][12])
REF17      N 015 2 Val(_aTotal[006][1][13])
REF18      N 015 2 Iif ("1"$_aTotal[006][1][1].And.RGP->IMPDEV - Val(_aTotal[006][1][12])- Val(_aTotal[006][1][13]) > 0,RGP->IMPDEV - Val(_aTotal[006][1][12])- Val(_aTotal[006][1][13]),0)
REF19      N 015 2 Iif ("1"$_aTotal[006][1][1],RGP->COMBUST,0)
REF20      N 015 2 Iif ("1"$_aTotal[006][1][1],Iif(((RGP->DEVOL+RGP->RESSARC+Val(_aTotal[006][1][12])+Val(_aTotal[006][1][13]))-(RGP->ICMSSUBST+RGP->COMBUST+RGP->ICMCOMB))>0,((RGP->DEVOL+RGP->RESSARC+Val(_aTotal[006][1][12])+Val(_aTotal[006][1][13]))-(RGP->ICMSSUBST+RGP->COMBUST+RGP->ICMCOMB)),0),0)
REF21      N 015 2 Iif ("1"$_aTotal[006][1][1],Iif(((RGP->ICMSSUBST+RGP->COMBUST+RGP->ICMCOMB)-(RGP->DEVOL+RGP->RESSARC+Val(_aTotal[006][1][12])+Val(_aTotal[006][1][13])))>0,((RGP->ICMSSUBST+RGP->COMBUST+RGP->ICMCOMB)-(RGP->DEVOL+RGP->RESSARC+Val(_aTotal[006][1][12])+Val(_aTotal[006][1][13]))),0),0)
REF28      C 014 0 SM0->M0_CGC
REF29      C 046 0 Upper(_aTotal[006][1][4])
REF30      C 011 0 _aTotal[006][1][5]
REF31      C 030 0 Upper(_aTotal[006][1][6])
REF32      C 004 0 _aTotal[006][1][8]
REF32T     C 009 0 _aTotal[006][1][9]
REF33      C 004 0 _aTotal[006][1][10]
REF33T     C 009 0 _aTotal[006][1][11]
REF34      C 080 0 Upper(_aTotal[006][1][7])
REF35      C 030 0 RGP->CIDADE
REF35D     C 008 0 RGP->DATAP
REF361     C 065 0 Substr(_aTotal[006][1][16],1,65)
REF362     C 060 0 Substr(_aTotal[006][1][16],66,125)
REF363     C 060 0 Substr(_aTotal[006][1][16],126,185)
REF37      C 001 0 Iif ("1"$_aTotal[006][1][14],"S","N")
REF38      C 001 0 Iif ("1"$_aTotal[006][1][15],"S","N")
CODGIA     C 006 0 ""
QTD_RG1    N 006 0 RGP->CONTRG1
QTD_RG2    N 006 0 RGP->CONTRG2
QTD_RG3    N 006 0 RGP->CONTRG3
REF39      N 015 2 RGP->ICMCOMB
REF39EC87  C 001 0 Iif ("1"$_aTotal[006][1][3],"S","N")
REF39V1    N 015 2 RGP->REF39V1
REF39V2    N 015 2 0
REF39V3    N 015 2 0
REF39V4    N 015 2 0
REF39V5    N 015 2 0
REF39V6    N 015 2 0
REF39VDIF  N 015 2 Iif("1"$_aTotal[006][1][3],RGP->REF39TDIF,0)
REF39DA    N 015 2 Iif("1"$_aTotal[006][1][3],RGP->REF39DA,0)
REF39PA    N 015 2 0
REF39TDIF  N 015 2 Iif("1"$_aTotal[006][1][3] .And. RGP->REF39TDIF>RGP->REF39DA,RGP->REF39TDIF-RGP->REF39DA,0)
REF39TFCP  N 015 2 Iif("1"$_aTotal[006][1][3],RGP->REF39TFCP,0)
(POS)

[RG1 - Registro Anexo I]
(IMP){.T.,1,2,"REG_ID"}
(CMP){{"NF_RG1","Número"},{"SERIE_RG1","Série"},{"IE_RG1","IE"},{"DT_RG1","Emissão"},{"ICMR_RG1","ICMS ST"}}
(LEG)""
(PRE) RG1->(DbGoTop ())
REG_ID     C 002 0 "A1"
NF_RG1     C 013 0 IIf (Len(Alltrim(RG1->NFISCAL))>13, Substr(RG1->NFISCAL,2,14),StrZero (Val (RG1->NFISCAL),13))
SERIE_RG1  C 003 0 RG1->SDOC
IE_RG1     C 014 0 RG1->IE
DT_RG1     C 008 0 RG1->EMISSAO
ICMR_RG1   N 015 2 RG1->ICMSDEV
(POS)

[RG2 - Registro Anexo II]
(IMP){.T.,1,2,"REG_ID"}
(CMP){{"NF_RG2","Número"},{"SERIE_RG2","Série"},{"IE_RG2","IE"},{"DT_RG2","Emissão"},{"ICMR_RG2","ICMS ST"}}
(LEG)""
(PRE) RG2->(DbGoTop ())
REG_ID     C 002 0 "A2"
NF_RG2     C 013 0 IIf (Len(Alltrim(RG2->NFISCAL))>13, Substr(RG2->NFISCAL,2,14),StrZero (Val (RG2->NFISCAL),13))
SERIE_RG2  C 003 0 RG2->SDOC
IE_RG2     C 014 0 RG2->IE
DT_RG2     C 008 0 RG2->EMISSAO
ICMR_RG2   N 015 2 RG2->ICMSRES
(POS)

[RG3 - Registro Anexo III]
(IMP){.T.,1,2,"REG_ID"}
(CMP){{"IE_RG3","IE"},{"BASE_RG3","Base"},{"ICMR_RG3","ICMS"}}
(LEG)""
(PRE) RG3->(DbGoTop ())
(PRE) Iif ("1"$_aTotal[006][1][15],.T.,.F.)
REG_ID     C 002 0 "A3"
IE_RG3     C 014 0 RG3->IE
BASE_RG3   N 015 2 RG3->BASE
ICMR_RG3   N 015 2 RG3->ICMSTR
(POS)

[RG4 - Registro Anexo EC 87/15]
(PREREG) Iif("1"$_aTotal[006][1][3],.T.,.F.)
(IMP){.T.,1,2,"REG_ID"}
(CMP){{"DTVENC","Dt.Venc."},{"VALIMCS","Vlr.DIFAL"},{"VENCFCP","Ven.FECP"},{"VALFCP","Val.FECP"}}
(LEG)""
(PRE) RG4->(DbGoTop ())
REG_ID     C 002 0 "A4"
DTVENC     C 008 0 RG4->DTVENC
VALIMCS    N 015 2 RG4->VALIMCS
VENCFCP    C 008 0 RG4->VENCFCP
VALFCP     N 015 2 RG4->VALFCP
(POS)