?{"Nome do Arquivo INI","DOTGIES.INI"} ?{"Descricao Completa do Arquivo Magnetico","DOT: Declaracao de Operacoes Tributaveis"} ?{"","GI/ICMS: Guia de Informacao das Operacoes e Prestacoes Interestaduais - Espirito Santo"} ?{"A Quem se Destina","Contribuintes do ICMS inscritos no Cadastro de Contribuintes - SEFA/ES"} ?{"Objetivo","Disciplinar a coleta de dados em meio magnetico referente as operacoes tributaveis estaduais, interestaduais e do exterior."} ?{"Prazo de Entrega","Anual, as informacoes sobre as operacoes e prestacoees deverao compreender periodo entre 1 de janeiro e 31 de dezembro, e deverao ser apresentadas do dia 1 ate o dia 30 de junho do ano subsequente ao ano de referencia."} ?{"Aplicativo Disponibilizado pelo Fisco","Sistema de Informacoes Tributarias - DOT/GI-ICMS"} ?{"Versao do Aplicativo Contemplada pela Microsiga","Versao 3.0"} ?{"Comentarios",""} @XML [XXX Inicializacao] (PRE) _aTotal[01] := mv_par01 (PRE) _aTotal[02] := mv_par02 (PRE) _aTotal[03] := DOTGIES(_aTotal[01],_aTotal[02]) (PRE) _aTotal[04] := 2 (PRE) _aTotal[10] := "version ="+'"1.0"'+" encoding="+'"ISO-8859-1"'+"?" [XXX Inicio] Linha1 C 000 0 MontaXML("?xml",,,,,,,.T.,.F.,.T.,_aTotal[10]) [XXX Importar DOTs] Linha2 C 000 0 MontaXML("IMPORTAR_DOTS",,,,,,,.T.,.F.,.T.) [XXX Declaracao] Linha3 C 000 0 MontaXML("DECLARACAO",,,,,,,.T.,.F.,.T.) [R02 DECLARACAO] (PRE) R02->(dbGoTop()) Linha3 C 000 0 MontaXML("NUM_INSCEST",Transform(RetInscEmp(SM0->M0_INSC), "@R 999.999.99-9" ),,,,,,.T.,.T.,.T.) Linha3 C 000 0 MontaXML("DATA_INICIO_DECLARACAO",StrZero(Year(_aTotal[01]),4) + StrZero(Month(_aTotal[01]),2) + StrZero(Day(_aTotal[01]),2),,,,,,.T.,.T.,.T.) Linha3 C 000 0 MontaXML("DATA_FIM_DECLARACAO",StrZero(Year(_aTotal[02]),4) + StrZero(Month(_aTotal[02]),2) + StrZero(Day(_aTotal[02]),2),,,,,,.T.,.T.,.T.) Linha3 C 000 0 MontaXML("CODG_MUNICIPIO",R02->MUNIC,"N",,,,,.T.,.T.,.T.) Linha3 C 000 0 MontaXML("CODG_APRESENTACAO",R02->APRESENTA,"N",,,,,.T.,.T.,.T.) Linha3 C 000 0 MontaXML("VALR_ESTOQUE_INICIAL",alltrim(str(R02->ESTINIC)),"C",,,,,.T.,.T.,.T.) Linha3 C 000 0 MontaXML("VALR_COMPRA_DEVOL_TRANSF",alltrim(str(R02->ENTREST)),"C",,,,,.T.,.T.,.T.) Linha3 C 000 0 MontaXML("VALR_PROD_RURAL_PROPRIA",alltrim(str(R02->ENTRPRO)),"C",,,,,.T.,.T.,.T.) Linha3 C 000 0 MontaXML("VALR_AQZ_PESSOA_FISICA",alltrim(str(R02->ENTRPF)),"C",,,,,.T.,.T.,.T.) Linha3 C 000 0 MontaXML("VALR_COMPRA_FORA_EST",alltrim(str(R02->ENTRINTER)),"C",,,,,.T.,.T.,.T.) Linha3 C 000 0 MontaXML("VALR_COMPRA_EXTERIOR",alltrim(str(R02->ENTREXT)),"C",,,,,.T.,.T.,.T.) Linha3 C 000 0 MontaXML("VALR_VENDA_DEVOLUCAO",alltrim(str(R02->SAIEST)),"C",,,,,.T.,.T.,.T.) Linha3 C 000 0 MontaXML("VALR_VENDA_FORA_ESTADO",alltrim(str(R02->SAIINTER)),"C",,,,,.T.,.T.,.T.) Linha3 C 000 0 MontaXML("VALR_VENDA_EXTERIOR",alltrim(str(R02->SAIEXT)),"C",,,,,.T.,.T.,.T.) Linha3 C 000 0 MontaXML("VALR_ESTOQUE_FINAL",alltrim(str(R02->ESTFINAL)),"C",,,,,.T.,.T.,.T.) Linha3 C 000 0 MontaXML("VALR_ENERGIA_ELETRICA",alltrim(str(R02->ENEELETR)),"C",,,,,.T.,.T.,.T.) Linha3 C 000 0 MontaXML("VALR_TRANSPORTE", alltrim(str(R02->TRANSP)),"C",,,,,.T.,.T.,.T.) Linha3 C 000 0 MontaXML("VALR_COMUNICACAO",alltrim(str(R02->COMUNIC)),"C",,,,,.T.,.T.,.T.) Linha3 C 000 0 MontaXML("VALR_EXTRACAO_PETROLEO",alltrim(str(R02->EXTPETR)),"C",,,,,.T.,.T.,.T.) Linha3 C 000 0 MontaXML("VALR_AGUA",alltrim(str(R02->AGUA)),"C",,,,,.T.,.T.,.T.) Linha3 C 000 0 MontaXML("VALR_OUTRAS_ATIVIDADES",alltrim(str(R02->OUTATIV)),"C",,,,,.T.,.T.,.T.) Linha3 C 000 0 MontaXML("VALR_OUTROS_SER_TRANS",alltrim(str(R02->OUTRO)),"C",,,,,.T.,.T.,.T.) Linha3 C 000 0 MontaXML("MEMO_OBS",R02->MEMOOBS,,,,,,.T.,.T.,.T.) Linha4 C 000 0 MontaXML("DETALHAMENTOS",,,,,,,.T.,.F.,.T.) [R06 Detalhamentos] (PRE) R06->(dbGoTop()) Linha5 C 000 0 MontaXML("DETALHAMENTO",,,,,,,.T.,.F.,.T.) Linha4 C 000 0 MontaXML("CODG_MUNICIPIO",R06->MUNIC1,"C",,,,,.T.,.T.,.T.) Linha4 C 000 0 MontaXML("CODG_DETALHAMENTO",R06->CODDET,"C",,,,,.T.,.T.,.T.) Linha4 C 000 0 MontaXML("VALR_DETALHADO_1",alltrim(str(R06->VALDET1)),"C",,,,,.T.,.T.,.T.) Linha4 C 000 0 MontaXML("VALR_DETALHADO_2",alltrim(str(R06->VALDET2)),"C",,,,,.T.,.T.,.T.) Linha5 C 000 0 MontaXML("DETALHAMENTO",,,,,,,.F.,.T.,.T.) [XXX Fim Detalhamentos] Linha4 C 000 0 MontaXML("DETALHAMENTOS",,,,,,,.F.,.T.,.T.) [XXX Fim Declaracao] Linha3 C 000 0 MontaXML("DECLARACAO",,,,,,,.F.,.T.,.T.) [XXX Fim Importar DOTs] Linha2 C 000 0 MontaXML("IMPORTAR_DOTS",,,,,,,.F.,.T.,.T.)